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PACE 



SYSTEM COMMON 



00090 




OORG 


402 






00402 








00040 


DIMENT 


OSC 


1 *0« t 




OOA FOR LOADER CALLS* 


00402 




1 




00050 






OSA 









00407 






X 1 














00407 




-0000 




00060 




DC 


3*0 






0C4 1 












-00 
















00070 




OSA 


C 






00419 




5 


X 1 














00419 




-0000 




00080 




DC 


6,0' , 






00421 




4 








-CCGO * 














00090 




DSC 


l.l.. 




DISK SCRATCH AREA OEFINER. 


00422 




1 




00100 


SRELOC 


1 

DC 


3.C 






00429 




3 








-00 
















001 10 


SFOINT 


OSC 


1,0,, 




SPS* FORTRAN, ANO OUP CNTL CARD SOURCE* 


0042s 




1 




00120 


C IN I T 



DC 


1,C,, 




LAODR INITIALIZATION INDICATOR* 


0042 7 




1 




00190 


LOINPT 


OSC 


1,0,, 




LOADER ENTRY COOE ANO INPUT DEVICE. 


0042S 




1 




00140 


FSPS 




DSC 


1,0,, 




■ 

LOAO SUP IND. ANO MONITOR CNTL CARD SOUR* 


00429 




1 




00150 


HIGH 




DC 


5,0,, 




HIGHEST ADDRESS LOACEO PLUS ONE* 


00434 




5 








-0000 














00160 


LAOOR 


OC 


5,0,, 




LOAOER INPUT BUFFER VECTOR. 


00439 




5 








-oocc 














00170 


IBMMOO 


OSC 






DRIVE CODE FOR SYSTEM MODULE • 


00440 




1 




00180 


OLCCA 


1 

OSC 


15, C, 




TRANSMIT HEADLESS OCA-S HERE FOR OVRLAV* 


0044 1 




1 5 








ooocoooccooooo* 














00190 




OVERLAY REAO 


ROUTI 


[NE 










00200 


HALT 


H 


XX,XX,02t 




RESET AND START UPON OVERLAY ERROR. 


00456 


MB 


-0000 


coooo 


00210 


OVRLAV 


34 


IB "MOD, 701, 




SEEK AND REAO OVERLAYING PROGRAM. 


004*1 


34 


00440 


00701 


00220 




36 


IBMMOO,702i 


,0 




00410 


L4 


00440 


00702 


00230 


BNI 


81 


HALT,19C0,, 




HALT IF INC. 1900. 


00492 


4* 


00456 


01900 


00240 




B 


IBMM0D*13» , 




BRANCH TO ITS FIRST LOCATICN. 


00904 


49 


0045L 


OCOOO 


00250 




DORG 


• -9 






00504 








00260 




OSA 


20 






00910 




5 


a 1 



00270 • 

00280 •••••• MAIN IORT ROUTINE. 

00290 • ENTRIES ARE IORBC, IOPT, IOSK, AND IOGT. 

00300 • FILE DESCRIPTOR ANO RETURN AODRESS VECTOR IS IOXX. 

00310 •••••• 

00320 •••••• ORIVE REPOSITION TABLE 

00330 REPOS OORG BNI>20 
00340 OC 2*0 

-0 

00350 OC 2,0 

-0 

00360 OC 2»C ] 



00512 
00513 



00515 
00517 
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00370 




CC 


2,0 




00519 




2 




00380 




ENTRY SECTION 












00390 


IOKBC 


TDM 


DIOP*47, 1, 11, 


PUT ENTRY KITH READ BACK ChECK* 


00520 


15 


02067 


OOOOJ 


00400 


IOPT 


TFM 


CFILE*ll,TTl*l 


2*8* PUT ENTRY. 


00532 


16 


01933 


0J764 


00410 




B 


I0GTM2 




00544 


49 


00578 


ooooo 


00420 




DORG 


1 




00994 








00430 


IOSK 


SF 


•.XX, , 


SEEK ONLY ENTRY. 


00554 


32 


00554 


ooooo 


00440 


IOGT 


TFM 


OFILE*lltTTl, , 


GET ENTRY. 


00566 


16 


01933 


-1792 


00450 




TFM 


BKPT.XOl. . 


TURN OFF ANY I/O INDICATORS. 


00978 


16 


00467 


-1862 


00460 




BI 


ERROR 1 1900* 1 1 




00990 


46 


00632 


0190- 


00470 


ERRET 


B 


BKPT.,16, 


WHITHER WANOEREST THOU* WAYFARER • 


00602 


4R 


0046P 


00000 


00480 




DORG 


•-4 




006C9 








00490 


INDS 


DC 


2,06** 


ERROR INDICATOR TABLE . 


00610 




2 




00500 




-6 

DC 


2,07 




00612 




2 




00510 




-7 

DC 


2* 16 




00614 




2 




00520 




J6 
DC 


2,17 




00616 




2 




00521 




J7 
DC 


2,25, , , 


PRINTER 


00618 




2 




00530 




K5 
DC 


2,36 




00620 




2 




00540 




L6 
DC 


2*37 




00622 




2 




00550 




L7 

OC 


2*38 




00626 




2 




00560 




LB 

DSC 


it • 




00625 




1 




00561 




DSC 


1*0 




00626 








00562 


INUUT 




DSA 


CHECK-12 




00631 




5 


X 1 












00631 




-1258 




00570 




ERROR INDICATOR 


SCANNER ROUTINE. 










00580 


ERROR 


TF 


•♦21,IN0S,7, 


INITIALIZE FOR CURRENT INOICATOR. 


00632 


24 


00653 


-0610 


00590 




BNI 


•424, XX,, 


TEST IF INOICATOR ON. 


00646 


47 


00668 


OOOOO 


00600 




SF 


ERROR+11* *6* 


YES -SET FLAG INDICATOR. 


00696 


32 


0064L 


OOOOO 


00610 




AM 


ERROR*. 1.2.10* 


ADVANCE AOORESSING. 


00668 


11 


00443 


OCO-2 


00620 




BD 


ERROR* ERROR «■ 11 


•lit TEST IF FINISHEO 


00660 


43 


00432 


00641 


00640 




TR 


OL0DA,ECALL,, 


YES -SET UP CALL TO THE ERROR ROUTINE. 


00492 


11 


00441 


01 80S 


00650 




B 


OVRLAY* t * 




00704 


49 


00448 


OOOOO 


00660 




DORG 


716 




00714 









00670 •« 
00680 • 



CALL LINK ANO CALL LOAD ENTRY 
SIMULATES AN IOGT ENTRY FOR SPS 



•CALL- PSUEOO-OP. 



00690 IOCAL 


TFM 


OFILE*litTTlt t 


SET MAO INDICATOR. 


00714 


1* 


01931 


-1792 


00700 


TR 


CNTtaO, lOXX.ll, 


MOVE FILE DESCRIPTOR. 


00728 


11 


02170 


0034* 


00710 


TFM 


BKPT*X01*36,» 


PUNCH THE TIME CLOCK. 


00740 


1* 


•04*7 


-1696 


00720 


AM 


IOXX, 9,, 


COMPUTE RETURN ADDRESS. 


00712 


11 


00949 


-0*09 


00730 


BNF 


ERRET- 12 tCNTM0*7 




00764 


44 


00990 


02177 


00740 


AM 


I0XX»4 




0077* 


11 


009*9 


-0004 


00790 


8 


ERRET-12* • » 


EXECUTE ANY INDICATOR CHECK. 


0078* 


69 


00990 


00*00 


00760 


OORG 


•-3 




0079* 









00770 •••••• 



MONITOR CALLER t THROUGH MONITOR RETURN ROUTINE.) 
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00780 


NON C At 


T»t 


CtDOA ,mcda 




0079* 


11 


00441 


01791 


00740 




b 


GVRLAY 




00808 


49 


00461 


ooooc 


00100 




OORG 


• - 3 




00816 








U0810 




DISK HU' I/O PREPARATION SECTION 










00820 


DID 


TO 


J I Of** I »DF 1 LE* 1 1 , 1 1 


i SE T LOk OM C b K DIGIT CP CP CODE. 


00816 


25 


02021 


01931 


00830 




TO 


* ♦ i'j »CNTWQ i i 


DECODE SCRATCH ANC HIGH UPDATE 


00828 


25 


00863 


02170 


008*0 




CF 


* * ^ ? .0 1 QP* I 02 » # 


INDICATOR. 


00840 


33 


00863 


02122 


00850 




TO 


; ;j P ♦ 7 , E R R E T - 2 




00892 


25 


02027 


00600 


00860 




HNF 


L 1 » CN T WO ♦ 3 » . 


TEST IF DIP NUMBER SUPPLIED. 


00866 


44 


01020 


02173 


00870 




TR 


MAPENT,MAPSCTti 


YES -COMPUTE SECTOR TO READ. 


00876 


31 


02144 


01847 


00880 




A 


P f n T ♦ 6 » C N TWO* 6 




00888 


21 


02150 


02176 


0089U 




A 


* A i>{;N t ♦fe,CNTwD*6 




C0900 


21 


02150 


02176 


00900 




TFM 


SK 04 , I OX , , 


SEEK THE MAP ENTRY. 


00912 


16 


02143 


-C932 


00910 




B 


SE E K 




00924 


49 


01496 


00000 


00920 




DOR G 


• -3 




00932 








00430 


CIQX 


TD 


DI0P*94,MAPENT*6» « 


REAO SLUT FCR CIM ENTRY ( « 20 » 40 . 60 • 80 ) • 


00932 


25 


021 14 


02150 


009*0 




TDM 


M* PEN T ♦ 6 . , I 1 » 


RESTORE SECTOR CCUNT ("001) 


00944 


15 


C2150 


ccoo- 


00950 




TFM 


«KPT,X0 3t# 


P 1 i KC M Tut T 1 MP n rfn 


00956 


16 


00467 


-0988 


00960 




36 


MAPE NT i 702 t t 


■ PAD TWF rif ^l8Ff} MAP FNTRV 


00968 


36 


02144 


0C702 


00970 




B 


£RRET-I2t»« 


EXECUTE ERROR TEST. 


00980 


49 


00590 


00000 


00980 










00987 








00990 


X03 


TR 


MAPENT,DI0P*95»ll » 


mcwjf n i m F^Tuv Tn wn**!iwf*. nt 

wuvc U 1 " c — 1 * T 1 U mUka 1 nu )LUl i 


00988 


31 


02144 


02 1 IN 


01000 








Ttil 1 r VALIL U1M tNIRT , 


010CC 


45 


01068 


02144 


01010 






£RR0R*60# . t 


NO -GO TO THE ERROR ROUTINE. 


01012 


49 


00692 


OCOOO 


01020 




DOR G 






01020 








01030 


CHK 1 




"»rt"l 1 1 I.T 1 *U* D| 1 1 | 


MOVE DQ« TO WORKING SLOT* 


01020 


31 


02144 


02170 


01040 




8 D 




tcct ens ccrTns croiTf'Xd bci nriTii l 


01032 


43 


01068 


02027 


01050 






m A P E N T ♦ 3 , SR £ L OC 


vp c — rnnDiiTC m^Ti urc c p r t r d innictt 

TC g lunru 1 C ADjULu 1 C )tLI Ln AUUnO) i 


01044 


21 


02147 


00425 


01060 




T C 


M A P E N T ■, $R E L OC - 3 • 


fCT itc i nr i r ii ( r mc 

ut 1 l 1 i l(JOU*L L/Ktvtr V.IjUC* 


01056 


25 


02144 


00422 


010/0 


DIOY 


AN F 




rt c ' it act niai v net men 


01068 


44 


01112 


00554 


01080 






i Q S * „ , « 


Y F ^ .ri FID T M F IKrtrATflB 


01080 


33 


00554 


OCOOO 


1090 




TFM 




apapnei) TuF (cc> * kj r» CvlT 
r C K r UH ^ Inc )t • ni l> EA I 1 i 


01092 


16 


02143 


-056N 


01 100 






iEt K 




1104 


49 


01496 


OCOOO 


01 1 to 




DOR G 






01112 








0112U 




f,Hf 


GTE ST. OF HE ten 


BRANCH IF GET ENTRY. 


01112 


4* 


Oil 56 


01930 


01 1 30 


oiuz 




D (OP* 1 1 »CN TfcD* 1 , , 


SET MODE DIGIT. 


01 124 


25 


02031 


02171 


1140 




T FM 


SKG4.0 (OP , , 


PERFORM THE SEEK. 


Oil 36 


16 


02143 


-2020 


01150 






3EfcK 




01 148 


49 


01496 


OCOOO 


01 160 




DOR G 






01 156 








01170 


GTEST 


CM 


MAPENT* 13.SS999, , 


TEST IF RELOCATABLE LCAOER RECUIREC. 


01 156 


14 


C2157 


f. " ^99 


01180 




r> i 


•♦24, 12C0 




01 168 


46 


01192 


G A ... 


01 190 




flNf 


ill {' . M A P E N T ♦ 1 3t t 


NO -TEST IF 5PS SUPERVISOR REQUIRED. 


11 8 


4 4 


C 1 12* 


2 1 5 > 


01200 




TR 


CH.CCA .RCALL » , 


YES -READ ANt: EXECUTE CALLER. 


0119 2 


5 > 


004* 1 


01819 


01210 




B 


QVRLA Y 




01224 


49 


G0468 


CCOOO 


01220 




fURG 






012 12 








01230 






3 : >1 DISK I/O HOUSEKEEPING SECTION 










01240 


X04 




. ?0P*98. » . 


CLEAK POSSIBLE USERS ERROR TRAP INC. 


01212 


3i 


02118 


00000 


U 125Q 




BNF 


:. hk ?„DF !l.E*fi , , 


BRANCH IF GET ENTRY. 


01224 


44 


01340 


01930 


01260 




TLM 


u ! C P ♦ 4 7 , , , 


KILL POSSIBLE R8C I KCICATGR. 


01236 


15 


C2067 


CCCOO 


12 70 




bnf 


I Of *,CNTW0»6, 


EXIT IF NO REPOSITIONING RECU I RED. 


01248 


44 


0056N 


02170 


01280 




AM 


Dk I VE .KFPOS-OLDC V , ■ 


.COMPUTE A SECTOR ADDRESS FROM THE 


01260 


11 


02169 


- 161R 


1290 




') CM 


*APFNTM»0, 11 , 


REPOSITION CONSTANT. 


01272 


15 


02145 


0000- 


01 300 




r>- 


MA PEN 1 + 3 » OR I VF i 11 




01284 


26 


02147 


0216R 


1310 






M ft PENT*? 




01296 


33 


02146 


OCOOO 


01 320 




A 


HAPFNT* 3.DR I VE . 1 1 




C13C6 


21 


02147 


02 


I 3 30 






MfcPfN?, T6MP-5, , 


RESTORE THE LOGICAL C»IVE CODE CIGIT 


01 32C 


25 


02144 


020 * 



3 



lo2C~14M MOM tOH I VERSION 2 SUPERVISOR ANC I.C.R.T. PAGE 



01 340 




13 


C 1 Y + 2 




01332 


49 


01092 


OCOOO 


G 1 350 






»- l 




01340 








I 360 


CHK 2 


HNF 


t^K?,ninp* 7, . 


TEST IF HIGH I NOICATCR TC BE UPC AT ED . 


01340 


44 


01376 


02027 


i. 1 3?G 




T f 


i- I i^'»MA^£Nr* I 3 » * 


YE S. 


01152 


26 


00434 


02157 


01380 




A 


*- I Gh- 2, M*pfc NT* a 




0136^ 


21 


00432 


02152 


1390 


CHK 3 


6NF 


C»-K4 t SPSMLP t # 


TEST IF SPS MAIN LINE PROGRAM. 


01316 


44 


01408 


00468 


01400 




TR 


OLUOA,SUPRE T, , 


YES -GET ROUTINE TO HANDLE. 


C1388 


31 


00441 


01633 


01410 




B 


OVRLA i 




01400 


49 


00468 


00000 


01420 




CORG 


•-3 




014C8 








01430 


CHK 4 


BNF 


X04*24,CNTkD»1,, 


TEST If f :<ECLT ION DESIRED. 


01408 


44 


01236 


02171 


01440 




TF 


HALT«6. I0XX* t 


YES -SET UP THE EXIT. 


01420 


26 


00462 


00565 


1450 




TFM 


IOXX.MAPENTM8, 711 




014^2 


16 


00565 


-216K 


01460 






;<04 + 24,MAPENT*14 




01444 


4$ 


01236 


021S8 


01470 




T f M 


10xx,MAPENT*13. 711 




01456 


16 


00565 


-215P 


01480 







X04+24 




01468 


49 


01236 


00000 


01490 




CORG 


3 




01476 








01500 




» SEEK ROUTINE 


SEEKS WHEN NECESSARY, COMPUTES PHYSICAL 










01510 


• 


DRIVE COOr CORRESPONDING TO USER SUPPLIED DRIVE CODE, AND 










01520 




LP!)A!£S CURRENT I/C 


CYLINDER POSITION INDICATOR. 










01530 


SKOl 


TO 


TE»!?-5 S «AP£NT , , 


INSERT SUPPLIED DRIVE CODE . 


01476 


25 


02014 


02144 


01540 




B 


bK0 2 




0148B 


49 


01604 


OCOOO 


01550 




DURG 


»-3 




01496 








01560 


SEEK 


TFM 


fFMP-5,0, 10. 


COMPUTE CYLINOER FOR THIS CALL. 


01496 


16 


02014 


000-0 


01570 




Tf 


TE MP , MAPE N ? ♦ 5 




01508 


26 


02019 


02149 


01580 




CF 


TEMP-4 




01520 


33 


02015 


OCOOO 


01590 




A 


?FMP, TEMP 




01532 


21 


02019 


02019 


01600 




A 


TEMP, TEMP 




01544 


21 


02019 


02019 


01610 




A 


TEMP,NA!'»E'NT*5 




01556 


21 


02019 


02149 


01620 




BD 


SK01.MAPENT , * 


TEST FCR SPECIFIED DRIVE CODE . 


01568 


43 


01476 


02144 


01630 




A 


TEMP-5.TEMP-5,, 


NO -MUST BE COMPUTED. 


01580 


21 


02014 


02014 


01640 




AM 


TEMP-5. t ,10 




01592 


11 


02014 


000-1 


01650 


SK02 


TF«. 


CR I Vfc .EOUI V, , 


COMPUTE LOCATION OF PHYSICAL DRIVE CODE. 


01604 


1* 


02169 


-2123 


01660 




A 


«ir t')* { rpMp-5 




01616 


21 


02169 


02014 


01670 




TO 


MAPENTuDA ! VE » Ut 


REPLACE LOGICAL DRIVE CODE BY PHYSICAL. 


01628 


25 


02144 


0216R 


01680 




BO 


J2 f MAP£-NT, , 


ERROR IF NO PHYSICAL DRIVE CODE. 


01640 


43 


01672 


02144 


01690 




TFM 






01*12 


14 


00467 


-1604 


O17C0 




B 




TELL THE OPERATOR A THING OR TMC. 


01664 


49 


00692 


OCOOO 


01710 




DO KG 






01*72 








01720 




km 


OR!VE»OLDCY-EQU!Vt 


.GET CLO CYLINOER POSITION. 


01672 


11 


021*9 


-0008 


01730 






T6MP-4* * v 


COMPARE hi TH DESIRED CYLINOER. 


01*84 


32 


02019 


00000 


01740 




c 


YEMP-3»C«1 VE.il 




0l4t6 


24 


0201* 


021*ft 


01750 


SK03 


81 


SK04* HQCbt 


TEST IF THE SEEK IS NECESSARY. 


017C8 


4* 


0214L 


01200 


01760 




34 


HAPff*?*- 7CU r . 


YES -PERFORM THE SEEK. 


01720 


14 


02144 


00701 


0177Q 




TP 


OR i . If 3.6t 


UPDATE OLD CYLINDER POSITION. 


01732 


18 


021*41 


02016 


01780 




8 


iff • , % 


RETURN TO CALLER. 


01744 


49 


0214L 


00000 


01790 










017SI 








oiiOQ 


















01810 




fsn. 




TABLE » NC^-OISH 1/0 H0OE A*G OfVlCI 


01TS2 




2 




01820 




Jft 

i3« 




i^cietiRS. 


01794 




2 




0i»3U 




Oi 






01796 




2 




0184C 




»*■ 

. m, 






01791 




2 




OUH 




«. ■■ 




h 


01780 




2 
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PACE 5 



01860 




DC 


2 , 


5 7 






N7 






018 70 




DC 


2 , 


1 8 






J 8 






01880 




DC 


2 1 


2 g 






K 8 






01890 




DC 


2 , 


48 






M8 






019C0 




DC 


2 • 


1 9 






j9 






01910 




DC 


2 , 


29 






K9 






01920 




DC 


2 , 


4 9 






M9 






01921 




DC 


4, 


C098 






-098 






01922 




DC 


4i 


0099 






-099 






0192 3 




DC 


4 


1096 






J098 






0192 4 




DC 


4 


1C99 






J099 






01930 


MCCA 


cs 





• ♦I 


01940 




DSA 


DSA 19 


01950 




DC 


3 


3 






-03 










DC 


6 


C 






-0000' 




01970 


EC ALL 


DS 





• ♦I 


01980 




OSA 


DSA10 


1 990 




DC 


3 


. 12 






- 12 






02000 




DSA 


ERROR 


020 1 




DSC 


1 








DS 





,•♦1 


02030 




DSA 


CSA15 


02040 




DSC 


1 


1 













02050 




DC 


2 


♦ 3 






-3 






02060 




DC 


6 


,0 • 






-0000' 




02070 


SUPRET 


DS 





.♦♦1 


02080 




USA 


DSA 17 


02090 




DC 


3 


.2 






-02 







PRIM NUMERIC 
ALPHA 

NUMERIC SUPPRESS SPACE 
ALPHA SUPPRESS SPACE 



01762 

01764 

01766 

01768 

01770 

01772 

01774 

01778 

01782 

01786 

01790 

01791 
01795 

01795 
01798 



018C5 
01809 



018C9 
01812 



01817 
01818 



01819 
01823 



01829 
01824 



01826 
01832 



01833 
01837 



01837 
01840 
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02100 




DC 


6,0 ' 




01846 




6 








-OCCO' 












02110 


MAPSCT 


DSC 
I 


1 , 1 




01847 




1 




02120 




DSA 


48C0 




01852 




5 


X 1 












01852 




-4800 




02130 




DSC 


3,1 




01853 




3 








001 














02140 




DC 


6,0* 




01861 




6 








-C00O* 












02150 




CONTINUATION OF ENTRY SECTION 










02160 


X01 


TF 


•♦23.I0XX.U, 


MOVE FILE DESCRIPTOR TO CNTWD • 


01862 


26 


01889 


0056N 


02170 




TR 


CNUD.XX 




04874 


31 


02170 


00000 


02180 




AM 


IOXX, I, , 


COMPUTE RETURN AODRESS . 


01886 


11 


00969 


-0001 


02190 




BNF 


DI0,CNTW0*5, , 


BRANCH IF DISK I/O. 


01898 


44 


00816 


02175 


02200 




A 


DFILE+ll,CNTW0*6,, 


NO -BUILD NON-OISK I/O INSTRUCTION. 


01910 


21 


01933 


02176 


02210 


DFILE 


TF 


I0P*10,XX 




01922 


26 


01968 


CCCOO 


02211 




TO 


I0P*ll. IOPW, , , 


SET Oil 


01934 


25 


01969 


01965 


02220 




TO 


IOP*l, I0PM0 




01946 


25 


01999 


01968 


02230 




I/O SECTION 












02240 


IOP 


30 


CNTklD*4,XX,06, 


CONSTRUCTED NON-DISK I/O INSTRUCTION. 


01958 


LO 


0217H 


ooooo 


02250 




BI 


DIOP+60,1900,. 


TEST FOR ANY I/O ERROR. 


01970 


46 


02080 


01900 


02260 




TFM 


BKPT.X03. , 


PUNCH THE TIME CLOCK. 


01982 


16 


00467 


-0988 


02270 




BNR 


IOXX, CNTW0*4, 0611. 


NO -TEST FOR AN INITIAL RECCRO MARK. 


01994 


M5 


0096N 


0217M 


02280 




B 


ERR0R*60, , , 


YES -EXECUTE CONTROL CARD TRAP ROUTINE, 


02006 


49 


00692 


OOOOO 


02290 




OORG 


•-4 




02013 








02540 


TEMP 


DC 


7,0,, 


SCRATCH FIELD FOR SEEK ROUTINE. 


02019 




7 








-oocooo 












02300 


CIOP 


30 


MAPENT, 700,010. 


CONSTRUCTED DISK I/O INSTRUCTION. 


02020 


LO 


02144 


007-0 


02310 




BNF 


•♦36.»05, , 


IF INDICATED. DO AN RBC. 


02032 


44 


02068 


02067 


02320 




S 


•♦23.0IOP*ll 




02044 


22 


02067 


02031 


02330 




36 


MAPENT»700,10 




02096 


36 


02144 


007-0 


02340 




BN I 


X04,1900,, 


PROCEED IF NO ERROR. 


02068 


4? 


01212 


01900 


02350 




TFM 


BKPT,X04, , 


ERROR -PUNCH THE TIME CLOCK. 


02080 


16 


00467 


-1212 


02360 




BNF 


ERROR, •♦26, , 


BRANCH TO ERROR SCANNER OR USERS 


02092 


44 


00632 


02118 


02370 




CF 


•♦14, XX,, 


ERROR ROUTINE. 


02104 


33 


02118 


OOOOO 


02380 




B 


XX 




02116 


49 


00000 


OOOOO 


02390 




OORG 


•-4 




02123 








02400 




DRIVE EQUIVALENCE AND POSITION TABLES 










02410 


EQUIV 


DS 


0,«*l 




02123 









02420 




DC 
-1 


2, 1 




02124 




2 




02410 




oc 

-0 


2,0 




02126 




2 




02440 




oc 

-0 


2,0 




02121 




2 




02450 




DC 
-0 


2*0 




02130 




2 




02460 


QLOCY 


OS 


0»»«l 




02131 









02470 




OC 
-0 


2*0 




02132 




2 




02480 




DC 
-0 


2.C 




02134 




2 




02490 




OC 
-0 


2.0 


% 


0213* 




2 
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Q25C0 




DC 


2,0 






021 38 




2 




02*10 




SYMBOL DEFINITIONS 


AND WORKING STORAGE 










0253G 


SKO* 


DC 


5,0, , 




SEEK ROUTINE RETURN ADDRESS VECTOR. 


021*3 




5 








-0000 














02520 


* APENT 


DSC 


21,0,, 




STORAGE FOR WORKING CDA. 


021** 




21 








oooccoccccoocooccoooo 














02550 


CRI VE 


UC 


5,0, , 




VECTOR TO MUUULE TABLES. 


02169 




5 








-ooco 














02560 


CNTWD 


nsc 


13, C, 




STORAGE FOR CALLING SEQUENCE RECCRO. 


02170 




13 








cccccocccoooo 














0257U 


XX 


OS 


0,0, , 




INDICATES USED FIELD OR UNDEFINED SYMBOL 


OCOOO 









02580 


IUXX 


OS 


0, I OSK ♦ I I , , 




CALL ANU RETURN VECTOR. 


005*5 









0259U 


BKPT 


DS 


, HAL T* U,, 




INDIRECT RETURN BRANCH ADDRESS 


00*67 









02600 


SYSORG 


cs 


0, 2*02, , 




OBJECT PROGRAM STANDARD ORIGIN. 


02*C2 









0261 J 


SYSCAL 


DS 


O.OVRLAY* 7, , 




SYSTEM PROGRAM COMMUNICATION DIGIT. 


00*75 









02620 


NONE X 


DS 


, H AL T ♦ 1, , 




NON-EXECUTE INC. SET BY SPS. ETC. 


00*57 









02630 


SPSMLP 


DS 


O.OVRLAY, , 




SPS SUPERVISOR FLAG WHEN ML P LCAO REQUEST 


00*68 









02640 


RM 1 


cs 


0,2210,, 




INDIRECT VECTORS TO SET RECORD MARKS 


02210 









02650 


RM2 


DS 


0,2215,, 




FOR THE SPS SUP. AFTER ML P LCAD. 


02215 









02660 


SUPENT 


OS 


0, 293*, , 




ENTRY TO THE SPS SUPERVISOR. 


0293* 









02670 


COMM 


DS 


, SYSQRG**CO , , 




LOCATION OF COMM SECTOR IN MONITOR. 


028C2 









02680 


MCQMM 


DS 


0,COMM*50, , 




MONITOR INCS. IN THIS SECTOR 


02852 









02690 


MCCBUF 


OS 


, 1 3000 , , 




MONITOR CNTL CARD R E AO BUFFER. 


13000 









02700 


MCYL 


DS 


0,98, , 




MOM TOR CYLINDER 


00048 









02710 


DSACO 


DS 


C , 2C0»MC YL • , 




FIRST SECTOR IN MONITOR CYLINDER 


19600 









02720 


CSAOl 


DS 


C,DSA0Q*35, , 




LOADER RETURN ANALYZER STAGE 2 


19635 









02730 


CSA02 


DS 


0,0 SAO I* I, , 




ARITHMETIC TABLES. 


19636 









027*0 


OSAO* 


CS 


0.USA02O, , 




COMMON AND OVERLAY REAC ROUTINE 


19639 









02750 


0SA06 


DS 


O.DSAO** I , , 




MAIN IORT 


196*C 









02760 


CSAQ7 


CS 


, D SA06 ♦ 1 6 , * 




RELOCATABLE LOADER CORE SAVE AREA 


19656 









02 77U 


CSA08 


DS 


Q,0SA07O, , 




MOM TOR 


19659 









C2780 


DSA09 


DS 


0,DSA08*85, , 




NAMED LOAD ROUTINE STAGE 2 


197** 









02790 


DSA10 


DS 


0,DSAQ9*5, , 




ERROR ROUTINE STAGE 


197*9 









02800 


DSAi 1 


CS 


O.DSA 10*12, , 




ERROR ROUTINE STAGE 1 


19761 









0285U 


CSA16 


DS 


0,USA 11*6, , 




LOADER CALLER STAGE 2 


19767 









02B60 


CSA17 


US 


O.USA 16*3, , 




SPS SUPERVISOR RETURN ANALYZER 


19770 









028?Q 


DSAI 3 


DS 


0,CSA17*2» , 




ERROR ROUTINE STAGE 3 


19772 









02830 


DSAI* 


DS 


0,DSA13*5, , 




mom d 1 1 1 1 t t m e ctatc u 


19777 









028*0 


CSA15 


US 


0,OSA 1**6, , 




SPS SUP AND LOADER CALLER STAGE I 


19783 









02810 


US A I 2 


CS 


0,DSA15*3, , 




tKMuK HUUIlNt Jl *0t i 


19786 









026 10 


C S A I 8 


DS 


0,CSA12*6, , 




LOADER RETURN ANALYZER STAGE 1 


19792 









02880 


CSA19 


CS 


0, DSA 18*3, , 




MONITOR AND DUP SUP. LOADER SUBR. 


19795 









U2890 


OS A20 


US 


O.USA 19*3, , 




NAMED LOAD ROUTINE ST AC»£ 1 


1 9798 




o 




029C0 


DSA21 


OS 


0.OSAOI-5, , 




ERROR ROUTINE STA&fc PLUS 


19630 









02910 


CSA39 


DS 


0,DSA08**, , 




SYSTEM COMMLN I C AT I ON SECTOR. 


19663 









02920 


CSA*0 


CS 


cudsao8*8*. , 




SYSTEM QOA SECTOR. 


197*3 









0293Q 


CSA50 


us 


, 1 702*,, 




SPS SUPERVISOR 


1702* 









029*0 


DSA51 


us 


O.DSAOO, , 




RELOCATABLE LOADER 


196C0 









02950 




DORG 


19982* 




CUNTROi TU WRITE ON C I S K . 


19982 








02960 




DSC 


1 , 1 






19982 




I 




029 7 




1 

USA 


USAO* 






19987 




5 


X 1 














19987 




J9639 




2980 




CL 


3, 2C 




7 


19990 




3 








-20 
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PAGE 


0?990 




DC 


6,*02* 






19996 




6 








-0*C2' 














U 1000 




















3010 




IOR T SUBROUTINES WHICH NORMALLY RESIDE ON DISK FOLLOW 










3020 




















0303C 




OVERLAY ERROR ROUTINE STAGE 










30*0 


• • • 


SAVE 


ERROR COUNT ROUTINE 












03050 




CORC 


ERROR 






00632 








03060 


TEST 


BNF 


NOERR, INDS, 7, 




TEST 1 NO TABLE 


00632 


** 


00656 


-0610 


03070 




AM 


COUNT, 01, 1C, , 




UP THE ERRCH COUNT 


006** 


11 


01133 


000- I 


3080 


NO ERR 


AM 


TE$mi,02,lO, , 




-MODIFY ERROR TEST 


00656 


11 


006*3 


000-2 


03090 




AM 


TEST* 18,02, 10, , 




MODIFY ERROR COUNT LOCATION 


00668 


11 


00650 


000-2 


031C0 




BD 


TEST,TEST*U,ll, 




TEST LAST INDICATOR 


006*0 


*3 


00*32 


006*L 


03120 




WRITE ERROR COUNT 


TO 


01 SK 










031 30 




TO 


IBMWRY, I BMMOD * , , 




SET CORRECT MODULE 


00692 


25 


0102* 


CC**0 


G3l*0 


• NO ERROR 


COUNT TO DISK IF 


FULL TRACK 










03160 




BNF 


WRTCT+l2,0LDDA*l*, 


, WRITE ERROR COUNT NO FLAG 


0070* 


A* 


00736 


00*55 


031 70 




B 


GDGO 






00716 


*9 


00866 


OCOOO 


03180 




CORC 


• -3 






0072* 








032*0 


HRTCT 


3* 


I8MWRT, 701 , , , 




SEEK THE ERROR COUNT 


0072* 


3* 


0102* 


00701 


03250 




38 


IBMWRT,702 , , , 




WRITE THE ERROR COUNT 


00736 


38 


01024 


00702 


03260 




BI 


B1GTRB, 1900 






007*8 


** 


007*8 


01900 


03270 




B 


GDGO 






00740 


*9 


008*6 


OCCOO 


03280 




CORG 


• -3 






0C7A1 








03290 


BIGTRB 


RCTV 








007*8 


3* 


00000 


00102 


03300 




WATY 


ME SI,,, 




DISK WRITE ERROR MESSAGE 


00710 


39 


00813 


00100 


03310 




M 








00792 


48 


OQOOO 


OCOOO 


3320 




B 


WRTCT 






QC80* 


49 


0072* 


OCOOO 


03330 




DORG 


• -* 






ootu 








033*0 


MESl 


OAC 


27, BAD DISK WRITE. RESET START ' 


00813 




27 


X 2 






BAD 


DISK WRITE. RESET 


START • 










03350 


• • • 


MESSAGE IF ENTERING 


I OR T ERROR 










03360 


&0GO 


CM 


BKPT,XOi, , 




TEST IF CALLED AT ENTRY 


008** 


1* 


004*7 


-18*2 


03370 




BE 


MESSG 






00878 


** 


0095* 


01200 


03380 




CM 


BKPT,XO l* 36 






00890 


1* 


00467 


-1898 


03390 




BE 


MESSG 






00902 


** 


0095* 


01200 


03*00 




TR 


OLDCA.JOFF,, 




NO-CALL IORT ERROR 


0091* 


31 


00441 


01038 


03*10 




& 


OV RlAY+12,, , 




ELIMINATE SEEK 


0092* 


*9 


00480 


00000 


03*20 




DORG 


• -* 






00913 








3*30 


MES2 


CAC 


ll.ENT ERROR • 






00919 




1 1 


A 2 






EN T 


ERROR ' 
















MESSG 


RCTY 








0099* 


1* 


00000 


00102 


3*50 




WATY 


MES2, , , 




10 IN MESSAGE 


009*8 


39 


00935 


00100 


03*60 




WNTV 


INOS- I, 




IQ INDICATORS 


00980 


38 


00*09 


00100 


3* 70 




RCTY 








00992 


s* 


. 00000 


00102 


03*80 




8 I 


•♦12,700 






0100* 


** 


0101* 


00700 


03*90 




B 


EEXITM2 






0101* 


49 


01*50 


00000 


03500 




DORG 








0102* 








03510 


IBMWRT 


DC 


i,i 






0102* 




1 




03520 




J 

DSA 


DSA 10*5 






01029 




9 


X 1 














01029 




J9T94 




0353C 




DC 


3, i 






010S2 




3 




035*0 




-01 
DSA 


ERROR ♦SCO 




5 


01037 




9 


X 1 
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PAGE 



03550 JOFF 
03560 



03570 
03580 



05 0,**1 
DSA DSA 2 1 



DC 3,5 

-05 

DSA ERROR 



01037 
01034 
01042 

01042 
01049 



03610 • 
03620 

03630 COUNT 

03640 

03650 

03660 

3661 

03670 

03680 

03690 

037C0 
037 10 
03720 
03730 
03740 
03750 
03760 
03770 

03780 

03790 

03800 

03801 

03810 

03820 

03830 

03840 • 

03850 

03860 BBUFF 



ROUTINE TO TYPE OUT AND RESTORE THE ERROR COUNTERS TC ZERO 
DOR G ERR0R»5G0 



DC 
-0 
DC 
-0 
DC 
-0 
DC 
-0 



2,CC, , , 
2,CC,,, 
2,CC, , , 
2,CC, , , 
2.CC, , , 
2.CC, , , 

2, CC, , , 

3. CC'.,. 



DC 
-0 

cc 

-0 

cc 

-0 

cc 

-0 ' 

DORG ERR0R*524 
RCTY , , , 
WNTY 46 , , , 
TR 46,120,, 
38 32,702,, 



DOR G 
DC 
-0 
CC 



2.C 
2,0 
2*0 
2,0 
2,0 
2,0 
2,0 
3,0' 



06 
C7 
16 
17 

36 
37 
38 



CALL IN BY ENTERING 

340003200701 
360003200702 

4900070011975400100046 

NOW WASN-T THAT MCE 



DC 
-0 
DC 
-0 
DC 
-0 
DC 
-0 
DC 
-0» 

THIS ROUTINE REMAINS IN CORE WITH ALL ERROR ROUTINES 
DORG ERROR*600 
00 



01050 
01051 



01132 
0113) 

01135 

01137 

01139 

01141 

01143 

01145 

01 148 

01156 
01156 
01 168 
01 110 
01192 
01204 
012C6 
01207 

01209 

01211 

01213 

01215 

01217 

01219 

01222 



01232 
01232 
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03870 DSC 8,C 01244 

0000000' 

03880 SlQXX DSC 6,0» 01252 
OOOOO 1 

03890 TFM •♦23,INDS,, ROUTINE TO DETERMINE ERROR INDS. 01258 

03900 CHECK TF •♦33, XX, 7 01270 

03910 CF »-l,,6 01282 

03920 BNI •♦36, XX 01294 

03930 SF CHECK*11,,6 01306 

03940 SF CHECK*8 01318 

03950 AM CHECK*ll,2,l0 01330 

03960 CHEK1 CM CHECK* 1 1 » I NDS* 14 , 8 01342 

03970 BNI CHECK, 1300 01354 

03980 BNF OTEST ,CHECK*8 . . ON U I SK ERROR * DISTINGUISH IF OVERFLOW. 01366 

03990 CHEK2 BD RE TRY , STEPS , , IF NOT, GO INTO RETRY LOOP. 01378 

04000 HOLLER RCTY ,,, TYPE ERROR MESSAGE. 01390 

04010 WAT Y EMSG1 01402 

04020 SPTY 01414 

04030 HOI WNTY SIOXX 01426 

0404U SPTY 01438 

04050 NOP H04 01490 

04060 HOi WNTY 1N0S-1 01462 

04070 SPTY 01474 

04080 H04 H ERROR+8 01486 

04090 TFM Bl-5,61,711, INITIALIZE INDIRECT BRANCH. 01498 

04100 RNTY BBUFF,,, RE AO THE OPERATORS ENTRY. 01510 

04110 SPTY 01522 

04120 BI •-24,400,, IF SSW4 , ALLOW REENTRY. 01534 

04130 SF BBUFF,*, COMPUTE BRANCH ADCRESS. 01544 

04140 S Bl-5, BBUFF*! 01554 

04150 B Bl,,6,, PERFORM INDIRECT BRANCH. 01570 

04160 DORG »-4 01577 

04170 Bl DSA EEXIT 01581 

01581 

04180 OSA RETRY 01544 

01546 

04190 DSA APHASE 01991 

01591 

04200 OSA AJOB 01594 

01994 

04210 DSA RETN 01401 

01401 

04220 AJOB TOM •♦23*0, * SET MONITOR RETURN INDICATOR. 01402 

042J0 APHASE TOM SYSCAL.4 01414 

04240 TFM BKPT.MONCAL 01424 

04250 EEXIT NOP MAPENT , SAVDOA , , RESTORE WORKING OCA IP DISK I/O ERROR. 014)1 

04240 TR OLOOA ,ERRR , • RESTORE MAIN ROUTINE A WO RETURN. 01490 

04270 TFM 0LDCY*l,NCYL,10, RESTORE MONITOR MODULI CT LI NOER INO. 01442 

04240 6 OVRLAY+12 01414 

04290 DORG «-3 01402 

04)00 RETN RNTY BBUFF , , » READ OPERATORS ENTRY. 01402 

10 



-1132 


5 X 1 

J9630 
3 

5 X 1 

-0432 

I 



2 
2 
2 
2 
2 
2 
2 
3 



34 00000 00102 

38 00046 00100 

31 00046 00120 

38 C0032 0C702 

48 00000 00000 

2 

2 

2 

2 

2 

2 

2 

3 



00 00000 ocooo 



PAGE 

8 
6 

16 01281 -0610 

26 01303 -COOC 

33 0128J OCOOO 
47 01330 OCOOO 
32 0128J 00000 
32 01278 00000 
11 01281 000-2 
14 01281 0-624 

47 01270 01300 
44 00768 01278 

43 01044 01200 

34 00000 00102 
39 01787 CC100 
34 00000 00 101 
38 01252 00100 
34 COOOO 00101 
41 01446 00000 
34 00609 00100 
34 COOOO 00101 

48 00640 00000 
16 01574 -158J 
34 01232 00100 
34 00000 00101 

44 01510 00400 
32 01232 00000 
22 01574 01233 

49 0158J 00000 

9 X I 

-1434 

9 X 1 



-1044 

9 X 1 



-1414 

9 X 1 



-1402 

9 X 1 

•1402 

19 01429 OCOOO 

19 00475 00004 

14 00447 -0794 

41 02144 OUT? 

31 00441 01817 

14 021)2 000*8 

44 00400 00000 

)4 012)2 00100 
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PACE 



0*310 




SPTY 






01*94 


14 


00000 


0C101 


0*320 




81 


•-2*,*00, , 


ALIO* REENTRY IF SS«*. 


0170* 


4* 


01*82 


OC400 


0*330 




SF 


B8LFF , , , 


INI T I All ZE FOR RETURN. 


01711 


32 


01232 


00000 


043*0 




TF 


BKPT ,6BUFF** 




01730 


2* 


004*7 


0123* 


0*350 




TDM 


D I OP** 7 » 




01742 


1 3 






04360 




CF 


IOSK 




01754 


33 


00554 


OCOOO 


0*370 




CF 


IOP+98 




017** 


33 


02118 


00000 


0*300 




g 


EE X I T 








01*38 


OwUUU 


0*390 




DORG 


• -3 




0171* 








0**00 


EMSCl 


DAC 


9, CSK ERR • , 




01717 




9 


X 2 






CSK l 


ERR • 












0**10 


SIOP 


36 


MA PENT ,702,0 




01104 


I* 


02144 


0C702 


0**20 




osc 


1 , • , 












0**30 


ERR8 


DS 






01117 









0***0 




PSA 


D SA06* 1 




01121 






X 1 












01621 




J9641 




0**50 




DC 


3 » 1 3 
















-13 


















DSA 


E R R E T 




01829 






X 1 












01829 




-0602 








CSC 






01830 




1 












rnktsni tn ldi tc riu rn« 

L urv 1 KUL 1 u »Kl It Lrl L i 3 In • 


19982 








0**90 




osc 
I 


1 1 1 




19982 




1 




0*500 










1998 7 




5 


X 1 












19987 




J9749 




0*510 




DC 
- 12 


3, 12 




19990 




3 




0*520 




CSA 


ERROR 




19995 




5 


X 1 












19995 




-0*32 




0*530 




DSC 


I i • 




19996 




I 




0*5*0 


•••••• 


OVERLAY ERROR ROUT 1 NF 


STAGE PLCS 










0*550 




UORG 


ERROR 




00632 








0*560 


EC030 


T F 


S IOXX** , I OXX , , 


MOVE RETURN ACDRESS FOR TYPE-CUT. 


00632 


26 


01256 




0*570 




C* 


HK ? T , XO 3 ( t 


THREE POSSIBILITIES FOR THIS. 


0064* 


1* 


00*67 




0* 580 






E0070 .CNTWIH5 • , 


BRANCH IF C 1 SK I/O. 


00656 








0*590 




BN I 


EC0*0, 1200 




00668 


47 


00738 


01200 


0*600 




RNR 


EQ050,CNTW0**,11 . 


TEST IF CNTL CARC TRAP. 


00680 


45 


00808 


0217M 






TFM 


BKPT, 10XX,7U» 


YES —SET PROPER RETURN POINT. 










0*620 




TR 


OLDOA t • ♦ 19 t i 


LOAU AND EXECUTE ERROR ROUTINE 


00704 


31 


00441 


00723 


0*630 




B 


OVRLAV* 12.DSAI*. , 


STAGE *. 


00716 


49 


00480 


19777 


0*6*0 




DC 


3,6 




00730 




3 








-06 














0*650 




DSA 


ERROR 




00735 




5 


X 1 












0C735 




-0632 




0*66U 




DSC 


I. » 




0073* 




1 




0*670 


ECO*0 


CM 


8KPT,X0*», 


TEST IF ERRCR AT NON-OISK I/O TIME. 


00738 


14 


004*7 


-1712 



1 1 
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0*580 




8NI 


E0050, 1200 




00750 


47 


00808 


01200 


0*69 




TFM 


BKPT, IUP*2* 




00762 


16 


00467 


-1982 


0*7G0 




TR 


0LCCA,**19, , 


LOAD AND EXECUTE ERROR ROUTINE 


00774 


31 


00441 


0C791 


0*710 




B 


0VRLAY*12,DSA12, , 


STAGE 2. 


00786 


49 


00480 


19784 


0*720 




DC 


3*6 




008C0 




3 








-06 














0*730 




DSA 


ERROR 




CC8C5 




5 


X I 












00805 




-0*32 




0*7*0 




DSC 


It ' 




0080* 




1 




0*750 


E0050 


RCTY 




IMPOSSIBLE ERROR -MACHINE FAILURE CR 


00808 


34 


00000 


00102 


0*760 




WATV 


EMSG2 I * * , 


INCORRECT IORT CALLING SEQUENCE. 


00820 


19 


01085 


00100 


04770 




B 


APHASE , * » 


TERMINATE THE CURRENT PHASE. 


00832 


49 


01614 


00000 


0*780 




DORG 


• -3 




00840 








0*790 


E0070 


BI 


EOICO, 1200, , 


TEST IF AT MAP SECTOR READ TIME. 


00840 


4* 


01052 


01200 


0*800 




CM 


BKPT, X04, , 


NO -TEST IF AT DISK I/O TIME. 


00852 


14 


004*7 


-1212 


0*810 




»NI 


E0090, 1200 




008*4 


47 


00956 


01 200 


0*820 




TFM 


M0**6.£RR0R*20», 


VES -INITIALIZE FOR CISK ERROR. 


0087* 


1* 


01492 


-0652 


04830 




TO 


0IUP*12,SIQP*12 




00888 


25 


02032 


0181* 


04840 




TR 


SIQP,010P 




00900 


11 


01804 


02020 


04850 




TOM 


0I0P*12,4 




00912 


15 


02032 


00004 


04860 


E0080 


TR 


0l0DA,**19» , 


LOAD AND EXECUTE ERROR ROUTINE 


00924 


11 


00441 


00943 


0*870 




B 


0VRLAV*12,DSAll, t 


STAGE 1. 


0091* 


49 


00480 


197*1 


0*880 




OC 


3,6 




00950 




1 








-06 














04890 




DSA 


ERROR 




00955 




5 


X 1 












00955 




-0*12 




049C0 




DSC 


1, • 




0095* 




1 




04910 


E0090 


CM 


BKPT.ABOl, , 


TEST IF ILLEGAL NAME LOAD REQUEST. 


00958 


14 


004*7 


J09I4 


04920 




BI 


E0095,1200 




00970 


4* 


01018 


01200 


04910 




CN 


BKPT,SK02» , 


NO -TEST IF ILLEGAL DRIVE CODE. 


00982 


14 


004*7 


-1604 


04940 




BN I 


E005i0,1200 




00994 


47 


00608 


01200 


04950 




TFM 


H0**6,R0VCD,» 


VES -SET UP FOR ERROR PROCEOURE. 


0100* 


I* 


01492 


-1004 


049*0 


E0095 


TR 


OLD0A,»*l9., 


LOAU ANO EXECUTE ERROR ROUTINE 


01018 


11 


00441 


01017 


04970 




B 


GVRIAY*12,DSA13,, 


STAGE 3. 


01010 


49 


00480 


197T2 


04980 




DC 


3,5 




01044 




1 








-05 














04990 




DSA 


ERROR 




01049 




9 


X 1 












01049 




-0*12 




05000 




OSC 


l»* 




01090 




1 




05010 


£0100 


®m 


ECQ80,MAPENT,, 


TEST IF EMPTY MAP ENTRY CALL. 


01012 


49 


00924 


02144 


09020 




TFM 


H04*6,NERR»# 


YES -SIT UP CALL TO THE ERROR ROUTINE* 


010*4 


I* 


01492 


-0600 


09010 




e 


EC095 




OIOT* 


49 


01016 


00000 


05040 




DORG 


•»3 




01014 








05090 


IMSG21 


OAC 


8, IMP fftft*, 




01019 




• 


X 2 






IMP i 


IR*« 












090*0 




DORG 


19982, 


CONTROL TO fcRITE ON 01 SR. 


19912 








09070 




DSC 


l«l 




19982 




1 




09010 




I 

OS* 


DSA2L 




19987 




9 


X 1 



12 









1620-1443 MONITOR 


I VERSION 2 SUPERVISOR ANO I.C.ft.T. 








PAGE 












19987 




J9630 




05090 




DC 


3.5 




19990 




3 








-05 














O5100 




DSA 


ERRCJR 




19995 




5 


X 1 












1 9995 




-0632 




Obi 10 




DSC 


It' 




19996 




I 




05120 




OVERLAY ERROR ROUTINE STAGE 1 










05 1 30 




COR G 


ERROR 




00632 








05140 




B 


H04 *b i f 6 


BRANCH AS PRESET* 


00632 


49 


L49K 


00000 


05150 




CORG 


• - 3 




00640 








05160 




TDM 




DISABLE ANY READ CHECK. 


0064C 


15 


01081 


00009 


051 70 






E E X I T t 3 1 i 


INITIALIZE ERROR RETURN* 


00652 


L5 


01638 


0COO3 


05 180 




TC 


cc* I T*42»UVRLAY 




00664 


16 


0L6BO 


-0468 


05 190 






N I OP » S I OP i , 


MOVE THE I/O INSTRUCTION. 


00676 


3 1 


1068 


1804 


05200 




T 

TDM 


N I OP ♦ 1 2 ♦ 4 1 i 


CLEAR THE RECORD MARK. 


00688 


|j 


0L080 


00004 


052 10 




TR 


SAVCOA|MAPENT , , 


SAVE THE FORKING CCA. 


007C0 


] i 


01177 


02144 


05220 


WTEST 


BNF 


• ♦ 20. I NOS , 7 , 


DETERMINE IF NON-CYLINDER OVERFLOW ERROR. 


00712 


44 


00732 


-0610 


052 30 




8 


RE TRY . . . 


NO. 


00724 


49 


1044 


00000 


052 AO 




DORG 


• -3 




00732 








052 50 




AM 


WTEST ♦ 1 1 , 2 




00732 


1 1 


00723 


-0002 


05260 




CM 


WTE ST* 1 1 . 1 NDS* I 4 




00744 


|4 


00723 


-0624 


052 70 




BN I 


WTEST, 1300 




00756 


47 


00712 


1 300 


05280 


OTE ST 


BN I 


•♦24. 3800 




00768 


47 


00792 


03800 


05290 




SF 


INCS* 14 




00 780 


J2 


00624 


COOOO 


05300 




BNF 


EE X I T i I NOS* 14 




00792 


44 


L638 


00624 


05310 


CYlQVF 


TFM 


NEXT. 200. . 


YES -COMPUTE ACDRESS OF TOP OF NEXT CYL . 


00804 


16 


0097 I 


-0200 


05320 




TD 


• ♦23.MAPENT* 3 




00816 


25 


008 39 


02147 


05330 




8D 


•♦24, TEETH 




00828 


4 3 


00852 


01211 


5 340 




TFM 


NEXT, 100 




00840 


16 


0097 L 


-0 100 


05 341 




TFM 


NEWOUA* 1 3,0 




00852 


14 


01175 


-0000 


05 350 




A 


NEXT-2.MAPENT+ 3 




00864 


>! 


00969 


02 147 


05 360 




TF 


NEWCDA*5»NEXT , . 




0C876 




01167 


0C97 1 






S 


NEXT.MAPENU5, , 


COMPUTE NUMBER OF SECTORS PROCESSED. 










05380 




TF 


NEwDDAMUNEXT 




0090 






00971 


05 390 




S 


NCXT,MAPENT*8* , 


COMPUTE NUMBER OF SECTORS VET TC PROCESS. 


00912 




nooT i 


02152 






BNF 


RETRY, NEXT, , 


MUST RETRY IF OR LESS. 






1044 




05410 




CM 


OR I VE ,99,610, , 


TEST IF DRIVE OVERFLOW. 


00936 


14 


02 L6R 


000R9 


054 2 




B I 


DC VFL , 1 200 




0094 8 




01136 


1 200 


054 30 




CF 


NEXT, , , 


NO -SET NEW SECTOR COUNT. 


00960 


33 


0097 1 


nnnnn 


05440 


NEXT 


CS 


0,* 








o 




05450 




SF 


NEXT-2 




00972 


32 


00969 


00 1 






TF 


NE WDDA ♦ 8 , NE X T 








ni i t? 








SF 


NE WDDA*9, , , 


COMPUTE NE W CORE ACCRESS. 




\ i 




uuuuu 






A 


NEWCDA* 13* MAPE NT ♦ 


13 


n i nra 




ni 1 7< 








A>- 


OR I VE , 1,610, 


UPDATE CYLINOER POSITION INDICATOR. 


ni n?n 












TR 


MAPENT* I .NEWOOA^ 1 


. .MOVE NEW UCA TC WCRKING SLCT. 






t\7 14< 


01 1 A1 


0'>5 1 


RF Toy 


T Z 


CHEK2 + 1 l,CHEK2*H 


, i I .REDUCE RFTRY COUNT. 


1044 


Z,^ 


01 389 


138R 


05520 




34 


MAPENT, 701 , , 


BESEEK. 


1 056 


34 


2144 


00 70 1 


05^ iO 


N I OP 


30 




i/C INSTRUCTION GETS MOVED HERE. 


01068 


30 


00000 


00000 


05540 




BNF 


•«36.DI0P»47» , 


TEST IF ALSO READ BACK CHECK. 


C108C 


44 


01116 


02067 


C5550 




TO 


•♦2 3 B PIOP^4 7, , 


YES -GET MODE DIGIT. 


01092 


25 


01115 


02067 






It 


MAPENT, 700 




G11C4 


36 


02144 


00 700 


U55 70 




PNI 


EE X IT, 1<*00, , 


SEE IF ANY TROUBLE THIS TIME. 


01116 


47 


01636 


01900 


05580 




H 


INCUT, ,6, 




01128 


49 


0063J 


00000 



1 3 
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05590 




DORG 


♦-3 




CI 136 








05600 


OOVFL 


TF 


EMSGIM2.EMSG2+4, , 


INITIALIZE FOR DRIVE OVERFLOW TYPE-OUT. 


01136 


26 


01799 


01161 


05610 




B 


HOLLER 




01148 


49 


01390 


00000 


05620 




DURG 


• -3 




01156 








05630 


EMSG2 


DAC 


3. OFL, 




01157 




3 


X 2 


05640 


NEwCOA 


OFl 
DSC 


15,0* 




01 162 




15 








OOOOOOOCCOCOCO' 












05650 


SAVCDA 


DSC 


20. C 




01177 




20 








OOOOOCOCCCOCCOOCCCCO 












05660 


STEPS 


DSC 


10, 1234567890,1200, 


UP, UP, UP AND — WHOCPS. 


01200 




10 








1234567890 












05670 


TEETH 


DAC 


5, ♦♦♦♦♦, 1211 




01211 




5 


X 2 






♦ 444* 












05680 




DORG 


19982, , 


CONTROL TO WRITE ON CISK 


19982 








05690 




DSC 
1 


I. 1 




19982 




1 




057C0 




DSA 


DSA 1 1 




19987 




5 


X 1 












19967 




J9761 




05710 




DC 


3.6 




19990 




3 








-06 














05720 




DSA 


ERROR 




19995 




5 


x 1 












19995 




-0432 




05730 




DSC 


1. • 




19996 




I 




05740 




OVERLAY ERROR ROUTINE 


STAGE 2 










05750 




DORG 


ERROR 




00*32 








05760 




TFM 


CHEK2-6.EEXI T*12, , 


INITIALIZE ERROR CHECK EXIT. 


00*32 


16 


01372 


-1*30 


05770 




TOM 


CHEK2*l,i 




00*44 


15 


01379 


00001 


05780 




TFM 


B1*5,I0PA, , 


SET RETRY ADDRESS. 


00*9* 


1* 


0138* 


-1076 


05790 




TD 


I0P*12tSI0P4>L2tt 


MOVE THE I/O INSTRUCTION. 


00**6 


29 


01970 


0161* 


05600 




TR 


SIOP.IOP 




00*60 


31 


01804 


01958 


05610 




TR 


I OP A, I OP 




00*92 


31 


0107* 


01996 


05820 




TDM 


I0P*12,4,, 


CLEAR THE RECORO MARKS. 


007C4 


19 


01470 


00004 


05830 




TDM 


I0PAM2.4 




0071* 


19 


01066 


00004 


05840 




SF 


I0P*9,, t 


INITIALIZE FOR DEVICE COMPARISON 


00721 


32 


019*7 


00000 


05890 




TOM 


IOPMO.O 




00740 


19 


019*6 


00000 


05851 




CM 


IOPUO.90,10, 


TEST IF PRINT ERROR 


00792 


14 


019*1 


OOORO 


05652 




BN I 


2011*1200 




007*4 


47 


0011* 


01200 


05653 




TF 


ENSCl*4»EMSG8+4,. 


SET UP ERROR MESSAGE 


0077* 


2* 


01791 


01199 


09894 




TF 


H03-5,Z05*C7, , 


MOO IF V NOP TO BRANCH IN HOLLER 


00766 


2* 


01497 


00619 


09895 




B 


HOLLER 




00300 


49 


01390 


00000 


0969* 




DORG 


•-3 




00606 








05897 


205 


6 


EEXIT^L2,,0, 


MODIFY BRANCH 


00806 


*9 


01*90 


00000 


05696 




00* c 


•-3 




0061* 








096*0 


2011 


CM 


I0P*10#10,10, 


OETERMINE if A TYPE ERROR 


0061* 


14 


019*1 


OOOJO 


0S8"»0 




BNI 


201,120 




00121 


47 


00901 


01200 


09660 




CK 


I0P*l,36,l0, 


VES -DETERMINE IF A READ. 


00140 


14 


01999 


OOOL* 


05690 




61 


•♦36,1200 




00112 


4* 


00111 


01200 


09400 




cm 


IOP*l.37,lO 




001*4 


14 


01999 


OOOL 7 


09910 




BNI 


EEXIT+12«1200* • 


HIT IP A WRITE. 


001T* 


47 


01*90 


01200 


09920 




TF 


EM$Gl*4,ENSG7*4,, 


SET UP ERROR MESSAGE* 


00111 


2* 


01791 


01149 


09930 




6 


HOLIER 




00900 


49 


01390 


00000 


09940 




DORG 


•-3 




00901 
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05950 


ZO 1 


CM 


IOP-* 10, 20, 10, 


TEST IF P/T PINCH ERROR 






00901 


14 


1961 


OCOKO 


05960 




HN I 


Z02 , 12C0 








0092C 


47 


00952 


01200 


05970 




TP 


EM SG 1 *4 »EMSG6»4 , , 


YES -SET UP ERROR MESSAGE. 






009 32 


26 


01791 


01143 


05980 




B 


HCL I E R 








00944 


49 


1 390 


00000 


05990 




CORG 


• - 3 








00952 








06000 


I 02 


C M 


IOP* 10, 30, 10, 


TEST IF P/T READER ERROR 






00952 


1 4 


01961 


OOOLO 


06010 




8N t 


Z 3 » 1 200 








00964 


47 


00996 


1200 


0602 




T F 


EMSG1*4»EMSG5*4» , 


YES -SET UP ERRCR MESSAGE. 






00976 


26 


01791 


01137 


06030 




B 


HCL L6 R 








00911 


49 


1 390 


ocooo 


060*0 




DOR G 


• - 3 








00996 








06050 


Z 03 


C* 


10P ♦ 10 , 40 * 10 • 


TEST IF CARD PUNCH ERRCR 






00996 


|4 


1961 


OQOMO 


06060 




UN I 


Z 04 , I 200 








01001 


47 


01052 


1200 


06070 




TF 


EM SG 1 *4 , E MSG4* 4 , , 


YES -SET UP ERROR MESSAGE. 






01020 


26 


01791 


01131 


06080 




ttNF 


HOLLER , INDS*2 , , 


TEST IF MR! TE CHECK* 






01032 


64 


01390 


00612 


06090 







IOPA , , , 


YES -GIVE FREE RETRY. 






01064 


49 


1076 


CCQOO 


06100 




COR G 


•-3 








01052 








06110 


Z04 


TF 


EM$Gl*4,EMSG3*4, , 


SET UP ERROR MESSAGE. 






01052 


26 


01791 


01 125 


06120 




8NF 


HOLLER , INDS , , 


TEST IF READ CHECK. 






01064 


44 


1 390 


0061 


06130 


I OP A 


30 




NON-DISK I/O INSTRUCTION, 






01076 


30 


00000 


00000 


06140 




ON I 


EE x IT* 12 , 1900, , 


EXIT IF NO ERROR. 






01011 


4? 


01650 


01900 


06150 




TFM 


CHEK1*U,INDS*8, , 


NO -GIVE THE LCOP A WHIRL. 






01100 


16 


01353 


-0611 


06160 







CHECK- 12 








on 12 


49 


01251 


OCOOO 


06170 




CORG 


• -3 








01120 








06180 


EMSG3 


DAC 


3, CDR, 








01121 




3 


X 2 






CDR 


















06190 


EMSG4 


DAC 


3, COP, 








01127 




3 


X 2 






CDP 


















G62CG 


EM SG5 


DAC 
PTR 


3 , P TR » 








0113 3 




3 


X 2 


06210 


EMSG6 


DAC 
PTP 


3, PIP, 








01 I 39 




3 


X 2 


06220 


E*SG? 


UAC 

TYP 


3 , I YP , 








01145 




3 


X 2 


6 2 2 i 


E*SG8 


DAC 


3 , PR T , 








01151 




3 


X 2 


062 30 




DOR G 


19982, 


CONTROL TO WRITE ON CISK. 






19982 








06240 




use 


1 . 1 








19982 




1 




062S0 




I 

CSA 


C S A 1 2 








19987 




5 


X i 
















19917 




J 9 7 8 6 




0626u 




cc 


3,6 








1 9990 




3 








-06 


















C)f 2 70 




USA 


ERROR 








1999!* 




5 


X I 
















1 9995 




-06 32 




06280 




CSC 


1 , ' 








19996 




I 




0o290 




ERHQk ROUTINE STAGE 


3 














6 300 




PROCESSES. INVALID PROG RAH NAMED LOAQS ANO DRIVE 


CODES 










06310 




CORG 


ERROR 








00632 








6 320 




b 


HQ4*6, ,6, 


F / r C c T E ISO I RE CT BRANCH. 






00632 


49 


0149K 


00000 


06330 




DO*, v 


• - 3 








00640 








06340 




I FM 


B LRNAM, , 


INITIALIZE FOR ILLEGAL NAME 


CALL. 




00640 


16 


01511 


-0720 


06350 






EMSG U4.EMSGI 1*4 








00652 


26 


01791 


01091 


0636U 




TUN 


H03* 1 ,9 






1 f> 


00664 


15 


01463 


00009 
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06 3 70 




TFM 


H0i»6,AA02A*6 








006 76 


16 


1461 


-02 35 


6 3 80 




TD 


AA02A* 18 ,SIUP* 12 








00689 


25 


0Q247 




06390 




TFM 


b I + 5 » RD I M 








00 700 


16 


C 1 516 


-0 781 






M 


HOLLER 










49 


1390 


C CO 


064 10 




DOR G 










00720 








06420 


AN AM 


R A TY 


88 LFF ♦ 1 » , ♦ 


RE AU THE TYPED NAME. 






00 720 


3 7 


01211 


fifl 1 fifi 

UU A WW 






SPTY 










<vi lit 




UwvvU 




06440 




1 


• -24,400, , 


ALLOW RE-ENTRY IF SSW4. 








* 


n't s ij 


00400 


064 50 




SF 


BB LFF 
















06460 




TF 


AA02A* 16.BBUFF* U 










fa 
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00 164 


33 


00489 


00000 


08620 


L R A 02 


TFM 


0LDCY*1 ,MCYL, 10, 


RESTORE MONITOR MODULE CYLINDER INO. 


00176 


16 


02132 


000R8 


08630 




TFM 


HAL T*6,8 




00188 


16 


00462 


-0008 


08640 




BNF 


OVRLAY* 12.FSPS, , 


TEST IF CALLED BY SPS SUPFRVISCR. 


OO2C0 


44 


00480 


00429 


08650 




BNF 


OVRLAY* 12tSPSHLP*l , ,Y6 S -TtST IF MAIN LINE PROGRAM LOAD. 


00212 


44 


00480 


00469 


08660 




TFM 


HAL T* I 1 ,DIMENT*18 


,711, SET STAGE 2 RETURN ADDRESS* 


00224 


16 


00467 


-042- 


08670 




TR 


OLDDA,«* 19, , 


READ IN SPS SUPERVISOR KETURN 


00236 


31 


0044 1 


00255 


08680 




B 


OVRLAY* 12.0SA1 7, , 


ANALYZER. 


00248 


49, 


00480 


19770 


08690 




DC 


3,2 




00262 




3 








-02 














08700 




DC 


6,0 ' 




00268 




6 








-0000" 












08710 


L R A05 


DS 


0,»*l 




00269 









08720 




DSA 


DSAC6 




0C273 




5 


X 1 












00273 




J9640 




08730 




nc 


3,18 




C0276 




3 




08740 




- 1 8 
OSA 


502 




0028 1 




5 


X I 












CC28 1 




-0502 




C8750 




DSC 


1 , • 




0C282 




1 




08760 


L R A06 


DS 


0,««l 




00283 




o 




08770 




DSA 


DSAC1 




00287 




5 


X 1 












00287 




J9635 




08780 




nc 


3,4 




00290 




3 








-04 














08790 




OiA 


G 




00295 




5 


X I 












00295 




-0000 




08800 




DSC. 


1 . • 




00296 




1 




08810 




DOR G 


1S982, 


CONTROL TO WRITE CN CISK. 


19982 








08820 




OSC 


1 , 1 




19982 




1 




08830 




1 

DSA 


DSA 18 




19987 




5 


X 1 



21 
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19987 




J9792 




08840 




DC 


3,3 




19990 




3 








-03 














08850 




oc 


6i0» 




199<36 




6 








-0000' 












08860 




SPS SLPERVISOR RETURN ANALYZER STAGE 1 










08870 




DORG 







00000 








08880 




CF 


F SPS, , , 


CLEAR THE SPS SUPERVISOR FLAG. 


oooco 


33 


C0429 


ocooo 


08890 




BP 


SRAG2,LDINPT, , 


BRANCH IF NCN-DISK LOAD . 


00012 


43 


00060 


0C428 


08900 




BNF 


SRA02.SPSMLP, , 


TEST IF RELOCATABLE. 


00024 


44 


00060 


00468 


08910 




CF 


SPSMLP, , , 


NO -TURN OFF THE INDICATOR. 


00036 


33 


00468 


OCOOO 


08920 




TFM 


HALT*11,CHK4*12, , 


SET STAGE 2 INDIRECT ADDRESSES. 


00048 


16 


00467 


-1420 


08930 


SRA02 


CF 


SPSMLP* 1 , , , 


TURN OF MAIN-LINE PROGRAM INDICATOR. 


00060 


33 


00469 


COOOO 


08940 


SRAOi 


TFM 


HAL T+6,8 




00072 


16 


00462 


-0008 


08950 




TFM 


OLDCY*l,MCYL, 10, 


RESTORE MONITOR MOOULE CVLINOER INO. 


00084 


16 


02132 


000R8 


08960 




TFM 


GTEST*54,0VRLAY, , 


RESTORE BRANCH ADCRESS IN IORT. 


00096 


16 


01210 


-0468 


08970 




TDM 


RM I , INOS* 13.6, 


SET TWO RECORD MARKS IN THE SPS 


001C8 


15 


0221- 


00623 


08971 




DC 


1,' 




00119 




l 




08980 




TDM 


RM2,INDS*13»6, 


SUBROUTINE WORK AREA. 


00120 


15 


0221N 


00623 


08981 




DC 


1 , ' »• 




00131 




1 




08990 




TR 


OL DDA , SR AO 3 , , 


READ AND EXECUTE STAGE 2. 


00132 


31 


00441 


00152 


09000 




B 


OVRLAY* 12 




00144 


49 


00480 


OCOOO 


09010 




DOR G 


• -3 




00152 








09020 


SRA03 


DS 


0,»*1 




00152 









09030 




DSA 


D SAO 1 




00156 




5 


X I 












00136 




J9635 




09040 




DC 


3,4 




00159 




3 








-04 














09050 




DC 


6,0» 




00165 




6 








-0000* 












09060 




DORG 


19982, 


CCKTROL TO WRITE ON DISK. 


19982 








09070 




DSC 






19982 




1 




09080 




1 

DSA 


DSA 17 




199B7 




5 


X I 












19987 




J9770 




09090 




DC 


3,2 




19990 




3 








-02 














09100 




DC 


6,0» 




19996 




6 








-0000' 












09110 




SPS SUPERVISOR AND 


LOADER RETURN ANALYZER STAGE 2 










09120 




DORG 







00000 








09130 




8 


HALT*6t tftt 


INDIRECT EXECUTE BRANCH. 


00000 


49 


0046K 


00000 


09140 




DORG 


8 




oooos 








09150 




SF 


ClNlT,, , 


RESTORE LOADER INITIALIZATION INO. 


OOOOB 


12 


00427 


00000 


09160 




BNF 


•♦2CFSPS, , 


TEST IF CALLED BY SPS SUPERVISOR. 


00020 


44 


00040 


00429 


09170 




B 


IOXX, ,6, 


YES -RETURN TO IT. 


000)2 


49 


0056N 


00000 


09110 




DORG 


•-3 




00040 








09190 




BO 


•♦20,SYSCAL,, 


TEST IF CALLED BY A SYSTEM PROGRAM. 


00040 


43 


00060 


00475 


09200 




B 


HAL T* 1 1 » » 6 , 


NO -RETURN THROUGH PRESET BRANCH. 


00092 


49 


0046P" 


00000 


09210 




DORG 


•-3 




0C06C 








09220 




TR 


0LDDA,»*19,, 


EXECUTE SYSTEM RETURN ANALYZER. 


000*0 


31 


00441 


00079 


09230 




B 


0VRLAY*12.0SA19 




00072 


49 


00480 


19795 



22 



162C-1**3 MONITOR I VERSION 2 SUPERVISOR ANO l.O.R.T. PAGE 



092*0 




DL 


3 i 3 




00084 




3 








- 3 














092 50 




cc 


6 » • 




00092 




6 








-0000 














09260 




DORC 


1<)982 , 


CONTROL TO WRITE CN CIS*. 


19982 








092 70 




DSC 


I t I 




1*982 




1 




09280 




1 

DSA 


D SAO 1 




19987 




5 


X 1 












19987 




J9635 




09290 




DC 


3, I 




19990 




3 








-01 














093C0 




uc 


6,0« 




19996 




6 








-0000* 












09310 




t OR T LOAD PROCESSOR 


FOR NAMED PROGRAMS SECTION 1 










0932U 




OURG 







ococo 








09330 




A 


•♦23iHALT*6 t i 


MOVE NAME AND POSSIBLE LOAD ADDRESS. 


00000 


2 1 


00023 


00*62 


093*0 




A 


•♦35,1,711 




00012 


21 


000*7 


-CCOJ 


09350 




A 


•t*7,«»23 




0C02* 


21 


000 7 1 


C00*7 


09360 




TD 


•♦*7»26»7 




000)6 


23 


00063 


-0026 


09370 




TO 


•-l,AA0*-l,6 




000*1 


25 


000*P 


0026) 


09380 




™ 


A A02A » 18,711 




00060 


31 


00229 


-C010 


09390 




TDM 


•-25, XX, 6 




00072 


is 


0006P 


00000 


09*00 




TF 


AA02A*23,HALT*6, , 


SAVE IORT CALLING PARAMETERS* 


0008* 


26 


00252 


00*62 


09*10 




TR 


AA02A*2*,CNTWD 




00096 


11 


0O253 


02170 


09*20 




TFM 


IDXX.f *23, , 


SAVE CCRE TO BE CVFRLAID. 


00108 


16 


00565 


-0131 


09*30 


AAQ2 


D 


I0R0CAA03.7 




0012C 


69 


C0520 


-0261 


09**0 




TFM 


I0XX,»*23, , 


RE AD AND EXECUTE SECTION 2. 


00132 


16 


00565 


-0159 


09*5C 




8 


IOGT,«* 12, 7 




001** 


*9 


00566 


-0156 


09*60 




DSC 


2,-22 




00 156 




2 




09* 70 




2K 
DSA 


• + 7 




0C162 




5 


X I 












00162 




-016* 




09*80 




DSC 


1, • 




00163 




1 




09*90 




DSC 


1. 1 




0016* 




1 




09500 




1 

CSA 


CSAC9 




00169 




5 


X I 












00 169 




J97** 




09510 




DC 


3,5 




00172 




3 








-05 














09520 




DSA 


ABOO 




OCl 77 




5 


X 1 












00177 




J0902 




09530 




OSC 


1, ' 




00178 




1 




095*0 




CORG 






00229 








09550 


A A 2 A 


DSC 


32,0 




00229 




32 








occoccccccaocoocococcoccccccccoo 










09560 


A AO 3 


DSC 


2,02 




00261 




2 




09570 




02 
DSA 


• ♦7 




00267 




5 


X 1 










2 3 


CC267 




-0269 
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09580 




DSC 


I, ' 




00268 




1 




09590 




OSC 

I 


!• 1 




00269 




1 




09600 




DSA 


HOC 




0027* 




5 


X 1 












0027* 




-1*00 




09610 




DC 


3, 10 




00277 




3 




09620 




-10 
DSA 


SYSCRG*8500 




0C282 




5 


X 1 












00282 




J0902 




09630 




DSC 


1»' 




00283 




1 




096*0 


A AO* 


DSC 


8.32CC0C0' 




0028* 




8 








3200000* 












09650 




CSC 


5,0« 




00292 




S 








0000' 














09660 




DOR G 


19982, 


CONTROL TO WRITE ON DISK. 


19982 








09670 




DSC 


1,1 




19982 




I 




09680 




I 

DSA 


DSA20 




19987 




5 


X 1 












199B7 




J9798 




09690 




CC 


3,2 




19990 




3 








-02 














09700 




OC 


6,O t 




19996 




6 








-0000* 












09710 




MONITOR CALLER SUBROUTINE -ALSO PROCESS ES RETURNS TC THE 










09720 


• 


DUP SLPERVISOR FROM 


ITS CALLS TO THE RELOCATABLE LOADER. 










09730 




OORG 







00000 








097*0 




TFM 


OLDCY»l,MCYL,10, 


SET CYLINDER POSITION. 


oooco 


16 


021)2 


OOMB 


09750 




B 


MCAC3 




00012 


69 


00 100 


00000 


09760 




OORG 


20 




00020 








09770 




TFM 


HALT*6,MBQQ0, , 


SET ENTRY TO THE MONITOR. 


00020 


16 


00662 


-2902 


09780 




TFM 


BN1 *18, IBMMOD+13, 


711, RESTORE OVRL AY ROUTINE EXIT. 


00012 


16 


00510 


-0451 


09790 




8 


MCAOl 




00066 


69 


00208 


ooooo 


09800 




DORC 


•-3 




00092 








09810 


MCAOO 


RNF 


MCAC6.HALT, , 


TEST IF MONITOR ALREADY IN CCRE. 


00042 


66 


00290 


00*56 


09820 




B 


HB000, tt 


YES -BRANCH DIRECTLY TO IT. 


00066 


49 


02902 


ooooo 


09830 




CORG 


•ft, 




00071 








098*0 


NCAQ* 


DSC 


2,2 




00071 




2 








02 














09850 




OSA 


MCACOA 




000T7 




5 


* I 












00077 




•0079 




09860 




OSC 


1 ♦ ' 




000 7 B 




1 




09870 


MCACOA 


DSC 


uc,» 


DOA TO SAVf CCRE CM B-TM CVLINOER 


00079 




I 




09880 






OC 


5, 1*00 » ; 


OF 01 SK SCRATCH AREA 


0006* 




5 








-1*00 












09890 




OC 


1,177 




00087 




3 








J77 














099C0 




DSA 






00092 




9 


X 1 



2'» 
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00042 




-2302 




09910 




CSC 


1.' 






00093 




I 




09920 




• . 

DORG 


ICO 






001C0 








09930 


MCA03 


RNR 


•♦2*» SYSCAL i * 


REPLACE ANY SYSCAL R.M. BY 0. 




00100 


45 


00124 


00475 


099*0 




tum 


SYSCAWO 






00112 


15 


0Q475 


ooooo 


09950 




BNF 


MC ACO i SYSCAL » « 


TEST IF DLP CALL. 




00124 


44 


C0052 


C0475 


09960 




TDM 


SYSCAL, 5, , 


YES -SET SYSCAL RETURN CODE. 




00136 


15 


00475 


00005 


09970 




TFM 


I0xx,»*23, , 


SAVE CORE FOR THE DUP SUPERVISOR. 




00148 


16 


005*5 


-0171 


09980 




B 


IORHC » MC A04 , 7 






00160 


49 


00520 


-0071 


09990 




TFM 


I0xx,»*23, , 


LOAD THE DLP SUPERV ISOR. 




00172 


16 


005*5 


-0195 


09991 




B 


I0GT,MCAQ5,7 






00184 


49 


005** 


-0241 


10000 




TFM 


HALT*6,CHK4*12, , 


SET UP EXIT AFTER RESTORATION CF 


TABLES. 


00196 


16 


004*2 


-1420 


10010 


MCA01 


TR 


QL00A,»M9, , 


RESTORE ARITH TABLES AND EXECUTE 




00208 


31 


00441 


00227 


10020 




B 


OVRLAY.DSAOl , , 


MCNITOR OR DUP SUPERVISOR. 




00220 


49 


004*8 


19*35 


10030 




DC 


3, 4 






00234 




3 








-04 
















100 AO 




DC 


6,0' 






00240 




6 








-0000' 














10050 


MCA05 


DSC 


3.220 






00241 




3 








220 
















10060 




DC 


5, 139' , 






00248 




5 








-139 




















TR 


OLODA,»*19,, 


ocin tiki rue MflwITrR PI ll<^ THF IflRT 


VIA 


00250 


3 1 


00441 


002*9 


10080 




B 


OVRLAY* 12.DSA06, , 


, THE OVRLAY READ ROUTINE. 




00262 


49 


00480 


19*40 


10090 




OC 


3. 109 






00276 




3 








J09 
















10100 




OC 


6. 502' 






00282 




6 








-0502' 














10 L 1 




DORG 


19982, , 


CONTROL TO WRITE ON CISK. 




19982 








10120 




DSC 


1 , 1 






19982 




1 




10130 




I 

DSA 


DSA 19 






19987 




5 


X 1 














19987 




J9795 




10140 




DC 


3,3 






19990 




3 








-03 
















10150 




DC 


6,0* 






19996 




6 





10160 
10170 
10180 
10190 



-0000' 

MONITOR -MAIN ROUTINE 

COMMUNICATION SECTOR ASSEMBLED PARAMETERS 



10200 
10210 


DC 19, C ,C0MM*18, 
-COOOCCCCOOOCOOCOO' 
OC 2,8,C0MM+4l, 


HEADLESS DDA-S FROM SPS AND FORTRAN. 
STANDARD SPS MANTISSA LENGTH. 


02820 
02843 


10220 


DC 


2, 


2,C0MM+43. 


STANDARD SPS SUORUUTINE SET. 


02845 


10230 


-2 
DSC 


1, 


0,C0MM*44, 


STANDARD SPS NOISE CIGIT. 


02846 


10240 




DC 


2, 


8,C0MM*46, 


STANDARD FORTRAN MANTISSA LENGTH. 


02848 


10250 


-8 
DC 


2, 


4,C0MM*48, 


STANDARD FORTRAN FXC. PT . WORD LENGTH. 


02850 


10260 


-4 

DSC 




L,C0MM*49, 


NUMBER OF MODULES IN 1620 SYSTEM. 


02851 



10270 

10280 

10290 

10300 

10310 

10320 

10322 

10321 
10322 
10321 

10330 

10331 

10340 

10350 

10360 

10370 

10380 

10390 

10400 

10410 

10420 

10430 

10440 

10450 

10460 

10470 

10480 

10490 

10500 

10510 

10520 

10530 

10540 

10550 

105*0 

10570 I 

10S80 

10590 

10*00 

10*10 

10*20 

10*30 

10*40 
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DSC 4,0,MC0MM, 

0000 

CC 2,l,MC0MM*5 

-I 

DC 2,0,MC0MM*7 

-0 
DC 
-0 
DC 
-0 
DSC 



OSC 
5 



2,0,MC0MM*9 
2,0,MC0MM*ll 
l,0,MCOMM*12, 
l,5,C0MM*73, , 



LE QOEUF SLR LE TOIT. 
PRINCIPAL INPLT DEVICE CARD 



••THE PRINCIPAL INPUT OEVICE NUMBER WILL BE 5 FOR CARD SYSTEM 
•• AND 3 FOR PAPER TAPE ON SYSTEM DELIVERY 
DC 1, 1,C0MM*76, 



DC 5,0,C0MM*88, 

-0000 

DSC 1.1,C0MM*83, 

I 

DC 5,0,C0MM*93, 

-0000 

DC 5,0,C0MM*98, 

-0000 

DSC 1,*,C0MM*99 



OBJECT SYSTEM SIZE 
LOWEST AOORESS LOADED BY LOADER • 
FORTRAN SUBROUTINE SET 

CURRENT LOADER RELOCATION INCREMENT. 
CARD SEQUENCE NUMBER FOR LOADING. 



COLO START ENTRY TO THE MCNITOR -CLEAR STORAGE, THEN 

THE FOLLOWING INSTRUCTIONS MUST BE LOACEO INTO 0. 

340003200701 

360003200702 

4902402X 

Y19636113001C2 

WHERE X IS THE MONITOR CONTROL CARD SOURCE - 

-1 TYPEWRITER IF ANY OTHER CIGIT IS SUPPLIED, 

•3 P/T READER THE MONITOR WILL ASSUME THE 

•5 CARO REAOER VALUE I (TYPEWRITER) 

ANO WKERE Y IS THE DRIVE CODE FCR THE PHYSICAL MODULE 
ON WHICH THE MONITOR NOW RESIDES - 



»l 
•3 

• 5 

• 7 



MODULE 
MODULE I 
MODULE 2 
MODULE 3 



IF ANY OTHER DIGIT IS SUPPLIED, 
THE MONITOR WILL ASSUMc THE 
VALUE I (MOCULE 01 



02852 
02857 
02859 
02861 
02863 
02864 
02875 

02878 
02890 
02885 
02895 
02900 
02901 



DORG 


SYSORG 


01*02 








TO 


402*MCR01A,, 


MOVE ARITHMETIC TABLES TO PROPER AOORESS. 02402 


as 


00402 


04455 


TR 


100,102 


01414 


n 


00100 


00102 


TDM 


402,0 


0242* 


15 


00402 


OOOOO 


TO 


•♦23,31 


02438 


as 


014*1 


00011 


BO 


•♦24.MCD01 


02450 


43 


01474 


10*90 


TDM 


31,1 


024*2 


ts 


00011 


00001 


TO 


MCO»M*3,3l 


02474 


as 


02855 


00011 


CF 


32,,, 


SET UP LOGICAL MODULE OR I VE CCOff 0248* 


si 


00012 


ooooo 



26 
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10650 




TC 


• ♦ 2 3 i 32 • t 


ECLiI VALENCE. 


02496 




02521 




1 0660 




BO 


• ♦ 24 »MCD04 










ir T5n 


10670 




TOW 


32 t 1 








nnnt a 


nrnni 


1 0680 




TO 


MCt)MM*5»32 




* 


25 




00032 


10690 


MAO 10 


TDM 


MCUMM »0 • t 


INITIALIZE COMM SECTOR INDS. 


02546 


1 5 


02152 




107C0 




TDM 


MCUMM*l,0 




02558 


1 5 


02893 


CCOOO 


10710 




TOM 


MCOMMt2tO 




02570 


1 5 


02194 


COOOO 


10720 




TOM 


MC0MM*l2i4 




02582 


15 


02864 


00004 


10730 




TFM 


BNIM81 IBMMQ0*13» 


711 


025^4 


14 


00510 


-045L 


10740 




TFM 


QlDCY»i,MCYLtlO 




02606 


16 


02132 


0C0R8 


10750 




TF 


EQU 1 V>1 |MC0MM*5| , 


READ DDA-S FOR SPS» FORTRAN, DUP, AND 


026 It 


26 


02 124 


02697 


10760 




TD 


I BMMOD » MCOMM* 5 f t 


THE EQUIVALENCE TABLE AND OUNP TMEM 


02610 


25 . 


00440 


02857 


1077C 




8 TM 


U T 5 1 8 » » 


CNTQ DISK ON SPECIAL SECTOR. 


02642 


1 7 


09390 


-0006 


10710 




TR 


SPSCDA ,UT05- I t 1 1 




02694 


31 


10802 


0634R 


10790 




B TM 


LTC5, 1 36 




02666 


1 7 


08390 


-0134 


10800 




TR 


FORDDA t UT05- I » I I 




026 78 


3 1 


10822 


0834R 


10810 




B TM 


UTQ5 i 1 39 




02690 


1 7 


08350 


-0139 


10820 




TR 


DLPDOA » UT05- 1 t 1 1 




02 7C2 


3 1 


10842 


08 34R 


10830 




B TM 


LTQ5,2 




02714 


17 


06350 


-CC02 


10840 




TR 


EQLDDA ,UT05- 1 , I I 




02726 


11 


10662 


0834R 


10850 




TFM 


IOXX,**23 




02738 


16 


00565 


-2761 


10860 




H 


IORBC.MA020. 7 




02750 


49 


00920 


-2769 


10870 




B 


MBQCOt i t 


PROCEED TO THE INTER-PHASE EMRY. 


02762 


49 


02902 


00000 


10880 




DOR G 


• -4 




02764 








10890 


MA020 


DSC 


2,2 2 




02 769 




2 




10900 




2 2 
CSA 


MAC25 




02775 




5 


X I 












02775 




-2777 




10910 




DSC 


I f ' 




02776 




1 




10920 


MA025 


DSC 


1 i 1 




02777 




1 




10930 




I 

OSA 


0SA40 




02782 




5 


X 1 












02782 




J9743 




10940 




CC 


3, 1 




02785 




3 








-01 














10950 




CSA 


SPSCDA 




02790 




5 


x I 












02 790 




J0802 




10960 




CSC 


1, ' 




02791 




1 




10970 




INTER-PHASE ENTRY TC MONITOR. 










10980 




DOR G 


SYSORG»500 




02902 








10990 


M8Q0O 


RCTY 




RESTORE TYPEWRITER CARRIAGE. 


029C2 


34 


00000 


00102 


10991 




TD 


KREC»2,C0MM»76, , 


SAVE SYSTEM SIZE 


02914 


25 


09806 


02878 


10992 




TR 


0LDCY.MB226-1 , . 


SET ARM INDICATORS SO SfcEK MUST OCCUR 


02926 


3 1 


02131 


04046 


1 1000 




TF 


EQUIV*1,MC0MM*5, , 


RESTORE LOGICAL ORIVE 1 MODULE ECUIV. 


02938 


26 


02124 


02857 


1 1010 




TD 


lBMM00tMCQMM*5 




0295C 


29 


00440 


02657 


11020 




SF 


HAL T, , « 


INDICATE PRESENCE CF MONITOR. 


02962 


32 


00456 


ocooo 


1 1030 




TDM 


IOP*37,9,, 


DISABLE CONTROL CARD TRAP. 


02974 


15 


01945 


00009 


1 1040 




OD 


MBC35tOVRLAV*|Ott 


TEST FCK ENTRY VIA CNU CARD TRAP. 


02986 


43 


03162 


00478 


1 1050 




TDM 


M 10 1,0, , 


NO -SET UP TO READ A CNTL CARD. 


02998 


15 


04940 


OCOOO 


I 1060 


MOO 10 


TD 


• ♦34.MCQMMM2, t 


CNAY EATCMAY. 


03010 


25 


0)044 


02664 


11070 




TD 


•♦23, SYSCAL 


£ i 


03022 


25 


0)045 


00475 
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1 1080 




TO 


SYSCAL ,MCD06 




C3034 


25 


00475 


10740 


1 1090 




8D 


MB020 i S YSC AL » i 


TEST IF END OF JOB. 


03046 


43 


0)070 


00475 


1 1 100 




8 TM 


UT07.U, 


YE S -GC TO JOB CLOSING ROUTINE. 


03058 


17 


08782 


-0001 


11110 


MBQ20 


TD 


•♦23iSYSCAL,, 


EXECUTE A COMPUTED BRANCH CN SYSCAL. 


03070 


25 


0)093 


00475 


11120 




TD 


•♦23.MCD09 




03082 


25 


03105 


10770 


1 1 1 30 




TF 


•♦18.MCD10 




03094 


26 


03112 


10 781 


11140 




B 


MB025, .6 




03106 


49 


0312- 


00000 


11150 




DORG 


MBCC0*214, 


TRICKY, WHAT SAY-- . 


03116 








1 1 160 


MB025 


DSA 


MCRC1,MB08Q,MB1Q0 


♦MBIC0.MB14O 


03120 




5 


X 5 












03120 




-4068 














03125 




-3274 














03130 




-3422 














Oil 35 




-3422 














03140 




-3656 




11170 


MB03Q 


TDM 


SYSCAL tO, , 


FORCE TERMINATION OF JOB. 


03142 


15 


00475 


00000 


11180 




B 


MBO 10*48 




03154 


49 


03058 


CCOOO 


11 190 




DORG 


•-3 




03162 








1 1200 


M8Q35 


SF 


NONE X t , , 


INMIBI T EXECUTION. 


03162 


32 


004 57 


00000 


11210 




TD 


• - t .OVRLAVHOt • 


SAVE RETURN CODE. 


031 74 


25 


03173 


00476 


1 1220 




TOM 


QVRLAY*10,0, , 


RESTORE MAIN INC. 


03186 


15 


00476 


OCOOO 


11230 




BNF 


MB045,MB035*ll , , 


TEST IF READ NUMERICALLY. 


03198 


44 


03254 


03173 


1 1240 


MB040 


MATY 


MM 3C » , « 


TYPE RELOAD MESSAGE • 


03210 


39 


10391 


00100 


11250 




RCTY 






03222 


14 


00000 


00102 


11260 




M 




MAI T FOR OPERATOR. 


03214 


41 


00000 


OCOOO 


11270 




B 


MB010-12 




03246 


49 


02446 


00000 


11280 




DORG 


.-3 




01254 








1 1290 


MB045 


TDM 


MIOl.l,, 


INHIBIT READING A CONTROL CARD, 


03254 


15 


04840 


0000 1 


11300 




B 


MBO 10 




01266 


49 


0)010 


00000 


11310 




DORG 


•-3 




03274 








1 1320 


M8080 


BTM 


u r 1 1 , • , 


TEST FOR I NHI BI TED EXECUTICN. 


03274 


17 


04616 


-0000 


11330 




TDM 


M002.6, , 


SET SYSCAL COOE. 


03286 


15 


0474) 


00006 


1 1340 




TDM 


MC0MM*l2,6t t 


SET OUP INDICATOR. 


03298 


19 


02664 


C0006 


1 1350 




TR 


M«02,DUPDDA, , 


GET ODA FOR DUP SUPERVISOR. 


03110 


)1 


04744 


10842 


11360 




BNR 


MBO0 1 tMR02 « i 


TEST IF VALID. 


03122 


49 


0)340 


04744 


11370 




TFM 


POINT, 139, , 


NO. 


031)4 


16 


04 766 


-01)4 


11)10 


MB080A 


WAT Y 


MM36,.» 


TYPE ERROR MESSAGE. 


0)146 


34 


10491 


00100 


1 1390 




WNTY 


P0INT-3,, . 


IDENTIFY MISSING DIM ENTRY • 


03398 


)• 


04765 


00100 


11400 




RCTY 






03110 


34 


00000 


00102 


11410 




B 


UT10F 




01312 


44 


04990 


00000 


1 1420 




DORG 


• -3 




03340 








11430 


MB081 


NOP 






03)90 


41 


00000 


00000 


U440 




TC 


MB225*7,MCR01A, , 


NO LOAD ADDRESS. 


03402 


29 


04040 


04499 


11450 




B 


MB2C0. * 


GO TO tXECUTE LOAD. 


03414 


44 


0)734 


00000 


11460 




DORG 


• ~3 




03422 








11470 


KB ICO 


BTM 


ITU,,, 


TEST FOR INHIBITED EXECUTICN. 


03422 


17 


09616 


-0000 


1 1480 




BNF 


MB 145,MC0««*l ♦ ♦ 


TEST IF PHASE BEGAN WITH EXECUTE CARD. 


03414 


44 


03640 


02693 


11440 




BNF 


MR 1 10 »NCQNM*2 » t 


YES -TEST IF EXECUTION INHIBITED. 


03446 


44 


03466 


02694 


11900 




6 


LT10F«»« 


YES, 


03490 


44 


04990 


00000 


1 1510 




DORG 


•-3 ;. 












11420 


NBUO 


TOM 


«caMM*i2..*»* 


SET EXE CUtl ON INDICATOR. 


0344* 


19 


02944 


00004 


11530 




»NP 


MB 11.06, CQNM*22 , * 


TEST IF PROGRAM LOADED TO DISK. 


0)470 


44 


034*4 


02624 


11540 




BD 


108,£OWM*22» » 


YES -TEST IF IN CORE I MAGE FORMAT. 


03440 


43 


0)944 


02624 


11550 




8NP 




YES -TEST IP A DIM NUMBER SUPPLIEO. 


03902 


44 


03922 


02641 


11960 




S 


..Mt'llOlfcV 


WHERE ARE YOU. 


03914 


49 


0)944 


00000 


U5?0 




00*6 






03922 









2 a 
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11960 


MB 1 10A 


BT 


CT05tCOMN» 39, , 


GO TC GET THE COA. 


03522 


27 


08350 


02841 


1 1990 




TR 


MR02, UT05- 1 . 1 1 ♦ 


MOVE TC TEMPORARY SLOT. 


03534 


31 


09744 


0834R 


11400 




BNR 


MB190.MR02, , 


TEST IF VALIO. 


03544 


45 


0)710 


09744 


11*10 




B 


MXQC4+ 12* « t 


NO -TYPE ERROR MESSAGE ANO CLOSE JOB. 


03558 


49 


07206 


ocooo 


11620 




DOR G 


• - 3 




03544 








1 14)0 


MB 1 106 


TR 


MR02* 1 iCOMM it 


USE ODA IN COMM SECTOR AS LOAD OCA* 


03544 


31 


09745 


02802 


1 1440 




A 


MR02* 3 1 SRE IOC . . 


CONVERT FROM SCRATCH TO ABSOLUTE 


03578 


21 


09747 


00425 


1 1 450 




TO 


MR02.SRELOC-3. , 


SECTOR ADDRESS. 


03590 


25 


09744 


00422 


1 1440 




TFM 


MR02* 1 3 ,99999 , , 


FORCE THE relocatable indicator. 


Q34C2 


16 


09757 


R9999 


1 1470 




BNF 


• ♦ 24 , COMM. 1 2 * » 


TEST IF THE SPS SUPERVISOR REGUIREC. 


03614 


44 


03638 


02814 


1 1440 




SF 


MRC2* 1 3 , t . 


YES -SET FLAG INDICATOR. 


03424 


32 


C9757 


00000 


1 1490 




TFM 


HIGH, SVSORG i i 


RELOCATABLE PROGRAMS MILL BE LCADEO 


03438 


16 


00434 


-2402 


1 1 700 




B 


MB 1 95. , , 


AT SYSORG. 


03450 


49 


0)722 


OCOOO 


11710 




DOR C 


• - 3 




03458 








1 1720 


Mfi 140 


BNF 


•♦2C t MCOMM« 1 , , 


TERMINATE JOB IF THIS PHASE INVOLVES 


03658 


44 


03678 


02853 


1 1 730 




» 


MBC30, , , 


EXECUTION OF A USER-S PROGRAM. 


03670 


49 


0)142 


00000 


1 1 740 




OORG 


3 




03678 








11750 




BTM 


UT1 1, I, , 


TYPE NCN EXECUTE MESSAGE. 


03678 


17 


09618 


-0001 


1 1 740 


MB 1 45 


TDM 


MCOMM«l,0* t 


INDICATE PHASE NOT BEGUN. 


03690 


is 


0285) 


00000 


11770 




B 


MCR01 , , , 


GO TC CONTROL CARD READ EXECUTIVE. 


03702 


49 


04068 


coooo 


1 1710 




DORG 


• -3 




03 710 








1 1 790 


MB 1 90 


TDM 


MB225.3, i 


FORCE UPOATING OF HIGH INDICATOR. 


03710 


|t 


040)) 


0000) 


1 1800 


MB 1 95 


TDM 


MDC2.0, , 


SET SYSCAL COOE. 


03722 


|5 


0974) 


ocooo 


1 lg 10 




FINAL LOAD ANO EXECUTE OF SYSTEM OR USERS PROGRAM. 










11120 


M82C0 


TF 


EQL IVO.MCQMM* 7, , 


MOVE REMAINDER OF EOUIV TABLE. 


3 734 


26 


02 124 


02859 


1 1830 




TF 


EQUIV*5.NC0MM*9 




03 746 


26 ' 


02128 


02841 


1 1 840 




TF 


EQLIV*7,MC0MM*U 




03758 


26 


02 1 )0 


02863 


1 1 850 




TR 


RFPOS.LREC,, 


SET DRIVE REPOSITION TABLE TO ZERO-S . 


03770 


]| 


00512 


0981 ) 


1 1 840 




TDM 


REP0S«7,0 




03782 


If 


00519 


00000 


11870 




TC 


•♦47.FSPS. , 


MOVE CONTROL CARD SOURCE TC COPMCN. 


03 794 


25 


0)84 1 


00429 


11880 




TD 


FSPStMCOMM* 3 




38C4 


25 


00429 


02855 


1 1 890 




HNF 


•♦24,»»23 




03818 




03842 








SF 


FSPS 












i i ai n 




SF 


LD1NPT, , , 


FOR GOCO MEASURE. 


eta*) 




z? 


uuuuu 


1 1920 




SF 


C IN I T 




03854 






COOOO 


119 30 




TR 


C0MM*84,JREC 




3844 




02884 




1 1940 




TFM 


IOXX,»*23, , 


MR I TE COMM SECTOR ON DISK. 


3878 


16 


00545 


-3901 


1 1950 




B 


IORBC tMB220,7 




03890 


49 


00520 


"40 1 


1 1 940 




TDM 


IOP«37,5« • 


RESTORE CNTL CARO TRAP IN IORT. 


03902 


1 5 






11970 




TD 


SVSCAL ,MD02 , , 


SET SYSCAL COOE. 


0)914 


25 


00475 


0974) 


1 1980 




CF 


f-AL T t • » 


REMOVE MONITOR INCICATCR. 


03924 


33 


00454 


OCOOO 


11990 




CF 


HAL T ♦ 1 » 


REMOVE ANY REMAINING LITTLE GOCOIES. 


03938 


33 


00457 


C'OQ 


12000 




BO 


NB2 10, SYSCAL , , 


TEST FOR EXECUTION. 


03950 


43 


0)984 


CO . * 


12010 




MA TV 


MM 2 "} , , , 


YES -TYPE MESSAGE. 


3942 


39 


1 0289 




12020 




RC TV 






03974 


34 


00000 


00102 


12030 


MB2 10 


TFM 


10xx,.*?3, , 


LOAD AND EXECUTE DESIRED PROGRAM. 


03984 


16 


00545 


-4009 


12040 




B 


IOGT.MB225, 1 




03998 


49 


00544 


-4033 


12050 


MB220 


DSC 


2,22 




04010 




2 




12060 




22 
CSA 


M8222 




04016 




5 


X 1 












C40I6 




-4018 




12070 




CSC 


1, • 




04017 




1 




12080 


MB222 


CSC 


1.1 




04018 




1 





1 



2D 
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12090 




CSA 


DSA 39 




0402) 




5 


X I 












04023 




J9663 




12100 




DSC 


3, 1 




04024 




3 








001 














12110 




CSA 


COMM 




04031 




5 


X 1 












04031 




-2802 




12120 




OSC 


It* 




04032 




1 




121)0 


MB225 


OSC 
2K 


2.-22 




04033 




2 




12140 




DSA 


MR02 




04039 




5 


X 1 












04039 




-9744 




12150 




DSC 


It • 




04040 




1 




12140 




DSC 


5,0* 




04041 




5 








0000 














12161 


M8226 


DC 
-J 


2,-01 




04047 




2 




12162 




DC 
-J 


2.-01 




04049 




2 




12163 




DC 
-J 


2.-01 




04051 




2 




12164 




CC 


3,-Cl* 




04054 




3 




12170 


•••••• 


MONITOR CONTROL CARD 


RE AO SUPERVISOR ROUTINE.. 










12180 




TDM 


MI01.0. , 


TURN OFF ALREADY RE AC INO. 


04056 


15 


09840 


OCOOO 


12190 


MCROl 


TO 


MCR02A* | l.MCOMM* ), 


.DECODE CONTROL CARD INPUT SOURCE. 


04068 


25 


04127 


02855 


12200 




TC 


•♦23,MCOMM*3 




04080 


25 


04103 


02355 


12210 




TF 


MCRQ6*6,MCD02 




04092 


24 


0494 1 


10700 


12220 




ftD 


MCRQ4.MI01 . . 


TEST IF CNTL CARO ALREADY READ. 


041C4 


43 


04304 


09840 


122 30 


MCR02A 


BNF 


MCRC3.MC001» ( 


TEST IF TYPEWRITER INPUT . 


041 14 


44 


04166 


10690 


12240 




RCTV 


» » . 


YES -TYPE ENTER MESSAGE. 


04128 


14 


ooooo 


00102 


12250 




MATY 


MM01 




04140 


39 


09643 


00100 


12260 




BNF 


•♦24.NI03, • 


TEST IF IN JOB CARC SEARCH. 


04152 


44 


04174 


09841 


12270 




MATY 


MM26 




04164 


39 


10)09 


00100 


12280 




RCTV 






04176 


34 


00000 


00102 


12290 


MCR03 


TFM 


•♦18.MCCSUF, , 


CLEAR THE CONTROL CARD BUFFER. 


04188 


16 


04206 


J 3000 


12300 




TR 


XX,MCR04A*7 




042C0 


31 


OOOOO 


04491 


12310 




AM 


MCR03*18,4 




04212 


11 


04204 


-0004 


12320 




CM 


MCRC3*18,MCCBUF*160 


04224 


14 


04204 


J3160 


12330 




BNI 


MCRC3M2, 1)00 




04236 


4? 


04200 


01300 


12340 




TFM 


I0XX,«*2),. 


READ A RECCRO FROM CONTROL RECCRO SOURCE. 


04248 


16 


00549 


-4271 


12350 




8 


I0GT,MCR0*,7 




04240 


49 


00966 


-4935 


12340 




BNI 


♦♦32,400,. 


IF SSW4 • ALLOW RE-ENTR* ON TYPEWRITER 


04272 


4? 


04)04 


00400 


12)70 




BNF 


• ♦20.MCR02AM1 ,1 1 , 


INPUT. 


04284 


44 


04904 


0412P 


12)80 




8 


MCROl-12 




04294 


49 


04094 


ooooo 


12390 




OORG 


•-3 




04)04 








12400 


NCR 04 


BNF 


♦ ♦24.MCR02AMI ,11, 


RESTORE CARRIAGE IF TYPEWRITER INPUT. 


04304 


44 


04926 


0412P 


12410 




RCTV 






04)14 


)4 


OOOOO 


00102 


12420 




TOM 


MIOl.l,, 


TURN ON CNTL CARO READ INHIBITOR. 


04328 


19 


04640 


00001 


12430 




BNR 


MCROl- 12, MCCBUFM , 


,REAO AGAIN IF NO COUBLE R.M. 


04340 


49 


04094 


13001 


12440 




BNR 


MCR01-12.MCCBUFO 




04)92 


49 


04094 


13001 


12490 




TF* 


MF01.4, , 


TREAT AS COMMENTS CARO IF ANY R.M. 


04)44 


16 


09714 


-0004 



3 
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12*60 




BTN 


UC3,«CCBUF*5 t , 


IN CCLS. 3-6. 


04} 76 


17 


08038 


J3005 


1247C 




BNR 


HCRC4A,HD01 




04386 


49 


04444 


09742 


12480 




BNR 


NCRC5A,NCCBUF*5,, 


TEST PCA END OF JOB. 


04400 


49 


04628 


13009 


12490 




BNR 


NCRC5A,«CCBUF*7 




04412 


45 


04628 


13007 


12500 




TDM 


N I 1 1 i i 


nt tin t rniuTBni cun a fad i mm i r t rni . 


04424 


I ) 


09840 


00000 

».*MW 


12510 




8 


NBC3C 




04416 


49 


03142 


00000 


1 2520 




00 RG 


• -3 




04446 








125 30 


NCR04 A 


CF 


NCCBUF*6if. 


r i (it ci ire eno mi c a. k a kin a 




3 3 


l too* 


n r ft nn 


1 2540 




DOR G 


•-4 




04651 








1 2550 




DC 
-0 


2.C 




04452 




* 




1 2540 




DC 


3, OS 




04459 








12570 




-0" 
CF 


MCC8UF*8 




04496 


33 


1 3008 


00000 


1 2510 




CF 


NCC8UF ♦ 10 




04461 


3 3 


1 10 10 


0QC00 


12590 




TDN 


HOOWO 




04410 


1 3 


09742 




1 2600 




decode control caro 


TYPE 










12610 




c 


NCCBUF* 1 1 ,NNC2*6, i 


» TEST FOR - JC B- CARD* 


04492 


24 


1 30 1 1 


09897 


12620 




B I 


N JBC I t 1 200 




04904 


46 


04944 


01200 


1 2630 




C 


HCCBUF* ll»NN03»6, i 


r TEST FOR -TYPE" CARD* 


049 16 


2A 


1301 1 


09905 


1 2640 




BN 1 


NCR 05 1 1 200 




04921 


a 1 


04572 


1200 


12650 




TON 


NC0NN*3, It , 






j! 


aaao! 




1 2660 




BTN 


UT06* , * 


fin to Tv»P— ni t nniiTtiuF 


ft A « A 5 


1 7 




°oooo 


12670 




B 


NCROl- 12, , , 


r.r. in acin amdtufb run 

V»w IU n(4U AniUlriCn v'**U. 


ftAAAA 

° 


49 


ftAftAA 

04096 


npnAo 
UbUUU 






DORG 














1 JfcQO 


P*CKQ5 


C 


NCCBUF ♦ 1 1 |NN04*6, < 


I IE } 1 rUR r«Li V«*I*U« 




24 


130 1 1 




jf ftn 




BN I 


NCR C5A » 1200 




049 84 


4? 


04628 


01200 


137 in 




BTN 


LT06,,, 
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01146 


00000 


14650 




DDRG 


• -3 




06474 








14660 


MSP04 


T CM 


MDC2.4, 


SET SYSCAL CCOE. 


06474 


15 


09741 


CCG04 


14670 




H 


MBOE 1* 12 




06486 


49 


01402 


OCOOO 






DOR G 


• -4 












14690 


MSP 05 A 


SC 


4,0101 




06491 




4 








0101 














14 700 




DC 
-7 


2,7 




06496 




2 




1471C 




cc 


2. 1 




06500 




2 




14720 




- 1 

DSA 


SFI) INT 




06505 




5 


X I 












065 C 5 




-0426 




14730 




DSC 


1, ' 




06506 




1 




14740 


M SP 058 


CSC 


4,C 101 




0650T 




4 








0101 














14750 




cc 


2 ♦ 8 




065 12 




2 




14760 




-8 

cc 


2,2 




06514 




2 




14770 




-2 
DSA 


COPM+81 




06519 




5 


X 1 












06519 




-2883 




14780 




CSC 


It • 




06520 




1 






M SP 05 C 
M P 


DSC 


4,0 101 


35 


0652 1 












0101 
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DC 


2,10 








2 








JO 














14810 




DC 


2, 1 




C6526 




2 




14820 




- 1 
DSA 


COMM+77 




065 3 3 




5 


X 1 












06533 




-2879 




14830 




DSC 


1. ' 




06534 




1 




14840 


MSP05C 


DSC 


4,0101 




06535 




4 








0101 














14850 




DC 


2,11 




06540 








1 4860 




J I 
DC 


2,2 








- 




14870 




-2 
DSA 


COMN-79 




0654 7 






X I 












06547 




"288 1 




1 4880 




osc 


1 , • 




06546 




I 




14890 




FOR AND FORX CNTL 


CARD PROCESSOR. 










1 4900 


MF TO 1 


TDM 


MC0MM*1 ,4, , 


SET FOR ENTRY INO. 


06550 


1 5 


02853 


00004 






B 


• ♦20 






49 


04582 


UVIUvlU 


14920 




OORG 


• -3 




06570 








1 4930 


MP T02 


TDM 


MCUMM*l,4# 11* 


SET FORX ENTRY INQ. 


065 70 


1 5 


02653 


OCOOM 






TDM 


MCOMM t 1 , , 


INDICATE PHASE BEGUN. 


06582 


I J 


02852 


0000 1 


14950 




TOM 


MCQPM*12,5 




06594) 


1 5 


02664 


00005 






TFM 


FOt**»* ( 


DECODE COL. 7. 


06608 


16 


09596 


— 4429 


1 4970 




B 


UT10,MSP05A,7 




06616 


49 


09136 


-6493 


1 4980 




TD 


•♦23.SFDINT,, 


TEST IF LEGITIMATE. 


06610 


2s 


06693 


00426 


1 4990 




BO 


•♦20tMC001 




06642 


43 


06662 


10690 


1 5000 




B 


UT1CE , , , 


Nti -KILL THIS PHASE. 


06654 


49 


09462 


00000 


15010 




OORG 


•-3 




06662 








1 5020 




BNF 


MFT03tF 1 




06662 


44 


06734 


09599 


1 50 30 




TFM 


F0,»*-23,, 


DECOOE COL. 8. 


06674 


16 


09996 


-6697 






B 


UTlC,*FT05Bt7 




06666 


49 


09136 


-6776 


15050 




BNF 


MF TC3 »F I 




06698 




06734 


09599 


15060 




TFM 


FQ,»*23,, 


DECCDE COLS. 9-10. 


06710 


14 


09998 


-6733 


15070 




B 


LT1C,MFT05C»7 




06722 


49 


09196 


-6792 


15010 


MPT03 


TR 


MR02,FQR0QA,, 


MOVE DO A FOR FORTRAN COMPILER. 


04714 


11 


09744 


10622 


15090 




BNR 


MSPQ4,MR02t . 


TEST IF VALID. 


06744 


49 


04474 


09744 


15100 




TFM 


POINT, 136 




04798 


14 


04744 


-0134 


15110 




B 


MB080A 




04770 


49 


09346 


00000 


15120 




OORG 


•-3 




04776 








15130 


MFT05B 


DSC 


4,0101 




04771 




4 








0101 














15140 




DC 
-8 


2,8 




0478) 




2 




15150 




DC 


2*1 




04765 




2 




i 31 60 




-i 

DSA 


C0NM*82 




04790 




3 


X I 












04790 




-2664 




15110 




DSC 


It* 




04741 




I 




isiao 


MFTOSC 


OSC 


4*01,01. 


36 


04792 




4 
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IT 



15190 




DC 


2,9 




0*797 




2 




15200 




-9 

DC 


2,2 




06799 




2 




19210 




-2 
DSA 


COMM*75 




06804 




5 


X 1 












068C4 




-2877 




15220 




DSC 


It ' 




06805 




1 




15230 




DUP CNTL CARD PROCESSOR 










15240 


MDP01 


TDM 


MC0MM*i,2i ( 


SET PHASE INDICATOR. 


06806 


15 


02853 


0C002 


15250 




TDM 


MCOMM, 1 , , 


INDICATE PHASE BEGUN. 


06818 


15 


02852 


0C001 


15260 




TDM 


MC0MMM2.6, , 


SET DUP INOICATOR. 


06830 


15 


02864 


00006 


15270 




TDM 


MD02.4, , 


SET SYSCAl CODE. 


06842 


15 


09743 


00004 


15210 




TFM 


F0,»*23.. 


DECODE COL. 7. 


06854 


16 


09598 


-6877 


15290 




B 


tTiC,MSP05A,7 




06866 


49 


09138 


-6493 


15300 




TO 


•♦?3,SFDINT, , 


TEST IF LEGITIMATE. 


06878 


25 


06901 


00426 


15310 




BD 


MB080*24,MCD01 




0689C 


43 


03298 


10690 


15320 




B 


bT 1 CE 1 1 1 


NO -KILL THIS PHASE. 


06902 


49 


09482 


OCOOO 


15330 




CORG 


• -3 




06910 








15340 




XEQ AND XEQS CNTL 


CARD PROCESSOR 










15350 


MXQOl 


CF 


F SP Sf » » 


SET XEQ ENTRY INDICATORS. 


0691C 


33 


00429 


00000 


15360 




TFM 


MXDfi AH* 1 |.?T.lfl 




06922 


16 


07157 


000K7 


15370 




g 


MX0A7.24 
nAVrfUc ▼ c 




06934 


49 


06966 


OCOOO 


15310 




DORG 


• - 3 




06942 








15390 


MXQ02 


SF 


FSPS, ,, 


SET XEQS ENTRY 1NCICATCRS. 


06942 


32 


00429 


00000 


15400 




TFM 


HXQC3B* 11,34,10 




06954 


16 


07157 


0C0L4 


15410 




TDM 


MCOMM, 1 , , 


INDICATE PHASE BEGUN. 


06966 


15 


02852 


0C001 


15420 




TOM 


MC0MM*1, I, 11 




06978 


15 


02853 


OOOOJ 


15430 




TDM 


MC0HM*12,4, , 


SET OBJECT PROGRAM INDICATOR. 


06990 


15 


02864 


00004 


15440 




BNF 


•♦20,MCOMM*2, t 


TEST IF EXECUTION IS INHIBITED 


070C2 


44 


07022 


02854 


15450 




B 


L I 1 OF , , , 


YES "TYPE MESSAGE AND FINISH UP JOB. 


07014 


49 


09550 


OCOOO 


15460 




DORG 


• -3 




07022 








lb47Q 




TFM 


F0,*»23tt 


DETERMINE IF COLS. 7-12 LEGITIMATE* 


07022 


16 


09598 


-7045 


15480 




B 


LT10,MXQ50,7 




07034 


49 


09138 


-7813 


15490 




BC 


MXQC/.MD01 




07046 


43 


7418 


09742 


15500 




BNF 


MXQQ3.MD01 




07058 


44 


07078 


09742 


15510 




B 


UTIOE , 


NO -NAMES MUST BE NON-NUMERIC. 


07070 


49 


09482 


OCOOO 


15520 




OORG 


• -3 




07078 








15530 


MXQ03 


TFM 


MXQC3A*23,MXQ55, 


>, INITIALIZE TC DECODE REST CF CARC. 


07078 


16 


C7U3 


-7827 


15540 


MXQ03A 


TFM 


F0.«*23* • 


PERFCRM THE SCAN. 


07090 


16 


09598 


- 7 I i i 


15550 




B 


UTIO.XX 




07102 


49 


09138 


00000 


15560 




AM 


•-1,14 




07114 


11 


07113 


-0014 


15570 




BNR 


•♦2C.MD01, , 


TEST FOR R.M. 


07126 


45 


07146 


09742 


15580 




8 


MXQ04-24, , , 


YES -END OF CARD. 


07138 


49 


07170 


00000 


15590 




DORG 


• -3 




07146 








15600 


MXQ03B 


CM 


F5, XX 




07146 


14 


C9604 


-0000 


15610 




BNI 


MXQC3A, 1300 




07158 


47 


07C90 


01300 


15620 




BD 


MXC 12.L0INPT, , 


BRANCH IF NON-DISK LOAD INPUT. 


07170 


43 


07674 


00428 


15630 




BNF 


MXCll,C0MMO5,, 


BRANCH IF PROGRAM NAME SUPPLIED. 


07182 


44 


07642 


02837 


15640 


MXQ04 


BNF 


MXQ05,COMM*39, , 


TEST IF DIM ENTRY PICKED UP. 


07194 


44 


07226 


02841 


15650 




WATY 


MM37,,, 


NO -TYPE ERROR MESSAGE AND CLCSE JOB. 


07206 


39 


10487 


00100 


15660 




B 


LT1CF 




07218 


49 


09550 


00000 


15670 




DORG 


• - 3 




07226 








15680 


MXQ05 


3T 


bT05,COMM*39,, 


GO TC PICK UP THE CIM ENTRY. 


07226 


27 


08350 


02841 


lb690 




TR 


MRC2,UT05-l,ll , 


MOVE FOR LOAC ROUTINE. 


07218 


31 


C9744 


0834R 



37 



157C0 




BNR 


•♦20.MR02, , 


TEST IF EMPTY. 


07250 


45 


07270 


09744 


15710 




B 


MXQ04+12, , , 


YES -ERROR. 


07262 


49 


07206 


00000 


15720 




DORG 


• -3 




07270 








15730 




TF 


MF0l,MRO2»13,, 


DETERMINE IF RELOCATABLE. 


07270 


26 


09716 


09757 


15740 




CF 


MF01 




07282 


33 


C9716 


CCOOO 


15750 




CM 


MF01,99<599 




07294 


14 


09716 


R9999 


15760 




BI 


MXQ06A, 1200 




07306 


46 


07338 


01200 


15770 


MXU06 


TFM 


MXQC6C+6.MB190, , 


NO -FORCE UPCATING OF HIGH INOICATOR. 


07318 


16 


07416 


-3710 


15780 




B 


MXQC6B 




07330 


49 


C7386 


OCOOO 


15790 




DORG 


•- 3 




07338 








15800 


MXQ06A 


BNF 


•♦24,COMM*8» , 


YES -MOVE IN LOAD ACCRESS IF ANY. 


07338 


44 


07362 


02810 


15810 




TF 


MB225*ll,C0MM*l2 




07350 


26 


04044 


02814 


15820 




CF 


MB225M1 




07362 


33 


04044 


00000 


15830 




TFM 


MXQ06C*6,MB195 




07374 


16 


0741* 


-3722 


15840 


MXQ06B 


BNF 


•*24,COMM*l3t ♦ 


MOVE IN ENTRY ACDRESS IF SUPPLIEO. 


07386 


44 


07410 


02815 


15850 




TF 


MR02*18,COMM*1 7 




07398 


26 


09762 


02819 


15860 


MXQ06C 


B 


MB195,,, 


MB190 OR M8195. 


07410 


49 


03722 


00000 


15870 




CORG 


• -3 




07418 








15880 


MXQ07 


CF 


MCCBUF+14,,, 


CLEAR EXCESS FLAGS IK NAME F I ELD. 


07418 


33 


13014 


00000 


15890 




CF 


MCC8UFM6 




07430 


33 


13016 


00000 


159C0 




CF 


MCCBUFM8 




07442 


33 


13018 


OOCOO 


15910 




CF 


MCCBUF*?0 




07454 


33 


13020 


00000 


15-920 




CF 


MCCBUF*22 




746* 


33 


13022 


00000 


15930 


MXQ08 


TFM 


ABC3*30,MXQ09, , 


INITIALIZE FCR EQUIVALENCE TABLE SEARCH. 


07478 


1* 


110*4 


-7590 


15940 




TFM 


AB03*50,MXQ10 




07490 


16 


11084 


-7610 


15950 




TFM 


AB03*43,MCCBUF»23 




07502 


16 


11077 


J3023 


15960 




TF 


C0MMO5.MCCBUF*23 




07514 


26 


02837 


13023 


15970 




TD 


AB09A tEOUDDA 




07526 


25 


11379 


10862 


15980 




BNR 


•♦20.EQUDDA 




07538 


45 


07558 


108*2 


15990 




B 


• ♦20 




07950 


49 


07570 


COOOO 


16000 




DORG 


♦-3 




07558 








16010 




TF 


ABC9A*5,EQU00A*5 




07558 


26 


11 384 


10867 


16020 




TFM 


MXQ03A*23,MXQ55*14 




07570 


16 


07113 


-7841 


16030 




B 


MXQC3A , , , 


RETURN TO DECODE REST CF CARO. 


07582 


49 


07090 


00000 


16040 




DORG 


• -3 




07590 








16050 


MXQ09 


WATY 


MM38..t 


COULD NOT FIND -TYPE ERROR MESSAGE. 


07590 


39 


10523 


00100 


16060 




B 


UTiOF,,, 


FINISH UP. 


07*02 


49 


09550 


OCOOO 


16070 




OORG 


•-3 




07*10 








14080 


MXQ10 


AM 


AB03*ll,4, , 


MOVE CORRESPONDING DIM NUMBER TC 


07*10 


11 


11045 


-0004 


16090 




TF 


C0MMO9*AB03*ll ,11 


, TO THE COMM SECTOR. 


07*22 


2* 


028*1 


1104N 


16100 




B 


MXQC5,,, 


GO PICK UP THE DIM ENTRY. 


07*34 


49 


0722* 


00000 


16110 




CORG 


•-3 




07**2 








1*120 


MXQll 


BNR 


AB02-12,EQUDDA, , 


GO TO EQU TABLE SEARCH IF DDA VALID. 


07**2 


45 


1090* 


10*62 


16130 




TFM 


POINT, 2,, 


NO -TYPE ERROR MESSAGE. 


07*9* 


1* 


0976* 


-0002 


1*140 




B 


MB080A 




07*** 


♦* 


033** 


00000 


1*190 




DORG 


•-3 




07*7* 








1*1*0 


MXQ12 


TO 


•♦23.L0INPT,, 


TEST FOR LEGITIMACY OF INPUT OEVICI. 


0767* 


29 


07697 


00428 


1*170 




BO 


MXQ13.MCO05 




07*86 


43 


0771B 


10730 


16180 




TP* 


POINT, 27,9, 


NO -TYPE MESSAGE ANC EXIT. 


07*98 


1* 


0*7*8 


00-27 


1*1*0 




8 


UTIOE 




07710 


49 


09*82 


00000 


1*200 




OORG 


•-3 




0771B 








1*210 


MXQll 


TR 


NR02.MXQ20i t 


SET UP TO EXECUTE LOADER CALLER. 


07718 


11 


0*74* 


077*8 


1*220 




TO 


0IMENTM4.MCR01A 




07710 


29 


0041* 


0*499 


1*210 




•MP 


•♦24.C0»M»ll 




077*2 


44 


077** 


02815 


1*2*0 




TP 


DIMENT*18,C0MM*17 




07T9* 


2* 


00420 


0281* 


1*290 




BNF 


•♦24,C0MM*8 




077** 


44 


077*0 


02810 
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16260 TF HIGM*C0NN*12 

1*270 B MB 195 



16210 




00* G 


«- 


3 


16290 


MXQ20 


DSC 


1, 


1 


16300 




1 

OSA 


DSA 15 


16310 




CC 


3, 


3 






-03 






16320 




DC 


6* 


0« 






-0000' 




16330 


NXQ50 


OSC 


4i 


ICO 1 • 






1001 






16340 




DC 


2. 


7 






-7 






16350 




DC 


2, 


6 






-6 






16360 




OSC 


6i 


i0' 






00000* 




16370 


MXQ55 


DSC 


4, 


0101, 






0101 






16310 




OC 


2. 


13 






J3 






16390 




DC 


2, 


.'4 






-4 






16400 




OSA 


C0MMO9 


1 64 1 




OSC 


1. 




16420 




DSC 


4, 


,0 101, 






0101 






16430 




DC 


2, 


. 17 






J7 






16440 




DC 


2, 


-5 






-5 






16450 




DSA 


C0MJU12 


16460 




DSC 


1, 




16470 




DSC 


4, 


101, 






0101 






16480 




OC 


2, 


22 






K2 






lit 




DC 


?, 


.5 






-5 






16500 




DSA 


C0MMM7 






CSC 


1. 




16520 




DSC 


4i 


,0101, 






0101 






16530 




DC 


2. 


,27 






K7 







PROGRAM NAME. 



DIP NUMBER. 



LOAD ADORESS. 



ENTRY ADDRESS. 



INPUT SOURCE. 



30 



07771 I* 
07790 49 
07791 
077ft 

07001 

07903 
0790* 

07812 

07113 

07611 

Q7B2C 

07621 

07827 

07832 

07834 

07839 

07839 
07840 

07841 

07846 

07848 

07853 

07853 
07154 

07855 

07860 

07842 

078*7 

078*7 
078*8 

07869 

07874 



PAGE 

004 34 02114 

01722 00000 

1 

5 1 I 

J9783 
3 

* 

4 

2 
2 
* 
4 
2 
2 

5 X I 

-2141 

1 

4 

2 

2 

5 X 1 

-2114 

1 

4 

2 
2 

5 X 1 

-2ii9 

1 



16540 
16550 

16560 
16570 
16580 
16590 
16600 

16610 
16620 
16630 
16640 
16650 

16660 
16*70 
1**80 
1**90 
1*700 

1*710 
1*720 
1*730 
1*740 
1*790 

1*7*0 
1*770 
< 1*700. 
U7tO 
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DC 
-1 

OSA LOJNPT 

OSC It* 

OSC 4,0101,, 

0101 

CC 2*26 
K8 

DC 2*1 

-1 

DSA COMM+82 



OSC 4,0101,, 

0101 

DC 2,29 
K9 

DC 2*2 

-2 

OSA C0MM*75 



OSC 1*' 

DSC 4*0101*, 
0101 

DC 2,31 
LI 

DC 2,2 

OSA CQNM*81 



OSC 1,' 

OSC 4,0101,, 
0101 

OC 2,33 
13 

OC 2,1 
-I 

OSA CO*M*77 



OSC 1, * 

OSC 4,0101,. 

9101 

OC - 2,34 

i4 

OC' 2,2 
-2 



CONTROL CARO COUNT FOR FORTRAN* 



I VERSION 2 SUPERVISOR ANO I.Q.R.T. 

787* 

07881 

07881 
07812 

SUBROUTINE SET INDENT 1FICAT ICN FOR FORTRA 07813 

07888 

07890 

07895 

07895 
07*16 

07897 

079C2 
07904 
079C9 

07909 

07910 

07911 

07916 

07918 

07921 

07921 
0791* 

079ft 

07910 

07912 

07917 

079)7 
07910 

07930 

07994 

0794* 



SPS SUBROUTINE SET, 



SPS NOISI DIGIT. 



%P% MANTISSA li«67H. 



PAGE 

2 

5 X 



-0428 

1 



2 
2 

5 X 



-2884 

1 



2 
2 



-2077 

1 



2 
2 

J X 



-2001 

1 



4 
2 
2 

% X 



40 



-1179 

1 

4 

2 
2 









162C-1**3 MONITOR I 
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PAGE 


1*100 




OSA 


COMM+79 




795 I 




5 


X 1 












7951 




-2861 




1661 




osc 


1. • 




7952 




I 




i *tn 




ROUTINE TO MULTIPLY A 


pilf it u v ci UC — OCCIIlT I ( k CIUC 
UlbM BY rJVt Kt JUL 1 1j * rive 














DIGIT FIELD ADDRESSED 


AT UTQ 1- 1 














DC 


5,0,,, 


LALLlNb btUUtNUc 


0795 7 




<j 








-0000 
















TFM 


•-2,0,8, 


in ni r i r 


07956 


1 6 


07956 


o-ooo 


16860 




CF 


UTC1-1, ,7, 


.1 M 1 iTn 1 A 

B in ui y i |U 


07970 


33 


07957 


-0000 


16870 




TD 


• - l.UTOl-l 




07962 


25 


0796 1 


07957 


16880 




A 


UT0l-ltUT01-l 




0799* 


2 1 


07957 


07957 






A 


LT01-1.UT01-1 




080C6 


2 1 


07957 


07957 


l ionn 




A 


LT01-1.UT0U23 




08018 


21 


07957 


07981 


i ioi n 
!« n 




OB 






08030 


42 


00000 


OOOOO 






OORG 


•-9 




080 32 








i lain 
i of n 




ROUTINE TO EXTRACT NUMERICAL STRIP FROM MONITOR CCNTRCL 












* 


CARD READ IN AREA (MQMTCR READ IN AREA HAS FLAGS IN EVERY 










i io«n 

i !a!n 




EVEN DIGIT POSI T I ON 1 












16 




DC 


5,0,, 


CALLING SEQUENCE 


n _ 




5 








-0000 














U 3 


TDM 


MOOl.O, , 




08038 




09742 


ocooo 


16980 




TFM 


MF02.MF03-20,, 


TFM MFO I , NCHAR 


06050 




09721 


-9 72 1 


16990 




A 


MF01,MF01 , , 


BTM UT03 , ACDR 


06062 


21 


09716 


09716 


1 7000 




A 


MF01.UTC3-1 , , 




0807* 


21 


09716 


08037 


1 70 10 


UT03 A 


TF 


UTC3B*8,UT03-1, 11. 


WHERE NCHAR IS THE NUMBER CF CHARS. 


08086 








! 






m A 3 A. llTOlft^fl 

'▼coiUIUJQtBit 


IN THE F I ELC , ACDR IS THE ADDRfcSS OF 


n2??n 


45 


08 1 24 


08 156 


1 7030 




TDM 


MOO 1,0, , 


THE FIELD -AS IT WOULD BE ADDRESSED 






09742 


UlUUU 






DORG 


• , , 


FCR AN ALPHAMERIC 1QP (SECONO DIGIT). 










1 7050 




DSC 


1, ' , , 




08 12 1 








1 7060 




BB 




UPON RETURN, MOO I CONTAINS MINUS ZERO 


. * 






UbUUU 


1 70 70 




DORG 


•-9 . t 


IF THE FIELC WAS PURE NUMERIC, PLUS 


08 1 2* 








1 7080 




AM 


MF02, 1, , 


ZERO IF BLANK. A RECORD MARK IF IT 


08 1 2* 


1 1 


0972 1 


-000 1 


1 7090 




TD 


MF02,UT038*8,6, 


CONTAINED A RECORD MARK, AND PLUS CNE 


061 36 


25 


0972J 




17100 


UT03B 


CM 


• ♦8, 0,710, , 


IF THE FIELD WAS NON-NUMERIC. 


08 1*8 


14 


2f \ 




17110 




BN I 


• ♦38, 12C0, , 




06 160 


4 7 


08198 


1200 


17120 




BNF 


UTC3CMD01,, 


A CNE DIGIT SOURCE FIELD IS ALWAYS TRANS- 


08 172 








17130 




TDM 


MDC1, 1, , 


FERRED INTO A TWO DIGIT OBJECT FIELD, 


nil at 


1 5 


09742 


0000 1 


171*0 




BB 




SOURCE FIELDS OF MORE THAN ONE DIGIT 


08196 


42 


QQOOU 


UUUUU 


17150 




DORG 


•-9,, 


RETAIN THEIR ORIGINAL DIGIT COUNT. THE 










17160 




CM 


UT03B*8,70, 10, 


LOCATICN OF THE OBJECT FIELD IS GIVEN 


08198 


1* 


08 1 56 




1 71 70 




BN 1 


LT03BO6, 1300, , 


BY MF02 (IT WILL BE IN MF03 ) 


082 1 


* 7 


08 184 


1 300 


17180 




TDM 


MOOUO, 11 




08222 




09742 




1 7 190 


UTQ 3C 


AM 


U TO 3- 1,2 




0823* 


1 1 


080 37 


1; 


1 7200 




C 


UTC3- l.MFOl 




082*6 


2* 


08037 


097 1 6 


17210 




*N I 


UTC3A, 1300 




082 58 




08086 


1 300 


1 7220 




CM 


MF02.MF03-19 






1* 






1 7230 




BN I 


•>*8t 12C0 




08282 


47 


08330 


01200 


172*0 




TC 


MFC 3- 1B.MFQ3-19 




0829* 


25 


09723 


C9722 


17250 




T CM 


MF03-19.0 




083C6 


15 


09722 


OOOOO 


1 7260 




TFM 


MF02,MF03-18 




08318 


16 


09721 


-9723 


1 7270 




SF 


MFC 3- 19 




08330 


32 


09722 


COOOO 


17280 




BH 






083*2 


42 


ooooo 


OOOOO 


1729U 




PORG 


• -9 




083** 














162C-1**3 MONITOR 1 


VERS1QN 2 SUPERVISOR AND I.C.P.T, 








PAGE 


1 7300 




MONITOR SUBROUTINE TO READ A MAP SECTOR INTO 0-99 










17 310 




DC 


5.0 




083*8 












-OCCO 












1 7 32 


UT05 


TR 


UT05B.MAPSCT, . 


CALLING SEQUENCE 


08 350 


3 1 


08466 


01847 


1 7 3 30 




A 


UT05B+6.UT05-1, , 


BTM UT05.DIMNUM 


08362 


2 1 


084 74 


08349 


1 7 3*0 




A 


UT05B*6,UT05-l , , 


WHERE DIMNUM IS THE CIM ENTRY 


0837* 


2 1 


08474 


083*9 


.1 7 > 5 




TD 


UT05AU l,tjT05B*6, , 


WHICH 1$ DESIRED IN THIS SECTOR • 


08386 


25 


08457 


084 74 


1 7 360 




TDM 


UT05B*6,0, 1 1 , 


UPON RETURN UT05-1 CCNTAINS CORE 


08398 


15 


08474 


0000- 


17370 




TFM 


10XX,»*23, , 


ADDRESS OF THE REQUESTED ENTRY 


08*10 


16 


00565 


-8*33 


17 380 




B 


I0GT.UT05A1 ,7, 


(■0.20.40.60,80) 


08422 


49 


00566 


-8460 


17390 




TFM 


UT05-1.0 




08436 


16 


08349 


-0000 


17*00 


UT05A 


TDM 


UTC5-2,XX 




08446 


15 


08348 


OOOOO 


?, 7 'H O 




BB 






08458 


42 


OOOOO 


OCOOO 


/*20 




OORG 


•-9 




08460 








1 7*30 


UT05AI 


DSC 


2,22 




08460 




2 




1 7**0 




22 
CSA 


UT05B 




08466 






X 1 












08466 




-8468 




1 7*50 




DSC 


I.* 




08467 




1 




1 7*60 


UT05B 


DSC 


20,0 




08468 




20 








OOOCCCCCCOOCCOOCCOCO 












17*70 




SUBROUTINE TO TYPE A 


MONITOR CONTROL CARD. 










1 7*80 




DC 


5.0 




08492 












-0000 






" 






1 7*90 


UT06 


BNF 


• ♦l*,MCR02A*U,li, 


RETURN IF INPUT FROM THE TYPEWRITER. 


08494 


44 


08506 


04 1 2P 


1 7500 




BB 






08506 


42 


OOOOO 


CGUUU 


1 7510 




DORG 


•-9 




08508 








1 7520 




RCTY 




RESTORE TYPEWRITER CARR I AGE. 


08508 


34 


00000 


00102 


1 7530 




TFM 


UT06A*ll,MCCBUF*ll , 


..DETERMINE LAST NCN-BLANK COLUMN OF 




16 






175*0 




B 


UTG6B+12. , , 


CARO. 


065 32 


49 


06632 


OCOOO 


1 75 50 




OORG 


•-3 












1 7560 


UT06A 


BD 


UT06B,XX 










AAAAA 
UUUUU 


1 7570 




AM 


UT06A*ll,l 




08592 


1 1 




MACK \ 


17580 




BD 


UTC68*l2tUTQ6A*llill 


06564 


43 


08632 


0855 J 


17590 




AM 


UT06A*U,i 




01576 


11 


0699 1 


—000 1 


17600 




CM 


uT06A*lltNCCBUF»160 


08586 


I* 


06551 


J3160 


1 76 10 




BN! 


UTC6A.1300 




06600 


41 




1300 


17620 




B 


UTC6C 




06612 


43 


08692 


OCOOO 


17630 




OORG 


•-3 




06620 








176*0 


UT06B 


AM 


UT06AM1. 1 




06620 


11 


08991 


•0001 


17650 




TF 


UT06D*iUUT06A*ll 




06612 


26 


08729 




17660 




B 


UT06B-44 




08644 


A* 


06974 


UUUUU 


17670 




DORG 


•-3 




01692 








17680 


UT06C 


TO 


l9996,MCCSUF*lt. 


DUMP INITIAL RECORD MARKS* 


06692 


29 


19996 


13001 


1 7690 




TO 


19999.MCCBUFO 






29 


19999 


13003 


17700 




DNTV 


19996 






j2 


19996 


00100 


17710 




6NR 


•♦l*,MCC6UF*5, , 


RETURN IF R.N. IN COL. 3. 


086B1 






1 1009 


17710 




BB 






06700 


42 


OOOOO 


OOOOO 


17710 




OORG 


•-9 




06702 








17760 




AM 


•♦23,2,. 


SET R.M. AFTER LAST SIGNIFICANT CHAR. 


06702 


11 


06729 


-C002 


177JO 


U7060 


TO 


UT06E+11.XX 




08714 


29 


06771 


OOOOO 


17760 




TO 


•-UMCR01A.6 




00724 


29 


0672N 


04499 


17770 




MATY 


MCCBUF+5,,, 


TYPE REMAI NOER OF CARD. 


00716 


19 


13009 


00 100 


17780 




RCTV 






06790 


34 


OOOOO 


00102 
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PACE 



17790 


UT06E 


TDK 


U T 60 ♦ I I « X X * 6 i 


17100 




BB 




17810 




DORG 


• -9 


17820 




JOB CLOSE-OUT SUB 


1 7830 




OC 


5,C 






-OQOO 


1 78*0 


UTQ7 






17850 








17860 




_ 




1 7870 




an 


• ♦** UT07 1 


17880 




rn 


.ill M^ftMMAl 


17890 




an 


• ♦ « » 00 p i , 


17900 






• ♦ 20 


17910 




OORG 


•-3 


1 7920 






MM 2 I 


17930 




RC T V 




17940 




T C 


U TO 7C » MCQMH* 5 


1 7950 




TDM 


LTQ7Al*ll»0 


17960 




8 


• ♦ 2C 


1 7970 




DOR G 


• -3 


1 7980 


UT07A 


3* 


U TC 7C » 70 1 1 » 


1 7990 




B I 


•♦ 12 »600 t . 


16000 




B I 


• ♦ 1 2 » 700 


18010 




B 1 


•♦12,1600 


18020 




B I 


• ♦ 1 2 t I 700 


18030 




36 


OT07C t 702 


180*0 




BN I 


I TO 76 # 1900 


16050 




TO 


• ♦23,t»23,U, 


1 8060 


UTOTA 1 


BO 


UTC7A,MC0ll 


18070 




WATY 


MM2?,,, 


18080 






MM 2 3 


1 8090 




RC TY 




18100 








18110 






UTO 7A 


18120 




CQRG 


•- 3 


18130 


Uf 078 


TOM 


MCOM« f Q,» 


181*0 




TDM 


MCOMM*l,Q t i 


18150 




TOM 


MCCJMH + 2 iO 


18160 




TDM 


MI03,1,11 


18170 




TO 


lBMmOO ( MCpMM^5 


18180 




BB 




18190 




DORG 


• -9 


16200 


UT07G 


DSC 


1.1 


18210 




I 

OSA 


OSAC* 


16220 




OC 


3. 1 






-ci 




18230 




OC 


6,*Q2' 



RESTORE DIGl T. 



FORGET IT IF *E HIVEN-T DONE ANYTHING. 



TYPE END OF JOB MESSAGE IF FORCED. 
NO -TYPE ONLY IF THE CONTROL CARO 
SOURCE IS NOT THE TYPEWRITER 



REFRESH THE COMMON REGION AND THE 
OVRLAY READ ROUTINE. 



COMPLAIN LOUDLY IF ANY ERROR. 



OPERATOR MUST RESET AND START TC RETRY , 



INITIALIZE NECESSARY INDICATORS AND 

FIELDS. 



BOUNCE BACK. 



162*0 • •••• 
18250 UUO 
18260 
18270 
18280 



18290 
18300 
18310 
18320 
18330 
183*0 
18350 

18360 UT10A 

18370 

16380 

18390 

18400 

18*10 

18420 

18430 UT10B 

18440 

16450 

18460 

18470 

18480 

18490 

18500 

18510 

18520 

18530 UT10C 

16540 

18550 

18560 UTtOO 

18570 

18580 

18590 UTIOE 

18600 

16610 

18620 

18630 

18640 

16650 

18660 UTIOF 

18670 

18671 

18660 

18690 

18700 FO 

18710 Fl 

18720 F2 

18730 F3 

18740 F4 

18750 P5 

18760 *% 



-0402' 

SUBROUTINE TO DETERMINE VALIDITY OF A CONTROL CARO F I ELD* 
TF • ♦23,FO,U. MOVE CALLING SEQUENCE RtCORO. 

TR Fl.XX 

AM FO.l*. COMPUTE NORMAL RETURN AOORESS. 

TF POINT. F 5, . INITIALIZE COLUMN TYPE-OUT POINTER. 



43 
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PUINT-l 
Fl.., 
F * 

LIT 10A*23.MCCBUF-l 
LT10A*23,F5 
IT1CA*23|F5 
IT1CAM1.F6 
MFOl.XX,, 
L TO 3, XX 
LTlCB.MDOl » t 
Fl.,. 
UTIOE, Fl, 
8 F0,,6 
OORG »-3 

BO ITIOC.MDOI,, 
UTIOD.NDOl, , 
F0,F7-4,6, 
F6.1.10, 
• ♦2*. 1200 
•♦13.5 
F7,MF02,6ll 
•-11,6 
FO, .6 
3 

LU0E.F2,, 
B FO.,6 
OORG «-3 
BD LT10E.F3.. 
B F0..6 
OORG »-3 
MATY MM 39, f , 
WNTV POINT-1 
WATY MM45 
BD UTIOF »F4, , 
CP F*,,, 
B F0..6 
OORG »-3 
MATY MM40,,, 
RCTY 

TOM M101.0 
• M6140, 
OORG »-3 
OC 5,0., 

-0000 

DSC 


OSC 



CF 
SF 
SF 
TFM 



TO 
TFM 
BT« 
BNR 

CF 
BO 



BNF 
BNF 
CM 

BN I 

TOM 

TF 

TOM 

B 

OORG 
BD 



INITIALIZE RETURN INC. FLAGS. 
•INITIALIZE CALL TO UT03. 



EXTRACT NUMERIC STRIP IF ANY 

NO -CHECK FCR R.M. 
YES -SET INDICATOR. 
GO TO ERRQR ROUTINE 



IF NOT ALLOWED. 



GO TO ALPHA-S TEST IF ALPHAMERIC. 
GO TO BLANK -S TEST IP BLANK. 
NUMERIC -EXIT IF NO MOVE OESIREq. 
NUMERIC -MOVE DIGIT OR A FIELD. 



GO TO ERROR IF ALPHA-S NOT ALLCWEO. 
QO TO ERROR IP 8LANK-S NOT ALLOMEO. 
TYPE ERROR MESSAGE. 



BRANCH IP PHASE TO BE DELETED. 
SET RETURN I NO. 



TYPE PHASE OEUTEO MESSAGE 





OSC 



DSC 


DC 
-0 
OC 

-o 



1,0,, 
l,C, 
1*0., 
1,0,, 
2.0,. 
2,0,, 



TURN OFF ALREADY READ INDICATOR 
NINO-UP. 

CALL AND RETURN VECTOR. 
R.M. ERROR. 
ALPHA ERROR. 
BLANK ERROR. 
END PHASE ON ANY ERROR. 
STARTING CARD COL. 
MHO LENGTH. 



08762 


15 


0672N 


oocoo 


08774 


62 


00000 


OOQOO 


08776 








08760 




5 




01782 


43 


08796 


02652 


06794 


42 


00000 


00000 


06796 








08796 


43 


08640 


08781 


068C6 


25 


06831 


02655 


06620 


43 


06640 


10730 


06832 


49 


06652 


ooooo 


08840 








01640 


39 


10169 


00100 


06852 


34 


00000 


00102 


08864 


25 


09122 


02857 


068 76 


|5 


09003 


ooooo 


01888 


49 


06906 


OOOOQ 


08696 








08896 


34 


09122 


00701 


08908 


46 


08920 


00600 


08920 




089 32 


00700 


08932 


46 


08944 


01600 


08944 


46 


06956 


01 700 


08956 


36 


09 122 


00702 


08968 


47 


09060 


1900 


08980 


25 


09003 


0900L 


06992 


43 


06896 


1 C 790 


09004 


39 


10191 




090 1 6 


39 


10277 


00 100 


09028 


34 


00000 


00102 


09040 


48 


00000 


OOOOO 


09052 


49 


08896 


OCOOO 


09060 








09060 


15 


02852 


OOOOO 


09072 


15 


02853 


ooooo 


09084 


is 


02854 


OCOOO 


09096 


15 


09841 


OOOOJ 


09108 


25 


00440 


02857 


09120 


42 


COCOO 


CCCC-1 


09122 








09122 




I 




09127 




5 


X 1 


09127 




J9639 




09130 




3 




09136 




6 




09138 


26 


09161 


Q959Q 


09150 


31 


09599 


OOOOO 


09162 


1 1 


09596 


— COO I 


091 74 


26 


09766 


09604 








PAGE 


09186 


3 3 


09767 


OCOOO 


09 198 


32 


09599 


V v w w w 


092 10 


32 


09602 


VvUUv 


09222 










* * 




0960* 


09246 


2 1 


09293 




092 58 


23 


0928 1 


09606 


092 70 


16 


09716 


-0000 


09282 


1 j 


08036 


— COOO 


09294 




09338 


09 742 




33 




WW WWW 


093 1 8 


4 3 


09462 


09599 




49 


0959Q 


UUUUv 


093 36 














og _ 


09350 




09462 


09742 


09362 


44 


0959Q 


09607 


09374 




09606 






47 




1200 


09398 


15 


094 1 1 


00005 


094 10 


26 


0961 J 


0972 J 


09422 


15 


094 1 1 


00006 


09434 


49 


0959Q 


ooooo 


09442 








09642 


43 


09462 


09600 


09454 


49 


0959Q 


OOOOO 


09442 








094A2 


43 


09462 


0960 1 


09474 


49 


09590 


OOOOO 


09412 








09462 


19 


10561 


00 100 


09494 


31 


09767 


00100 


095C6 


3« 


10647 


00100 


09516 


41 


09950 


09602 


09930 


33 


09602 


OOOOO 


09942 


49 


09590 


OOOOO 


09550 








09590 


19 


10409 


00 100 


09542 


14 


00000 


00102 


09574 


15 


09040 


OOOOO 


09566 


49 


01*50 


ooooo 


09594 








09996 




f 




09599 




1 




09600 




I 




09401 




1 




09602 




I 




09604 




2 




09*06 




2 





«4 
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PAGE 



18770 




DC 5 • 1 1 


MOVE TO AOORESS FOR NUMERIC OATA. 


096 1 1 




5 








- C C C 












1 8780 




DSC 1 » ' » 




096 12 




1 




1 8790 




NON EXECUTE TESTER. 












18800 




DC 5,0 




096 1 7 




5 








-0000 












18810 


UT 1 1 


BD • ♦ 24, I , , 


PICK THE ENTRY. 


096 1 8 


4 3 


09642 


09617 


1 8820 




BNF LTl 1A»12»NQNEX » , 


TEST IF EXECUTE INHIBITOR IS ON. 


09630 


44 


097 10 


00457 


1 8830 




BNF • ♦ 20 » MCOMM* 2 » » 


YES -TYPE ONLY IF NOT ALREADY TYPED. 


09642 


44 


09662 


02854 


1 8840 




8 L T I I A 




09654 


49 


09698 


00000 


1 8850 




DOR G »-3 




09662 








1 8860 




WATY MM19 




09662 


39 


10119 


00100 


188 70 




KCTV 




096 74 


34 


00000 


00 102 


1 8880 




SF MC0MM*2,,, 


TURN ON EXECUTION INHIBITOR. 


09686 


32 


02854 


ocooo 


1 8890 


UT 1 1 A 


CF NONEX 




09698 


33 


00457 


OCOOO 


1 8900 




BB 




09710 


42 


AA AAA 

00000 


AAA A A 
00000 


18910 




DORG ♦ 




09712 








18920 




MONITOR SCRATCH FIELDS 










189 30 


MP01 


DC 5,C 




09716 




5 








-0000 












18940 


MF02 


DC 5,0 




09721 




5 








-0000 












18950 


MF03 


DC 20, C 




09741 




20 








-OOOOOOCCOOOCOOOOOOO 












1 8960 


MOO 1 


DSC 1,0 




09742 




I 




18970 


M002 




DSC 1,C 




09743 




1 




1 8980 


MR02 




OSC 20,0',, 


HOLDS DOA FOR PROGRAM MONITOR IS CALLING. 


09744 




20 








0000000000000000000' 












1 8990 


POINT 


DC 5,0,, 


LOCK Y HERE, MA. 


09768 




5 








-0000 












19000 




OSC 1,', 




09769 




1 




19010 




INITIALIZATION RECOROS. 










19020 


IREC 


DSC 2,0 




09770 




2 








00 












19030 




DC 12,-0 




09783 




12 








-ooccocccoo- 












19040 




DC 4,0», 




09787 




4 








-00' 












19050 


JREC 


DC 1,0 




09788 




1 




19060 




DSC 5,-C 




09789 




5 








coco- 












19070 




DSC 5,-C 




09794 




5 








0000- 












19080 




OSC 5,C, 




09799 




5 








0000' 












19090 


KR EC 


DC 1,0 




098C4 








19100 




DC 2,-C 




09806 




2 




191 10 




DSC 1,-0 




098C7 




1 





19120 
19130 
19140 

19150 L R EC 

19160 

19170 

19180 

19190 

19260 MR E C 

19210 • 
19220 MIOi 

19230 MI03 

19240 

19250 MM01 
19260 MM02 
19270 MM03 
19280 MM04 
19290 MM05 
19300 MM06 
19310 MM07 
19320 MM08 
19330 MM09 
19340 MMIO 
19350 MMU 
19360 MM 16 
19370 MM17 
19380 MM19 
19390 MM21 
19400 MM22 
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DC 2,-0 



DSC 2,-0 
0- 

DSC 2,-C 
0- 

DSC 2.-0 
0- 

DSC I,', 

DSC 19,0* 
OOCOCOCCCOOOCOOOOO' 

THE FOLLOWING INDICATORS ARE NON-ZERO OR FLAGGED IF TRUE. 
OSC 1,0,, CNTL CARD RE AO I NO* 



OSC 1,0,, -JOB- CARD SEARCH 1N0. 



MONITOR DAC-S 
DAC 24, ENTER MONITOR CNTL REC.'t 
ENTER MONITOR CNTL REC • • 
DAC A, JOB , 

JOB 

DAC 4, TYPE, 
TYPE 

DAC 4,PAUS, 

PAUS 

DAC 4.SPS . 
SPS 

DAC 4.SPSX, 

SPSX 

DAC 4, FOR , 

FOR 

DAC 4.F0RX, 

FORX 

DAC 4 ,DLP * 

DUP 

DAC 4.XEQ , 
XEO 

DAC 4.XEQS. 
XEOS 

OAC 32. PACK NUMBER ERROR ON MODULE 0. •» 
PACK NUMBER ERROR ON MODULE 0. • 

DAC 42, SET SSM4 TO IGNORE, OFF TO RE-ENTER CARD.', 

SET SSW4 TO IGNORE, OFF TO RE-ENTER CARD.' 

OAC 25, EXECUTION IS INHIBITED. *, 

EXECUTION IS INHIBITED, • 

OAC U.ENO OF JOB', 

END OF JOB* 

OAC 43, CANNOT RESTORE COMMON -RESIT ANO START TO • , 
CANNOT RESTORE COMMON -RESET ANO START TO * 



09809 
09811 
09812 
09813 
09814 
09816 
09818 
09820 
09821 

09840 
09841 

0984 3 
09891 
09899 
09907 
09915 
09923 
09931 
09939 
0994? 
09955 
09943 
09971 
10019 
10119 
101*9 
10191 
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19410 MM23 

19*20 MM25 

19430 MM26 

1944Q ""30 

19450 MM31 

19460 MM32 

19470 MM33 

19480 MM36 

19490 MM37 

19500 MM38 

19510 MM39 

19520 MM40 

19530 MM45 

19540 
19550 

19560 NCC01 



19580 MCD02 
19590 



19600 
19610 
19620 
19630 
19640 
19650 
19660 
196 70 
196d0 
19690 
197CQ 



MCDC3 
MCD04 
MCDU5 
HCC06 
MCDC7 
MCD08 
MCC09 
MCCIO 
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OAC 6, RETRY* , 
H E TR Y • 

OAC 10.EXECUT10N* , 
EXECUT IUN» 

OAC 21, JOB CARO CROUP ONLY ' t 

JOB CARO GROUP ONLY* 
DAC I 2 i MUST RELOAD • , 
MUST RELOAD* 

DAC 18, CONDITION IGNORED' » 
CONDITION IGNORED ' 
OAC 8, COMPARE', 
COMPARE • 

DAC 12, -ENTER CARD • , 
-ENTER CARD* 

DAC 18, SYSTEM DIM ERROR *, 

SYSTEM CIM ERROR • 

DAC 18, OBJECT DIM ERROR », 

OBJECT DIM ERROR • 

DAC 19, OBJECT NAME ERROR 

OBJECT NAME ERROR • 

DAC 24, ERROR IN FIELD AT COL. '» 

ERROR IN FIELD AT COL* • 

DAC 19, PHASE TERMINATED. », 

PHASE TERMINATED. • 

DAC 3,. 

FOLLOWING ARE MONITOR-S QUICK AND CIRTY DIGIT DECODERS. 
DOR G SYS0RG*«288 
DSC 2,-01 
OJ 

DSC 8,01010000 

010100CO 

DS 0,*»1 

DC 2,6 

-6 

DC 2,8 
-8 

DC 6,1CCOOO 
JOOOOO 

DSC 1CC010COOGOO 
OOIOOOOOCO 

osc iq.cioioioico 
oioioioico 

OSC 10,C001010COO 

0O01O100C0 

DSC ICCOOGCOOCCO 

OCOOOOCOCO 

DSC 10.C124444444 

0124444444 

DSC 1CC443444444 

0443444444 

DSC 10, 1357911 111 

1357911111 



DC 



2,-20 
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10277 
10289 
10309 
10351 
10375 
10411 
10427 
10451 
1048 7 
10523 
10561 
106C9 
10647 



10690 
10690 



10700 
10701 

IC7C3 

10709 

10710 

10720 

10730 

10740 

10750 

10760 

IC770 

10781 

1C783 



6 

10 
21 
12 
18 

8 
12 
18 
18 
19 
24 
19 

3 



10 
10 
10 
10 
10 
10 
10 
2 
2 
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OC 
LN 
DC 



19740 MCUll 



19750 
19760 



-40 



DSC IC, 1234567890 
1234567890 

SYSTEM DIM ENTRY SECTOR -THESE CDA-S ARE PICKED UP 
OORG SYS0RG*8400, BY THE CCLO START ROUTINE. 



19770 SPSCCA OSC 1,0., 





ODA FOR SPS ASSEMBLER. 



1C785 
10787 
1C789 
10790 



10802 
10802 



2 
2 
10 

1 • 
5 X 



19790 
19800 



DC 3,0 
-00 

DSA 0,0 



108C7 
10810 



-OCOO 
3 



19820 FORCDA DSC 


19830 DSA 



19840 
19850 



1,0. 





DC 3,0 
-00 

DSA C,0 



DOA FOR FORTRAN COMPILER. 



10815 
10820 
10821 

10822 

10827 

10827 
10890 



-0000 
-0000 
1 



I 

5 X 



-0000 

1 



19870 OUPCOA DSC 



19880 DSA 



DSC 

1.0* 



19890 
19900 



OC 3*0 
-00 

OSA 0.0 



19920 EQUCOA OSC 



199)0 OSA 



-00 



1*0* 



3*0 



PDA FOR OUP SUPERVISOR. 



OOA FOR EQLI VALENCE TABLE. 



4* 



10815 
10840 
10841 

10842 

10847 

10847 
10890 

10855 

10855 
10840 
10841 

108*2 

10847 

10847 
40870 



-0000 

•oooo 
1 



1 

s x 



-0000 

1 



-0000 
•0000 

I 



I 

9 X 



•0000 

1 
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19950 




DC 


6 , • 




10876 




6 








-COCO' 












19960 




IORT LOAD PROCESSOR 


FOR NAMED PROGRAMS SECTION 2 










19970 




OORG 


SYSCRG*850Q 




109C2 








19980 


ABOO 


BNF 


AB05,AA02A*5# . 


TEST FOR A SPECIFIED LOAD ADDRESS. 


10902 


44 


11134 


00234 


19990 




TF 


AAC4*l 1 ,AA02A»4t » 


YES ^MOVE TO CALLING PARAMETER RECORD. 


10914 


26 


00295 


00233 


20000 


ABO 1 


SF 


AAQ2A*5. . t 


INITIALIZE SCAN. 


10926 


12 


00234 


COOOO 


20010 




TFM 


IQxx,»«23 




10938 


16 


00565 


JC961 


20020 




B 


IOSK.AB08, 7 




10950 


49 


00554 


J1363 


20030 




TF 


ABC9A*5,MAPENT*5 




10962 


26 


11384 


02149 


20040 




TO 


A8C9A , TEMP- 5 




10974 


25 


11379 


02014 


20050 




TO 


ABlC*4U,AB09, f 


SET A GROUP MARK FOR LOOP TEST. 


10986 


25 


11805 


11378 


20060 


AB02 


TFM 


IOxx,»*23t . 


READ 4 EQUIVALENCE TABLC SECTORS • 


10998 


16 


00565 


J1021 


20070 




B 


IOGT, AB08*8, 7 




11010 


49 


00566 


41371 


20080 




TFM 


AB03HltA6lO*U tf 


INITIALIZE 4 SECTOR SCAN. 


11022 


16 


11045 


J1405 


20090 


AB03 


BNR 


32, XX, , 


TEST IF TABLE IS EXHAUSTED. 


11034 


45 


11066 


00000 


20100 




TFM 


BK P T i ABO 1 




11046 


16 


00467 


JC926 


20110 




B 


ERROR*72 




11058 


49 


00704 


ooooo 


20120 




OORG 


• -3 




11066 








20130 




C 


ABC 3* 1 1 .AA02A+ It, 


6, COMPARE CURRENT ENTRY. 


11066 


24 


1104N 


00245 


20140 




BI 


AB06, 1200, . 


BRANCH IF FOUNO. 


11078 


46 


11154 


01200 


20150 




AM 


ABC3* 1 1*16,, 


N(J -ADVANCE ACORESSING. 


1 1090 


11 


11045 


-0016 


20160 




55 


ABC 3, AB03* 1 1 , 1 I , 


TEST IF 4 SECTORS EXHAUSTED. 


111C? 


55 


11034 


U04N 


20170 




AM 


ABC9A*5» 4, , 


YES -INCREMENT SECTOR ADDRESS. 


11114 


11 


11384 


-C004 


20180 




B 


AB02 




11126 


49 


10998 


OOOOO 


20190 




DORG 


•- 3 




11134 








20200 


AB05 


TF 


AAC2A* 16,AA02A*12 


, .MOVE NAME FCR NO LOAD ACCRESS CASE. 


11134 


26 


00245 


00241 


20210 




B 


ABO 1 




11146 


49 


10926 


OQOOO 


20220 




DORG 


• - 3 




11154 








20230 


AB06 


AM 


ABO 3* I 1 ,4, , 


MOVE FOUND DIM ENTRY. 


11154 


11 


11045 


-C004 


202*0 




TF 


AA04+6, ABO 3* 11,11 




11166 


26 


00290 


1 104N 


20250 




BNF 


•»24,AA02A*26, , 


TEST IF REPOSITIONING OESIRED. 


11178 


44 


11202 


00255 


20260 




SF 


AA04, , , 


YES -SET INDICATOR. 


11190 


32 


00284 


OOOOO 


20270 




BD 


•♦24,AA02A*26i , 


TEST IF EXECUTION OESIRED. 


11202 


43 


1 1226 


00255 


202(10 




SF 


AA04* 1 , , t 


YES -SET INDICATOR. 


11214 


32 


C0285 


COOOO 


20290 




TR 


, ABO 7 » t 


OVERLAY SECTION 1 WITH TERMINATION 


1 1226 


31 


00000 


1 1246 


20300 




B 


» , , 


ROUTINE. 


11238 


49 


COOOO 


OOOOO 


20310 










11246 








20320 


AB07 


TFM 


IOXX,23*, 


RESTORE CORE. 


11246 


16 


00565 


-0023 


20330 




B 


ICGT.AAQ3, 7 




11258 


49 


00566 


-0261 


20340 




TFM 


DF ILE ♦ I 1 , TT 1 , , 


DUMMY UP A GET ENTRY TO IORT. 


11270 


16 


01933 


- 1 752 


20350 




TF 


10XX,AA02A»23 




11282 


26 


00565 


0025.? 


20360 




TR 


CM TWO , AA04 




1 1294 


31 


02170 


0028^ 


20370 




TFM 


OLCCY»l,MCVLt , 


SET UP TO RESTORE MP Y TABLE AND 


1 1 306 


16 


02 132 


-0098 


20380 




TFM 


HAL T*6, X0l*36. i 


EXECUTE LCAO. 


11318 


16 


00462 


- 1898 


20390 




TR 


OLUDA, 103 




11330 


31 


0044 1 


00103 


20400 




B 


OVRL AY, DSA01 , , 


YOU-RE ON YOLR OWN NOW. BOY . 


1 1342 


49 


00468 


19635 


20410 




OC 


3,3 




11356 




3 








-03 














20420 




DC 


6,0' 




11362 




6 








-0000* 












2043C 


AB08 


DSC 


3,2 20 




11363 




3 








220 














204*0 




DC 


4,2 




11369 




4 








-002 














20450 




OSC 


l» • 




11370 




1 
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PAGE 


20460 




CSC 


2.22 




11371 




2 




20470 




22 
DSA 


ABCSA 




11377 




5 


X 1 












U377 




J 1379 




20480 


ABO*) 


OSC 



1.0, f 


GROUP MARK FOR TEST. 










20490 


AB09A 


DSC 


1*1 




1 1379 




1 




20500 




I 

DSA 







11384 




5 


X I 












11384 




-0000 




20510 




DC 


3.4 




1 1387 




3 








-04 














20520 




CSA 


ABIC 




11392 




5 


X 1 












11392 




J1394 




20530 




DSC 


1. • 




1 1393 




I 




20540 


ABl 


00 




READ BUFFER FOR FOUR SECTORS. 


11394 


00 


nnnnn 


uuuuu 


20550 




DORG 


19982. 


CONTROL TO WRITE CN DISK. 


19982 








20560 




OSC 

I 


It 1 




19982 




I 




20570 




DSA 


DSA08 




19987 




5 


X 1 












19987 




J9659 




20580 




DC 


3.9C 




19990 




3 








-90 














20590 




DSA 


SYSORG 




19995 




5 


X 1 



19995 
19996 



50 
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A >* m * i.. 


^ loi- 


A b U 


10902 


C S A39 


1966 .5 


L ACCR 


wC* 19 


HCOGT 


IC750 


8IGT«B 


Q j 766 


ABO; 


i 092 b 


(,', A*Q 


197*3 


LCA01 


OCO 72 


MC008 


10760 




CO 80* 


A802 


10998 


D S * *- ' ' 


1702* 


LCA02 


OC 1 32 


MC009 


1C770 


C IMEN T 


Q0*02 


ABO 3 






; ^600 


LCA03 


0C273 


"CO 10 


1C781 


CUPCC* 


1 C 8 * 2 


AB05 




E 00 10 


006 3 2 


lCao* 


GC120 


HCD1 1 


1C790 


EMSG10 


01081 


ABO 6 


1115* 




00 7 38 


L CA06 


CC180 




02 852 


t H s G i 1 


cirn7 


AB 7 




E0050 


8 8 


I L AC 7 


CC22 ) 


ncRoi 


0*068 


EH So t 3 


wo* 




11)63 


f i q r n 


008 *0 


i C #08 


c 2 3 7 


MC R 3 


0* 1 88 


6 * S 2 


C l ' j i ' ' 


A8 9 A 






009 2* 


L C A09 




M.C R u * 


0* iC* 


EMSG2 I 


o i o a 


AB09 


113 7 8 


t- 9 ti 


1' 9 5 ^ 


LCBQ 1 


CC09/2 


("ICR 5 


0*5 72 


EQUCL A 


10 8 6 2 
















0*935 


FOR CDA 


1 Q ti 2 2 


A JOB 




EQl'o 


1 5 2 


LCB08 


CC255 


«C >L 


00098 


HOLLt R 


(J 1 3 9 


B I 


01581 


E C A L i. 


180 % 


L C 809 


OC 26 3 ' 


MQO l 


09 7*2 


1 6MMUC 


C * * 


ft ft U E K 


012 32 


£ (i Jf 1 T 


i 6 3 3 


I C B 1 


0C2 78 


MD02 


097* 3 


I KM** T 


G1C2* 


ftK«» r 


00*6 7 


EMSGl 


l ' * 7 


LRA02 


OC I 76 


MOOA 


01791 


LCA02 A 


C 2 5 3 


8N 1 


CO* 9 2 


EMSG2 


1 i : 3 7 


4 RAG 5 


0C269 


"DPOl 


06806 


L C A G 6 A 


CO 20* 


check 


C I 2 70 


E*SG3 


01121 


L R A06 


CC28 3 


KERR 


00880 


LDINPT 


00*28 


CME K 1 


013*2 


E MSG* 


01127 


L REC 


0981 J 


ME S I 


0081 3 


MAPENT 


021*4 


CHEK2 


013 78 


E MS G5 


113 3 


HAOOO 


2*02 


ME S2 


00935 


MAPSC r 


018*7 


Chk 1 


01 020 


EMSG6 


01139 


MAO 10 


02 5*6 


MFSSG 


00956 


MB080A 


3 3*6 


CHK2 


013*0 


E MSG7 


011*5 


HA02C 


02 769 


MF01 


09716 


M B 1 1 A 


03522 


Chk 3 


013 76 


EMSG8 


01151 


MA025 


02777 


MF 02 


0972 1 


I 1 B 


03566 








nf if 7 






MF03 




MC AGO A 


000 79 


C I N I f 






J: * 




ft inir 






MCC8UF 


I 3000 


CNThO 


ft3 i 7n 


p __ 




Mftfl *n 

. . *^ 




me rn? 


_ ' ° 


MCRC 1 A 


0**5 5 




02 802 


p-o a n p 


, - 




ni l f> * 


1 1 




MCR02 A 


0*116 


f DUN T 


1 13 3 






MAO »n 

Jl ^ 








MCR 0* A 








- 


• QtQQ 




n i i 4 3 


M I 3 


098* 1 


MCR05 A 


0*628 


OF I LE 


ni o>~> 




^ °l 




n {>i* 


m i«ni 






06778 


o t n** 










n ! j 14 


m mn> 




MFT05C 






n n u i k 

r n a i ? 


■ >•*■ 






^ TV 


JB03 
















a i 1 


U 3 390 


MJfiO* 


051*2 






n i n 


nin* 




ro n 




03*22 


MJ810 


052 5 


MJ80 3A 






r i i ? t 


F 7 


no ii 


H8 1 1 




MJBll 




M J ft 3 B 






ni i 


^ J 


00*29 






J812 




M J B I 2 A 


5*82 


OR I VF 






00866 




n * t r 


M Ift 1 ^ 




M J B 1 i A 


055 38 


D S AGO 


I 960C 


rT^T 


01156 


MA l an 








M J 8 1 5 A 


056 78 


US* 1 


19635 


nni 




MAI o«i 




W a T 




M JB50A 


0617 


GSAQ2 




H03 


D 1*6 2 




i 7 J* 






MJ855 A 


Ob 1 8 * 


OSAO* 


1 963^ 


HO* 


1*8 6 


WB2 1 




M 




MONO AL 


G 7 9 6 


OS A06 


1 96* C 


HA). ¥ 


00*56 




„ „ 




^ J. ! > 


MSP 5 4 




OSAO 7 


I 9656 




00*3* 


... _ 

„ .j 5 


" 'it 


v J !* ' £ 




•* Sr* 1 tt 


06 5 07 


S A 8 


4 965 9 


I NDS 






" u ^ 

l ' , 


>>• i - j ] '■■ 




M S P 5 C 


i j ft 5 2 1 








Q06 31 






■ f»» 1 ^ - " 




" S P 3 'i C 


06 5 3 5 


S A I 


19 7*9 


I C C A i. 


007 16 


*» • v .- 




«» ! ''2 


fiQ8Q 




7 9 


l; < A 1 ) 


1 9 76 I 


; q (, f 




^ I >' 


" ;. *' 






M X g J ' i 


", 7 | * 6 


SA I 2 


I 9786 


I OP A 


"j i 7 6 


'•*• ^ * .j i 




«>«c* 


0990 7 


M X Q u 6 ft 


: j 1 '. i M 


0SA13 


1 9 7 72 




w . 


#0* 


f 'M M 


W MQ 5 


09915 


m x q o h e 


v. 7 j 8 6 


S A 1 4, 


1 9 7 7 7 


j ::: ,» T 


00^32 


*»'.,A05 


o c <f * 4 


**Gt 


09 523 


MXU06C 


7*10 


0SA1 5 


1 9 78 3 




00520 


w< A06 


002 50 


««0 7 


09931 


NMf. i! A 


11&2 


OS A I 6 


i 9 76 f 


ICSK 


0055* 


MCCOi 


K690 


#«"0a 


09939 


t.iv«L ay 


00*68 


OSA I 7 


i •' 7 


ICXX 


00565 


MCCQ2 


1C700 




099*7 


A A 2 A 


00?2S» 


OSAI-8 


H > 9 ; 


IREC 


LW'7 70 


ncco 


IC7 10 


MMiO 


09955 


AAQ2 


00 120 


i)SA I v 


19 795 


JLTF 


010 36 


i*CCO* 


1 C ? 2G 


■ HH) I 


09963 


A AO 3 


026 1 


0SA2C 


1 9798 


JREC 


09788 


MC.CG5- 


i C 7 >^ 


M*16 


Q9971 


AAG* 


CU28* 


0'>A21 


1 9630 


K R £ C 


US»«0* 


MC 006 


1C7*0 


7 


1C035 



5 1 
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MM 1 i 


10119 


MX0Q5 


I !?£(> 


RETHV 


010** 


UT058 


oa*6« 


X X 


CuOOO 


MM2 i 


10169 


MX006 


7316 


R M 1 


02210 


UT05 


08350 


y c o 


C0680 


MM 2 > 


10 19 1 


MXQ07 


C7*18 


RM2 


02215 


U T 6 A 


085*0 


V l A 


C0836 


*M2 1 


1027 7 


MXQ08 


C7*7 8 


RMAP 


0096* 


UT068 


08620 


r o i « 


CC86C 




10289 




C 7590 


RNAM 


00720 


. TGt(. 


86 5-: 




CO 768 


«M?6 


10309 


MXQ10 


07610 


■ SEEK 


01*96 


L'?06D 


087 i * 


Y02 


00892 


MM30 


10351 


MXQtl 


076*2 


S!OP 


0180* 




0876^' 


r06 


C1008 


MM 31 


10375 


MXQ12 


C 76 7* 


SIOXX 


01252 




0«*v* 


?{, 7A 


C1128 


MM 32 


10*11 


MX013 


07718 


SK01 


01*76 


UT 7/- 


i as. 1 1, 


Y C 7 


01116 


MM 3 3 


10*2? 


MXQ20 


0779a 


SK02 


0160* 


l .'0 7J5 






00*16 


MM 3 6 


10*51 


MXQ50 


0781 3 


5K03 


oi Toa 


Uf fC 


o*u:u 


£01 


CC9C8 


MM 3 7 


10*87 


MXQ55 


0782? 


SKO* 


021*3 


W t u } 


08i'-S k ' 


2 02 


CO-* 5 2 


MM 3d 


1P52J 


NEXT 


C0971 


SRA01 


00072 


ut ia* ■ 


092 70 


I 3 


C0996 


MM 


105b I 


MOP 


01068 


SRA02 


00060 




193^8 


io* 


CI 05 2 


MM*0 


I0t>0 9 


NOERR 


C0656 


SR AO 3 


00152 


\(K 




2 05 


C0.8C8 


MM * 5 


] Gfj* 7 


NONE X 


CO* 5 7 


STEPS 


01200 




9*6« 


'•;A VO'UA 


CUT? 


MR02 


097** 


OLOCV 


02 131 


TEETH 


01211 




09**2 


SF01«T 


00*26 


MR EC 


09821 


010 DA 


cc**t 


TEMP 


02019 


uUOf- 


C9f 53 


SPSOOA 


4 0802 


MSP01 


06198 


QTEST 


CO 768 


TEST 


00632 


UTIO 


091 7i 


SPSMI.P 


CC*68 


MSPG2 


06218 


POINT 


C9768 


Til 


01752 


U T 1 S A 


0^»9 8 


S«»iti)C 


CC*25 


MSP03 


06*30 


RCALL 


01819 


UTOl 


07958 


UT U 


096. ft 


SUPENT 


02 9 J* 


MSPO* 


06*7* 


SOIMI 


00836 


UT03A 


080*16 


**txr 


CC7 2* 


SUPRET 


01833 


MXQOi 


06910 


ROIM 


C0788 


UT03B 


081*8 


wTESt 


OC 7 12 


SVSCAt 


00*75 


MXQ02 


069*2 


RDVCD 


0100* 


UT03C 


0823* 


XOl 


01662 


SYSORG 


02*02 


MX003 


07078 


REPOS 


C0512 


UT03 


08036 


A03 


00988 


UT05AI 


08*60 


MXQO* 


0719* 


RE TN 


01682 


UT05A 


08**6 


X04 


01212 


U107AI 


08992 



END OF ONE ASSEMBLY. 
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00010 
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00020 


CORG 


25C0 




02500 








00030 


• WRITE SEGMENT 1 Of LOAOER CN DISK. 












00040 


TRY I 34 


0C0NTl,70l 




02500 


34 


02584 


00701 


00050 


38 


0C0NT1, 702 




02512 


38 


02584 


CC702 


00060 


ON I 


RIGHTI, 1900 




02524 


47 


02560 


01900 


00070 


H 






02536 


48 


00000 


00000 


00080 


B 


TRY I 




02548 


49 


02500 


ooooo 


00090 


RIGHTi TRA 






02560 


36 


00000 


00500 










02572 


49 


00000 


ooooo 


00100 


DC0NT1 OSC 


9, 1 19600009 




02584 




9 






I 196C00C9 












001 10 


DSA 


CAROIN- 10 




02597 




5 


* 1 










02597 




-0502 




00120 


CORG 


502 




00502 








00130 


FAKE OC 


2.C 




005C3 




2 




00 140 


• DISK INPUT PROGRAM. [ F CARD INPUT, BRING IN SEGMENT 2. 












00150 


8 


LOADER 




00504 


49 


01266 


ooooo 


00160 


CORG 


• -4 




005 1 1 








001 70 


• INPUT CONTROL FOR DISK INPUT, ODA IS AT CNTL, CYLOV IS LCCAT1 


CN 










00180 


• OF CYLINDER OVERFLOW ROUTINE, LD 3 IS ERROR MESSAGE t CK IS 












00190 


• NORMAL 


EXIT. 












00200 


NORM DC 


1,7 




005 1 1 




1 




002 10 


P 

CSA 


CNTL .CYLOV 




0Q516 




5 


x 2 










0C516 




-0920 












00521 




-0554 




00220 


OC 


2,7 2 




00523 




2 




00230 


P3 
DSA 


OK 




00528 




5 


X 1 










00528 




-06 30 




00240 


DC 


1, ' 




00529 




1 




00Z5Q 


• SECTOR ADDRESSES AND COUNTS F OR DISK INPUT. 












00260 


CNTL I DC 


8,C0100200 




0C537 




8 






-0100200 












002 70 


CNTL2 DC 


8,00200100 




00545 




8 






-020Q1CO 












00280 


CNT DC 


8,CC3Q0C00 




00553 




8 






-0300000 












00290 


• CYLINDER i 


OVERFLOW ROUTINE, 












00300 


• IF OVERFLOW OCCURRED, UPDATE ARM PQSITICN CODE FOR IOCS. 












00310 


CVLOV AM 


ARM, 1, 10 




00554 


1 1 


00464 


000- I 


00320 


• READ ONE OR TWO SECTORS FROM NEXT CYLlNOER, AND CONTINUE. 












00330 


TF 


DIS-i , CNTL2 




00566 


26 


009 3 3 


00545 


00340 


AM 


CNTL ♦5,1 




00578 


11 


00925 


-C001 


00350 


BD 


MORE »CNTL*5 




00590 


43 


00610 


00925 


00360 


8 


DIS 




00602 


49 


00934 


ooooo 


00370 


CQRG 


• -3 




00610 








00380 


MORE TF 


CIS- I ,CNTL1 




00610 


26 


009 33 


00537 


00390 


3 


CYL0V*24 




00622 


49 


00578 


OOOOO 


00400 


CORG 


3 




00630 












53 
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00410 


•NORMAL EXIT. INCREMENT SECTOR ADDR. BY 3, DECREMENT COUNT BY 












00420 


• GO TO 


BEGIN PROCESSING INPUT. 












00430 


OK TD 


0K423.0IS-6 




00630 


25 


0065 3 


00928 


00440 


AM 


CN1L*5,XX 




00642 


11 


00925 


-0000 


00450 


SM 


MAPENT*8,3,9 




0Q654 


12 


00410 


00-03 


00460 


B 


F IN 




00666 


49 


01092 


occoo 


00470 


CORG 


• -2 




00675 








00480 


• CONTROL TO BRING IN SEGMENT 2. 












00490 


DC 
P 


1.7 




00675 




1 




00500 


DSA 


C0NT2, CYLOV 




00680 




5 


X 2 










C0660 




-0694 












00685 




•0554 




00510 


DC 
P4 


2,74 




00687 




2 




00520 


CSA 


CARD IN 




00692 




5 


X 1 










00692 




-0512 




00530 


• CCA TO BRING IN SEGMENT 2. TRANSMITTED TC OUT BEFORE USAGE. 












00540 


CC 
t 


1, • 




00693 




I 




00550 


DC 


l.c 




00694 




1 




00560 


DSA 


CARDAD 




00699 




s 


X 1 










00699 




J9609 




00570 


DSC 


3,3 




00700 




3 






003 














00580 


DSA 


CARDIN^IO 




00707 




5 


X 1 










00707 




-0502 




00590 


DSC 


It* 




00708 




1 




00600 


• ACDRESS TO BRANCH TO AFTER OISK READ ERROR. 












00610 


DSA 


OIS 1 




00713 




5 


X 1 










0071 3 




-0934 




00620 


• LOAD AOORESS FOR INPUT. 












00630 


OC 


5,0 




00711 




5 






-0000 












00640 


• FOR OISK 


INPUT, MAS CHARACTER COUNT REACHED 300... 












00650 


CM 


CHAR 1,300 




00720 


14 


00863 


"0300 


00660 


BNE 


• ♦32 




00732 


47 


00764 


01200 


00670 


• IF SO, GET MORE INPUT. 












00680 


TF* 


CO 




00744 


16 


00439 


-0000 


00690 


B 


DISK 




00794 




00864 


OOOOO 


00700 


OORG 


•-3 




00764 








00710 


• IF NOT, ARE WE READY FOR A NEW 75-CHARACTER GROUP... 












00720 


C 


CHAR1,C 




00764 


14 


C0643 


00439 


00730 


BNE 


BEGIN 




00776 


4? 


01164 


01200 


00740 


B 


HERE, • 7 




00788 


49 


01114 


-0000 


00790 


DORC 


•-3 




0079* 








00760 


• INPUT CONTROL FOR CARD INPUT. IS INPUT LOCATION, ERR IS ERROR 










00770 


• ROUTINE, LD 2 IS ERROR MESSAGE* CENO IS NORMAL EXIT. 












00780 


RE AO OSC 


1,0 




00746 




1 







5 '• 
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00790 


CSA Q.ERR 


008CI 




5 


* 2 






0080 1 




-QOQO 








0080* 




-1030 




00900 


CC 2,72 


OOSCI 




2 






P2 










00810 


PSA CEND 


00813 




5 


x l 






00813 




-0554 




00820 


CC 1 » • 
• 


00814 




* 




00830 


• TO BRING IN SEGMENT 2. TRANSMIT INPUT CONTROL ANC CCA. 










00840 


OUT TO CQNT2,ARM*1 


00816 


25 


00694 


00465 


00850 


T« A, GET 


00828 


31 


01073 


00675 


00860 


TFM CO 


00840 


1* 


00439 


-0000 


00870 


B I S ♦ 1 2 


00852 


49 


0094* 


OCOOO 


C0880 


CORG »-4 


00859 








00890 


• CHARACTER COUNTER . 










009C0 


CHAR I OC 5,0 


008*3 




5 






-0000 










00910 


• CIS* INPUT.. EXIT WHEN SECTOR COUNT IS ZERO. 










00920 


DISK CM MAPENT*8,0,9 


008*4 


14 


00410 


00-00 


00930 


BNH SIX 


0087* 


4T 


02208 


ouoo 


00940 


• NOT ZERO t- TRANSMIT INPUT CONTROL AND 3-SECTOR CCA. 










00950 


TR A i NORM 


00888 


31 


01073 


00511 


00960 


TF OIS-l ,CNT 


0C900 


2* 


00933 


00553 


00970 


B 0IS,,2 


00912 


49 


-09 34 


COQOO 


00980 


DORG •- 3 


00920 








00990 


• CCA FOR CISK INPUT. VARIABLE COUNT AND CORE ACORESS TO HANDLE 










01000 


• CYL INOER OVERFLOW. 










01010 


CNTL DSC 6,0 


00920 




6 






COOOOO 










01020 


CC 8.C 


0C933 




8 






-OOOOOCC 










01030 


• INPUT ROUTINE. SEEK, GET INPUT UEVICE, READ, CHECK FOR ERRCR. 










01040 


CIS 34 B, 701,6 


00934 


34 


01070 


00701 


01050 


TC »*2 1, A 


00946 


25 


00967 


01073 


01060 


RC 36 B,7C?,6 


00958 


3* 


0107Q 


00702 


01070 


ON I E-i, 1900,6 


00970 


*? 


0109- 


01900 


01080 


ANY6RR BI •♦12,0600 


00912 


46 


00994 


CQ600 


01090 


BI •♦12.16C0 


00994 


46 


01006 


0X600 


01100 


BI •♦12,1700 


0100* 


44 


01018 


01700 


oino 


BI CIN, 3800,6 


0101* 


4* 


0108L 


03800 


01120 


* ERROR ROUTINE. WRITE LD X, HALT, REREAC. 










01130 


ERR TF ST0P*9,D 


01030 


26 


010*3 


01085 


01 140 


*A T Y ST0P*3 


01042 


39 


01057 


00100 


01150 


STOP H 53440 


01054 


48 


53440 


CCCOO 


01160 


OORG «-4 


010*1 








Oil 70 


DSC 5,0! 


010*1 




5 






0000' 










01 180 


BACK B DISKX.,6 


010** 


49 


0071L 


00000 


01 190 


DORG •""4 


01073 








01200 


• INPUT CONTROL • DEVICE CODE, CORE AOOR. FOR INPUT* ERR ROUTINE* 










01210 


• ERROR MESSG, NORMAL EXIT. 










12 20 


A DC I » C 


01073 




1 






5 5 
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01230 


B DC 5,0 


01078 




5 






-0000 










01240 


CIN CC 5.C 


01083 




5 






-0000 










01250 


D DC 2,C 
-0 


01085 




2 




01260 


E OC 6,0' 


01091 




6 






-0000* 










01270 


• BEGIN PROCESSING A 75-CHARACTER GROUP. 










01280 


FIN TF CHARl.C 


01092 


2* 


008*3 


004 39 


01290 


• IF THIS IS FIRST GROUP, COMPUTE RELCON* UNLESS RETURNING FROM TCO. 










01300 


RCON BNF TD ,TCD 


Q 1 104 


44 


CUT* 


00428 


01310 


TF RE I. CON , HIGH 


0111* 


2* 


00449 


00434 


01320 


f»F FIN 


01140 


32 


01092 


00000 


01330 


•SET LOW TO FIRST ADDRESS ON FIRST CARDPLUS RELCON. 










01340 


ZERO TF LOW, 4 


01 140 


2* 


00444 


0C004 


01350 


BNR »*24 »MAPENT*14 


01152 


45 


0117* 


0041* 


01360 


TF MAPENT*13*L0W 


011*4 


2* 


00415 


00444 


01370 


• RESET TCD INDICATOR. 










01380 


TO SF TCD 


OUT* 


12 


00428 


00000 


01390 


• TO BRING IN SEGMENT 3, TRANSMIT INPUT CONTROL AND DOA. 












TD C0NT3 »ARM*l 


01188 


25 


01250 




01410 


TR A * RPROG 


C12C0 


11 


010T3 


01231 




in ui i *vun i i 


01212 


3 1 






01430 


B DIS 


0122* 


49 


00934 


00000 


01440 


OORC •-4 


01211 








01450 


• INPUT CONTROL FOR SEGMENT 3. OUT IS DOA, LD 4 IS ERROR MESSG* 






















01470 


RPROG DC 1*7 


01211 




1 




01480 


DSA OUT ,CVLOV 


0121* 




5 


X 2 






0121* 




-081* 








012*1 




-0554 




01490 


DC 2.74 
P4 


012*1 




2 




01500 


CSA START 


012*8 




9 


X I 






01248 




-0T20 




01510 


OC !,• 


01249 




1 




01520 


• OCA FOR SEGMENT 3. 










015S0 


C0NT3 DSC 9*019812012 


01250 




9 






019612012 










015*0 


054 *C0N~2 . 


012*1 




9 


X I 






012*1 




-1102 




01550 


DSC 1* * 


0124* 




1 




01560 


• LOGICAL START OF LOADER* IF INPUT IS FROM CARDS, GET it CM* NT 2. 










01570 


LOADER TO CNTL I ,IT&§ 


012** 


If 


01121 


00**0 


01980 


' TO Afti*U»|TA» : 


012TI 


ti 


0*4*1 


00**0 


015*0 


TR A, IMIT 


0129ft 


11 


010T1 


01109 


OU&O 


9 015*12 


01102 


*t 


004** 


00000 


GUIS 


KMC »*4 


OllOt 








01*.?® 


IHIT 0C t,7 


OllOt 




1 





sc 



016*0 
01650 
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OSA CNTLl.CVLOV 



CC 2,7* 
P4 

DSA TRANS 



01670 CNTLI DSC 1.0 



01680 OSA SVSSCT 



01690 OC 8.1CC000 

-01C00CG 
01700 TRANS TR C0MM,84 
01710 BO OUT ,10MCO 

01720 • IF INPUT FROM OISK, GET FIRST SECTOR AO OA. ANO GO TO REAO DISK. 

01730 TF CNTL*5,MAPENT+f t , DISK INPUT 

017*Q TO CNTL f NAPENT 

01750 B OISK 

01760 DORG »-3 

01770 TCO TRV1 

01780 OORG 2500 

01790 • WRITE SEGMENT 2 OF LOADER ON 01 SR. 
01800 TRY2 3* 0CONT2.701 
0C0NT2.702 
RIGHT2, 1900 



38 
BN1 



01810 
01820 
01830 
018*0 B 
01850 RIGHT2 TRA 



TRV2 



01860 0CONT2 OSC 9,119609009 

119609003 
01870 OSA CAROIN-IO 



01880 OORG 5C2 

01690 OC 2*0 

-0 

01900 B LOACER 

01910 OORG »-3 

01920 • CMQ INPUT PROGRAM. 
01930 • GET INPUT DEVICE CODE FROM COMM. 
01940 CARCIN TO REACIOMED,, 
01950 CF READ 

01960 • TRANSMIT CARO INPUT CONTROL » ANO GO TO REAO A CARC. 
01970 CARO TR A, READ 
01980 B DISM2 

01990 OORG —3 

02000 • IF CARO INPUT. CHECK SEQUENCE. IF TAPE, BYPASS THIS. 
02010 CENO CM REAO, 5, 10 



AREA. 

CARO OR TAPE INPUT 



57 
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02020 
02030 
020*0 
02050 
02060 
02Q70 
02080 
02090 
02100 
02110 
02120 
02130 
021*0 GET 

02150 



02160 
02170 



BNE 
BNF 
AM 

C 

BE 
SM 

IP CARO 



FIN 

FIN, 75 
SEQ.l 
79.S6Q 
FIN 
SEQ.l 

IS OlT OF SEOUENCE, WRITE LAST SEQ. NO 
ANO LO 1. THEN HALT, ANO READ ANOTHER CARD 
WNTV SEQ-* 
TFM STOP*9,7l,lO 
B ERR+12 
OORG • 
OC 
P 

DSA 



CHECK CARD SEQUENCE NO. 



WHICH WAS CCRRECT, 



1*7 

OLT .CYLOV 



DC 2.7* 
P4 

OSA OISK 



02180 DC 
02190 C0NT2 OC 



1,0 



02200 

02210 
02220 



DSA OISKAO 



OSC 3,3 
003 

OSA CARD IN- 10 



02230 OSC 1,* ' 

022*0 • AC OR ESS TO BRANCH TO AFTER CARD OR TAPE READ ERROR. 
02290 DISKX OSA pIS*12 



02260 REL OC 5,0 

-0000 

02270 • FOR UNIT RECORD INPUT, HAS CHARACTER COUNT REACHED 75. 

02280 START CM CHAR1.75 

02290 FORK BNE "32 

02100 • IF SO, REAO ANOTHER RECORD. 

02)10 TFM CO 

02120 8 CARO 

02330 OORG 

02160 C CWARl.C 

02190 TCO TRY 2 

021*0 OORG 2900 

02170 • WRITE SEGMENT 1 OF LOADER ON OISK. 
02110 TRY 3 16 DC0NT3.T01 



5S 



01314 




5 


X 2 


01314 




-1328 




01319 




-0554 




01321 




2 




01326 




5 


X 1 


01326 




-1342 




01327 




1 




01328 




1 




01333 




5 


X I 






J9663 




01341 








01342 


31 


00440 


00084 


01354 


4 3 


00816 


00*28 


01 366 


24 


00925 


0040 7 




25 


00920 




ni ton 


49 


00864 


nnnnn 

UUwUU 


n» tarn 
















025C0 








02500 


34 


02584 


00701 


02512 


36 


02564 


0C702 


02524 


47 


02560 


01900 


02536 


48 


00000 


coooo 


02546 


49 


02500 


00000 


02560 


36 


00000 


00500 


02572 


49 


00000 


OCOOO 


02584 




9 




02597 




5 


X 1 


02597 




-0502 




00502 








00503 




2 




0C5C4 


49 


01266 


OCOOO 


00512 








00512 


25 


00796 


00428 


00524 


33 


00796 


00000 


00536 


31 


01073 


00796 


00548 


49 


00946 


OCOOO 


00556 








00556 


14 


00796 


000- 5 








PAGE 


00568 


47 


01092 


01200 


00580 


44 


01092 


00075 


00592 


11 


00454 


-COOl 


00604 


24 


00079 


00454 


00616 


46 


01092 


01200 


00628 


12 


00454 


-0001 


00640 


38 


00450 


00 100 


00652 


16 


1063 


OOOP 1 


00664 


49 


01042 


OCOOO 


00675 








00675 




1 




00680 




5 


X 2 


00660 




-0816 




00665 




-0554 




00667 




2 




00692 




5 


X 1 


00692 




-0864 




00693 




I 




00694 




I 




00699 




5 


X 1 


00699 




J9600 




Q07C0 




3 




00707 




5 


X 1 


007C7 




-0502 




00706 




1 




00711 




5 


X 1 


00711 




-0 , 946 




00716 




5 




00720 


14 


006*1 


-0075 


00712 


41 


007*4 


01200 


00746 


|4 


00419 


-oooo 


0079* 


69 


0051* 


00000 


007*6 








00?** 


24 


000*1 


00419 


02900 








02900 








02900 


1* 


02904 


00701 
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02 39Q 


38 CCON T 3 t 702 


025 12 


38 


02584 


0C 702 


02400 


BN I R I GHT 3» 19C0 


0252* 


4 7 


02560 


1900 




H 


02536 


48 


cocoo 


CCCOO 


02*20 


« TRY3 


02548 


4S 


02500 


00000 


02*10 


RIGHT 3 TRA 


02560 


36 


cocoo 


CC500 






02572 


49 


nnnno 


nnnon 


2**0 


QCGNT3 DSC 9i 1 19612012 


02584 










119612012 










02*50 


D S A R C N- 2 








X 






02597 








02460 


CORG RCQN 


1 1 04 








Q2*7Q 


• SEGMENT 3 HANDLES ANALYZING AND LOADING OF INPUT. 










02*60 


TFM CN TL- 2 ? D I $♦ 1 2 










02*90 


* INITIALIZE COUNTERS FOR NEW 75— CHARACTER CRCUP. 










025CQ 


HER E A M C » 7 5 


: ' 








02510 


AM C HA R 1 1 4 




: | 








T F l nf .fwifi l M 


nil ao 


>A 


ft 1 3« ■» 


inriRAi 


025 30 


AMCHARlil 


ft 1 1 «i> 


11 


r ft h a 1 


r no 1 


025*0 


BEGIN BNR NO T RM f CHAR 1 » 1 I 


1 164 


A <> 


01228 




025 50 


BNF NOFLAG tCHARl t ll» RECORD MARK INDICATOR 


01176 


A 4 


01208 


ft ft ft A 1 


02 560 


• FLAGGED RECORD MARK - START NEW GROUP. 










025 70 


TF CHAR 1 »C 


01188 


2 6 


_ 


oca 3,0 


02580 


ft START 


12C0 


49 


ftft 73ft 


c 


02 590 


COR G •- 3 


1208 










• IIN.Fl AT, (iF P. RprnRD MARK — f.f T Kit y R-ni(;I T AP PU 
w UIy'LHuvjCU ^t^U^U H K K UC 1 nlCP 3 T U lull HtW^a 












unci AT. AM fHARl.S 








C005 




a uc d c . 3 a 


ft 13 3ft 


A (J 


ft 11 Aft 

01140 


ocooo 


026 30 


DO R G •— 3 


01228 








02640 


•ZERO INDICATOR -READ IN SEGMENT 4. 










02650 


NUIKM DU NU £ t KU t UH AH I f I I 


01228 


4 3 


012 72 


C086L 


n 3! in 


rccv rp rnki r | AD Ma 1 
)CCK 11/ lull 1 1 t A K P • I 




2 3 


022 30 






TD A DQfir 
IK A f r* KU \j 


ft 1 JS 3 


3 1 


ft ft Q ^ A 


02244 


n 3 a a ( 




ft 1 3AA 


49 


00934 


ft ft n n n 


ft3AQn 


DDR G • — 3 


012 72 








n 3 inn 


un j cun tcm dci i nr . wriki—jeon i kir I c atpb 

NUtCNU Irn KCLfLULft fNUnl— £CKU InLlLAI UK 




16 


n il 


- 1 28 3 


37 in 


BMC CI AT.ruAB 1.11 
DIN r rL AU ftflAR 1 f 1 I 


ft 1 3 A A 

01284 


44 


01316 


0086L 


; 3 7 3 r 


• Fi if.r.fn nir. it nn not ifi nr atf 












TCM 3 ft 3 A Tuft 
IT" c U c 1 f 1 HU 


1296 


16 


C2024 


~ 1880 


n37 n 


CORG »°3 


ft 1 V** 


49 


I 388 


00000 


> 7*ft 




01316 










• UNFLAGGE0 DIGIT — A0D RELC0N* 










02770 


Ci AC a aci oci riiKJ 
rl.AU A NCL fKcLLUli 


01316 






00449 


02780 


• IF RELOCATABLE PROGRAM, ADD RELCLN TO LOW AND ENTRY ADDRESS. 












BNF • ♦ 4 8 i F IN 


n 1 


44 


n i7A 


1092 




CF F I N 


n 1 ^ tt 




n 1 no? 


ftftftnn 


02810 


A LOtatRELCON 




3 1 


ftftAAA 




02820 


A MA PEN T ♦ 1 3 i R E LC ON 


01 364 


3 1 


nn4 


ftftAAQ 


026 30 


TFM 2024 »F I VE 


013 76 


16 


02024 


-168* 


02840 


• GET LENGTH OF DATA , SAVE ADDR. OF FIRST POSITION OF DATA FIELD. 










02850 


00 TC TEMP »CHAR 1 1 11 


01388 


25 


01477 


0086L 


02860 


AM CHAR1,2 


014C0 


11 


00863 


-0002 


02870 


TF N,CHARl,U 


01412 


26 


02057 


0086L 


02880 


TF M,N 


01*24 


26 


02067 


02057 


02890 


AM CHARl, 1 


01436 


11 


00863 


-0001 


02900 


TF TEMP2.CHAR I £ 


01448 


26 


02139 


00863 




]A3r~1441 MflNI TflR I WCR^IDN ? MDMITDR 1 DillFB 
lucu 1 *t "t j r»urn 1 I UK 1 VCK^IUrl c ryni 1 UK LUAUCK 












TF TFMPI .BFI 


01460 




1 '8 


00 7 18 


3Q3ft 


9 UnAlitn IU rKUrCK IPIUIUAIUK KUU 1 I INC • 












AR w ?nnfl . . 4 

DK D tUUOH" 


ft 




02-08 


OCOOO 


Q 


00RG •-'3 


n 1 Ann 








q n 


• fuocc twrtrAino — cvMO.ni ir Annoccccc ci »r.r.cn a Air dci nriTcn aw ttr 
» 1 PiK FC irfUlUAlUK — jTnOUUIa AUUKCJiCSl r L AouCU kclulaicu d T 5 c I • 










?QAft 


Tudcc rcy cc t» | . a * 3 I . . TuOCC IMfll TAfriD 
IHKCC 1 rl" jcl— IliKCC tiHUlvAlUK 


ft! AOS 


16 






n3CJ7ft 






*9 


ft3ftAft 
02080 


ft ftftft 
0-000 




DORG *- J'^'^ 


f 1 Aft 3 

ft 1 > 










AM CHAR 1 1 5 








ftftf ^ 


ft inftfi 


SM M « b t 1 


ft 1 c 1 I 

01514 


12 


ft3ftA7 


000-3) 


n * n i 


DP 1 rlKCC 


01526 


46 


1480 


1 100 


r aft3 
ftlftir 


B S TORE 


015 38 


*9 


1892 


00000 


n !n!n 




01546 




















n *n*n 


Fn 1 ID in TCMBI .111 AMV A CflllO 1 un t f iTflfl 


ft 1 A 


25 


ft 7 


02229 


03060 


AH TEMP 1 1 1 


ft 1 AKB 




ft 1 7AQ 


nftft°! 


3070 




n 1 s 7 n 


1 y 


ft>flA7 






BP FOUR 




44 


ft 1 <iAA 


inn 


3090 


R ^TART 


ft 1 cai 


3 1 




02057 


n 1 1 ? n 




OlAftA 
^* , * 




ftft73ft 


ftrnftft 
uuuuu 




CORG «-3 


01614 








ft 1 1 3ft 


m Cw Ay fuc tcrnLr bnci f fnij nc no rnnc 
• tXAWINt StLUNL rUSIIlON Or Ur UUUt. 










lift 
3130 


AM CHAR 1 ( 1 


0161* 


1 1 




-CC0 1 




ukjc nnkiT /*uiD i ti 
Orir UUN 1 |LnRK 1 f 1 1 


01626 


** 


ft 1ft 

01660 


0086L 




m. ciArrcn — dci nf ire n cici n 
• rLAulitU kcLUUAIc W MtLlJi 










( 11 Aft 






14 






n ii 7n 


n c C T . Ann .A 


ft 1 AAft 


4Q 


npriAft 




_ j B ft 


DOR G • — * 1 


01 








ni i 90 


a Mn,UC TD MOT TAlCTDllT TfftkJ 
W 1UVC IU HIC * 1 Irii 1 KUL 1 1 UIN. 










i ijnn 


nriM t am clad i . t i 


ft 








ft »f »ft 


C Afl Al 13 1ft 


ft 1 A 7 3 


12 


02067 






a ci if r en c i uc AMn tiaici Arrcn niuc i iini r Ainot _ i ajc toiitt i niuc 










32 30 


mAOCTuCDClCCC1TkJAAi 7f%lr , fYCICCT 

• AKfc THbKfc Lcbi THAN I QlUlla Ltrf... 










ftistn 


r 1 V fc UM MffflOt rl V? INUILAIUk 


ft 


I* 


ft 1 !!« 


nftn 


ni^An 




f 1 AQA 

01696 






ni *nn 




a AiH — ADC TuCQC ICCC TL^AAi 13 

• NU *" AKfc IntKt Lc)b IMAN 










ft137ft 


CM M t 1 2 t 10 






02067 


000J2 


3280 


BL LESS12 


01 JIG 


47 


0183* 


1 300 


03290 


9 ptu cAAn jiic r ir j i rud i i i un ur ur uuuc* 










3300 


BNF |F8»CHARlfll 


01732 


44 


1 766 


0086L 


n iiln 
















744 


14 


02079 


— 1 765 


ftiiift 
ft a»f ft 


a cc t 3ftn a 


n 1 1*4 


4Q 


02080 


0-200 


" 


DOR G **" 1 


ft 1 7AA 

01766 








ftl^Aft 


a ic cidct nir it nc no rnnc UAC B nil AlHT CVAMTAiC ccrrAin hir IT 
* Ir riKil Uluil Ur Ur UUUc MA) Of UU Nu 1 t**r|Nt HUunU Ulujl* 










ftlltft 


TCS T n Tcu0rwADi.11 

1TB IU I CPlr ibnlR i f 1 I 








0086L 






ft 1 77A 


*1 


ft 1477 


n n finn 
uuuuu 


ftllflft 


rMTCAAQBtft 


ni 7on 


72 

I* 


l*TT 




^ 3 90 




01102 


*7 


141* 


01200 


'. . 4 » D 


AM CHARl » I 


Oil. 4 


1 1 


00863 


-0001 


C 3-»< , 


8 DON T 


0U2* 


*9 


01660 


OCOOO 




00RG 3 


01834 










• LESS THAN 12 DIGITS LEFT - EXAMINE FIBST POSITION OF OP CODE ONLY. 










•J *--c 


t. € S S I 2 BNF NO, CHARl, 11 


0183* 


4* 


01868 


00861. 


'> 5.4 50 


• FLAGGED - RELOCATE P FIELD. 










C v & 


TFM SET-J,»*2l 


018** 


I* 


02079 


-1867 



611 









162C-1**3 MONITOR I VERSION 2 MONITOR LOADER 
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03*70 




b 


SET, 200, 8 


01858 


49 


02080 


0-200 


03*80 




CURG 


•- 1 


01868 








03*90 


• RESET 


CHARACTER COUNTER TO BEGINNING OF CATA FIELD. 










03500 i 


NO 


TF 


CHAR 1 1 TEMP 2 


01868 


26 


00863 


02139 


03510 


• TWO AND FLAGGED ONE INDICATOR - CONSTANTS. 










03520 


TWO 


A 


CHARl.N,, TWO INDICATOR 


01880 


21 


00863 


02057 


03530 


• SAVE 


DIGIT 


AT ENO OF FIELO. 










035*0 


STORE 


SM 


CHARl.l.lO 


01892 


12 


00663 


000-1 


03550 




TO 


SAVEl.CHARl.il. GENERAL STORING ROUTINE 


019C* 


25 


00966 


0086L 


03560 


• SET A RECORO MARK THERE. 










03570 




A 


TEMPI. N 


01916 


21 


01789 


02057 


03580 




SM 


TEMPI, 1.10 


01928 


12 


01789 


000-1 


03590 




TD 


CHAR1.RM.6 


01940 


25 


0086L 


02262 


03600 


• TRANSMIT CATA TO LOAD ADDRESS. 










03610 




TR 


REL.TEMP2.6ll 


01952 


31 


0071Q 


0213R 


03620 


• REPLACED SAVED DIGITS. 










03630 




TO 


TFMPl.SAVEl ,6 


0196* 


25 


C178R 


0C968 


036*0 




AM 


TEMPI. 1,10 


01976 


11 


01789 


000-1 


03650 




AM 


CHAR1.1.10 


01988 


11 


00863 


000-1 


03660 


• GO TO UPDATE LOCATION POINTEK. 










03670 


PLACE 


B 


F0LR**8 .XX 


020C0 


49 


01594 


00000 


3680 


P2 


DS 


,• 


02011 









03690 




DORG 


2018 


02018 








03700 




B 


XX 


02018 


49 


00000 


00000 


03710 




DORG 


•- 1 


02028 








03720 







TWO 


02028 


49 


01880 


00000 


O3730 




DORG 


•- I 


02038 








037*0 




B 


THREE 


02038 


49 


01*80 


00000 


03750 




DORG 


• -1 


02048 








03760 


NSTOR 


8 


FOLR 


02048 


49 


015*6 


OCOOO 


03770 




DORG 


• - 1 


02058 








03780 


MSTOR 


B 


FIVE 


02058 


49 


0168* 


00000 


03790 




DORG 


•-1 


02068 








03800 




B 


SIX 


02068 


49 


02208 


00000 


03810 




DORG 


•-* 


02075 








03820 


• ROUTINE TO SET FLAGS AND RELOCATE 5-QIGIT ACURESSES. 










03830 




DC 


5.C., RELOCATING SUBROUTINE 


02079 




5 








-0000 










038*0 


• COMPUTE BEGINNING ANO END OF ADORESS. 










03850 


SET 


TF 


PI, CHAR 1 


02080 


26 


02207 


00863 


03860 




A 


Pl.SET-l, 11 


02092 


21 


02207 


0207R 


03870 




TF 


P2, PI 


021C* 


26 


02011 


02207 


03880 




AM 


P2,* 


02116 


11 


02011 


-000* 


03890 


SF 


NOP 


PI, ,6 


02128 


41 


0220P 


00000 


039C0 




BNF 


NF.P2.ll 


021*0 


4* 


02172 


0201J 


03910 


• IF INDIRECT ( SUBTRACT RELCON, 










03920 




S 


P2. RELCON. 6 


02152 


22 


0201J 


00**9 


03930 




B 


BB 


02164 


49 


0218* 


00000 


39*0 




DORG 


• -3 


02172 








03950 


• IF NOT INDIRECT, ADD RELCON. 










3960 


NF 


A 


P2, RELCON, 6 


02172 


21 


0201J 


00**9 


03970 


BB 


AM 


SET-1,1 










03980 




B 


SET-1,,6 


02196 


49 


0207R 


OOCOO 


3990 


• SIX 


INDICATOR - END OF DATA TQ BE LCADED. 










0*000 


• READ 


IN SEGMENT *. 










0*010 


SIX 


TFM 


PRQG»17. LEAVE q j 


02208 


16 


02261 


- 15*8 
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PAGE 


0*020 




B 


SEEK 


02220 


49 


012*0 


00000 


0*030 




DORG 


•-3 


02228 










• STORAGE FOR NLMERIC BLANK - MUST BE PATCHED IN ABSOLUTE DECK • 










0*050 


BLANK 


DC 

_ A 


2.0 


02229 




2 




0*060 


• CCA 


TO REAO IN SEGMENT *. 










0*070 


CONTl 


DSC 


9,01962*005 


02230 




9 








01962*C05 










0*080 




DSA 


NOZERO 


02243 




5 


X 1 










02243 




-1272 




0*090 


• INPUT CONTROL FOR SEGMENT * - CONTl IS COA, LO * IS ERRCR MESSG. 










0*1C0 


• NOZERO 


IS NORMAL RETURN. 












PROG 


DC 
P 


1.7 


022*4 




I 








DSA 


CONTl, CVLOV 


02249 




5 


X 2 










02249 




-2230 












02254 




-0554 




0*130 




DC 
P* 


2.7* 


02256 




2 




0*1*0 




DSA 


NOZERO 


02261 




5 


X 1 










02261 




-1272 




0*150 


RM 


DC 


1.' 


02262 




1 




0*160 


CARCAC 


DS 


,19609 


19609 









0*170 


DISKAD 


OS 


,19600 


19600 









0*180 


LOC 


DS 


,NOZERO+ll 


01283 









0*190 


M 


OS 


,MSTQR*9 


02067 









0*200 


N 


DS 


,NST0R>9 


02097 









0*210 


Pi 


OS 


,88*23 


02207 









0*220 


SAVE1 


OS 


,RD*10 


00968 




o 




04230 


SAVE* 


OS 


,R0*7 


00969 




o 




0*2*0 


TEMP 


OS 


• BR*5 


01477 









0*250 


TEMPI 


OS 


. 1F8*23 


01709 









04280 


TEMPI 


OS 


.SF*ll 


02139 




o 




04270 


XX 


OS 


5,0 


00000 




5 




04280 


ARM 


DS 


.464 


00464 




o 




04290 


COMM 


OS 


• **0 


00440 




o 




04300 


C 


DS 


.*39 


00439 









04310 


HIGH 


OS 


.*3* 


00434 




o 




04320 


LOW 


DS 


• *** 


00444 




o 




04330 


IOME0 


OS 


,*28 


00428 









04340 


MAPENT 


DS 


,*02 


00402 









04390 


RELCON 


OS 


,**9 


00449 




o 




043*0 


SEO 


DS 


,45* 


00494 









04370 


TCC 


OS 


.*28 


00428 









04180 


I TAB 


DS 


.440 


00440 









04390 


SVSSCT 


DS 


,19663 


19661 




o 




04400 




TCO 


TRV3 


02900 








04410 




DORG 


2500 


02900 








04420 


• WRITE SEGMENT 4 OF LOADER ON DISK. 










04430 


TRY* 


34 


DC0NT*,70l 


02900 


14 


02964 


00701 


04440 




38 


DC0NT4.702 

a 7 


02912 


18 


02964 


00702 
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PAGE 



04450 


ON I R 1CHT4, 1900 


02524 


47 


02560 


01900 


Q4460 


H 


825 36 


48 


00000 


ccooo 


044 70 


8 I R V 4 


02548 


49 


02500 


00000 


04480 


RIGHT4 TR A 


02560 


36 


COCOO 


00500 






02572 


49 


00000 


00000 


04490 


DC0NT4 CSC 9, 1 19624005 


02584 




9 






1 19624005 










045C0 


OSA N02ER0 


02597 




5 


X 1 






02597 




-1272 




04510 


CORG NOZERO 


01272 








04520 


• I ERO INDICATUR i- SET TCO I NU ICA TOR. 










0*530 


CF TCU 


01272 


33 


00428 


00000 


04540 


BNF •♦2CtCHAR 1 , U 


01264 


44 


1 304 


0C86L 


04550 


• FLAGGED ZERO - DO NOT RELOCATE. 










Q4560 


8 NUT 


01296 


49 


01368 


cccoo 


04570 


OORC •-3 


013C4 








04580 


• UNFLAGGEC ZERC - DO RELOCATE. 










04590 


am char t , 5 


013C4 


li 


00863 


-0005 


04600 


BNF ADD tCHAR 1,11 


01316 


44 


01348 


0086L 


04610 


• INDIRECT AODRESS - SUBTRACT RE LCQN, 










04620 


S CHAR 1 ,RELCUN,6 


01328 


22 


0086L 


00449 


04630 


6 NUT*12 


01340 


49 


01380 


00000 


04640 


OORG »^3 


01348 








04650 


• NOT INDIRECT - ADO RELCON. 










04660 


ACC A CHARl,RELC0N,6 


01348 


21 


0086L 


00449 


04670 


b »*20 


01360 


49 


01380 


00000 


04680 


OORG 3 


01368 








04690 


NOT AM CHAR 1 , 5 


01360 


11 


00863 


-0005 


04700 


• PUT ACORESS IN CO*". AREA. 










04710 


TF MAPENT*18,CHARI,11 


01300 


26 


00420 


0086L 


O4720 


• SAVE LAST SECTOR READ, IF QIS* INPUT. 










04730 


80 EXIT ,10 MED 


01392 


43 


01440 


00428 


04 740 


TF MAPENT*5»CNTL*5 


014C4 


26 


C0407 


CC925 


04750 


SM MAP£NT*5,3 




1 2 






04760 


AM MAPENT*8,3,9 


01428 


11 


00410 


00-03 


047 70 


• WRITE THREE FIELDS ONTO COMMUNICATION SECTOR. 










04780 


EXIT TD CN TLE » ARM* 1 


01440 


25 


0149C 


00465 


04790 


TR A, EX 


01452 


91 


01073 


01471 


04800 


H OIS+12 


01464 


49 


00946 


00000 


04810 


DORG »-4 


014 71 








04820 


EX CC 1,7 

P 


01471 




1 




04830 


OSA CNTLE.CYLOV 


01476 




5 


X 2 






014 76 




- 1490 








01481 




-0554 




04 84 


CC 2,74 
P4 


01483 




2 




04850 


CSA THRL 


01488 




5 


X 1 






01488 




- 1504 




04860 


use 1,' 


01489 




1 






t-nl lit U I , U 


01490 




1 






o 3 
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04880 


DSA SYSSCT 


01495 




5 


X 1 






01495 




J9663 




04690 


DC 6, ICOCOO 


015C3 




8 






-01COOCO 










049C0 


THRU TR 84,CQMM 


015C4 


31 


00084 


00440 


04910 


TUM RD»1,8 


01516 


15 


00959 


00008 


04920 


TFM CNTLE-2.NEXT 


01528 


16 


01488 


-1650 


04930 


B EXIT 


01540 


49 


01440 


oocoo 


04940 


DORG »-3 


01548 








04950 


• SIX INDICATOR -UPDATE LAST LOCATION PLUS ONE INDICATOR. 










04960 


LEAVE TF H I GH , RE L 


01548 


26 


00434 


OC716 


0*970 


• MOVF THE ENTRY ADDRESS. 










04980 


TF MAPENT* 1 8 , M APE N T* 1 3 


01560 


26 


00420 


00415 


04990 


• IF NON-OISK INPUT, RE AO ONF MORE RfcCORC. 










05000 


«D »*20 ,10 MED 


G1572 


43 


01592 


0C428 


05010 


B EXIT 


01584 


49 


01440 


00000 


05020 


OORG — <* 


01591 








05030 


TU »*2l ,10 MEO 


01592 


25 


01613 


00428 


05040 


RNCD 


016C4 


36 


00000 


00500 


05050 


TFM SEQ,0 


01616 


16 


00454 


,0000 


05060 


8 EXIT 


01628 


49 


01440 


CCOOO 


05070 


CORG »-4 


01635 








050HO 


• CCA FOR IURT-S LOADER RETURN SUBROUTINE. 










5090 


CNTL3 DSC 14, 1979200300000' 


01635 




14 






19792003CCC0C 










05100 


• REAC AND EXECUTE EXIT SUBROUTINE. 










051 10 


NEXT TFM 510,0 


01650 


16 


00510 


-COOO 


05120 


TD CQMM,ARM+l 


01662 


25 


00440 


00465 


05130 


TR C0MM*1,CNTL3 


01674 


31 


00441 


01635 


05140 


B 480 


01686 


49 


00480 


00000 


05150 


TCD TRY4 


025CO 








05160 


DORG 25CC 


02500 








05170 


• KF AD IN SEGMENT 1 OF LOADER AND BEGIN EXECUTION. 










05180 


TRY 5 34 DC0NT5, 701 


02500 


34 


02584 


00701 




36 DC0NT5 , 702 


025 12 


36 


02S84 


00702 


05200 


BNI RIGHT5, 19C0 


02524 


47 


02560 


01900 


05210 


H 


02536 


48 


00000 


OCOOO 


05220 


B TRY 5 


02548 


49 


02500 


00000 


05230 


R I GMT 5 H 


02560 


48 


00000 


OCOOO 


05240 


B LOADER 


02572 


49 


01266 


OCCOO 


05250 


DC0NT5 USC 14.0196C000900502 


02584 




14 






01960000900502 










05260 


DEND TRY5 


02500 
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ANY ERR 


00982 


BEGIN 


0116* 


00 


01388 


NEXT 


01650 


SET 


02080 


CAROAO 


19609 


BLANK 


02229 


c 


01085 


NF 


02172 


SF 


02128 


CAROIN 


00512 


BR 


01*72 


ERR 


01030 


NORM 


00511 


SIX 


02208 


UCON T I 


0258* 


B 


01078 


E 


01091 


NO 


01868 


START 


00720 


OCONT2 


0258* 


CARO 


00536 


EXIT 


01**0 


NOTRM 


01228 


STOP 


0105* 


DCONT3 


0258* 


CENO 


C0S56 


EX 


01*71 


NOT 


01368 


STORE 


01892 


DCONT* 


0258* 


CHAR 1 


00863 


FAKE 


00503 


N 


02057 


TCO 


00*28 


DCONT5 


0258* 


CIN 


01083 


FIN 


01092 


NSTOR 


020*8 


TO 


01176 


DISKAC 


19600 


CNTLl 


C0537 


FIVE 


0168* 


OK 


00630 


TEMPI 


01789 


L ESS 12 


0183* 


CNTL2 


005*5 


FLAG 


01316 


OUT 


0C816 


TENP2 


02139 


LOACER 


01266 


CNTLS 


01635 


FORK 


00732 


PI 


02207 


TEMP 


01*77 


MAPENT 


00*02 


CNTLE 


01*90 


FOUR 


015*6 


P2 


02011 


THREE 


01*80 


NOFLAG 


01208 


CNTLl 


01328 


GET 


00675 


PLACE 


02000 


THRU 


C150* 


NOZERO 


01272 


CNTL 


0092C 


HERE 


01116 


PROG 


022** 


TRANS 


013*2 


REL CON 


00**9 


CNT 


00553 


HIGH 


00*3* 


Q 


0161* 


TRY I 


02500 


RIGHT1 


02560 


COPM 


00**0 


IF8 


01766 


RCON 


0110* 


TRV2 


02500 


RIGHT2 


02560 


CONTl 


02230 


(NIT 


01309 


RO 


0C958 


TRV3 


02500 


RIGHT) 


02560 


C0NT2 


CU69* 


ICMEC 


00*28 


READ 


O'C 796 


TRY* 


02500 


RIGHT* 


02560 


C0NT3 


01250 


ITAB 


00**0 


REL 


0C718 


TRY5 


02500 


RIGHTS 


02560 


C 


00*39 


LEAVE 


015*8 


RM 


02262 


TWO 


01880 


ACD 


013*8 


CVLOV 


C055* 


LCC 


01283 


RPROG 


01231 


XX 


OCOOO 


ARM 


00*6* 


DISK 


0086* 


LCW 


00*** 


SAVE1 


0C968 


ZERO 


011*0 


A 


01073 


OISKX 


00713 


MORE 


00610 


SAVE2 


0C965 


SVSSCT 


19663 


BACK 


01066 


OIS 


0093* 


M 


02067 


SEEK 


012*0 






BB 


0218* 


OONT 


C1660 


MSTQR 


02058 


SEQ 


00*5* 







END OF ONE ASSEMBLY. 
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00010 




» PHASE A 










00020 








START OF S 


P S COMMON 






00030 




DORG 


2218 








02218 


000*0 


• 




SYMBOL TABLE PARAMETERS 






00050 


SPBL 


OS 




* *G». 






SECTORS PER BLOCK 


000*0 


G0060 


SMPBL 


DS 




t 225,, 






SYMBOLS PER BLOCK 


00235 


00070 


SYMTBL 


DS 




t 16003, 






HI -ORDER POSITION OF SYMBOL TABLE 


16003 


00080 


LOSYMH 


DS 




, SYMT8L*SMPBL»17-1 




LU-ORCE* POSITION OF SYMBOL IC BLOCK 


19997 


00090 


S8F ADD 


DS 




, LCSYM8-SP8L»100*l 




SYMBOLIC BLOCK DISK AOORESS 


15998 


00100 


LBLIM 


DS 




, LCSYMB*12. 






LQ-URCER BLOCK LIMIT 


2C0C9 


00110 


MAXLIM 


DS 




t S YMTBL-6 « 






MAXIMUM LIMIT 


15997 


00120 


• 




EMPIRICAL SECTOR ASSIGNMENT PARAMETERS 




00130 


IPTSPB 


DS 




, 15C0, 






1-PASS TOTAL SECTORS PER SYM. BLOCK 


015C0 


001*0 


2PTSPB 


DS 




,600, 






2-PASS TOTAL SECTORS PER SYM. BLOCK 


00600 


00150 


BP20K 


DS 




t5, 






SYMBOLIC BLOCKS PER 20K CORE 


00005 


00160 


2PRTI0 


DS 




,2CC00, 






2-PASS RATIO— INTERN. /FINAL SECTORS 


20000 


00170 


• 




SPS CISC ASSIGNMENT PARAMETERS 




00180 


A1DAD 


DS 




• 18600, 






CONTROL STATEMENTS* PH. A SUBRUUTINS 


18600 


00190 


A1SCT 


DS 




,137 








00137 


00200 


A2DAD 


DS 




t 18800, 






NORMAL PROCESSING— FREQUENT STMTS. 


188C0 


00210 


A2SCT 


DS 




,55 








00055 


00220 


A3DAD 


DS 




, 19252, 






TRA, CALL, GET-PUT ANO ASSOC OECL 


19252 


00230 


A3SCT 


DS 




,29 








00029 


002*0 


A*OAD 


DS 




, 18881, 






ONES, OVLC PROCESS 


18881 


00250 


A*SCT 


OS 




,27 








00027 


00260 


A50AO 


DS 




.18737, 






DfcNO, TCO, ANO SYMBOL TABLE LIST 


18737 


00270 


A5SCT 


DS 




,31 








00031 


00280 


SSTDAD 


DS 




, 18908, 






SYSTEM SYMBOL TABLE 


18908 


00290 


SSTSCT 


DS 




,35 








00035 


00300 


MSTCAC 


OS 




,SST0AO*SSTSCT. 




MASTER SYMBOL TABLE 


18943 


00310 


MOSCAD 


OS 




,19663, 






MONITOR COMM SECTOR OISK ADDRESS 


19663 


00320 


B10A0 


DS 




,18978, 






PHASE B INITIALIZATION 


18978 


00330 


B1SCT 


DS 




,21 








00021 


003*0 


B20A0 


DS 




, 19200, 






INPUT, BRANCH TABLE. SCAN 


192C0 


00350 


B2SCT 


OS 




,52 








00052 


00360 


B30AD 


DS 




,19000, 






LI NPRT. INSTRN.CC, OSONB.OAS.DORG 


19000 


00370 


83SCT 


OS 




,69 








00069 


00380 


B3MA0 


DS 




,09100, PHASE 


83 MEMORY 


AOORESS 


09100 


00390 


B*0A0 


DS 




, 19069, 






RSTR,DAC.ALOW,DMES,DSB,DVLC,DGM 


19069 


00*00 


B*SCT 


DS 




,53 








00053 


00*10 


B5CA0 


OS 




,19122, 






OSA .MACRO.CCA.TRA.DE NO 


19122 


00*20 


B5SCT 


DS 




,29 








00029 


00*30 


B60A0 


OS 




,19151, 






CALL LINK, LOAD, EX IT 


19151 


00**0 


B6SCT 


OS 




,30 








00030 


00*50 


PHASE 


A 


INITIALIZATION 








00*60 


B7DA0 


DS 




.B20A0M9... 


DISK- 


RESTORE 8 PARTIAL 


19219 


00*70 


87SCT 


OS 




,0*,,, 


SECTOR 


COUNT-RESTORE 8 PARTIAL 


00006 


00*80 


B8DA0 


DS 




,17001,,, 


DISK- 


PAGE 


OFLO GOODIES 


17001 


00*90 


B9MA0 


OS 




, 16500. » 




CORE 


AOORESS TO INITIALIZE 


16500 


00500 


B10MAD 


DS 




.09900. »* 




CORE 


AODRESS OP PAGE OFLO 


09900 


00510 


PC CON 


OS 




.BlOMAO*! 








0**0 1 


00520 


DIMOAO 


OS 




.0*800. 






DIM ENTRY FOR EQUIV. TABLE 


04600 


00530 


OlMSCT 


DS 




.1 








00001 


005*0 


EQCAD 


OS 




• 0, 






EQUIVALENCE TABLE 


00000 


00550 


EQSCT 


OS 




»* 








00004 


00560 


PHCDAD 


OS 




•18855 








18855 
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005 70 


PMCSCT 


os 


• 26 


00026 





00580 


SU80AD 


OS 


,04808, SPS SUBROUTINE DIM ENTRIES 


0480b 





00540 


• 




MONITOR CQMKUNICAT JCN PARAMETERS 






00600 


MQSCT 


PS 


♦16C00# MQNITCR CQMM SECTOR MEMORY AQD.RESS 


16000 





00610 


NUUOC 


us 


tMOSCT*22i 01 SC OUTPUT CODE 


16022 





00620 


MOCTOC 


OS 


iM0SCT*23t CO-TP OUTPT COCE 


16023 





00630 


MONAME 


OS 


»MOSCT*35 f NAME 


16035 





00640 


HO I ONO 


OS 


, MOSCT* 39, 10 NUMBER 


16039 





0.065.0 


MQML 


OS 


»M0SCT*4l» MANT» LENGTH 


16041 





00660 


MOSBNO 


us 


,MQSCT>43, SUB. SET 


16043 





006 70 


MQNOI S 


OS 


,M0SCT*44, NUJSE OIGIT 


16044 





00680 


MOfcXEC 


OS 


t426, EXECUTE CONTROL AND SPS INPUT 


00426 





00690 


MOMAO 


OS 


♦415, MEMORY ADOR 


00415 





00700 


SVSCAL 


OS 


,475, SYSTEM COMMON ACTION LOCATION 


00475 





00710 


NONEX 


OS 


i457, NON-EXECLTE FOR JOB ERROR 


00457 





00720 


PCK 


OS 


t 2 365 


02365 





00730 


* 




I OR T ENTR I E S 






00 740 


IOK T 


cs 


,56 5 


0C565 





00 750 


IOPT 


OS 


,532 


0C5 32 





00760 


IUGT 


DS 


,566 


00566 





00770 


lORBC 


cs 


, 52C 


00520 





007 80 


IOSK 


OS 


, 554 


00554 





00 790 


10CAI 


PS 


,CC716 


00716 





00800 


MONCAL 


OS 


,CC796 


00796 





008 10 


IOCSAD 


cs 


, 19783, AOORESS OF THE LOADER • CALLER 


19783 





008/0 


• 










008 30 


• 




SPS COMMUNICATION AREA 






00840 












00850 


OUT 


OS 


1 


02218 


1 


00860 




OS 


80 


02298 


80 


00870 


2EP0 


DS 


2 


G23C0 


2 


00880 




OS 


81 


02381 


8 1 


00890 




oc 


1,« 


02382 


1 


C09C0 


LNTH 


DS 


5 


02387 


5 


00910 




DC 


1, ' 


02 388 


1 


00920 


A JUST 


DC 


11,2121212121,, INSTRUCTION PARITY TABLE 


02399 


1 1 






-2121212121 






00930 


THINGS 


OC 


21.CO102O3O4O50607CC0O' 


02420 


2 1 






-Q010203CC5C607CCCO' 






00940 


COU 


OS 


19 


02439 


19 


00950 




DS 


2 


02441 


2 


00960 


NUMB 


DC 


7, ' 


02448 


7 






-COCOO' 






00970 


JSTBL 


OC 


11,3232323232,, ALPHA PARITY TABLE 


02459 


1 1 






-3232323232 






00980 


E VOCD 


CC 


10.C101010101, , OMES PARITY TABLE 


02469 


10 






- 10 10 10 IC I 






00990 






PROCESSOR CONTROL S* I TCHE S--F L AGGED l*CN, UNFL AGGED Q*CFF 






01000 


STPCSW 


OS 


1 , , PUNCH SYMBCL T ABLE 


02470 


I 


01010 


ST TYSW 


DS 


I,, TYPE SYMBOL TABLE 


02471 


I 


01020 


STPRSW 


OS 


1 , , PRINT SYMBOL TABLE 


02472 


1 


01030 


TY INSW 


US 


I,, BEGIN TYPEWRITER INPUT 


02473 


I 


01040 


CCINSW 


DC 
J 


1 , i, , BEGIN CARO INPUT 


02474 


1 



6 7 
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01050 


PTINSW 


DS 


1 , , 


BEGIN PAPER TAPE INPUT 


02475 




1 


01060 


ERSTSW 


DS 


1 t , 


ERROR STOP 


02476 




1 


010 70 


2PSSW 


DS 


It t 


TWC PASS MOCE 


02477 




1 


01080 


KEl SW 


DS 


I. , 


ASSEMBLE RELOCATABLE 


02478 




I 


01090 


LSCCSW 


DS 


1 , • 


LI ST CARD 


02479 




1 


01 100 


LSTYSW 


CS 


It t 


LIST TYPEWRITER 


02480 




1 


01 1 10 


L SPRSW 


DS 


it t 


LIST PRINTER 


02481 




1 


01120 


PCNUSW 


US 


It , 


PUNCH RESEQUENCE SOURCE DECK 


02482 




1 


Oil 30 


INTR SW 


DS ' 


' ltt 


INTERRUPT 


02483 




1 


01 14U 


K ILSUB 


DS 


It , 


NO SUBROUTINES 


02484 




1 


01150 


CTVT 


DC 


5,C 




02489 




5 






-0000 










01 160 


INCOOE 


DC 


2,5 




02491 




2 


01170 


OBJCRE 


- "5 

DS 


5, , 


OBJECT MACHINE SIZE 


02496 




5 


01180 


PROCKE 


DS 


It t 


PROCESSOR MACHINE SUE 


02497 




1 


01 190 


PR TL IM 


DSA 






025C2 




5 X 












02502 




-oooo 


012CO 


HCL IM 


CSA 


LBLIM 




025C7 




5 X 












025C7 




K0009 


01210 




DC 


1 , ' 




02508 




I 


01220 


STCNT 


DC 


5,1,, 


STATEMENT COUNT 


02513 




5 






-0001 










01230 


HI ACO 


DC 


5,0,, 


HIGH APORESS 


02518 




5 






-0000 










01240 


L 


DS 


2,, 


LENGTH OF MANTISSA 


02520 




2 


01250 


NOISE 


OS 


1 




02521 




1 


01260 


SUBNO 


CS 


2 




02523 




2 


01270 


PICKUP 


OS 


5 




02528 




5 


01280 




OC 


It 1 




02529 




1 


01290 


ISTAT 


J 

DC 


30, C 




02559 




30 






-OO0OOO0COO0COOCOO0OCOC0CC0CO , 








01300 


SPSGM 


DGM 






0256C 




1 


01310 


INKRM 


DS 


5 




02565 




5 


01320 




OC 


It' 




02566 




1 


01330 


TEMPR 


OS 


5 




02571 




5 


01340 




DC 


It • 




02572 




1 


01350 


RMRK 


OS 


3 




02575 




3 


01360 




DC 






02976 




I 


01370 


0NE2 


OC 


10. 1 




02516 




10 






-000000001 










01380 


• 














01390 


• 




IOCS CALL-LOAD 


PROCESSOR SECTION-NO tolRC 








01400 


• 














01410 




OS 


5 




02591 




5 


01420 


CFF 


TFM 


IORT,«*23 




02592 


1* 


005*5 


01430 




B 


I0GT,CFFD6F, 


7 


02604 


49 


005** 


01440 




87 


CFF-1, 




02*1* 


49 


0259J 


01450 


CFFOEF 


OSC 


2,22, , 


ABSOLUTE DISK NOT WRONG LENGTH 


02*21 




2 



6s 
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01460 CFFA 



01*70 



DC 



1. 



01480 MURl OS 1 

01*90 IOACDR DC 5, C, .FILE ADDRESS OF INTERMEDIATE OUTPUT 

-0000 

015C0 SYMTAD CC 5 , 02600 , , F I IE ADORE SS OF SYMBOL TABLE 

-2600 



02629 
02630 



02631 
02636 



01510 


SBOUT 


DC 
-0 


2»0 






02643 








01520 


PGNUM 


DC 


4tCC01,,, PAGE 


NUMBER BUCKET 


02647 












-001 
















01530 


• 


















01540 


• 


END SPS COMMUNICATION AREA 














01550 


• 


















01560 


TYP1N 


OS A 


INPLT- 10 






02652 




5 


X 1 














02652 




-287 7 




01570 




DC 
-6 ' 


3,06» 






02655 




3 




01580 


TAP IN 


CSA 


INPIT-10 






02660 




5 


X 1 














02660 




-2877 




1 590 




DC 


3,08' 






0266 3 








1600 


CARD IN 


-8' 
DSA 


INPLT-10 












* 














02668 




2877 




01610 




DC 
JO* 


3, 10' 






02671 




3 




1620 


SBMAX 


DC 
-0 


2.CC 






026 73 




2 




1630 


SBCNT 


DC 


2,C 






02675 




2 




01640 


ACDCOM 


-0 
OS 


5, PICKUP 






02528 




5 




01650 




DS 


I 






02676 








01660 


ALPHA 


OS 


10 






02686 




10 




01670 


BETA 


DS 


10 






02696 




10 




01680 


DIGITS 


CS 


3 






02699 




3 




01690 


CLERER 


DC 


1,0 






027C0 




1 




01700 




CSC 


26, C 






02701 




26 








OOOCCCCCCCCOCCCCCCCCCOCOOO 














01710 




DSC 


27, • 






02727 




2 7 








COCOCCCCCOCOCOOCCOCCCCCCCC' 














01720 


INSAV 


OAS 


61 






02755 




61 


X 2 


01730 




DAC 


5, , , , 






02877 




5 


X 2 


1 740 


INPUT 


OAS 


6 






02887 






x 2 


01750 




DAS 


4 






02899 




4 


X 2 


1 760 




DAS 


66 






02907 




66 


X 2 


017 70 




DC 


I., ' .• 






3037 








01780 




CAS 


1 






03039 




1 


X 2 












6 
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01 790 




CSS 


217 






03040 




217 




1 800 


SUBENT 


DS 


5 






326 1 








01810 


DMSV 


CS 


5 






03266 




5 




01820 


DMSVW 


DS 


5 






03271 




5 




01830 


PLACE 


DS 


5 






03276 




5 




01840 


ERRDIG 


DS 


I 






03277 




1 




01850 




DC 


5.C 






03282 




5 








-0000 














01860 


LIMITS 


CC 


5.C 






03287 




5 








-OOCO 


















DC 


It • 






0J28V 












DS 


11 






n\ inn 




* 




n i fto 




DC 


It • 






300 












DAS 


6 






r\W i c 








01 




DAC 
♦ • 


2.*» 






0331? 








1920 


LOPOUT 


DC 


ICC 






03327 




10 








-OOOOOOCCO 


















CAC 


2, • 






* 






X 




LAB 


US 


12 






03343 




12 




ni oin 




UC 


It • 






03364 




I 




1960 


FLGRM 


OC 


It • tt 


FLAGGEO 


RECORD MARK 


03345 










SMQOE 


DS 


1 






03346 




I 




1 980 


DGSV 


DS 


I 






03367 




1 




1990 




DS 


1 






03368 




1 




02000 


TEMP 


DS 


5 






03353 




5 




02010 


CORM 


DAC 


22, RE-ENTER STATEMENT. 






03359 




22 


» 2 






RE 


-ENTER STATEMENT.* 














02020 


5ALPH0 


DAC 


5.CC000 






03399 




5 


X 2 






00000 














02030 


• 


















020*0 


• READ 


INPLT 














02050 


• 


















02060 


PHASE A 


TOM 


ERMOIGtO 






03401 


15 


03277 


00000 


02070 




BO 


READ2. COINS* 






03620 


43 


03640 


02474 


02080 




BD 


REAOlt PTINSW 






03632 


43 


03408 


02475 


02090 




















02100 




READ TYPEWRITER 














02110 


• 


















02120 


R6A03 


RCTY 








03444 


34 


00000 


00102 


02130 




TFM. 


•♦30, INPUT*16, , 


OVERLAY 


INPUT AREA WITH 


01694 


14 


03494 


-2905 


02160 




AM 


•♦18,2.10, 


RECORD 


MARKS 


03468 


11 


03494 


000-2 


02150 




TFM 


•-•tt 






03410 


1* 


00000 


-0000 


02160 




CAC 


lt*t» 






03491 




1 


X 2 


02170 




CM 


•-6, INPUT+140 






03492 


14 


01404 


^3027 


02110 




BL 


•-36 






03904 


4? 


03440 


01300 


02190 




TF 


INPUT-2. CLERER*9 






0991* 


2* 


02999 


0270* 


02200 




TF 


INPUTUO, CLERER* 11 






01929 


24 


029*7 


02711 


02210 




TF 


INPUT*18, CLERER* 7 






01940 


24 


02*09 


02707 


02220 




TFK 


IORT,»*23 






03992 


14 


00949 


-3579 



7» 
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PAGE 



02230 




R 


l(J0T,TYPIN-*,7 


356* 


*9 


00566 


-26*8 


022*0 




BNC* 


PRGSTM 


03576 


4 7 


03916 


00*00 


022 50 




WATY 


CO«m 


3588 


39 


03355 


00100 


02260 




b7 


RE AD 3 


03600 


*9 


03*** 




02270 


• 














02280 


• 


READ PAPER TAPE 










02290 
















02 300 


READ1 


TFM 


IQft T,»*23 


3608 


16 


00565 


"3631 


02310 




3 


I OCT, TAP IN-*, 7 






fwof 4 


-2656 


02 320 




B7 


PROSTM 


36 32 


*9 






02330 


m 














02 3*0 


# 


READ STATEMENT FRO* CARD 










02 350 
















02360 


RE A02 


TFM 


10RT,»*23 


36* 


16 


00565 


— 366 3 


02370 




B 


I0GT,CAR0IN-*,7 


03652 


49 




— 266* 


02380 




HNF 


RSCAN,PCNU$* 


366* 




3808 




02390 




OMR 


•♦2*, INPUT-10 


03676 


4) 


03700 


0287 7 


02*00 




TFM 


I-NPLT-10,00,10 






0287 7 




02*10 




CM 


INPLT-10, I*, 10 


nwrn 


14 


r f ana 


or o"i4 


02*20 


R2t)E 


BE 


RSCAN 


3712 


44 


C 3608 


C 1200 


02*30 




TF 


lNPUT-02, 5ALPH0*8 


0372* 




«f af \ 


« 


rwl* «!n 




TO 


INPLT-O*, STCNT 


3736 


25 


02883 


02513 






TO 


INPLT-Q6.STCNT-1 




2 5 


C288 1 


02512 






TD 


INPLT-08,STCNT-2 




25 


02879 


0251 1 


n _ _ . 




TL 


INPUT- 10, STCNT-3 


37 72 


25 


0287 7 


02510 


02*80 




TFM 


I0RT,»»?3 


378* 


16 


00565 


- 380 7 


02*90 




B 


I0PT,CARDIN-*,7 


03796 


*9 


00532 


-266* 


02500 


• 
















* . 


FIND RIGHTMOST CHARACTER OF STATEMENT AND PLACE A 














RECORU MARK AFTER IT 










0?s - 
















r jt 4 n 




TFM 


RSBO- I, INPUT*139 


3808 


16 


38 79 


-3026 






TFM 


RSH0*11,INPUTU*C 




16 


389 1 


- 302 7 






TFM 


KSbOHl , ,6 


03832 


16 


0389 J 


00000 


t 3 tin 
02 




OAC 


It* 


38*3 




1 


X 2 


02580 




SM 


RSBO-1,2,10 




1 2 


3879 


000- 2 


02590 




SM 


RSHD»ll,2, IQ 


* 


4 \ 






02600 




BD 


PROSTM, •-# 






n a«M4 


OCOOO 


02610 


R SBC 


BD 


PRGSTM, •-• 


03880 


*3 


03916 


uuuuu 


02620 




CM 


RSUD*11 ,INPUT*1B 


03892 


1* 


03891 


-2905 


02630 




BH 


RSCAN*2* 


0390* 


*6 


03832 


1 1 


026*0 


* 














02650 




CLEAR FOR INTERMEDIATE OUTPUT 










02660 


















PRO S T* 


B 


PROCON 








UUUUU 


02680 




HNR 


• ♦2*., INPUT»20 


03928 


*5 


03952 




U269U 




TFM 


INPLT*22, OCOCO 


039*0 


16 


02909 


-0000 


02700 




CAC 


!,•»• 


03951 




1 


X 2 


02710 




TR 


INPUTS, CLERER**6 


03952 


31 


030*0 


027*6 


02720 




TR 


INSAV-1,INPUT*19 


396* 


31 


0275* 


02906 


02730 




AM 


STCNT, 1,10 


03976 


11 


02513 


COC-l 


027*0 




TDM 


LOABSW, 1,11 


03988 


15 


08036 


CCOOJ 


02750 




BD 


«3E, 2PSSW 


0*0C0 


*3 


0*036 


02*77 


02760 




T CM 


INf>U2*99 


0*012 


15 


03139 


00000 



71 
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02770 




DC 


I » ' » • 


0*C23 




1 




02780 




TR 


1NPLT2 + B-, INPUT-ll 


0*02* 


31 


030*8 


02876 


02790 


R3E 


AM 


1NKRM, 1,10 


0*036 


11 


02565 


000-1 


02800 




BNR 


•■♦2*i INPUT- 10 


0*0*8 


*5 


0*072 


02877 


02810 




TFM 


INPLT-10, 00, 10 


0*060 


16 


02877 


000-0 


02820 




TF 


PLACF, AODCDW 


0*072 


26 


03276 


02528 


02830 




CM 


ADDCOW , S9999 


0*08* 


1* 


02528 


R9999 


028*0 




BE 


• ♦*fi 


0*096 


*6 


0*1** 


01200 


U2850 




C 


ADDCOW,H I ADD , , HI ADDRESS TO HIADD 


0*108 


2* 


02528 


02518 


02860 




HNH 


• ♦2* 


0*120 


*7 


0*1** 


01100 


02870 




TF 


HIADD, ADDCOW 


0*132 


26 


02518 


02528 


028HO 




BNR 


•>2C, INPUT 


0*1** 


*5 


0*16* 


C2887 


02890 




B7 


ER2 


0*156 


*9 


0*28* 




02900 




CM 


INPLT,i*,10 


0*16* 


1* 


02887 


OOOJ* 


02910 




BNE 


RLOPl 


0*176 


*7 


0*22* 


01200 


02920 




HD 


•♦2*,ERRDIG 


0*188 


*3 


0*212 


03277 


02930 




BD 


PhASEA, 2PSSH 


0*2C0 


*3 


03*08 


02*77 


029*0 




BTM 


OUTPUT, PHASEA 


0*212 


17 


09686 


-3*08 


02950 
















02960 






CHECK FOR RECORD MARK IN LABEL FIELD. 










02970 


• 














02980 


RL0P1 


TFM 


RlOP* 1 1 , INPUT-2 


0*224 


16 


0*283 


-2885 


02990 




AM 


RL0P*ll*2, 10 


0*236 


11 


0*283 


000-2 


03000 




CM 


RL0P*11,INPUT*12 


0*2*8 


1* 


0*283 


-2899 


3010 




HE 


OP 


0*260 


*6 


0*356 


01200 


03020 


RLOP 


BNR 


• -36" 


0*272 


*5 


0*236 


00000 


0303G 


• 




RECORD MARK IN LABLE FIELD. 










030*0 


ER2 


TFM 


EVALER-l, 2C000 


0*284 


16 


07071 


KOOOO 


03050 




DC 


It • 


0*295 




1 




03060 




BT 


EPRINT.EPRINT-l 


0*296 


27 


07332 


07331 


03070 




TF 


INPUT*10, CLERER*li 


0*308 


26 


02897 


02711 


03080 




00 


• ♦2«, 2PSS* 


0*320 


*3 


0*3** 


02*77 


03090 




TR 


INPUT2*8, INPUT-ll 


0*332 


31 


030*8 


02876 


03100 




BD 


ERCOR, ERSTSW 


0*3** 


*3 


07196 


02*76 


031 10 


OP 


C 


CL£RtR*ll,INPUT+lO 


0*356 


2* 


02711 


02897 


03120 




BE 


• ♦36 


0*368 


*6 


0**0* 


01200 


03130 




TF 


ERLAB*10, INPUTMO 


0*380 


26 


03313 


02897 


031*0 




TFM 


1NKRH , C ' 


0*392 


16 


02565 


.oooo 


3150 


• 














03160 


• 




PROCESS GP CODE 










03170 


• 














03180 


• 


CHECK FOR RECORD MARK IN OP CODE* 










03190 




TFM 


RMOP*U,INPUT*10 


0**C* 


V 


0**63 


-2897 


03200 




AM 


RMOP 11,2,10 


0**16 


11 


0**63 


000-2 


03210 




CM 


RMO»**l,INPUT*20 


0**28 


1* 


0**63 


-2907 


03220 




BE 


OP I 


0***0 


*6 


0*908 


01200 


03230 


RMOP 


BNR 


•-36, ••0,7 


0**92 


*9 


0**16 


-0000 


032*0 




TF 


INPLT*18, CLERER*7 


0**6* 


26 


02909 


02707 


032S0 




80 


•♦2*. 2PSSW 


0**7* 


*3 


0*900 


02*77 


03260 




TR 


1NPUT2*8, INPUT-ll 


0**11 


91 


010*8 


0287* 


03270 




87 


ER 3 


0*900 


*9 


0*8*8 




03280 


• ' 




TEST FOB ABSOLUTE OP CODE 










03290 


0P1 


TD 


• ♦*6, tNPUT+U 


0*90t 


29 


0*99* 


02898 



03300 TD ♦♦35*iK:>a?*i1 0*920 19 0*999 02900 
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PACE 



03310 




CM 


•♦23,77,10 


0*532 


I* 


0*555 


O0OP7 


03320 




BNE 


AL FOP . 


0*5** 


*7 


0*616 


01200 


03330 




C 


CLERERO, INPUU18 


0*556 


2* 


02703 


02905 


033*0 




BNE 


ALFOP 


0*568 


*7 


0*616 


01200 


03350 




TC 


INPLT2, INPUTM2 


0*580 


25 


030*0 


02899 


03360 




TO 


INPLT2M, INPUTH* 


0*592 


25 


030*1 


02901 


03370 




BTM 


INSTRN, D01NST*2* 


0*60* 


I? 


10256 


J038* 


03380 


• 


SCAN OPCODE TABLE 










03390 


AL FOP 


TFM 


SHF ♦ 1 1 , INPUT* 1 8 


0*616 


16 


0*759 


-2905 


03*00 




T F M 


ALFLPl*ll» OPLCTB+15 


0*628 


16 


C*67l 


-*927 


03*10 




BD 


SHF , INPUT* 1 1 


0*6*0 


*3 


0*7*8 


02898 


03*20 




B7 


ER 3 


0*652 


*9 


C*8*8 




03*30 


ALFLPI 


TF 


2 P ♦ 1 1 • 


0*660 


26 


0*815 


00000 


03**0 




TF 


ALFLP*11, SHF* 11 


0*672 


26 


0*727 


0*759 


03*50 




TF 


ZP*18, SHFMl 


0*68* 


26 


0*822 


0*759 


03*60 




SM 


ALFLPMl, INPUT»7 


0*696 


12 


0*727 


-289* 


03*70 




B7 


• ♦ 20 


0*708 


*9 


0*728 




03*80 


ALFLP 


AM 


IP* 1 1 t •-• 


0*716 


11 


0*815 


-COOO 


03*90 




DNR 


IP t ZP* 1 1 » I I 


0*728 


*5 


0*80* 


0*81N 


03500 




B 7 


ER 3 


0*7*0 


*9 


0*8*8 




03510 


SMF 


C 


CLERER* I • • -• 


0*7*8 


2* 


02701 


00000 


03520 




BNE 


ALFLPI 


0*760 


*7 


.14**0 


01200 


03530 




SM 


ALFLPUll, 5,10 


0*772 


12 


Os671 


CCO-5 


35*0 




SM 


S »- F ♦ I 1 , 2 . 1 










03550 




B7 


SHF 


0*796 


*9 


0*7*8 




03560 


ZP 


TF 


ZFP0*30, 


0*80* 


26 


02330 


OCCOO 


03570 




C 


ZEP0*27 


0*816 


2* 


00000 


02327 


03560 




BE 


OK 


0*828 


*6 


0*928 


01200 


03590 




B7 


ALFLP 


0*8*0 


*9 


0*716 




3600 


• 




INVAL ID OP CODE 










3610 


ER 3 


TFM 


EVALER- 1, 30000 




16 




LCOOO 


03620 




cc 


I i 1 i» 


0*859 




1 




03630 




BT 


E PR INT.EPRINT-l 


0*860 


27 


07332 


C7331 


036*0 




BD 


ERCOR, ERSTSW 


0*872 


*3 


07196 


02*76 


03650 




TFM 


INPLT2*1, 0*1, 9 


CL*88* 


16 


030*1 


00-*l 


3660 




BTM 


I N 5 TRN , LDL HL 


0*896 


17 


10256 


-8*1* 


03670 




LOCATIONS OF SECTIONS OF OP-COOE TABLE 










03680 


OPLCTB 


DSA 


A, B, C, D 


0*912 




5 


X * 










0*912 




J3575 












0*917 




J3632 












0*922 




J3956 












0*927 




J*615 





03690 • 
03700 • 
03710 • 
03720 * 
03730 OK 
037*0 
03750 
03760 

03770 GOODB 
03780 
03790 
3800 



USING THE LAST DIGIT OF [HE OPCODE ENTRY GOCUB IS 
MODIFIED TO BRANCH TO THE CORRECT ENTRY IN BTBL 



TFM 

TO 



B 

DORG 



GCGDB+6 iBTBL 
GC0D8*ll,ZEP0* 
GOQDB* 5 »GQ0DB* 
ZEP0*27 
• , 1C 

SAVRST, , ,-7 
1 



7 3 



0*928 


16 


0*982 


-5058 


0*9*0 


25 


0*987 


02330 


0*952 


21 


0*981 


0*987 


0*96* 


32 


02327 


OCOOO 


0*976 


*9 


00000 


000-0 


0*988 


*9 


05380 


00000 


0*998 








0*998 


*9 


00000 


00000 



162C~1**3 MONITOR I VERSION 2 SPS II-O PHASE A 



03810 




DORG 


• - 1 




03820 




8 


CECL , , 


, -5 


03830 




DURG 


• - 1 




038*0 




B 


BOMK , , 


, -* 


03850 




DORG 


•- I 




03860 




B 


MCC ALL 


i,,-3 


03870 




DORG 


• - i 




03880 




B 


ADC , , , 


-2 


03890 




OORG 


— l 




03900 




B 


MACRO, 


,, -I 


03910 




DORG 


•- I 




03920 


BTBL 





INST, , 


, 


03930 




DORG 


•-1 




039*0 




B 


SIUC, , 


• ♦! . 


03950 




DORG 


1 




03960 




B 


DISK, , 


, +2 


03970 




OORG 


• - I 




03980 




b 


ROW, , , 


♦ 3 


03990 




OORG 


• -1 




0*000 




B 


K , , , 


♦ * 


0*010 




DORG 


•-1 




0*020 




B 


DSDNB, 


,, ♦!> 


0*030 




DORG 


1 




0*0*0 




B 


BI,,, 


♦ 6 


0*050 




DORG 


• -1 




0*060 




B 


BN I , , , 


♦ 7 


0*070 




DORG 


•- I 




0*080 




B 


DENOC, 


,, *8 


0*090 




DORG 


• -1 




0*100 


OECL 


TFM 


G0(J0B2*6,8TBL2 


0*110 




TD 


G0QDB2* 1 1.ZEP029 


0*120 




A 


G000B2 


♦ 5,r,OODB2+ll 


0*130 


C00DB2 


B 


, , 10 




0*1*0 


BTBL 2 


B 


DC,,, 





0*150 




DORG 






0*160 




B 


DORG, , 


, >l 


0*170 




DORG 


• - 1 




0*180 




B 


CAC,,, 


♦ 2 


0*190 




DORG 


•-1 




0*200 




B 


DSA,, , 


♦ 3 


0*210 




DORG 


• - 1 




0*220 




B 


OAS,,, 


♦ * 


0*230 




DORG 


•-1 




0*2*0 




a 


HEADER 




0*250 




OORG 


• -1 




0*260 




B 


DSB , , , 


♦ 6 


0*270 




OORG 


1 




0*280 




B 


DGM , , , 


♦ 7 


0*290 




OORG 


• -1 




0*300 




8 


DMESCL 


,,,♦« 


0*310 




OORG 


•-3 




0*320 


INST 


BTM 


INSTRN 


,00INST 


0*330 


ACC 


BT* 


INSTRN 


,00 ADC 


0*3*0 


BOMK 


BTM 


INSTRN 


.OOBONK 


0*350 


BI 


BTM 


INSTRN 


,0081 


0*360 


BN I 


OS 


,BI 





7'. 



05008 








050C8 


*9 


051*8 


OCOOO 


05018 








05018 


*9 


05308 


00000 


05028 








05028 


*9 


11180 


ooooo 


05038 








05038 


*9 


05296 


OCOOO 


050*8 








050*8 


*9 


11288 


ooooo 


05058 








05058 


*9 


0528* 


ooqoo 


05068 








05068 


*9 


05368 


coooo 


05078 








05078 


*9 


053** 


oocoo 


05088 








05088 


*9 


05332 


ooooo 


05098 








05098 


*9 


05356 


ocooo 


051C8 








051C8 


*9 


12316 


ooooo 


05118 








05118 


*9 


05320 


ooooo 


05128 








05128 


*9 


05320 


ocooo 


05138 








05138 


*9 


12760 


occoo 


051*8 








051*8 


16 


05190 


-5196 


05160 


25 


05195 


02329 


05172 


21 


05189 


05195 


0518* 


*9 


00000 


000-0 


05196 


69 


12800 


ocooo 


05206 








05206 


69 


1258* 


coooo 


05216 








0521* 


49 


11*72 


ooooo 


05226 








05226 


*9 


13308 


ooooo 


05216 








05236 


49 


11392 


ccooo 


05246 








052*6 


69 


12464 


ocooo 


05256 








05256 


*9 


12080 


ocooo 


052*6 








052*6 


69 


11220 


ccooo 


0S27* 








0527* 


*» 


11140 


ooooo 


0528* 








0528* 


I? 


102S* 


J0360 


0529* 


1? 


1029* 


J0452 


05308 


17 


1025* 


J0532 


05320 


17 


1025* 


J0600 


05320 
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PAGE 



0*370 


no 


BTM 


INSTRN.DORDh 


05332 


17 


0*380 


DISK 


BTM 


INSTRN.DOOl SK 


05344 


11 


0*390 


K 


BTM 


INSTRN.UOK 


05356 


il 


0**00 


SlUC 


BTM 


INSTRN,DQS10C 


05368 


17 


0*410 


SAVRST 


BTM 


INSTRN.DOSVRS 


05380 


17 


0*420 


• 










04430 


• 


THE FOLLOWING CLOSED SUBROUTINE EVALUATES 






0***0 


• 




THE STATEMENT OPERAND 






0**50 


• 










0**60 




NOP 




05392 


41 


0**70 


E VAC AO 


TF 


ADDRS tCLERER*9 


054C4 


26 


0**80 




TFM 


RL0CSW»0,8 


05416 


16 


0**90 




TFM 


EVALAD-9, 100,9 


05428 


16 


0*500 




TF 


BE T A ,QNE I 


05440 


26 


0*510 




TFM 


ALPHA 


05452 


16 


0*520 




SF 


HED-2 


05464 


32 


0*530 




SF 


EVALAD-5 


05*76 


32 


0*5*0 




TCM 


B Sta , 1 , 1 1 


05*88 


15 


0*550 




TD« 


AQk S* 1 1 I 


055CC 


15 


0*560 




TON 


RETtRN*l,9 


05512 


15 


0*570 




TR 


COL L- 1 8 » TH I NO S-2 C 


05524 


31 


0*580 




TFM 


L A8L , 1 , 10 


055 36 


16 


0*590 




TFM 


DOL 1 1 10 


05548 


16 


0*600 




8NF 


BCM SPC i E VALAO- 7 


05560 


44 


0*610 




TR 




05572 


31 


0*620 




SF 


HEU-2 


05584 


32 


0*630 




TFM 




05596 


16 


0*6*0 




TFM 


DOL^ ' 10 ^ 


05608 


16 


0*650 




8 7 


BCMSPC - 12 


05620 


49 


0*660 


c 




CHECK FOR SPECIAL CHARACTER 






0*670 


COMSPC 


CM 


INPLWO, 70, 10 


05628 


14 


0*680 




BL 


SPEC 


05640 


4 7 


0*690 




TDM 




05652 


15 


0*700 




•f f 


CCLL»INPUT*2C 


05664 


26 


0*710 






COLL- I 


05676 


3 3 


0*720 


LABI 


D S 




05687 




0*730 


DOL 




' • - 2 


05685 




0*7*0 




AM 


DOL , I » 1 


05688 


11 


0*750 




T DM 


E VAL AD- 11 


05700 


15 


0*760 




TR 


COL L- I 7 ,C0LL- 1 5 


05712 


31 


0*770 




CM 


COLL-17,7,10 


05724 


14 


0*780 




BNE 


• ♦?* 


05736 


47 


0*790 


• 




SYMBOL IN OPERAND CONTAINS MORE THAN SIX CHARACTERS 






0*800 


• 




UR NLM8ER IN OPERAND HAS MORE THAN FIVE DIGITS 






0*810 


ERLNTH 


OTM 


EVALER, 50000 


05748 


17 


0*820 




cc 


I. • 


05759 




0*830 




TR 


INPLT*l9,INPUT*2l 


05760 


31 


0*8*0 






CHECK TO SEE IF OPERAND IS PRESENT 






0*850 


BCMSPC 


BNR 


COMSPC . INPUT*20 


05772 


45 


0*860 


COMMER 


TDM 


RE TLRN+l, I 


05784 


15 


0*870 




B7 


GE T I 


05796 


49 


0*880 


• 




CHECK FOR ♦ OR - 






0*890 


SPEC 


BO 


Sit INPUT4-2C 


05804 


43 


0*900 






CHECK FOR BLANK 






0*910 




BD 


•♦20,!NPUT*19 7 ~ 


05816 


43 
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0*920 




B7 


BCMSPC-12 


0*930 




TDM 


BS*,0 


0*9*0 




TC 


A SE T* 1 1 , INPUT* 19 


0*950 


GE T t 


BD 


AORS.EVALAD-ll 


0*960 




BTM 


GE T, «*12 


0*970 




BT 


MIL T.MULT-l 


0*980 


AORS 


A 


ADDRS, ALPHA, 


0*990 




TC 


RETLRN-ll,AORS*l 


05000 




TFM 


E VALAD-9, 100,9 


05010 




TF 


BE TA.ONEZ 


05020 




TDM 


MPYSW, 


05030 


ASET 


TDM 


A0RS*1 , 1 


050*0 




BNF 


•♦2*,RSYMSW 


05050 




AM 


RCTR.1,10 


05060 


RETURN 


B 


COMSPC-56 


05070 




SF 


ADURS-* 


05080 




BNF 


T08B.RELSW 


05090 




BNF 


• ♦2CEVALAD-1 


05100 




B7 


TOBB 


051 10 




CM 


RC TR,0, 10 


05120 




8E 


SREL+12 


05130 




CM 


RCTR.l, 10 


05l*U 




BNE 


• ♦2* 


05150 




BNF 


SREL, ADDRS 


05160 




CM 


RCTR,-1,10 


051 70 




BNF 


•♦2*,A0ORS 


05180 




BE 


SREL 


05190 


RELER 


TFM 


EVALER-2, 71770,, 


05200 




BT 


EPR INT,CPRINT-l 


05210 




B7 


EV1 


05220 


SREL 


TCM 


RLQCSM, 1, 11 


05230 


TOBB 


CF 


EVALAD-l 


05240 


B8ACK 


B7 


E VALAD- 1 , * 6 


05250 


• 


CHECK FOR COMMA 


05260 


SI 


CM 


INPLT*20,23,10 


05270 




HE 


COMMER 


05280 




TDM 


BSb.O 


05290 


• 


CHECK FOR ASTERISK 


05300 




CM 


INPUU20, I*, 10 


05310 




BE 


ASTER 


05320 




CHECK FOR DOLLAR SIGN 


05330 




CM 


INPUU20, 13,10 


05340 




BE 


001 LAR 


05350 




TDM 


LABL 


05360 




87 


COMSPC. ♦ ?* 


05370 


DOLLAR 


8D 


•♦32, DOL 


05380 




TFM 


COLL., 10 


05390 




87 


♦ ♦** 


054QQ 




CM 


DDI, 1,10 


05410 




BNE 


OOLLAR-20 


05420 




SF 


COLL-3 


05430 




CF 


HEO-2 


05440 




TDM 


eVALAO-11,1 


05450 




T0« 


LABL 


05460 




BD 


BCMSPC-12, DCL 


05470 




BT 


8 C * SPC -60 



RELOCATION ERROR 



7« 



05828 


49 


05836 


15 


05848 


25 


05860 


43 


05872 


17 


0588* 


27 


05896 


Kl 


05908 


25 


05920 


16 


05932 


26 


05944 


15 


05956 


15 


05968 


44 


05980 


11 


05992 


49 


06004 


32 


06016 


44 


06028 


44 


06040 


49 


06048 


14 


06060 


46 


06072 


14 


06084 


47 


06096 


44 


06108 


14 


06120 


44 


06132 


46 


06144 


16 


06156 


27 


06168 


49 


06116 


IS 


06188 


33 


06200 


49 


06208 


14 


06220 


46 


06232 


15 


06244 


14 


06256 


46 


06268 


14 


06280 


4* 


06292 


IS 


06304 


49 


06312 


43 


06324 


1* 


06316 


49 


06344 


14 


0633* 


4? 


0*3*0 


32 


0*380 


33 


0*392 


IS 


0**04 


IS 


06416 


43 


0*428 


49 



10256 


J0668 


10256 


J1060 


10256 


J0736 


10256 


J0816 


10256 


J0980 


00000 


00000 


03299 


02709 


08035 


0-000 


05395 


oojoo 


02696 


02586 


02686 


-COOO 


10235 


00000 


05399 


ocooo 


08037 


0000J 


05897 


00001 


05993 


0C009 


02421 


02*00 


0568 7 


000- 1 


05685 


000-0 


05772 


05397 


02421 


02*00 


10235 


00000 


05687 


000-1 


05685 


OCO-0 


05760 




02907 


OOOPO 


0580* 


01300 


08037 


ocooo 


02439 


02907 


02*38 


00000 












05685 


000- I 


05393 


00000 


02*22 


02*2* 


02*22 


000- 7 


05760 


012C- 


70 72 
1 


NCOOO 


02906 


02908 


05628 


02907 


05993 


00001 


05860 




06208 


02907 


05836 


02906 



PAGE 



05760 




08037 


OCOOO 


05967 


02906 


05896 


05393 


06*5* 


-588* 


06796 


06795 


03299 


02686 


05981 


05897 


05395 


OOJOO 


02696 


02586 


08038 


00000 


05897 


00001 


05992 


0803* 


06033 


OCO-l 


05572 


OCOOO 


03295 


00000 


06188 


02478 


06048 


05403 


C6186 




08033 


000-0 


06188 


01200 


08033 


000- I 


06108 


01200 


06176 


03299 


08033 


000- J 


0*144 


03299 


06176 


01200 


07070 


P1770 


07332 


07331 


07108 




08035 


OOOOJ 


0S403 


00000 


05401 




02907 


000K3 


05784 


01200 


06037 


00000 


02907 


000J4 


06846 


01200 


02907 


0C0J3 


06312 


01200 


05687 


00000 


05652 




0*344 


05685 


02439 


000-0 


0*360 




05685 


000- I 


0*292 


01200 


0243* 


00000 


10235 


00000 


05393 


00001 


034*7 


00000 


057*0 


0S68S 


05712 
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PAGE 



05480 


• 


DOLLAR SIGN IMPROPERLY PLACED 












0**90 


ERCHAR 


BTM 


EVALER, 50000 




06436 


17 


07072 


NOOOO 


0**00 




DC 


It • .• 




06447 




1 




05510 


• 
















05520 


• 


CLOSEO ROUTINE TO EVALUATE CQLLEC TEO SVM8CL OR 


INTEGER 










05530 


• 
















05540 




DS 


5 




06452 




5 




05550 


GET 


TDM 


RSVMSta.O 




06454 


15 


08034 


00000 


05560 




BD 


TRNUMB * LA6L 




06466 


43 


06638 


05687 


05570 




CM 


COLL-17, 05»10 




06478 


14 


02422 


000-5 


05580 




BH 


6CHAR 




06490 


46 


06594 


01100 


05590 




BE 


5CHAR 




065C2 


46 


06562 


01200 


05600 




TDM 


COLL.O 




06514 


15 


02439 


00000 


05610 




TR 


COLL-17, COLL-15 




06526 


31 


02422 


02424 


05620 




CM 


COLL-17, 05,10 




06538 


14 


02422 


000-5 


05690 




BNE 


• -36 




06550 


47 


06514 


01200 


05640 


5CMAR 


BNF 


LBACD-24, MED- 2 




06562 


44 


07566 


10235 


05650 




TF 


COLL-12, MED 




06574 


26 


02427 


10237 


05660 




B7 


LBACO 




06586 


49 


07590 




05670 


6CHAR 


BNF 


LBACD, HED-2 




06594 


44 


07590 


10235 


05680 




SF 


CCLL-13 




06606 


32 


02426 


00000 


05690 




SF 


COLL-2 




06618 


32 


02437 


OCOOO 


057C0 




B7 


LBACD 




06630 


49 


07590 




05710 


TRNUMB 


CM 


COLL- 14,6060 




06638 


14 


02425 


-6060 


05720 




BH 


ERLNTM 




06650 


46 


05748 


01100 


05730 




TOM 


NUMB- 1 , , L I 




06662 


15 


02447 


OCOO- 


05740 




TFM 


TRNLM1ML, COLL-2 




06674 


16 


06733 


-2437 


05750 




S 


TRNUMI* lit COLL-17 




06686 


22 


06733 


02422 


05760 




s 


TRNIM1*U, COLL-17 




06698 


22 


06733 


02422 


05770 




TR 


NUMB-5,NUMB-4 




06710 


31 


02443 


02444 


05780 


TRNUMi 


TO 


NUMB-1 




06722 


25 


02447 


OCOOO 


05790 




TR 


COLL-17, COLL-15 




06734 


31 


02422 


02424 


05800 




TF 


•♦23, •- 13 




06746 


26 


06 769 


06733 


05810 




BNR 


TRNUMl- 12 




06758 


45 


06710 


00000 


05820 




TFM 


ALPHA 




06770 


16 


02686 


-cooo 


05830 




A 


ALPKA,NUMB- 1 




06782 


21 


02686 


02447 


05840 




0B2 


• ,0 




06794 


M2 






05850 


MULT 


M 


ALPHA, BETA 




06796 


23 


02686 


02696 


05860 




SF 


90 




06808 


32 


00090 


OCOOO 


05870 




TF 


ALPhA,99 




06820 


26 


02686 


00099 


05880 




TF 


BE TA.99 




06832 


26 


02696 


00099 


05890 




BB2 


t »o 




06844 


N2 






05900 


ASTER 


BO 


TEST3.EVALAD-11 




06846 


43 


06938 


05393 


05910 




OTM 


GET, «*12 




06858 


17 


06454 


-6870 


05920 




BT 


MULT.MULT-l 




06870 


27 


06796 


06795 


05930 




TFM 


EVALAO-10,11,10 




06882 


16 


05394 


000J1 


05940 


ASR 


BNF 


•♦36.RELSW 




06894 


44 


06930 


02478 


05950 




TDM 


MPYSte, 1,11 




06906 


15 


08038 


0000 J 


05960 




BO 


SREL-32,RSVMSW 




06918 


43 


06144 


08034 


05970 




B7 


COMSPC-56 




06930 


49 


05572 




05980 


TEST3 


BD 


TFACD,EVALAD-10 




06938 


43 


06962 


05394 


05990 




BD 


SW2,EVALAD-9 




06950 


43 


07030 


05395 


06000 


TFACC 


TF 


ALPHA, AODCOW 




06962 


26 


02686 


02528 


06010 




BT 


MULT.MULT-i 




06974 


27 


06796 


06795 


06020 




TFM 


EVALAO-9, 1, 10 


7 7 


06986 


16 


05395 


000- I 
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06030 




TDM 


RSYMSW,1,U 


06998 


15 


08034 


OOOOJ 


06040 




BD 


SREL-32,MPYSW 


07010 


43 


06144 


08038 


06050 




87 


COMSPC-56 


07022 


49 


05572 




06060 


SW2 


TDM 


EVALAD-9 


07030 


15 


05395 


00000 


06070 




B7 


ASR 


07042 


49 


06894 




06080 




DAS 


5 


07051 




5 


X 2 


06090 




BNR 


59C07 


07060 


45 


59007 


00000 


06100 




DAC 


1. • 


07071 




1 


X 2 


06110 


• 














06120 


• 


EVALER IS THE ERROR ROUTINE 










06130 


• 














06140 


EVALER 


BT 


EPR INT.EPRINT-l 


07072 


27 


07332 


07331 


06150 




SPTY 




07084 


34 


00000 


00101 


06160 




WATY 


COLL- 12, , , 


TYPE UN0EF1NEC SYMBOL 07096 


39 


02427 


00100 


06170 


EV1 


BD 


ERCOR, ERSTSW 


07108 


43 


07196 


02476 


06180 


CHKND 


TFM 


ADORS 


07120 


16 


03299 


-0000 


06190 




BNR 


CHK2, INPUT+20 


07132 


45 


07152 


02907 


06200 




B7 


TOBB 


07144 


49 


06188 




06210 


CHK2 


CM 


INPUT*20,23,10 


07152 


14 


02907 


000K3 


06220 




BE 


TOHB 


07164 


46 


06188 


01200 


06230 




TR 


INPLT*19,INPUT*2l 


07176 


31 


02906 


02908 


06240 




B7 


CHKND*12,,2 


07188 


49 


-7132 




06250 


ERCOR 


MATY 


CORM, , , 


ERROR CORRECTION ON-LINE 07196 


39 


03355 


00100 


06260 




RCTY 




07208 


34 


00000 


00102 


06270 




TR 


INPLT*19,INSAV-1 


07220 


31 


02906 


02754 


06280 




WATY 


INPUT-10 


07232 


39 


02877 


00100 


06290 




TF 


AODCOW, PLACE 


07244 


26 


02528 


03276 


06300 




TOM 


ERROIG, 1,11 


07256 


15 


03277 


OOOOJ 


06310 




SM 


INRRM.l.lO 


07268 


12 


025*5 


000- 1 


06320 




SM 


STCNT.1,10 


07280 


12 


02513 


000- 1 


06330 




TFM 


CFFA.NCOCFl 


07292 


16 


02629 


-7316 


06340 




ATM 


CFF,REA03 


07304 


17 


02592 


-3444 


06350 


NC0CF1 


OOA 


,0,A2DAD,A2SCT, INSTRN 


07316 




14 








OJ8800-55J0256 










06360 




OC 


It • 


07330 




I 





06370 • 

06380 • EPR INT PRINTS THE ERROR MESSAGE AND REFERENCE TO 

06390 • INDICATE THE STATEMENT IN ERROR 

06400 • 



06410 


EPR INT 


RCTY 








07332 


3* 


00000 


00102 


06420 




TF 


LOPOUT, INPUT-2 






07344 


2* 


03327 


02885 


06430 




WATY 


LOPOUT-8 






0739* 


39 


03319 


00100 


06440 




WATY 


ERLAB 






073*8 


39 


03303 


00100 


06450 




wntv 


INKRM-3 






07380 


IB 


029*2 


00100 


06460 




WATY 


EVALER-21 






07392 


39 


07091 


00100 


06470 




BO 


•♦24, ERSTSW 






07*0* 


43 


07*28 


0247* 


06480 




SF 


NONEX,, f 


KILL AUTO EXECUTION 




07*1* 


12 


00*97 


OCOOO 


06490 




BB2 








07*28 


42 






06500 


• 


















06510 


• 




TEST IF SIZE OF 


OBJECT CORE HAS BEEN EXCEEOEO. 












06520 


• 




LINKAGE - BTM 


CTEST, •♦W I RETURN ADDRESS IF 


ERROR). 










06S30 




















06540 




OS 


6 






07*39 




6 




0*550 


CTEST 


CM 


AODCOW, 99999 




78 


07*3* 


I* 


02928 


R9999 
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PACE 



06560 






ERl-2 


7**8 


46 


07*96 


01200 


06b ?U 






ADOCOMtOB JCRE 


07*60 


24 


02528 


02*96 


06580 




8 I 


ER 1 1 1 300 


07*72 


46 


07*98 


1 300 


06590 


C T 1 


T OM 


C T 1 ♦ 10 1 00 


07*8* 


15 


7*9* 


00000 


06600 




88 2 




74 96 


42 






06610 


ER 1 


00 


• -2 tC T I ♦ 10 


07*98 


43 


07*96 


07*9* 


06620 




TFM 


EVALER-l. ICCOO 


07510 


16 


07071 


JOOOO 


06630 




DC 


lt',» 


07521 




1 




066*0 




BT 


EPR INT.EPRlNT-l 


07522 


27 


07332 


07331 


06650 




TOM 


CT 1*10,01 


0753* 


15 


07494 


0000 1 


06660 




SF 


NONE X 


7546 


32 


00457 


00000 


06670 




87 


CTEST-1,,6 


07558 


49 


74 3N 




06680 


• 














06690 


* 


THE SYMBOL TABLE IS SEARCHED FOR EGUI VALENCE 










06 7C0 


• 














06 7 1 




TDM 


COLL, 


7566 


1 5 


024 39 


OCOOO 


06720 




TR 


COLL-17, COLL-15 


07578 


3 1 


02*22 


02*2* 


06730 


L BACC 


BNF 


LB2, EVALAO-1 


07590 


44 


760* 


05*03 


067*0 




082 




07602 


42 






06750 


L 82 


TF 


B SENT , COLL-2 


076C* 


26 


08*13 


02*37 


06760 




BT 


BS, 8S-1 


076 16 


27 


08120 


081 19 


06770 




BNF 


NIC, EQSH 


07628 


44 


07732 


08 359 


06780 




AM 


BSBF-1,5,10 


076*0 


1 1 


08383 


000-5 


06790 




TF 


ALPHA, BSBF-l, U 


07652 


26 


02686 


0838L 


06800 


L ACCR 


QNF 


•♦60, REL Sm 


0766* 


4* 


0772* 


02*78 


06810 




BNF 


• ♦*8, ALPHA 


07676 


** 


07724 


02686 


06820 




80 


SREL-32,MPYSW 


07688 


43 


06144 


08038 


06830 




TDM 


RSYMSW.l.U 


07700 


15 


08034 


OOOOJ 


068*0 




CF 


ALPHA 


07712 


33 


02686 


00000 


06850 




H7 


GET-1,,6 


0772* 


*9 


06*51 




06860 


SIC 


CM 


SBOLT, 00,10 


07732 


I* 


026*3 


000-0 


06870 




BNE 


• ♦2* 


077** 


*7 


07768 


01200 


Q688Q 




BTM 


EVALER, 50C00 


7 756 


17 


07072 


NCOOO 


06890 




DC 


1, ' 


07767 




I 




06900 




CM 


BSBF-l, LBH M 


07768 


I* 


08383 


K0009 


06910 




BNL 


• -2* 


07780 


*6 


07756 


01300 


06920 




TO 


DGSV, L0SYM8M 


07792 


25 


033*7 


19998 


06930 




TD 


L0SYMB*1, SPSGM 


780* 


25 


19998 


02560 


069*0 


* 


WK I TE 


DISK-WLRC--SAVE CORE SYMBOLS 










06950 




TFM 


I0RT,»*23 


07816 


16 


00565 


-7839 


06960 




B 


IORBC , SDEF 1 , 7 


07828 


*9 


00520 


JOi 39 


06970 




TF 


B2DCF*5, BIDCF*5 


7 6*0 


26 


10193 


101 77 


06980 




TF 


SBCNT, SBOUT 


07852 


26 


02675 


026*3 


06990 




TFM 


LIMITS-5, MAXLIM 


C786* 


16 


03282 


J5997 


7000 




TFM 


L IMITS, LBLIM 










07010 


ROBLK 


AM 


B2DCF»5, SPBL 


07888 


11 


10193 


-00*0 


07020 




R FAD 


DISK-NLRC--READ SYMBOL BLOCK 










07030 




TFM 


IO«T,»*23 


07900 


16 


00565 


-7923 


070*0 




8 


IOCT,SOEF2,7 


07912 


49 


00566 


J01*7 


07050 




BT 


BS, BS- 1 


0792* 


21 


08120 


061 19 


07060 




BD 


LBFNO, EOSW 


07936 


43 


080*0 


08359 


07070 




SM 


SBCNT, 1,10 


079*8 


12 


02675 


OOC-i 


07080 




BP 


ROBLK 


07960 


46 


07888 


01100 
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07100 




TFM 


IORT,»*23 












07972 


16 


00565 


-7995 


07110 




B 


IOGT.SDEF I, 7 












0798* 


49 


00566 


J0139 


07120 




TD 


10SYMBM, DGSV 












07996 


25 


19998 


033*7 


071 30 




TR 


LIMITS-9, PRTLIM-* 












08008 


31 


03278 


02*98 


071*0 




BTM 


EVALER, 5C000 












08020 


17 


07072 


NOCOO 


07150 




DC 


It 1 












08031 




1 




7160 


RC TR 


DS 


2, , 




RELOCATION COUNTFR 




08033 




2 




071 70 


RSYMSM 


OS 


1* . 




ON 


FC« 


RELOCATABLE 


SYMBCL 


08034 




1 




07180 


RLOCSW 


DS 


It t 




ON 


FOR 


RELOCATABLE 


EXPRESSION 


08035 




1 




07190 


LCABSW 


DS 


1 1 t 




ON 


FOR 


RELOCATABLE 


SYMBOL TO TABLE 


08036 




1 




07200 


BStt 


PS 


1 , . 




ON 


INDICATES BLANK 


OPERAND 


08037 




1 




07210 


MPYSW 


DS 


1 












08039 




I 




07220 


LBFND 


AM 


BSBF-1,5,10 












080*0 


11 


08383 


00O-5 


07230 




TF 


ALPHA, BSBF-l ,1 I 












08052 


26 


02686 


0838L 


U72*0 


* 


READ 


DISK-WLRC— RESTORE CORE 


















07250 




TFM 


IORT,»*23 












0806* 


16 


00565 


-8087 


07260 




B 


I0GT,S0EFl,7 












08076 


49 


00566 


J0139 


072 70 




TD 


L0SYM8M, DGSV 












06088 


25 


19998 


033*7 


07280 




TR 


LIMITS-9, PR Tt 1 M~* 












08100 


31 


03278 


02*98 


07290 




B7 


LADOR, ,2 












08112 


49 


-766* 




07300 


• 


BINARY SYMBOL TABLE SEARCH 


SUBROUTINE 














07310 


BS 


TR 


LIM-9, LIMITS-9 












08120 


31 


08391 


03278 


07320 


BSCYC 


TF 


BSBF, CLERER*5 












08132 


26 


0838* 


02705 


07330 




A 


BSBF, LIM 












081** 


21 


0836* 


08400 


073*0 




A 


BSBF, LIM-5 












08156 


21 


0838* 


08395 


07350 




TF 


BSAV, BSBF 












08168 


26 


08390 


0838* 


07360 




A 


BSBF, BSBF 












08180 


21 


06364 


0838* 


07370 




A 


BSBF, BSBF 












08192 


21 


08364 


08384 


07380 




A 


BSBF, BSAV 












0820* 


21 


08384 


06390 


07390 




BO 


•♦2*, BSBF 












08216 


43 


08240 


08384 


07*00 




AM 


BSbF-1, 8,10 












08228 


11 


06383 


000-8 


07*10 




SM 


BSBF-l, 8,10 












08240 


12 


08383 


000-8 


07*20 




c 


BSBF-l, LIM-5 












08252 


24 


01383 


08395 


07*30 




BNE 


• ♦26 












08264 


47 


08290 


01200 


07**0 




TDM 


EOSk, 












0S276 


15 


01359 


ooooo 


07*50 




HB2 














08286 


42 






07*60 




C 


8 SENT , BSBF-l, 11 












08290 


24 


01413 


01361 


07*70 




BNE 


BSNEQ 












08102 


4? 


01321 


01200 


07*80 




TDM 


EOS*., 1,U 












06314 


IS 


01359 


OOOOJ 


07490 




882 














08326 


42 






07500 


BSNEQ 


BH 


BSHI 












08328 


46 


08360 


01100 


07510 




TF 


LIM, BSBF-l 












08340 


26 


01400 


01383 


U7520 




87 


BSCYC 












08352 


49 


01132 




07530 


8SHI 


TF 


LIM-5. BSBF-l 












013*0 


2ft 


01399 


08313 


07540 




87 


BSCYC 












0837? 


49 


01132 




07550 


EQSW 


DS 


, 8 SHI- I 












08399 









07560 


8S8F 


oc 


6,0 












0838* 




6 








-00000 




















07570 


8SAV 


oc 


6»0 












08390 




6 








-00000 




















07580 


11* 


oc 


10,0 












01400 




10 








-oooooooco 




















07590 




oc 


1 1 • 












01401 




1 




07600 


8SEHT . 


OS 


12 










Q it 


01413 




12 
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07610 • 

07620 • ROUTINE TO LOAD LABELS I MO SYMBOL TABLE 

07630 • 



07640 


LOLHL 


C 


CL E RE R ♦ 1 1 » INPimiG 


08414 


24 


0271 1 


02897 


07650 




HNE 


• ♦24 


0842* 


47 


08450 


01200 


07660 


SNOTCC 


HTM 


OUTPUT, PHASEA 


08438 


17 


09686 


-3408 


07670 




TCM 


TSPEC, 1 


08450 


15 


10248 


00001 


07680 




T F 


LAB, INPUTMO 


08462 


2* 


03343 


02897 


07690 




BD 


LBCK2. LAB 


08474 


43 


08530 


03343 


07700 




BO 


LBCK2, LAB- I 


08486 


43 


08530 


03342 


07710 




TF 


LAB, LAB- 2 


08498 


26 


03 343 


03341 


07720 




07 


•- 3fc 


08510 


49 


08474 




07730 




TF 


LAB, LAB- 2 


08518 


26 


03343 


03341 


077*0 


L8CK2 


C 


X03,LAB, , 


. UK C8530 


24 


10245 


03343 


077*0 




BE 


• *84 


08542 


46 


08626 


01200 


07760 




C 


X21.LAB,, 


/ OK 08554 


24 


10247 


03343 


07770 




BE 


•♦60, , , 


()♦-•!, AND BLAfcK ARE NOT ALLOWED 08566 


46 


08626 


01200 


07780 




C 


X33, LAB 


06578 


24 


10243 


03343 


07790 




BH 


ER2B 


08590 


46 


09498 


01100 


07800 




C 


X69, LAB 


08602 


24 


10241 


3 343 


07810 




BL 


• ♦24 


08614 


47 


08638 


01300 


07820 




TDM 


TSPEC ,0 


08626 


15 


10248 


OCOOO 


07830 




BNF 


LBCK2-12, LAB-l 


08638 


44 


08518 


03342 


07840 




BO 


ER2B, T SPEC 


08650 


43 


09498 


1C248 


07850 




TF 


B SENT , INPUTMO 


08662 


26 


08413 


02897 


07860 




SF 


B SENT 


08674 


32 


08413 


OCOOO 


07870 




BD 


• ♦60, INPUTMO 


08686 


43 


08746 


02897 


07880 




BC 


• ♦48, INPUT>9 


08698 


4 J 


0874* 


02896 


07890 




TF 


B SENT , INPUTS 


08710 


26 


08413 


02895 


079C0 




CF 


BSENT-9 


08722 


33 


08404 


OOCOO 


07910 




TF 


BSENT-10, HED 


08734 


26 


08403 


10237 


07920 




BT 


BS, BS-1 


08746 


27 


08120 


08119 


07930 




BD 


ER4A, EOSW 


08758 


43 


09594 


08359 


07940 




CM 


BSBF-1, LBLIM 


08770 


14 


08383 


K0009 


07950 




BNL 


LDSOK 


08782 


46 


09058 


01300 


07960 




CM 


SBCuT, CO, 10 


08794 


14 


02643 


000-0 


07970 




BE 


LOSOK 


0B8C6 


46 


09058 


C1200 


07980 




TD 


DGSV, LOSYMBM 


08818 


25 


03347 


19998 


07990 




TD 


LOSYMB+1, SPSGM 


08830 


25 


19998 


02560 


08000 


• 


IOCS 


CALL-WRITE OISK WLRC 










08010 




TFM 


IORT,»*23 


08842 


16 


00565 


-8865 


08020 




B 


I0«BC,SDEF1,7 


08854 


49 


C0520 


JO 13 . 


08030 




TFM 


LIMITS, LBLIM 


08866 


16 


03287 


K0009 


08040 




TFM 


LIMITS-5, MAXL I M » » 


LEFT FULL BLOCK LIMIT 08878 


16 


03282 


J5997 


08050 




TF 


SBCNT, SBOUT 


08890 


26 


02675 


02643 


08060 




TF 


B2CCF^5, B10CF»5 


089C2 


26 


10193 


10177 






TF 


L C SR ♦ I I » B S8F - I 


08914 


26 


09057 


08 38 3 


08080 


LCCSCY 


AM 


B?DCF*S, SPBL.IO 


08926 


11 


10193 


CCOMO 


08090 


• 


READ 


DISK-WLRC 










08100 




TFM 


IOR T,»*23 


08938 


16 


00565 


-8961 


8110 






IOC T , SL)EF 2 , 7 


0895C 


49 


00566 


JO 14 7 


08120 




BT 


BS, BS-1 


08962 


27 


08120 


081 19 


081 30 




OD 


ER4, EOSM 


08974 


43 


09546 


08359 


08140 




SM 


SBCNT, 1,10 


08986 


12 


02675 


000-1 


00150 




RNZ 


LDDSCV 


08998 


47 


08926 


01200 


08160 


• 


IOCS 


C AL L -RE AO DISK WLRC 


81 
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PAGE 


08170 




TFM 


IORT,»*23 


09010 


16 


00565 


-9033 


08180 




B 


IOG T , SDEF 1 , 7 


09022 


49 


00566 


J0139 








LQSYWB+1, DGSV 








3 347 


08200 


LCSK 


TFM 


BSbF-l, •-• 


09046 


16 


08383 


-CCOO 


08210 


LCSOK 


SM 


PRTLIM, 17,10 


09058 


12 


02502 


000J7 


08220 




CM 


PRTLIM, MA XL I M 


09070 


14 


02502 


J5997 


OH230 




BL 


TABFUL 


09082 


47 


09322 


01300 


08240 




TR 


L1MITS-9, PRTLIM-4 


09094 


31 


03278 


02498 


08250 




TF 


SVDGMl, BSBF-1 


09106 


26 


09141 


08383 


08260 




AM 


SVUGM1* 6,10 


09118 


I I 


09141 


000-6 


08270 


SVOG 


TD 


DGSV, •-• 


09130 


25 


03347 


00000 


08280 




TF 


•♦18, SVDGMl 


09142 


26 


09160 


09141 


08290 




TDM 


SvDCM 1 , ,6 


C9154 


15 


0914J 


00000 


08300 




DC 
• 


It ' •• 


09165 




1 




08310 




SM 


LDTR*6, 17,10 


09166 


12 


C9196 


0C0J7 


08320 




SM 


LD TR ♦ 1 1 , 17,10 


09178 


12 


09201 


000J7 


08330 


LDTR 


TR 


• -• , •-• , , 


SHIFT SYMBOLS 09190 


31 


00000 


00000 


08340 




TF 


BSBF-l, BSENT , 6 


092C2 


2* 


0838L 


08413 


08350 




BNF 


•♦48,RELSW 


09214 


44 


C9262 


02478 


08360 




SF 


ADDRS 


09226 


32 


03299 


00000 


08370 




BD 


•♦24.LDABSW 


09238 


43 


09262 


08036 


08380 




CF 


ADDRS 


09250 


33 


03299 


00000 


08390 




TF 


•♦30, BSBF-l 


09262 


26 


09292 


08383 


08400 




AM 


•♦18, 5,10 


09274 


1 1 


09292 


000-5 


08410 




TF 


•-•, ADDRS 


09286 


26 


00000 


03299 


08420 




TD 


SVOG*ll» 0GSV,6 


09298 


25 


0914J 


03347 


08430 




OTM 


OLTPUT, PHASEA 


09310 


17 


09686 


-3408 


08440 


TABFUL 


AM 


B2DCF+5, SPBL.IO 


09322 


11 


10193 


OOOMO 


08450 




C 


SBOUT, SBMAX 


09334 


24 


02*43 


02673 


08460 




BNL 


ER19 


0934* 


4* 


09*14 


01300 


08470 




AM 


SBOUT, 1,10 


09358 


11 


02643 


000-1 


08480 




TD 


DGSV, LOS VMB* 1 


09370 


25 


03347 


19998 


08490 




TD 


L0SVMB*1, SPSGM 


09312 


25 


19998 


02560 






I oc s 


CALL—WRlTc D 1 5K WLRC 










08510 




TFM 


I0RT,«*23 


09394 


I* 


005*5 


-9417 


08520 




D 


IORBC , SDEF 2 , 7 


0940* 


49 


00520 


J0147 


08530 




TD 


LOSYMBM, DGSV 


0941* 


25 


19998 


03347 


08540 




TFM 


PRTLiM, LBiIM-17 


09430 


1* 


02502 


J9992 


08550 




TFM 


LDTR* 11, L8L I M- 1 1 


09*42 


1* 


09201 


J9998 


08560 




TFM 


LDTR+ 6, LBLIH-28 


09494 


1* 


0919* 


J9981 


08570 




TF 


LOSYMB, CLEREft+52 


09*** 


2* 


19997 


02752 


08580 




TFM 


BSBF-1, LBLIM-17 


09478 


1* 


0t3t3 


49992 


08590 




B7 


LDSOK 


09*40 


49 


090 9 • 






ER2B 


TFM 


FUAI PR- 1 . ? ft ft ft ft 


09491 


1* 


0707 1 


KOOOO 


08*10 




DC 




09909 




1 




08620 




BT 


EPR1NT, EPRINT-1 


09910 


27 


07332 


07331 


08630 




BD 


ERCOR, ERSTSW 


09921 


43 


0719* 


02476 


08640 




BTM 


OUTPUT , PHASEA 


0993* 


17 


096*6 


-340* 


08*50 


• 


READ 


OISK- WLRC 










08460 


ER4 


TFM 


IORT,»*23 


099** 


I* 


009*9 


-9569 


01*70 




B 


I0GT,SDEFi,7 


09598 


49 


009** 


JO 139 


08*10 




T* 


LIMITS-9, PRUIM-* 


099T0 


31 


03278 


02498 


08*90 




TD 


LOSVKBM. DGSV 


09582 


29 


19998 


033*7 


08700 


IMA 


TFM 


EVALER- 1 • 40000 


£9 0999* 


t* 


07071 


KOOOO 
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PAGE 


08710 




DC 
• 


I » ' »• 




096C5 




1 




08720 




B7 


ER28M2 




09606 


49 


09510 




087)0 


6R19 


TFM 


EVALER-l, 17900 




09614 


16 


07071 


J7900 


087*0 




DC 


1, • ,• 




09625 




1 




08750 




TDM 


ASTSta.1,11 




09626 


15 


102*9 


OOOOJ 


08760 




NOP 


OUTPUT » PMA S6 A 




09638 


41 


09666 


03*08 


08770 




BT 


EPR INT.EPRINT-I 




09650 


27 


07332 


07331 


08780 




TFM 


•-23,17,10, 


CHANGE HOP TO BTM 


09662 


16 


09639 


000J7 


08790 




87 


• -36 




09674 


49 


09638 




08600 


• 
















08810 


• OUTPUT ROUTINE 












08820 


• 
















088)0 




CS 


5 




09685 




5 




088*0 


OUTPUT 


TF 


0T2DCF »5, OUTOCF* 5 




09686 


26 


10225 


10209 


08850 




s 


0T20CF*5, SVMTAO 




09698 


22 


10225 


026*1 


08860 




CM 


OT2DCF*5,-2,10 




097 10 


14 


10225 


000-K 


08870 




BH 


ER2C, , , 


INTER SECTOR OVERFLOW 


09722 


46 


10072 


01100 


06880 




HO 


2PASS, 2PSSM 




09734 


43 


09882 


02*77 


08890 




BNR 


2 SEC T , 1NPUT2»99 




097*6 


45 


09826 


03139 


08900 




TD 


INPUT2*99, SPSGM 




09756 


2* 


03139 


02560 


08910 




TDM 


0LTDCF*8, 1 




09770 


1* 


10212 


C0001 


08920 


• ! 


NR I TE 


I SK-NO WLRC 












08930 




TFM 


IOR T ••♦23 




09782 


16 


00565 


-9805 


089*0 




B 


IORBCOUTDFI ,7 




09794 


49 


00520 


J0155 


08950 




AM 


0UTDCF*5, I 




09806 


11 


10209 


-0001 


08960 




B 7 


OUTPUT- I, ,6, , 


RETURN 


09616 


49 


0968N 




08970 


2 SECT 


TUM 


0UTDCF*8, 2 




09826 


15 


10212 


00002 


08980 




IDC S 


CALL-WRl TE Dl SR-NC 


WLRC 










08990 




TFM 


1QRT,«*23 




09836 


16 


00565 


-9861 


09000 




a 


IORBC .OUTOF 1 , 7 




09650 


49 


00520 


J0155 


09010 


2S 


AM 


0UTDCF*5, 2 




09862 


11 


10209 


-0002 


09020 




07 


GUTPUT-1,,6 




09874 


49 


0968N 




09030 


2PASS 


CM 


2PTR*6, INPUT2*208 




09682 


1* 


099*8 


-32*8 


090*0 




BL 


• ♦2* 




0989* 


*7 


09918 


01300 


09050 




BTM 


2PS0UT,»*12 




09906 


17 


09978 


-9918 


09060 




TR 


2PBUF ,INPUT2 




09918 


31 


10062 


030*0 


09070 




TD 


2PBUF*7,ERRDIG 




C9930 


25 


10069 


03277 


09080 


2PTR 


TR 


INPUT2*8,2PBUF ,2 




099*2 


31 


-30*8 


10062 


09090 




AM 


?PTR*6,8, 10 




0995* 


11 


099*6 


000-8 


09100 




I- 7 


OUTPUT- 1 , ,6 




09966 


49 


C968N 




091 10 




CS 


5 




C9977 




5 




09120 


2PS0UT 


TF 


T 2CC F ♦ 5 » 0UT0CF + 5 




09978 


26 


10225 


10209 


091 30 




AM 


0UT()CF*5,2, 10 




09990 


U 


10209 


000-2 


091*0 




TD 


INPLT2+206, SPSGM 




1C0C2 


25 


032*8 


02560 


09150 


• 


IOCS 


CAll-MRITE D! SK tal TH WLRC 










09160 




TFM 


JORT,«»23 




1001* 


16 


00565 


J0037 


091 70 




H 


IORBC .0UT0F2, 7 




10026 


*9 


00520 


JO 16 3 


09180 




TFM 


2PTR*6, INPUT2»8 




1C038 


16 


099*8 


-30*8 


09190 


2PR £ 


B 


2PS0UT-1,,6 




1005C 


*9 


0997P 


OCOOO 


O92C0 


2PUUF 


r.sc 


9,C» 




10062 




9 








CCQCOOOO' 












092 10 


ER20 


NOP 


ULTPUT-1,,6 




10072 


*l 


0969N 


CCOOO 


09220 




TDM 


ASTSW, 1,11 




1C08* 


15 


102*9 


OOOOJ 


09230 




TFM 


EVAIER- 1 , 2 7000 


8-3 


10096 


16 


07071 


K7000 








162C-1**3 MCM-TCR 


I ucdc i fu •> CDC 1 1 — r DuACC * 








PAGE 


092*0 




DC 


1 » • 




101C7 




1 








HT 


E PR INT , EPR I NT- I 




10108 


2 7 


07 332 


7 3 31 


09260 




TFM 


ER2C*li*9,lO 




IC120 


16 


10073 


000M9 


09270 




07 


UUTPUT-1,,6 




10132 


*9 


0968N 






SC6F1 


DSC 


2,CC, , 


PLUS 01 WITH wRGNC LENGTH 


10139 




2 








CO 


















DSA 


BIDCF 




101*5 




5 


X 1 












101*5 




JO 1 72 




093C0 




DC 


1, • 




101*6 




I 






SCE F 2 


CSC 


2, CO, , 


PLUS DISK WITH WRCNG LENGTH 


101*7 




2 








CO 
DSA 


B2DCF 




10153 




5 


X 1 












1015 3 




JO 188 




09330 




DC 


1, ' 




1015* 




1 




093*0 


OUTCFl 


DSC 
02 


2,02, , 


PLUS DISK NOT WRONG LENGTH 


10155 




2 








OSA 


OUTOCF 




10161 




5 


X I 












10161 




J020* 




09360 




DC 


1, • 




10162 




1 




09370 


0UTDF2 


DSC 
00 


2,00, , 


PLUS DISK HI TH WRONG LENGTH 


10163 




2 




09380 




OSA 


0T20CF 




10169 




5 


X 1 












10169 




J0220 




09390 




DC 


It* 




10170 




1 




09*00 


B1QCF 


CDA 


, 0, , SPBL ,SBFADD 




10172 




14 








0-C000-*OJ5998 












09*10 




DC 


l,' 




IQ166 




1 




09*20 


B2CCF 


COA 


,0,— »,SPBL,SBFADD 




10188 




14 








Q-0C00-*0J5998 












09*30 




DC 


1,' 




102C2 




I 




09**0 


OUTOCF 


DOA 


»Qt*-*t 1.INPUT2 




10204 




14 








0-0000-01-30*0 












09*50 




DC 


I, • 




10218 




I 




09*60 


0T2CCF 


COA 


,0,*-»,2,l NPUT2+8 




10220 




14 








0-0000-02-30*8 












09*70 




oc 


1*' 




10214 




1 




09*10 




OS 


i 




10215 




1 






MEO 


oc 


2,0 




10117 




2 




09500 




-o 

OS 


Z 




102J9 




2 




09*10 


169 


oc 


2* 69 




10141 




2 








09 














09*20 


nil 


oc 


2. 23 




10241 




2 
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PAGE 




3 


















rr 
i 




_ 










T SP EC 


OS 


I 


102*8 




1 




09560 


ASTSW 




1 










09570 
















09580 


• 


PHASE 


A 1 — INITIALIZATION 










09590 
















04600 


• •• 1 


BRING 


PRINT HE AO DOWN TO CORE CLEAR ANC RETURN 










09610 


PR TAD 


DDA 


, 1 ,B8DAD,87SCT,89MA0, , , DDA PAGE CELO TITLE 


10250 




1* 








IJ 70 


1-0*J65C0 










09620 




? C 


It ' 


10264 








09630 


PRTHC 


osc 


2,22,,, DEEINER TO RE AC PAGE OVERFLOW 


10265 




2 




096*0 




22 
DSA 


PR T AD 


10271 




5 


X 1 










10271 




J0250 




09650 




DC 


1 , • 


10272 




1 




09660 


CONTR 


C !> A 


D 9M AD ♦ 50 1 


10277 




5 


X 1 










102 7 7 




J 700 1 




09670 




DC 


3i 18' i m PRINT SPS CONTROL RECORD 


10280 




3 




09680 


ST AR T 


J 8 ' 
TEM 


1UK I i*>23i i GET INDICATOR RctURO 


10282 


1 6 


00565 


J0305 


09690 






1 00 T t PR THD , 7 


1029* 




00566 


J0265 


09700 






B 9M AD » C L ER ER ♦ 1 ♦ » CLEAR CONTROL HEADER AREA 


103C6 


3 1 


16500 


02 701 


09710 






B9MAD*52iCLER€R*1 


10318 


31 


16552 


02 70 1 


09720 






B ALJ ♦ lO*iLLtRtR*l 


10 3 30 


3 I 


1660* 


02 70 1 


09730 






B9MA0*l63iCLERER*20t , 


103*2 


26 


16663 


02720 


097*0 




T EM 


I0R T , •♦ 2 3 » # 


1035* 


16 


00565 


J0377 


09750 




R 


IORBC tPRTHD » 7 i PUT INOICATOR RECCRC 


10366 


*9 


00520 


J0265 


09760 




3* 


i 09 7 1 , , SKI P TO 1 


10 378 


3* 


00000 


00971 


097 70 




T EM 


I o a 1 t • ♦ 2 3 


10390 


16 


00565 


J0*l 3 


09780 




D 


I0G r #MCADEE t 7 


10*C2 


*9 


00566 


J557* 


09790 




T DM 


MOCTOCiO 


IC* I* 


1 5 


16023 


ocooo 


09800 




TDM 


M0C0C ,0 


10*26 


1 5 


16022 


00000 


09810 




Tp 


MONAME iCLERER* 1 1 


10* 38 


26 


16035 


02711 


09820 




T E 


M0inN0fCLERER*3 


10*5C 


26 


16039 


02703 


098 30 




TEM 


M0MAD»99999 


10*62 


16 


00*15 


R999^ 


098*0 




TEH 


INKRM, 99999 


10*7* 


16 


02565 


R9999 


09850 




TEM 


A0DC0W»2*01 


1 0*86 


16 


02528 


-2*01 


09860 




TE 


L » MOML 


10*98 


26 


02520 


160*1 


098 70 




TD 


NO I SE tMQNQ I S 


105 10 


25 


0252 1 


160** 


09380 




TE 


SLBNO iMOSBNO 


10522 


26 


02523 


160*3 


09890 


START2 TDM 


, 


1053* 


15 


00000 


00000 


099C0 




TR 


1 9 9 9 9 i C L E R E R ♦ 5 2 


105*6 


3 1 


19999 


02752 






BNR 










uuuuu 


09920 




TDM 


PROCRE, 2, 11 


10570 


15 


02*97 


OOOOK 


09930 




TEM 


HCL IM.LBLIM 


10582 


16 


02507 


KCC09 


099*0 




B7 


AIC1 


1059* 


*9 


10682 




09950 




TR 


39SS9,CLERER»52 


106C2 


31 


39999 


02752 


09960 




BNR 


• ♦** 


1061* 


*5 


10658 


00000 


09970 




r dm 


PROCRE,*, 11 8f» 


10626 


15 


02*97 


OOOOM 



L62C-l**3 MONITOR I VERSION 2 SPS II-C PHASE A 



09980 






TEM 


HCL !M,LBLIM*U76»l 7 


09990 






07 


A1C 1 


1C000 






TOM 


PROCRE .6, 11 


10010 






TEM 


HCL IM,LBLIM*2*l 176«i 


10020 


A1CI 




TD 


OBJCRE-*, PROCRE 


10030 






TE 


PRTLIM, HCLIM 


100*0 






SM 


PRTLIM, 17,10 


10050 






TR 


LIMITS-9, PRTLIM-* 


10060 






TE 


LD TR ♦ 1 1 # LIMITS 


10070 






TE 


LD TR ♦ 6, LIMITS 


10080 






SM 


LOTR + U, 11,10 


10090 






SM 


LOTR* 6, 28,10 


10100 






TE 


•♦30,OBJCRE 


10110 






SM 


•♦18, 1, 10 


10120 






TE 


•-•,CLERER*52 


10130 






TD 


INCODE .H0EX6C 


101*0 






CE 


INCOOE 


10150 






CM 


INCOOE ,03, 10 


10160 


ST2L 




BL 


C15P 


101 70 






BE 


Cl*P 


10180 






B7 


C13P 


10190 


PROCON 


BNR 


•♦2*, INPUT-10 


10200 






TEM 


INPLT-10,00, 10 


10210 






TFM 


•♦30, INPUT-tl 


10220 






AM 


•♦18,2,10 


10230 






CF 


•— • 


102*0 






CM 


• -6,INPUTM5l 


10250 






BL 


•-36 


10260 






CM 


INPLT-10,l*,lO 


10270 






BNE 


CALLA2 


10280 






TR 


99MAD*500,CLERER^2 7 


10290 






TR 


B9MAD*516, INPUT-1 1 , 


10300 


• •• 


ROUTINE TO STORE THE PAGE 1 


10310 


» 


THE CONTROL RECORD WITH AS 


10320 


• 


POSITIONS WILL BE THE PAGE ; 


10330 






BNR 


•♦20, INPUT-8,,, 


103*0 






B7 


SLP-12,,,, 1 


10350 






C* 


INPUT-8, 1*1*. 8,, 


10360 






BNE 


SLP-12, ,t, NO 


10370 






TFM 


IORT..+23,, YES 


10380 






B 


I0GT.PRTHD,7 


10390 






TR 


B9MAD.INPUT-7, , 1 


10*00 


REVSKN 


TFM 


• ♦35,B9MADU59 


10*10 






SM 


•♦23,2* 10 


10420 






BNR 


•-l2.»-» 


10*30 






TFM 


— 1,0,610 


104*0 






TFM 


I0RT,»*2)»t 1 


104S0 






B 


IORBC «PATHD, 7 


10440 






TFM 


S8NR*11.1NPUT-I0t« 


10470 


SLP 




AM 


SBNR*11 V 2,10 


10*80 


StNR 




BNR 


•♦20»»-» 


10490 






B7 


SLPX 


10900 






C 


CLERERM,SaNR*li.ll 


10910 






BNE 


SLP 


10910 






TF 


STRM1,SBN*U11 


109)0 






TF 


STR+6.SBNRUI 



TEST FOR RM 

NOT AN ASTERISK -KEEP GOING 
TEST FOR A SECOND ASTERISK 



MOVE INOICATOR RECORD TO DISK AREA 



PUT INOICATOR RECORD 



COMPRESS BLANKS 



86 



10638 


16 


02507 


M0001 


10650 


49 


10682 




10658 


15 


02*97 


00000 


10670 


16 


02507 


N9993 


10682 


25 


02*92 


02*97 


1069* 


26 


02502 


02507 


10706 


12 


02502 


000J7 


10718 


31 


03278 


02*98 


10730 


26 


09201 


03287 


107*2 


26 


09196 


03287 


10754 


12 


09201 


000J1 


10766 


12 


09196 


COOK 8 


10778 


26 


10808 


02*96 


10790 


12 


10808 


000- I 


10802 


26 


00000 


02752 


10814 


25 


02*91 


00*26 


10826 


33 


02*91 


00000 


10838 


I* 


02*91 


000-3 


10850 


*7 


13376 


01300 


10862 


46 


13320 


01200 


1087* 


49 


1326* 




10882 


45 


10906 


02877 


10894 


16 


02877 


000-0 


1C906 


16 


10936 


-2876 


10918 


11 


10936 


000-2 


10930 


33 


COOOO 


CCOOO 


10942 


1* 


10936 


-3038 


10954 


47 


10918 


01300 


10966 


14 


02877 


OOOJ* 


10978 


47 


1392* 


01200 


10990 


31 


17000 


02727 


110C2 


31 


17016 


02876 


11014 


45 


11034 


02879 


11026 


49 


11166 




110)4 


14 


02879 


0J*14 


11046 


47 


11166 


01200 


nosa 


16 


00569 


J1081 


11070 


49 


00566 


J0265 


11082 


31 


14500 


02880 


11094 


14 


11129 


J6459 


1UC4 


12 


11129 


000-2 


11118 


4§ 


11104 


00000 


111)0 


14 


1U2R 


000-0 


11142 


14 


00949 


J1165 


11194 


49 


00920 


J0265 


11144 


14 


11201 


-2877 


una 


11 


11201 


000-2 


into 


49 


11210 


00000 


11203 


49 


11302 




11210 


24 


02701 


1120 J 


11222 


47 


1117a 


01200 


112)4 


2* 


1129) 


11201 


1124* 


24 


11288 


11201 



162-Q-1443 MONITOR I VERSIUN 2 SPS Il-q PHASE A 



10540 




SM 


S TR ♦6t I , 10 




I 0550 




AM 


STH*U, I, 10 




10560 


STR 


TR 


• - • , •- • 




105 70 




B7 


SBNR 




10580 


SLPX 


CM 


SBNR ♦ 1 1 , I NPUT- 


10*2«ll , , 


I 0590 




BL 


• ♦ 36 




10600 




C 


INPLT-10»2» 10, 


CH2*10 


10610 




HE 


C IP 




10620 




CM 


SBNR ♦ 1 I , INPUT- 


10*2»14 


10630 




bl 


• ♦36 




10640 




c 


INPLT- 10*2» 1 3i 


C2*2« I 3 


10650 




BE 


C 2P 




10660 




CM 


SBNR*l 1 , INPUT- 


10*2»15 


10670 




BL 


• ♦ 36 




10680 




C 


INPLT- 10*2»14i 


C3^2»14 


10690 




BE 


C 3P 




10700 




CM 


SBNR^U , INPUT- 


1 0* 2 • I I 


1071 




BL 


• ♦ 36 




10720 




c 


!NPLT-lO*?MOt 


C4^2»10 


10730 




BE 


C4P 




10740 




CM 


SBNR ♦ 1 1 , I NPUT- 


I 0* 2 • I 


10750 




BL 


• ♦36 




10760 




C 


INPLT-10^2«9,C5^2»9 


10770 




BE 


C5P 




10780 




CM 


S8NR*U .INPUT- 


10f2»2Q 


10790 




BL 


• ♦36 




10800 




C 


INPLT-10+2M9, 


C6+2M9 


10810 




BE 


C6P 




10820 




CM 


SBNR ♦ 1 I , INPUT- 


IQ*2M6 


10830 




BL 


• ♦36 




10840 




C 


INPLT-10^2* 15. 


C7+2M5 


10850 




BE 


C 7P 




10860 




CM 


SBNR+U .INPUT- 


10+2#11 


10870 




BL 


• ♦36 




10880 




C 


INPLT- 10*2* 10. 


C8+2»10 


10890 




BE 


C8P 




109C0 




CM 


SBNR ♦ 1 I , INPUT- 


1 0+2*5 


10910 




BL 


• ♦36 




10920 




C 


INPLT-lO+2»4,C9+2»4 


10930 




OE 


C9P 




10940 




CM 


SBNR ♦ 1 1 , INPUT- 


1 0* 2 • 1 7 


10950 




BL 


• + 36 




10960 




C 


INPLT-1C+2* 16* 


C I I ♦ 2 • 1 6 


1097U 




HE 


C 1 IP 




10980 




CM 


SBNRMl.INPUT- 


I 0*2 • i 7 


10990 




BL 


• ♦36 




1 1000 




r. 


INPLT-10*2»16» 


CUA*?'»16 


I 1010 




Hf 


C 1 UP 




I 1020 




CM 


SBNR ♦ 1 1 , INPUT- 


1 0*2 • L 


1 1030 




BL 


• ♦36 




11040 




I 


INPLT-10*2»9,C 12*2»9 


I 1050 




BE 


C 12P 




11060 




CM 


SBNRWi .INPUT- 


I 0*2« I 5 


1 1070 




BL 


• ♦36 




11080 




C 


INPCT-10*2»14, 


C13*2»14 


1 1090 




bE 


C13P 





RECOGNIZE CONTROL STATEMENT 



I 1258 


12 


11288 


000- I 


I 1270 


11 


1 1293 


000- 1 


11282 


31 


00000 


00000 


1 1294 


49 


11190 




1 1 302 


14 


1 1201 


-2899 


11314 


47 


1 1350 


01300 


11326 


24 


02897 


1482 1 


11338 


46 


12644 


01200 


U35C 


14 


11201 


-2905 


11362 


47 


11398 


01300 


11374 


24 


02903 


14849 


11386 


46 


12724 


01200 


I 1398 


14 


1 1201 


-2907 


1 1410 


47 


1 1*46 


01300 


11422 


24 


02905 


14879 


1 1434 


46 


12844 


01200 


1 1446 


14 


11201 


-2899 


11458 


47 


I 1494 


01300 


11470 


24 


02897 


14901 


1 1482 


46 


1 3024 


012C0 


11494 


14 


1 1201 


-2897 


I 15C6 


47 


11542 


01300 


11518 


24 


02895 


14921 


11530 


46 


1 3C44 


01200 


11542 


14 


11201 


-2917 


11554 


47 


11590 


01300 


1 1566 


24 


02915 


14961 


1 1578 


46 


13064 


01200 


11590 


14 


11201 


-2909 


1 16C2 


47 


1 1638 


01300 


11614 


24 


02907 


14993 


1 1626 


46 


13084 


0120C 


1 1638 


14 


11201 


-2899 


1 1650 


47 


1 1686 


01 300 


11662 


24 


02897 


15015 


11674 


46 


13104 


01200 


11686 


14 


11201 


-2887 


11698 


47 


11734 


01300 


11710 


24 


C2885 


15025 


11722 


46 


13124 


01200 


117 34 


14 


11201 


-2V1 I 


1 1746 


47 


11 782 


I 300 


11758 


24 


G2909 


15091 


I 11 7 


46 


13204 


01200 


i 1 7 82 


14 


1 1201 


-291 1 


i 1794 


4 7 


11830 


01300 


i 1806 


24 


02909 


15125 


113 18 


46 


13224 


012C0 


U83C 


14 


11201 


-2b97 


11B42 


47 


11878 


01300 


11854 


24 


02895 


15145 


1 1866 


46 


13244 


01200 


1 1676 


14 


11201 


-2907 


11890 


47 


11926 


01300 


U9C2 


24 


02905 


15175 


I 1914 


46 


13264 


Ol^OC 



1620-1443 MONITOR I VERSION 2 SPS I I-C PHASE A 



11100 
1 11 10 
11120 
11130 

I 1 1 40 
11150 
11160 
11170 

I I 180 
11190 
1 1200 
11210 
11220 
11230 
1 1240 
11250 
11260 
11270 
11280 
1 1290 
11300 
11310 
11320 
11330 
1134U 
11350 
11360 
11370 
11380 
11390 
11400 
11410 
11420 
11430 
11440 
11450 
11460 
11470 
11480 
11490 
11500 
11510 
11520 
11530 
11540 
11590 
11560 
11570 
H560 
11990 
11600 
11610 
11620 
11630 
11640 
11690 



CM SBNRMl f INPUT-10*2»20 

BL •♦36 

C INPUT-10*2»19,U4 + 2»19 

BE C14P 

CM SBNRHlt INPUT-1Q*2«21 

BL »06 

C INPUT-10*2»20,C15^2»20 

BE C15P 

CM SBNRMl,INPUT-10*2«9 

BL •♦36 

C INPLT-10*2»8,Ci6+2*8 

BE CUP 

CM SBNRM1,INPUT-IQ*2»15 

BL »#36 

C INPUT-10*2» 14, CI 7*2*14 

NOP C17P 

CM SBNR*U» INPUT-10 + 2M2 

BL •♦36 

C INPUT~lO*2Ml,Cl7A*2«ll 

BE C17AP 

CM SBNRMl, INPUT~10*2»15 

BL • ♦36 

C INPLT-10*2M4,C18*2«14 

BE C18P 

CM SBNR + U, INPUT-10*2»16 

BL •♦36 

C INPUT-10*2*15,C19f2M5 

BE C19P 

CM SBNR+U, 1NPUT-10*2»18 

BL • ♦36 

C INPtT~10+2M7,C20*2»i7 

OE C2CP 

CM SBNR+U, |NPUT-10*2»12 

BL • ♦ 36 

C INPUT-10*2MI,C2U2«U 

BE C21P 

CM S8NRM1, 1*PUT-10*2*14 

BL »*36 

C INPUT-10+2»13,C22*2»13 

BE C22P 

CM SBNR+ll, INPUT^lQf2»5 

BL •♦36 

C INPUT-10«-2*4,C23*2»4 

BE Q2 3P 

CM SBNR*ll f !NPUT-10*2»9 

8L ♦♦36 

C lNPliT-10*2»8»C24*2»8 

BE C24? 

CM S8WUU, !NPUT-10»2*5 

BL ♦♦36 

C INPur-lO+7«4, C25*J«4 

BE C25P 

CM SBN**U,t*PUT~l0*2»2? 

BL ♦♦36 

C INPLT- 10* a»26,C26»2»2* 

86 C26P 



85 



11926 


14 


11201 


-2917 


11938 


47 


11974 


01300 


11950 


24 


02915 


15215 


I 1962 


46 


13320 


01200 


11974 


k4 


11201 


-2919 


U986 


4 7 


12022 


01300 


1 1 998 


24 


02917 


15257 


12010 


46 


13 376 


01200 


12022 


14 


11201 


-2895 


12034 


4 7 


12070 


01300 


12046 


24 


02893 


15275 


12058 


46 


13420 


01200 


12070 


14 


11201 


-2907 


12082 


47 


12118 


01300 


12094 


24 


02905 


15305 


121C6 


41 


13440 


OCOOO 


12118 


14 


11201 


-2901 


12130 


47 


12166 


01300 


12142 


24 


02899 


15329 


12154 


46 


13460 


01200 


12166 


14 


11201 


-2907 


12178 


47 


12214 


01300 


12190 


24 


02905 


15359 


122C2 


46 


13480 


01200 


12214 


14 


11201 


-2909 


12226 


47 


12262 


01300 


12238 


24 


02907 


15391 


12250 


46 


13524 


01200 


12262 


14 


11201 


-2913 


12274 


47 


12310 


01300 


12286 


24 


02911 


15427 


12298 


4* 


13544 


01200 


12310 


14 


11201 


-2901 


12322 


47 


12358 


01300 


12334 


24 


02899 


15451 


12346 


4* 


13720 


01200 


12398 


14 


11201 


-2905 


12370 


47 


1240* 


01300 


12382 


24 


02903 


13479 


12394 


4* 


13740 


01200 


12406 


14 


11201 


-2887 


12418 


47 


12494 


01300 


12430 


24 


02889 


19489 


12442 


4* 


137*0 


01200 


12494 


14 


11201 


-2899 


124*4 


47 


12902 


01300 


12478 


24 


02893 


19507 


12490 


4* 


1381* 


01200 


129C2 


14 


11201 


-2887 


12914 


47 


12950 


01300 


1292* 


24 


02889 


19917 


12938 


4* 


13884 


01200 


12990 


14 


11201 


-2931 


129*2 


47 


12998 


01300 


12974 


24 


02929 


19971 


1298* 


4* 


13904 


01200 



1620- 1443 MCNITOR I VERSION 2 SPS I I -C PHASE * 



PACE 



1 1660 




TR 


B9MAD*5C0» IDMES-l 




1 2598 


3 i 


1 7000 


126 30 


lift 




TDM 


B9MAD + 513, OOOOO, , BLANK 


THE GM 






17013 


nnnon 


1 1680 




87 


PHASE 




12622 


49 


156 16 




I 1690 


I c ts 


CAC 07, MOP 




12631 






X 2 


I I 700 


C 1 P 


(ID)' 
TFH OBJCRE, 0,, 


OBJECT CORE N 


12644 


16 




-rnnn 


11710 




TD 


QB JCRE-4, INPUT- 10»2» 1 1 




12656 


25 


} 


02899 


11720 




SF 


OBJCRE-4 




1 j!an 


?f 




c\r\(\t\r\ 
uuuuu 


1 1 730 




CM 


OBJCRE ,20000 










n? inn 


11740 




BNL 


• ♦24 




1 


46 






11750 




TFM 


OBJCRE , 20000 




127C4 






•trnnn 


1 1 760 




R7 


Pt-ASE 




12 716 


49 


156 16 




1 1 7 7 Q 


C2P 


HNR 


•♦2Ct INPUT-10*2»15, , 


jUBKUUl 1 nC nU~™Cft nn 


12724 


45 


12 744 


0290 7 


11780 




67 


C2P I 




1 ?7lt 




i WX\ 




L 1/90 




C 


C70, INPUT- 10*2* 15 










02907 


11800 




HNH 


C2P2 




1 ?7<A 

i ■> T/!a 




17 Ann 


nrn°n 


11810 


C 2P I 


TFM 


SUBNCOO, 1C 












1 1820 




TD 


SUttNO, INPUT-10*2»14 




1? 7 a n 


fa 




njon* 


1 1830 




B7 


Pt-ASE 




1 JTQ) 




15616 




1 1840 


C2P 2 


TD 


SUBNU,INPUT-10*2«15 




i ?Ann 








11850 




TD 


SUBN0-1,INPUT-1C»2»14 




1 5fi 1 






02905 


L 1 860 




SF 


SLBNO- 1 




l ? 824 


32 




nnnnn 


11870 




t>7 


PHASE 






J' 






11680 


C3P 


BNR 


•♦20, INPUT-10+2»16, , 


MANTISSA LENGTH NN 








02909 


1 1890 




R7 


C3P1 






49 


1 •) AA 




1 19C0 




C 


C70, INPUT-10^2M6 




13 117 Ik 


24 


1 **7» 


n i i ft! 


11910 




BNH 


C3P2 






^ ^ 


1 7Q5rt 


ftfti « 


1 1920 


C3P 1 


TFM 


L ,00, 10 




12888 


1 6 


02520 


000- 


1 1930 




TD 


L , INPUT-10»2M5 




12900 


25 


02520 


0290 7 


1 1940 




B7 


C3P3 




12912 


49 


12*56 




1 1950 


C3P2 


TD 


L , INPUT-10+2*16 




12920 


25 


02520 


02909 


1 1960 




TC 


1-1.1NPUT-10+2M5 




12932 


25 


02519 


0290 7 


11970 




SF 


L - I 




12944 


32 


02519 


CCOOO 


1 1980 


C3P3 


CM 


L ,2, 10 




12956 


14 


02520 


000- 2 


1 1990 




8L 


• ♦ 36 




1 2 968 


4 7 


1 3004 


1 300 


12000 




CM 


L , <*b, 10 




12980 


1 4 


02520 


00OM5 


12010 




BMW 


• ♦ ?<• 




1 2992 


4 7 


1 30 16 


01100 


12020 




TF 


L ,MOML 




1 3004 


26 


02520 


1604 1 


12030 




B7 


PHASE 




13016 


49 


15616 




12040 


C4P 


TD 


NOISE , INPUT-10+2»1 1 , , 


NOISE DIGIT N 


13024 


25 


02521 


2899 


12050 




B7 


PHASE 




1 30 36 


49 


15616 




12060 


C5P 


TOM 


ERSTSw, 1*11, 


ERROR STOP 


I 3044 


15 


02476 


0000 J 


12070 




B7 


PHASE 




1 3056 


49 


156 16 




12080 


C6P 


TDM 


RELSM.1,11, 


ASSEMBLE RELOCATABLE 


13064 


15 


02478 


0000 J 


12090 




B7 


PHASE 




1 30 76 


49 


15616 




L' 1 


C7P 


TDM 


MOCTOC, I, 11, 


CUTPLT PAPER TAPE 


1 3084 


15 


1602 3 


0000 J 


i ? u n 




B7 


PHASE 




13096 


49 


15616 




y i 1 > ? o 


C8P 


TDM 


MOCTOCO, 11, 


OUTPLT CARC 


I 3 104 


15 


16023 


0000- 






B7 


PHASE 




13116 


49 


1 56 16 




» :i <•■> 


LOP 


TD 


CTVT ,INPUT^8,, 


CTVT NKNNN 


13124 


25 


02489 


02895 






TD 


CTVT- I, INPUTS 




13136 


25 


02488 


02893 


12i v; 




TC 


CTVT-2, INPUU4 




13148 


25 


02487 


02891 


121-C 




TD 


CTVT-3, INPUT*2 




13160 


25 


02486 


C2889 


12180 




TU 


CTvT-4, INPUT 




13172 


25 


02485 


02887 


12190 




%f 


CTVT-4, 


' 8 11 


13184 


32 


02485 


OCOOO 


12200 




,< 7 


PHASE 




13196 


49 


15616 
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12210 


CUP 


TDM 


STPCSW,!, !, 






PUNCH SYMBCL TABLE 


13204 


15 


02470 


OOOOJ 


12220 




B7 


PHASE 








13216 


49 


15616 




12230 


chap 


TDM 


STPRSW.l, li, 






PRINT SYMBOL TABLE 


13224 


15 


02472 


OOOOJ 


12240 




B7 


PHASE 








13236 


49 


15616 




1225U 


C12P 


row 


INTRSW, 1, I I , 






f N Tf RRLP T XXX 


13244 


15 


02483 


OOQOJ 


12260 




B7 


PHASE 








13256 


49 


15616 




12270 


C13P 


TDM 


CDINSW, 1, 11, 






BtGIN CARO INPUT 


13264 


15 


02474 


CQOOJ 


12280 




TDM 


PT INSW.O 








13276 


15 


02475 


00000 


12290 




TDM 


TV INSW.O 








13288 


15 


02473 


ooooo 


1230U 




TOM 


INC0DE.5 








133C0 


15 


02491 


00005 


12310 




37 


PHASE 








13312 


49 


15616 




12320 


C14P 


TCM 


PTINSW, 1, U. 






BEGIN P.'* HER TAPE INPUT 


13320 


15 


02475 


OOOOJ 


12330 




TOM 


TY INSW.O 








13332 


15 


02473 


OCOOO 


12340 




TCM 


CD INSW.O 








13344 


15 


02474 


OOOOO 


12350 




TCM 


INC00E.3 








13356 


15 


02491 


00003 


12360 




B7 


PHASE 








13368 


49 


15616 




12370 


C15P 


TOM 


TYINSW, 1, 11, 






BEGIN TYPEWRITER INPUT 


13376 


15 


02473 


OOOOJ 


12380 




TOM 


CDINSW, 








13388 


15 


02474 


OOOOO 


12390 




TOM 


PTINSW.O 








13400 


15 


02475 


OCOOO 


12400 




B7 


PHASE 








13412 


49 


15616 




12410 


CUP 


TDM 


LSCCSW, I, 11, 






LIST CARD 


1342C 


15 


02479 


OCOOJ 


12420 




B7 


PHASE 








13432 


49 


15616 




12430 


C17P 


TDM 


LSTYSW, 1, 11, 






LIST TYPEWRITER 


13440 


15 


02480 


OOOOJ 


12440 




B7 


PHASE 








13452 


49 


15616 




12450 


C17AP 


TDM 


LSPRSW, 1,11, 






LIST PRINTER 


13460 


15 


02481 


OCOOJ 


12460 




B7 


PHASE 








! 34 72 


49 


15616 




12470 


C18P 


ONF 


PHASE,ISTAT-30, , 




STORE CORE 1 H AGE 


U*80 


4* 


15616 


02529 


12480 




TD 


ISTAT-30, FLGRM 








134 H2 


25 


02529 


03345 


12490 




TDM 


MODOC. 0,11. 








13504 


15 


16022 


OCOO- 


12500 




87 


PHASE 








13516 


49 


15616 




12510 


C19P 


TDM 


MODOC. 1, 11. 






STORE RELOADABLE 


13524 


15 


16022 


OOOOJ 


12520 




B7 


PHASE 








13536 


49 


5616 




12530 


C20P 


BO 


PHASE. SSTSW... 




SYSTEM SYMBOL TABLE 


13544 


43 


IV 16 


13719 


12540 




TF 


SSTDCFU3.HCLIH 








13556 


26 


izi, 7 


02507 


12550 


C20P2 


SM 


SSTDCFM3.SSTSCT»100*ll 




13568 


12 


1371 » 


-3511 


12560 




TFM 


I0RT.«*23 








13580 


16 


00565 


.3603 


12570 




B 


10GT,SST0F,7 








13592 


49 


00566 


»: 695 


12580 




TF 


C20PIUI.SSTDCF*13 






13606 


26 


13639 


13*1 ? 


12590 




AM 


L20PU1 1,4, 10 








13616 


11 


13639 


000-4 


12600 


C20PI 


S 


PRTL IM#»-a 








13628 


22 


02502 


OOOOO 


12610 




TR 


LIMITS-9.PRTLIM-4 








13640 


31 


03278 


02498 


12620 




S 


LDTR*ll,C20Pl»ll, 


11 






13652 


22 


09201 


1363R 


12630 




S 


LDTR* 6.C20P1+U* 


11 






13664 


22 


09196 


1363R 


12640 




TOM 


SSTSM.l.ll 








13676 


15 


13719 


OOOOJ 


12650 


C20P4 


67 


PHASE 








13688 


49 


15616 




12660 


SSTOF 


OSC 


2,22,, ABSOLUTE 


DISK NOT WRONG LENGTH 


13695 




2 




12670 


C20P3 


22 
OSA 


SSTOCF 








13701 




5 


% 1 
















13701 




J3704 




12610 




OC 










13702 




1 




12690 


SSTOCF 


ODA 


.O.SSTOAO.SSTSCTt 


•— • 






13706 




14 








0JB90 8-35-0000 
















12700 




OC 










13718 




I 
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PAGE 



12710 


SSTSW 


OS 


1 




13719 




1 




12720 


C21P 


TOM 


2PSSM.lt Hi T*0 PASS MODE 




13720 


15 


02*77 


OCOOJ 


1 2730 




87 


PHASE 




13732 


*9 


15616 




127*0 


C22P 


T CM 


KiisuBt u lit nu subroutines 




137*0 


15 


02*8* 


OOOOJ 


12750 




87 


phase 




13752 


*9 


15616 




12760 


C23P 


TR 


S8NR + 1WCLERER+I,6i NAME A A A A A A 




1376C 


31 


1 120J 


02701 


1 2 7 70 




SF 


INPLT- I ♦ 2 • 5- 1 




13772 


32 


02886 


OCCOO 


12780 




TF 


MONAME, INP0T-10*2»5*2»5 




1378* 


26 


16035 


02697 


12790 




CF 


INPLT-10*2»5-1 




13796 


33 


02886 


00000 


12800 




B7 


PHASE 




13808 


*9 


15616 




12810 


C2*P 


TC 


MOIDNO, INPUT-l0*2»9*2O,,I D NUMBER NNNN 




13816 


25 


16039 


02901 


12820 




TC 


MOIDNO-l,lNPUT-lC*2«9*2»2 




13828 


25 


16038 


02899 


12830 




TD 


MO10NO-2, INPUT-1Q*2«9*2 




138*0 


25 


16037 


02897 


128*0 




TO 


MOIONO-3, INPUT-10*2»9 




13852 


25 


16036 


02895 


12850 




SF 


MOIONO-3 




1386* 


32 


16036 


00000 


12860 




87 


PHASE 




1 3876 


*9 


15616 




12870 


C25P 


CF 


ISTAT-30,,, L I BR 




1388* 


33 


02529 


00000 


12680 




87 


PHASE 




13896 


*9 


15616 




12890 


C26P 


TDM 


PCNLS*, 1,11, PUNCH RESEQUENCEO 


SOURCE DECK 


I 390* 


15 


02*82 


OOOOJ 


12900 




B7 


PHASE 




1 3916 


*9 


15616 




12910 


0*11*2. 


SF 


INPLT- 1 




1392* 


32 


02886 


00000 


12920 




SF 


INPLT ♦ 1 I 




1 3936 


32 


02898 


00000 


12930 




TFM 


• ♦30, INPUT* I 7 




139*8 


16 


13978 




129*0 




AM 


•♦18,2,10 




13960 


1 1 


13978 


000-2 


12950 




SF 


• - • 




1 3972 


J2 


00000 


00000 


12960 




CM 


• -6 , INPUT* 151 




1398* 


1* 


1 3978 


- 3038 


12970 




BL 


• -36 




13996 


*r 


1 3960 


1 300 


12980 




TFM 


IORT,»*23 




1*0C8 


16 


00565 


J*0 3 1 


12990 




B 


IORBC ,MCAOEF , 7 




1*020 


*9 


00520 


J557* 


1 3000 




BNF 


•♦2*,TYINSW 




1*0 32 


** 


1 *056 




1 3010 




TDM 


2PSSW,0 




1*0** 


15 


02*7 7 


CCCOO 


13020 


• 
















1 3030 


• 


DISK STORAGE SCRATCH SECTOR ASSIGNMENT 












130*0 


• 
















1 3050 




TFM 


IORT,«*23 




1*056 


16 


00565 


J*079 


1 3060 




B 


IOGT.DIM, 7 




1*068 


*9 


00566 


J*776 


13070 




TF 


CYLAV,MQSC T*8*2Q 




1*080 


26 


15599 


16028 


13080 




RCTY 






1*092 


3* 


00000 


00102 


I 3090 




TF 


SCTAV-2.CYLAV, , OBTAIN AVAIL QYL . 


FROM PCMTCR 


1*1C* 


26 


15602 


15599 


1 3100 




A 


SCTAV.SCTAV 




1*116 


2 i 


1560* 


1560* 


13110 




60 


SAS2P.2PSS* 




1* 128 


*3 


1*3*8 


CM ? T 


I 3120 




TFM 


SASC*l 1 , 1PTSPB*SPBL 




1*1*0 


I 6 


1*223 


- 1 5 * 


13130 




CM 


HCL IM.LOLI M* 1 I 76«1 7 




1*152 


1* 


02507 


MC001 


1 31*0 




ol 


•**8 




J * i 6* 


* 7 


1*212 


I 300 


I 3150 




BE 


• ♦ 2*, 




1* I 76 


*6 


1*200 


C 1 200 


11160 




AM 


SASC* 1 1 ,BP20K» 1 PTSPB-BP20*»SPBL 




1*188 


1 i 


1*22 3 


- 7 30Q 


13170 




A 


SASC* I I I 




1*200 


21 


1*223 


1*199 


t 31 BC 


SASC 


CM 


SCTAV,»-» 




1*212 


I* 


1560* 


-cooo 


13190 




BL 


SASX1 




1*22* 


*7 


1*316 


01300 


1 3200 




AM 


STSAV,2»SPBL 




1*236 


11 


15609 


-0080 


1 3210 


SAS1 


AM 


SBMAX,1,10 




1*2*8 


11 


02673 


OCO-l 


1 3220 




AM 


SASC+ll , 1PTSPB 




1*260 


11 


1*223 


- 1500 


1 32 30 




C 


SCTAV,SASC*ll 




1*272 


2* 


1560* 


1*223 


1 32*0 




BL 


SASXl 




1*28* 


*7 


1*316 


01300 


1 32 50 




AM 


STSAV.SPBL 




1*296 


1 1 


15609 


-00*0 


1 3260 




B7 


SAS 1 


1*308 


*9 


1*2*8 
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1 32 70 
1 3280 
1 3290 
1 3300 
13310 
1 3320 
1 3330 
133*0 
1 3350 
13360 
1 3370 
13380 
1 3 390 
I 3*00 
13*10 
13*20 
I 3*30 
1 3**0 
13*50 
13*60 
13*70 
13*80 
13*90 
135C0 
13510 
13520 
13530 
135*0 
13550 
13560 
13570 
13580 
13590 
13600 
13610 
13620 
13630 
136*0 
13650 
13660 

136 70 



SASXl TF 

S 

8 7 

SAS2P TFM 
CM 
BL 
BE 
AM 
A 

SASC2 CM 

BL 



C 

BL 
AM 
87 
TF 
S 



TVPASS TF 

S 

TF 
S 

TF 

TF 

TF 

BNF 

TFM 

TFM 

TFM 

TFM 

BTM 

DIM OSC 

22 

DSA 



INTSAV,SCTAV 
INTSAV, STSAV 
TYPASS 

SASC2*l It 2PTSPB*SPBL 
HCL IM,LBLIM*U76«17 

• **8 

• *2* 

SASC2*ll ,BP20M2PTSP8-BP2Q*»SPBL 

SASC2*ll,*-l 

SCTAV,«-» 

SASX2 

STSAV, 2«SPBL 
SBMAX, 1 ,10 
SASCM1.2PTSPB 
SCTAV,SASC*l 1 

SASX2 

STSAV.SPBL 
SAS2 

INTS4V,SCTAV 
INTSAV.STSAV 
INTSAV, 2PRTI0 

90 

INTSAV, 9* 
•♦23, INTSAV 
•*23,AJUST 
INTSAV, ,10 
SYMTAO.SCTAV 
SYMTAO, STSAV 
IOADOR , SYMTAO 
IOACDR , INTSAV 
B10CF*5, SYMTAO 
B20CF*5, SYMTAO 
0UT0CF*5,I0A00R 
•♦2*.RE1SW 
A90COWt99999 
R2BE*l»*l« 10, 
PROSTM* l,*l , 10, , 
CFFA,NC0CF1 
CFF,P«QSTH 
2,22 

CIMCCF 



13690 OIMDCF OOA , . 01 MOAO , 1 , MOSCT 
0-4800-0 U6000 

DC l*» 



13700 

13710 CI 

13720 C2 

? 3-»?0 €?• 



CHANGE BE TO NOP 
CHANGE B TO NOP 



DAC I .1 t*O8JECTC0ftE 

•OB JEC TCORE 

OAC 14t*SUBftOUUNESET. 

• SUBROUTINE'S^ T 

DAC lit *«A«TI SSAtENGTH 

• HAHTfSS*'. E fc iC*H 



1*316 


26 


1561* 


1560* 


1*328 


22 


1561* 


15609 


1*3*0 


*9 


1*620 




1*3*8 


16 


1**31 


-06*0 


1*360 


I* 


02507 


MCOOl 


1*372 


*7 


1*420 


01300 


1*38* 


*6 


1**08 


01200 


1*396 


11 


1**31 


-2800 


1**08 


21 


1**31 


1**07 


1**20 


I* 


1560* 


-0000 


1**32 


*7 


1*52* 


01300 


1**** 


11 


15609 


-0080 


1**56 


11 


02673 


000- 1 


1**68 


11 


1*223 


-0600 


1**80 


2* 


1560* 


1*223 


1**92 


*? 


1*52* 


01300 


i*5C* 


11 


15609 


-00*0 


1*516 


*9 


1**56 




1*52* 


26 


1561* 


1560* 


1*536 


22 


1561* 


15609 


1*5*8 


13 


1561* 


KCOOO 


1*560 


32 


00090 


COOOO 


1*572 


26 


1561* 


0009* 


1*58* 


25 


1*607 


1561* 


1*596 


25 


1*619 


02399 


1*608 


11 


1561* 


000-0 


1*620 


26 


026*1 


1560* 


1*632 


22 


026*1 


15609 


1*6** 


26 


02636 


026*1 


1*656 


22 


02636 


1561* 


1*668 


26 


10177 


026*1 


1*680 


26 


10193 


026*1 


1*692 


26 


10209 


02636 


1*70* 


4* 


14728 


02*78 


1*716 


16 


02528 


R9999 


1*728 


16 


01713 


000M1 


1*7*0 


16 


01917 


000M1 


1*752 


16 


02629 


-7316 


1*76* 


17 


02592 


-3916 


1*776 




2 




1*782 




5 


X 1 


1*782 




J4784 




14703 




1 




1478* 




14 




14798 




1 




1*801 




11 


x 2 


14821 




14 


X 2 


14891 




15 


X 2 



S2 
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I 3740 C4 


OAC i 1 ••NOI SEDIGI T 


14881 


11 


X 




• NO I SEO I G I T 








13750 C5 


CAC 10,«ERRORST0P 


14903 


10 


x 




• ERROR 5 TOP 








13760 C6 


DAC 20.«ASSE«BLEftElOCATABlE 


14923 


20 


X 




•ASSEMBLERELOCATABLE 








13770 C7 


DAC 16,»0UTPUTPAPERTAPE 


14963 


16 






•OUTPLTPAPERTAPE 








13780 C8 


CAC I 1 i •OUTPUTC ARD 


14995 


1 1 


X 




•OUTPUTC ARD 








13790 C9 


OAC 05,«CTVT 


15017 


5 


X 




• CTVT 








13800 CIO 


OAC 16,«TYPESYMB0LTABLE 


15027 


16 


X 




•TYPESYMBOLTABLE 








13810 Cll 


OAC 17i»P UN CHSYMBOL TABLE 


15059 


17 


X 




•PUNCHSYMBOL TABLE 








1 3820 C1U 


DAC l7,«PRtNT$Y»B0LTABLE 


15093 


17 


X 




• MR INTSYMOOL TABLE 








13830 C12 


DAC 10,MNTERRUPT 


15127 


10 


X 




• INTERRUPT 








1 3840 CI 3 


DAC 15 , »BEGINCARCI NPOT 


15147 


15 


X 




• BEG INC ARD INPUT 








13850 CI* 


OAC 20, "BEGINPAPERTAPE INPUT 


15177 


20 


X 




• BEG INPAPERTAPE INPUT 








13860 C15 


CAC 21,»BEGINTYPEWRITERINPUT 


15217 


21 


X 




•BEGINTYPEWRITERINPUT 








13870 C16 


DAC 09.UISTCARD 


15259 


9 


X 




• L I STCARC 








13880 C17 


CAC 15, «L ISTTYPEWRI TER 


152 77 


15 


X 




• L I5TTYPEWRI TER 








13890 C17A 


OAC 12.«LISTPRINTER 


153C7 


12 


X 




•L I STPR INTER 








13900 C18 


OAC 15, •STORECORE IMAGE 


15331 


15 


X 




•STORECORE I M AGE 








13910 C19 


CAC 16,«ST0REREL0A0ABLE 


15361 


16 


X 




•STORERE LOADABLE 








13920 C20 


CAC 1 8 , * SYSTEMSYMBOL TABLE 


15393 


18 


X 




•SYSTEMSYMBOLTABLE 








13930 C21 


DAC 12,*T*OPASSMOOE 


15429 


12 


X 




•TWOPASSMODE 








13940 C22 


DAC 14,»N0SUBRUUTINES 


15453 


14 


X 




•NOSUGROLTINFS 








13950 C23 


CAC 05, 'NAME 


15481 


5 


X 




• NAME 








13960 C24 


CAC 09,»IDNUMBER 


15491 


9 






• 1DNUMBER 








13970 C25 


CAC 05,»LIBR 


1 55C9 


5 


X 




• L I BR 








13980 C26 


CAC 27 , »PUNCMRE SEQUENCED SOURCE DEC* 


15519 


27 


X 




• PUNCHRESt QUENCEO SOURCE DECK 








I 3990 C70 


DC 2,70 


15573 


2 




14000 MCACEF 


PO 

OSC 2,22 


155 74 


2 




14010 


22 

DS A HCADCF 


1558C 


5 


X 



»3 
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15580 
15581 



J5582 
I 



14030 


MCACCF 


CCA 


,0,MOS0AD, 1 ,MOSCT 






15582 




14 








0J9663-U1J6000 














14040 




CC 


1 , ' 






15596 




I 




14050 


CYL av 


DC 


3, 2C 






15599 




3 




1406U 


SCTAV 


-20 
DC 


5,0 






156C4 




5 








-0000 














14070 


STSAV 


DC 


5,C 






15609 




5 








-OOCO 














14080 


INTSAV 


CC 


5,0 






15614 




5 








-0000 
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• 














16420 


• 


AOORESS ASSIGNED BY PROCESSOR 










16430 


• 














164*0 


0N82 


TF 


AOCRSt AODCOW 


1249* 


2* 


03299 


02528 


16450 




TOP) 


LDABSW, I, 11 


1290* 


15 


08036 


OOOOJ 


16460 




A 


AOOCOW.LNTH 


12920 


21 


02929 


02387 


14*70 




BO 


OSS.ZEPO+28 


12932 


43 


129*4 


02328 


16*80 




A 


ADDRS. LNTH 


12944 


21 


03299 


02387 


16490 




B7 


OAC3-32 


1299* 


49 


12004 




1*500 


OSS 


AM 


ADDRS, 1,10 


129*4 


1 1 


03299 


OOO-l 


1*510 




87 


OAC3-32 


129?* 


49 


12004 




16520 


OORG 


BTM 


EVALAO.^12,* 


12994 


IT 


05*04 


1259* 


1*530 


BNF 


•♦8*,RELSW 


1299* 


44 


12*80 


02478 


16540 




BD 


♦♦72, RLOCSW 


12*09 


43 


12*90 


09039 


1*990 




TP* 


EVALER-2, 71770, , RELOCATION ERROR 


12*20 


1* 


07070 


P1770 


1*560 




BT 


EPRINT.EPRINT-l,, IGNORE ABSOLUTE OORG 


12*12 


IT 


07332 


07331 


1*970 




BO 


ERCOR, ERSTSW 


12*44 


43 


0719* 


0247* 



9> 



I VERSION 2 SPS t I - (. PHASE A PAGE 



16580 




TFM 


|NPLT2t 1,06,10, 


IN RELCCATABlf A$SEM&LV 12656 


16 


030*1 


000-6 


1659U 




BTM 


ULTPUT ,PMAbfcA 


12666 


I? 


09666 


- 3*08 


16600 




TF 


AD0C0*,AI)0RS 


12680 


26 


02528 


03299 


1661 




QTM 


C U ST , t* 12 


12692 


17 


07*36 


J2 70* 


16620 


• 














1 6630 


• 


SET ACDRESS COUNTER TO NEta 


VALUE 








166*0 


• 














166*J 




SM 


AODCOw.1,10 


12 70* 


12 


02528 


000- I 






T0 M 


INPLT2, 1,11 


12 716 


I 




OCOO J 


16670 




BNF 


•♦2*,ADDC0W 


12728 


** 


12752 


02528 


16680 




TFM 


ADDCOW, 99999 


127*0 


16 


02528 


R9999 


16690 




8 7 


UAC 3-20 


12 752 


49 


12016 




16700 


DENCC 


TFM 


CFF A.CA50CF 


12760 


16 


02629 


J278* 


1671 J 




81" 


CFF.OEND 


1 2 7 72 


1 7 


C2592 


J0920 


16720 


CA5CCF 


CCA 


y O,A5OA0,A5SCT, 1NSTRN 


1278* 




1* 








0J8 / 37- 3 1J02S6 










16750 




CC 


1 , ' 


1 2 798 




1 




1 67*0 


• 


CEFINE CONSTANT A NO DEFINE 


SPEC I AL CONSTANT 








16750 


• 














1 6760 


DC 


tcm 


INPLT 2 , 2,11 


128CG 


15 


030*0 


CCOOK 


16770 




T C 


OC - I » ZE PQ ♦ 28 


128 12 


25 


12799 


02328 


16780 




t r 


I N P L T ? ♦ 6 » Z E P Q ♦ 2 9 


1282* 


26 


030*6 


02329 


16790 




BTM 


EVALAD,«* 12,* 


12836 


I 7 


05MO* 


128*8 






TF 


LNTH.ADDRS 






02 36 7 




16810 


CCQN 


TFM 


XfMpR, -00001 


12860 


16 


02571 


-OOOJ 


16820 




AM 


TEMPR , 1 


12872 


11 


02571 


-CCOl 


16830 




TR 


1NPIT+19, INPUT>21 


1288* 


31 


02906 


02908 


168*0 




ONR 


CCN2-36, INPUU20 


12896 


*5 


12976 


C2907 


16850 




CM 


TFMPR ,0 


129C8 


I* 


0257 1 


-0000 


16860 




BNf 


CC N 2 


1292C 


*7 


13012 


C1200 


16870 




TFM 


EVALER-1, 9C000 


12932 


16 


707 1 


ROCOO 


1 6880 




OC 


I , * , • 


129* 3 




1 




16890 




B T 


EPS INT, EPRINT-'l 


129** 


27 


7 3 32 


C 7 3 3 1 






BU 


EKCOR, ERSTSW 










16-UQ 




b 7 


CCN2 


12968 


*9 


13012 




16920 




CM 


INPLT*20, 23,10 


12976 


1* 


C2907 


0C0K3 


16930 




BH 


CCON* 12 


12988 


*6 


12872 


Ci 100 


169*0 




Bl 


CC.CN* 2* 


130C0 


* 1 


1288* 


i 300 


16950 


CCN2 


r 


T£.mpk, lNTm 


no 1 2 


2* 


025 7 1 


2 J 8 7 


16960 




BNP 


t 4 1 r, 


no2* 


* 7 


1 308* 


Ql 100 


16970 




TFM 


EvALFRt-li 170C0 


1 30 36 


16 


7Q 71 


J /OOO 






Ct 


I » ' i * 










16990 




BT 


{-PR INI , 6PR I NT- 1 


t 


27 


07 332 


073 3 1 


I 7000 




HC 


t'RCOR, ERSTSW 


1306C 


* 3 


7 196 


02*76 


I 7010 




IF 


1 NTH, TEMPR 


1 107? 


2 6 


02387 


02571 


I 7020 




CM 


L N T H , S I 


noa* 


1 * 


02387 


-CC51 


1 70 3 




BN 


•♦72 


i 3096 


* 7 


I 3168 


o ; j00 


1 70*0 






;■ vfii ;, ft- 1 , 8CCC0 


moo 


16 


Q70 7i. 


occoo 


i 7u50 




I. C 




nii9 




1 




\ ?OfcC 






t PR In T , E PR I NT- I , , 


E R 8 LENGTH TLC 8 10 1U20 


27 


C 7 3 3 2 


C 7 i 3 I 


I 7070 






ERCCR, ERSTSW 


13132 


*3 


7196 


02*76 


i 7080 






LMh, Q0Q50 


.131** 


16 


2 387 


-0050 



16 20-14*3 MCNITUR I VERSIUN 2 SPS ll-C PHASE A PAGE 



1 7090 




r c m 


TEMPR, 5b 




i 3 i 5 6 


16 


0257 1 


-0050 


I 7 1 GO 




B 1 M 


E v A L A D , •* 12, 5 




1 31 6 H. 


17 


05*~* 


13160 


ifUO 




ir 


t.DA8S*,RL0CS* 




n i a c 


?5» 


08036 


08035 


17 120 




BNF 


CCN J, BSw 




[ilk 2 


** 


1 32 76 


08037 


Wl 30 




TCM 


I A R S m , i , 1 1 




i 3/C* 


15 


080.36 


QGOOJ 


1 71*0 




T F 


AU:.« S » AQDCOw,, 


MACHINE ASSIGNS ACURESS 


13216 


26 


03299 


02528 


i 71 50 




AM 


AOORS , I 




I 1228 


M 


3299 


-COO I 


I 7160 




A 


AC CCU N, LNTH 




l 32*0 


21 


02528 


02387 


17170 




bC 


•♦2*, DC- I 




1 32*2 


* i 


1 32 76 


12799 


17180 




T f 


AOIMS, ADDCQ* 




i 326* 


26 


03299 


G2528 


17190 


CCN 3 


SF 


TFMPR - l 




i nib 


3 2 


02 5 70 


CCCOC 


1 7200 




TF 


1NPLT2**, TEMPR 




l 3288 


26 


30** 


0257 1 


17 2 10 




H7 


DAC2-32 




I 3300 


*9 


1200* 




1 7220 


USA 


TFM 


LNTh, OCOOO 




13 308 


16 


02 387 


-OCOO 


1 72 30 




t3 7 


S A I 




i 3 32 


*9 


133*0 




I 72*0 




TR 


INPITU9, INPUT*2l 




13328 


31 


02906 


2908 


I 7 2 50 


OS A I 


BTM 


t VAL Al) , * 11 




I ',3*0 


1 7 


05M0* 


1 3 35K 


1 7 260 




AM 


I N T f- » 5,10 




13352 


1 1 


02387 


000- 5 


1 72 70 




ONR 


•-36, INPUT + 20 




1 life* 


*5 


1 3328 


02907 


1 7280 


CSA2 


CM 


L.NTF-, 0050 




1 J 3 76 


I* 


02 387 


-0050 


1 7290 




BH 


EROS* 




1 3386 


*6 


13516 


01 100 


1 7300 




TF 


ADuKS, AOOCO* 




13*00 


26 


03299 


02528 


1731U 




AM 


A D D R S » 5, 10 




13*12 


I 1 


03299 


000- 5 


1 7 320 




A 


ACrCOw, LNTH 




13*2* 


21 


02528 


02 387 


I 7 3 30 




TCM 


INP0T2, 1 




13*36 


15 


030*0 


00001 


| 73*0 




BNF 


OAC3-32, ZfcPO*28 




13**6 


** 


1200* 


02328 


1 7 350 




AM 


AODCQn, 19,10 




13*60 


1 I 


02528 


CC0J9 


1 7 360 




Sm 


ACORS, 5 




n*72 


12 


03299 


-C005 


1 73 70 




TOM 


INPLT2, 0*11 




13*8* 


15 


030*0 


OCOO- 


1 7380 




BTM 


CTEST , • ♦ 12 




1 3*96 


I? 


07*36 


J3508 


1 7 390 




B 


LDLBL 




135C8 


*9 


08*1* 


OCOOO 


I 7*00 




nunc 


t- 3 




13516 








1 7*IU 


ERCSA 


TFM 


EVALER-1. ,60000 




13516 


16 


07071 


OCOOO 


1 7*20 




DC 


it * i* 




13^27 




I 




\ 7*30 




8T 


E PR INT.EPR INT- ! 




13126 


27 


7332 


07331 


17**0 




80 


ERCQR, ERSfSW 




135*0 


43 


07196 


02*76 


1 7*50 






LNTH, 0CO50 




13552 


16 


02387 


-C050 


I 7*60 




3 7 


D S A 2*2* 




13564 


49 


13*00 




17*70 


• 
















17*80 




UPFRATION CODE TABLE 












1 7*90 


« 
















1 7 500 


A 


OC 


5, * 1 2 10, , 


AGO A 


13575 




5 








W1210 












17510 




rc 


5,62220i. 


Sta TRACT 5 


13580 




5 






















m?c 






W30. , 


MULTIPLY M 


13585 




5 


























VL 


^,*«290.f 


0! VIDE D 


13590 




5 






















1T540 






S,*'32«0», 


COMPARE C 


13595 




5 








M 52*0 












! 74 >0 




OC 


t - f " . » , 


BRANCH 8 


13600 




5 






















« ""MC 






i< 


CONTROL. K 


13605 




5 





162C-1443 MONITOR I VERSION 2 SPS !l-0 PHASE A 



175 70 


DC 5 » 4 8480 » » 


HAL 1 


H 


13610 












17580 


UU 5 i bLUUU i i 






13615 




OOOCO 






1 3620 


I 7590 


DC 5 » 6COO0 , i 


DUMMY UP COCc 






C 








i 7600 


DC 5 » ' 






1 3625 




- OCC • 








17610 B 


DC 7 t 4 1 54 1 10 » , 


ADD IMMtClATt 


AM 


1 3632 




* I 5 4 I I C 








1 7620 


DC 7 » 6 254 1 20 » » 


cna ifiir i i mmct l nr 
bUBrHALI ll , PfcUl»»Tt 




1 36 39 




I) I 5 *• 1 i 








1 7630 


DC 7,5454130,, 




MM 


1 3646 




H 4 5 4 1 30 








1 764 XB7 


CC 7 i 4 2 7 7490 , i 


i_r o ao ALT u 


6 7 


1 365 3 




* 2 7 7 4 9 








1 7650 


DC 7 » 4 354 1 40 » » 


L U ™ K ■ K fc 1 ^ * c L 1 fll C 


CM 


1 3 660 




M 3 54 1 4 C 








I 7660 


CC 7.63442 50 if 


I R ANbM 1 1 U I U I 1 


T D 


1 366 7 




344250 








17670 


CC 7 i 6 346260 t i 


TRANSMI T FIcLC 


| F 


1 36 74 




U 346260 








1 7680 


DC 7 » 6 359 3 1 » » 


, n a c u f t ocrpon 
IHANbMl I RrCUKU 


T R 


1 368 1 




35 9 3 10 








I 7690 


DC 7 . 4 26 32 70 i » 


BRANCH ANC TRANSMIT 


_ _ 


1 3fe8fl 




M 26 32 70 








1 7700 


CC 7 , 4 24 24 20 » , 


BRANCH BACK 








M 2 4 2 4 2 








17710 


DC 7 t 6 246 320 t i 


SE T Ft AC 




1 3 702 




0246 320 








1 7720 


DC 7 , 4 346 3 30 » » 


CLEAR FLAG 








M 346 3 30 








1 7730 


DC 7 ♦ 04467 lOt i 


MOVE FLAG 




... 
13 




N4467 IC 








I 7740 


CC 7 , 4 2444 30 , » 


BRANCH DIGIT 


BD 


1 372 3 




M24<«4 30 








I 7750 


DC 7 » 4 249460 t t 


BRANCH INCICATQR' 








M249460 








I 7760 


DC 7,4253137,, 


BRANCH LQh 




1 373 7 




M 2 5 3 I 3 7 








1 7770 


DC 7,4255137,, 


BRANCH NtGATIVfc 




, 744 




M 2 5 5 I 3 7 








I 7780 


DC 7 , 4 248 1 16 , , 


BRANCH HIGH 


HH 


1375 1 




M246 1 16 








I 7790 


DC 7,42571 16, , 


BRANCH POSITIVE 


BP 


1 3 758 




M257 1 16 








1 7800 


CC 7 , 4245 1 26 , , 


BRANCH EQLAL 


BE 


1 3 765 




H245126 








17810 


DC 7,<.269l26,, 


BRANCH ZERO 


«z 


I 3 7 72 




M269126 








17820 


DC 7,4265146,, 


BRANCH OVERFLOW 


BV 


1 37 79 




M265146 








17830 


DC 7,4241196,, 


BRANCH ANY C A T A CHECK 


B A 


1 3 766 




H241 196 








17840 


DC 7,-4256704,, 


BRANCH OUT, L AO IR3 


BO 


1 3793 




M2567CM 


1 < 


1 






162C-1443 MONITOR 


I VERSION 2 SPS I I ~ C PHASE A 






17850 XCS 


CC 7, 44620 1 5 , , 


DEFINE SYMBOL 


DS 


13800 




M462015 








1 7860 


DC 7 , -444 3005 , , 


DEFINE CONSTANT 


CC 


I 3807 




M44300N 








17870 


DC 7,-4641031, , 


flcating acd SUB. 


F A 


138 14 




M64 1 3 J 








1 7880 


DC 7 , -466202 1 , , 


FLOATING SUBTRACT SUB. 


F S 


13821 




M6620? J 








1 7890 


DC 7,-4654041,, 


FLOATING MULTIPLY SUB. 


FM 


13828 




M65404J 








1 7900 


CC 7 , - 464405 1 , , 


FLOATING CIVIOE SUB. 


^0 


13835 




M64405 J 








17910 


DC 7,5344280,, 


LCAD DI VI DEND 


LD 


1 384 2 




N34428C 








1 7920 


DC 7, 44541 90 


DIVIDE I MMEC I ATE 


DM 


I 3849 




M454 190 








1 7930 


DC 7,-6241412,, 


SELECT ADDRESS 


S A 


1 3856 




024 141K 








1 7940 


DC 7,-5452614,, 


MASK INTERRUPTS 


MK 


1 386 3 




N4526 IM 








17950 


CC 7,6252412,, 


SEEK 


SK 


1 3870 




02524 12 








1 7960 


DC 7,5955360, , 


READ NUMERICALLY 


RN 


13 877 




N955360 








1 7970 


DC 7 , 594 1 370, , 


READ AL PHAMER I CAL I > 


R A 


1 3884 




N94 1 370 








1 7980 


DC 7, 4455350, , 


DUMP NUMERICALLY 


ON 


13891 




M455350 








1 7990 


CC 7,6655380,, 


WRITE NUMERICALLY 


WN 


1 3898 




0655380 








180C0 


DC 7,6641390,, 


WRITE ALPHAMER I CALL Y 


W A 


13905 




064 I 390 








18010 


DC 7,-4444263, , 


DEF INE DI SK 


CD 


13912 




M44426L 








18020 


CC 7,6060000,, 


DUMMY OP CODE 




13919 




0060000 








18030 


DC 7,6060000,, 


DUMMY OP CODE 




13926 




O06CQ00 








18040 


CC 7,6060000,, 


OUMMY OP CODE 




13933 




0060000 








18050 


DC 7,6060000,, 


DUMMY OP CODE 




13940 




006C000 








18060 


DC 7,' 






1 3947 




-00000' 








18070 C 


DC 9,634654160, , 


TRANSMIT FIELD IMMECIATE 


TrH 


1 3956 




034654 160 








18090 


DC 9,634454150,, 


TRANSMIT CIGIT IMMECIATE 


TOP 


13965 




034454150 








1 8090 






BNF 


13974 




M25546440 








18100 


OC 9,425559450,, 


BRANCH NO RECORD MARK 


BNR 


11983 




M25559450 








18110 


OC 9,425549470,, 


BRANCH NO INOICATOR 


BNl 


13992 




M2554947C 








18120 


OC 9,425548117,, 


BRANCH NOT MJGH 


BNH 


14001 




M25548117 







1 M.2- 



162C-1443 NOK! IQR . I VEBS1UN 2 SPS I I - C PHASE A 



i a l 3 




CC 9, 42555 71 1 7 , , 


BRANCH NOT POSITIVt 


BNP 


1401C 






M2555 M 1 7 








IBhQ 




DC 9,425545127,, 


BRANCH N0 I EQUAL 


BNE 


14019 






*25545 1 2 7 








18150 




DC 9,425569127,, 


BRANCH NOT ZERO 


8NZ 


14028 






"25569127 








18160 




DC 9,425553136,, 


BRANCH NUT LCW 


8NL 


14037 






H25553 I 36 








18170 




DC 9,425555136,, 


BRANCH NOT NECAT I VE 


8NN 


14046 






*25555 1 3t 








18180 




CC 9,426765156,, 


BRANCH EXPONENT CHICK 


BXV 


14055 






M26765 156 








18190 




DC 9,425565147,, 


BRANCH NO OVERFLOW 


8NV 


14064 






M2556 1 ) 14 7 








182CQ 




DC 9,42554 1197,, 


BRANCH NOT ANY CATA CrtCK; 


BN A 


14073 






. »«2554 I 19 7 








182 10 




CC 9, 425343096, , 


BRANCH L AST CAR C 


BLC 


14082 






M253430S6 








18220 




HC 9,42437 1016,, 


BRANCH CCNSCLE SWl TCH 1 ON 


BCl 


14091 






■ M 24 3 7 1 1 1 








18 2 3 




DC 9, 424372026, , 


BRANCH CONSOLE SWITCH 2 GN 


8C2 


14 ICO 






H24372026 








18240 




CC 9,424373016,, 


BRANCH CCNSCIF S N I TCH 3 CN 


BC3 


14109 






" 24 37 30 3fc 








18250 




DC 9,424374046,, 


BRANCH CONSOLE SWITCH 4 ON 


BC4 


14 118 






*2437404t 








18260 




DC 9,426354170, , 


BRANCH AND TRANSMIT, JMM. 


8TM 


14127 






"26 354 1 70 








1 82 70 


X8B2 


Dt 9 , 424272420s , 


2-CHAR. BRANCH BACH 


B02 


14 136 






M2427242C 








18280 




TC 9,-645452604,, 


UNMASK INTERRUPTS 


UMK 


14145 






U4545260M 








18290 




DC 9.55565741C, , 


NO OPERATION 


NOP 


14154 






N556574 10 








18300 




DC 9,-444965011,, 


DIVIDE SUB. 


01 V 


14163 






"449650 1 J 








18510 




DC 9,-46456711 1 , , 


FLOATING NATURAL EXP. SUB. 


FEX 


14172 






M645671U 








18320 




DC 9,-465355131,, 


FLOATING NATURAL LOG. SUB. 


FCN 


14 181 






M6535513J 








18*30 




CC 9, -635941003, , 


TRANSFtR TO LOAD 


TRA 


1419C 






035941001 








18340 


XCSS 


DC 9,446262115,, 


PE F I N6 SPEC I AL SY"BCL 


ess 


14199 






M46262 1 1 5 








1 8 350 




DC 9.-4462431G5, , 


OEF INF SPECI AL CONSTANT 


DSC 


1 4 2 08 






M462431CN 








18360 




DC 9,-444162145,, 


DEFINE ALPHA SYMBOL 


CAS 


14217 






*4416214N 








1 8 370 




DC 9,-444143125,, 


U6F INE ALPHA CONSTANT 


DAC 


1 4226 






M44 14 312N 








1 8 380 




DC 9,-445241035,, 


DEFINE SYMMCLlC ADDRESS 


DSA 


142 35 






M4624103N 








1839C 




l,C 9,- 446242065,, 


PEF INE SYMBOLIC BLOCK 


DSB 


14244 






" 4 6 2 4 2 C 6N 








184CU 




DC 9,445542005,, 


DEFINE NUMERIC 8LAf>K 


CNB 


14253 






M45542CC5 














I '» J 










1620-1443 MONITOR 
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18410 




CC 9,-444754075, , 


DEF I NE GROUP MARK 


DGM 


14262 






M447540 7N 








18420 




DC 9,425547550, , 


BRANCH NO GROUP MARK 


BNG 


14271 






M2554755C 








1 84 3 




CC 9,634344018,, 


TRANSFER 10 PROCESS 


TCC 


14 230 






34 3440 18 








» 8440 




DC 9,425659401,, 


BRANCH OUTPUT RECORD MARK 


BOR 


14289 






"2565940 1 








18450 




CC 9,425945411,, 


BRANCH ENC OF RECORD 


BRE 


14298 






"259454 1 1 








18460 




CQ 9,425443421,, 


BRANCH MOCE SHIFT 


BMC 


14307 






"2544342 I 








1 8470 




CC 9,42495944 1,, 


BRANCH READ INPUT READY 


B I R 


143(6 






M2495S»44 1 






18480 




DC 9,424342461, , 


BRANCH SIOC CHANNEL BUSY 


BCB 


14325 






"2434246 I 








18490 




DC 9.62419684C,, 


SELECT ADDRESS AND OPERATE 


SAC 


14 3 34 






02415684C 








185C0 




DC 9,596355662,, 


READ DISK TRACK NUM. W/0 GP. PK . 


RTN 


14343 






N96355662 








18510 




DC 9,594455622, , 


READ DISK WITHOUT GROUP MARK 


RON 


14352 






N94455622 








1B52G 




DC 9,666355862,, 


WRITE DISK TRACK NUM. W/0 GP. MK . 


WTN 


14361 






066355862 








18530 




CC 9,664455822,, 


WRITE DISK WITHOUT GROUP MARK 


WCN 


14370 






064455822 








18540 




DC 9,436355672,, 


CHECK DISK TRACK NUM. W/0 GP. MK . 


CTN 


14379 






H36355672 








18590 




DC 9,434455632, , 


CHECK DISK WITHOUT GROUP MARK 


CCN 


14 368 






M34455632 








18560 




CC 9,634693060,, 


TRANSMIT FLOATING 


m 


1439? 






Q34653C6C 








18570 




DC 9,466293090,, 


FLOATING SHIFT LEFT 


F$L 


14406 






M66253050 








16580 




DC 9,466259080,, 


FLOATING SHIFT RIGHT 


FSR 


14415 






W6625908C 








18590 




DC 9,635562720,, 


TRANSM1 T NUMERIC STRIP 


TNS 


14424 






035562720 








18600 




DC 9,635546730, , 


TRANSMl T NUMERIC FILL 


TNF 


14433 






035546730 








18610 




DC 9,-444441073,, 


DEFINE DISK ADDRESS 


CCA 


14442 






M4444107L 








18620 




DC 9,534494180, , 


LOAD DIVIDEND IMMEDIATE 


I DM 


14491 






N34454180 








18630 




DC 9,-474963013,, 


IOCS READ 


GET 


16460 






W7456301L 








18640 




DC 9, ~57fe463Q23» , 
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PUT 
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N76463021 








18690 




DC 9,-4*6355053, , 


DEFiMt TYPEWRI TER NUMERIC 


OTN 


14478 






M4635505L 
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OEF INI CARD NUMERIC 


OCN 
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DC 9,-444466063,, 


DEFINE 01 S* WITH WLRC 


COM 


14514 




M4446606L 
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DC 9.-575944783, , 


PRIMER DUMP PRO 




14523 




N 75944 781 








18710 


DC 9, -575955883m 


PRINTER NUMERIC PRN 




14512 




N7595588L 








18720 


DC 9.-575941983,, 


PRINTER ALPHA PR A 




14541 




N7594198L 








18730 


DC 9,6060600CC, , 


DUMMY OP CODE 




16550 




006060000 








18740 


DC 9,606060000, • 


DUMMY OP CODE 




14559 




0060600C0 








18750 


DC 9,606060000,, 


DUMMY OP CODE 




14568 




006060000 








18760 


PC 9,606060000, , 


DUMMY UP CODE 




14577 




0060600CC 
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DC 9,606060000,, 


DUMMY OP CODE 
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006060000 
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DUMMY OP CCCE 
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DC 11,42554372027,, 


BRANCH COKSCLE SWITCH 2 CFF 


BNC2 , 
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BRANCH CONSCLE SWITCH 3 QFF 


BNC3 
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1883C 
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BRANCH CPSSCIE SWITCH 4 OFF 
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BRANCH NOT LAST CARC 
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14659 
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DC 11,42556765157,, 


BRANCH NOT EXPONENT CHECK 


BNXV 
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RNTY 
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18870 
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14857 




N9436368124 








19030 


OC 11,62576368114, , 
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10642 


16 




-0554 


20450 




BTM 


EVALAO, PUTSRJ, 4 11 








10654 




ntn44 


1083- 


20460 


PUT 


TFM 


INPLT2*6,I0PT 










16 




-0532 


20470 




BTM 


EVALAO, •♦12, 4 11 








1 06 7 8 


1 7 


0*1104 

i i ai2 




20480 




BTM 


MACSHF.PUTSRJ 










I 7 




J0830 


20490 




CM 


INPUT*20,59,10 








10 702 


14 


9OAV 


000N9 


205C0 




BNE 


PUTSRJ 








10714 


?* 


i onto 


1200 


2 05 10 




BTM 


MACSHF, PUTSRJ 








1C726 


1 7 


11414 




20520 




CM 


INPUT»20,42,10 










14 


09007 


000M2 


20530 




BNE 


PUTSRJ 








10750 


^1 


10810 


1200 


20540 




BTM 


MACSHF , PUTSRJ 








1 0762 


1 7 


11816 


JO 8 30 


20550 




CM 


INPLT*20, 43,1Q 








i o J»4 




02907 


CC0M3 


20560 




BNE 


PUTSRJ 










4 7 


10810 


01200 


20570 




BTM 


MACSHF, •♦20 








10798 


1 1 


11816 


J0818 


20580 




B7 


PUTSRJ 








10810 


49 


10830 




20590 




TFM 


INPLT2*6, IORBC 








1 08 18 


16 


03044 


"0520 


20600 


PUTSRJ 


TO 


♦♦23,AD0COw 








108 30 


25 


10853 


02528 


20610 




TO 


•♦23, A JUST 








inacf 


25 


10845 


02399 


20620 




AM 


AOUCOW.,10 












0252 B 


000—0 


20630 




TF 


AODRStAOOCOM 








10866 


26 


03299 


02526 


20640 




AM 


AOOCOH v 23,10 








1CB78 


II 
* * 


02928 


04OK3 


20650 




TFM 


INPUT2*l,07, 10 








10890 




0304 1 


000-7 


20660 


HEX I T 


BTM 


CTEST.«*12 








10902 


IT 


07434 


J0914 


20670 




TFM 


CFFA,NQDCF2 








10914 


16 


02429 


JC936 


20680 




OTM 


CFF ,LDLBL 








1C926 


1 7 


02992 


"8414 


20690 


NCDCF2 


COA 


,0,A20AD,A3SCT, INSTRN 








10939 




14 








0J8800-29J0256 
















20700 




DC 


i,V 








10952 




* 




20710 


CCARO 


TO 


INPUT2*6,2EP0*28 










25 


03044 


02328 


20720 




TOM 


INPLT2*5, 0,11 








10044 


If 






20730 




A 


INPLT2*6 ? INPUT2*6 








iooti 


«i 


03044 


03046 


20740 




TFM 


INPUT2*l,05,lO 








10990 




03041 


000" 5 


20750 




BTM 


EVALAO • •♦12#4 








11 00 2 


if 


03M04 


11014 


20760 




TP 


DCAR0+19.BSW 








11014 


2) 


10973 


09037 


20770 




TO 


LDABSM, RLQCSW 








1 1028) 




04034 


08039 


20710 




TF 


TEMPR, AOORS 








1 1018 


24 


02971 


03299 


20790 




BTH 


EVAIAD V «*12,5 11 








1 1090 


11 


094*4 


1 104K 


20800 




TF 


AUORS, TEMPR 








11042 




03299 


02971 


20810 




BNF 


MEXIT, OCARD^ 19 








11074 




10902 


10973 


20820 




TDM 


LOABSW, It 1 1 








11014 


11 


08034 


00004 


20830 




AM 


A0OCOW,l,10 








UOtt 


11 


0292B 


000-1 


20840 




TF 


AOURS.AODCOW 








11110 


14 


03249 


02929 


20850 




AM 


AOOCOW.7,10 








11122 


11 


0IS2I 


000*7 


20860 




B7 


MEXIT 






110 


11114 


44 


14*02 




20870 


00* CD 


TOM 


INPUT2*5 t 0,ll 






11142 


19 


03049 


0000- 
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20880 
20890 
20900 
20910 
20920 
20930 
209*0 
20950 
20960 
209 70 
20980 
20990 
21000 
21010 
21020 
21010 
210*0 

210*0 PC AIL 

21060 

21070 

21080 

21090 

21100 

21110 

21120 

21130 

211*0 

21150 

21160 

21170 PCTR 
21180 

21 190 PCALL 1 

21200 

21210 

21220 

212 30 

212*0 

2125C 

2126C PCLPl 
212 70 
21280 
21290 PCC 
21300 
21310 
21320 
I i 30 
213*0 ER22 
21350 

21360 
21 370 
21 380 
21390 
21*00 

21*10 UTBl 



TO 

TFM 

BTM 

TO 

TO 

TF 

BTM 

BTM 

TF 

BNF 

TOM 



8NF 
SM 



BNR 

H7 

CM 

BE 

CH 

BE 



CM 
BE 

TR 

8 7 

CM 

BE 

TDM 

TR 

B7. 

SF 

TFM 

AM 

CM 

BNL 

C 

ONE 



TFM 

DC 

DT 

BD 

TFM 

TFM 

BTM 

DAC 

l ink 



INPU2*6i ZEPO*28 




11154) 


25 


030*6 


02 328 


INPUT2* l,05i 10 




11166 


16 


30*1 


000-5 


EVALAO, •♦ 12,4, 




11171 


17 


05M0* 


11190 


0CARO>19.BSW 




11190 


25 


10973 


08037 


LDABSHtRLOCSH 




11302 


25 


08036 


08035 


TEMPft , AOOR S 




1121* 


26 


02571 


03299 


E VALAO , •♦ 12 » 5 11 




11226 


17 


05*-* 


1123Q 


EVAt.AD,»*l2»5 11 




112 SB 


17 


05*-* 


1125- 


AODRSt TEMPR 




1 1250 


26 


03299 


02571 


MEX|T,0CARDM9 




1 1262 


** 


10902 


10973 


LOABSW, 1, 11 




112 7* 


is 


08036 


OOCO J 


AOOCOW.1,10 




11 286 


1 1 


02528 


000- I 


AOORS.AOOCUW 




11298 


26 


03299 


02528 


AUDCOM, 12,10 




11310 


11 


02528 


C00J2 


•♦2*,BSW 




11322 


** 


113*6 


0803 7 


AD0COM,5, 10 




1133* 


12 


02528 


OCO-5 


MFXIT 




113*6 


*9 


10902 




COLL- 18, THINGS- 2 C 




1135* 


31 


02*2 1 


02*00 


• ♦20, INPUU20 




1 1 366 


* 5 


1 1 386 


0290 7 


PC ALL I 




11378 


*9 


1151* 




INPLT*20,23,10 




11386 


I* 


02907 


OOOK 3 


PC ALL 1 




11 398 


*6 


1151* 


1200 


INPIWO.QO, 10 




11*10 


I* 


02907 


000- 


PC TR 




11*22 


*6 


1 1*9* 


01200 


COL L , INPUT* 20 




11*3* 


26 


02* 39 


02907 


COLL- 1 




11**6 


33 


02*38 


00000 


COLL- I 7, COL L^ I 5 




11*58 


) I 


02*22 


02*2* 


COLL- 17, 7, 10 




1 1*70 


1* 


02*22 


000- 7 


ER2 2 




1 1*82 


*6 


1 1686 


1200 


INP'lT*t9, INPUT + 21 




11*9* 


3 1 




02908 


PC ALL ♦ 12 




1 1 506 


*9 


11 366 




CCLL- I 7,06, 10 




1151* 


1* 


02*22 


000- 6 


• ♦** 




11526 


*6 


1 1570 


1200 


COLL , 




115 38 


1 5 


02* 39 


v v v V v 


CCLL- I 7, COLL- 15 




11550 


3 1 


02*22 


02*2* 


PC ALL I 




1 1562 


*9 


1151* 




COLL- 13 




1 15 70 


32 


02*26 


OCOOO 


PCCM 1,CLTBL*10-18 




1 15 82 


16 


1 16* I 


J 1 75 1 


PCCUl, 18.10 




1159* 


1 1 


1 16* I 


O0OJ8 


PCCUl,CLTBLH0O»l8 




1 1606 


I* 


116*1 


J1823 


E«22 




11618 


*6 


1 1686 


01300 


CGLL-2, •- • 




11630 


24 


2*37 


ccooo 


PCLPl 




1 16*2 


*7 


1159* 


1200 


PCC ♦ 11,5,10 




1 165* 


1 i 


1 16*1 


CCO- 5 


PCC ♦ I 1 




1 1666 


32 


116*1 


oocoo 


'PCC ♦ 11 » ,6 




116 78 


*9 


1 16* J 




EVALER-1, 27200 




11686 


16 


07071 


K7200 


I , • ,• 




11697 




1 




EPR INT.FPRlNT-l 




11698 


27 


C7332 


07331 


ERCOK, ERSTSW 




11710 


*3 


07196 


02*76 


INPUT2**, 06000 




11722 


16 


030** 


-6C00 


C F F A , NCOC F 2 




1173* 


16 


02629 


J0938 


CFF.SNUTCO 




117*6 


17 


02592 


-8*38 


6 , L INK , , , 


TABLE/VECTOR QF CALL STATEMENT 


1 1 759 




6 


X 2 



11 ! 
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21*30 
21**0 

21*50 
21*60 



DAC 6, LOAD 
LOAD 

OSA CLLOAO 



DAC 6 , E X I T 
EXIT 

CSA CALLEX 



21*70 
21*80 
21*90 
21500 
21510 
21520 
21530 
215*0 
21550 
21560 
21570 
21580 
21590 
21600 
21610 
21620 
21630 
216*0 
21650 
21660 
21670 
21680 
21690 
21700 
21710 
21720 
21 730 
217*0 
21750 
21760 
21770 
2U80 
21790 
21800 
21810 
21820 
21130 
218*0 
21850 
21860 
21870 
21860 
21890 



OS 

MACSHF TR 

BNR 
87 
CM 
BE 

C 

BE 
BB2 
Ctt INK OS 
CLLOAC TO 
TO 
AH 
BTM 
BTM 
TF 
AM 
BNF 
SM 
TFM 
87 

CALLEX TC 
TO 
AM 
TF 
TFM 
AM 
87 

OOA BTM 

SF 

80 

TO 

CF 

TF 

BTM 

BTM 

BTM 

BTM 

TFM 

TF 

BNF 

TO 

TO 



11 



INPLT*19,INPUT*21 

• ♦2C, INPUWO 

MACSHF-1,,6 

INPUT*20,23,10 

MACSHF-1,,6 

CLERER*1,INP0T*2C 

MACSHF 



•♦23,AOUCOW 
•♦2 3, A JUST 
A0pCQW M 10 
E VALAO, •♦ 12,5 
EVALAO, «*12, 5 U 
AOURS.AODCOW 
AOOCOM, 31, 10 
•♦2*,BSW 
A0DCOK.5, 10 
INPUT2*!, 05,10 
ME X I T 

•♦23,ADDCOb 
•♦2 3,AJUST 
AOOCOMfOOtlO 
ADORStAPDCOW 
INP(jT2*1,0*,10 
AOOCOM. 6,10 
ME X I T 

EVALAD.t* 12,* 
OOA 

•*36«BSM 
LOABSW, RLOCS* 
OOA 

00A«23i AOORS 
EVALAO* • «12» 
EVALAO, ♦♦12, 
EVALAO, • ♦12t 
EVALAD, •♦Wt 
INPLT2tl,060,9 
AODRS,ODA*23 
D0AX,00A 

• ♦2 3, AOOCOM 

• ♦23, AJtjST 



5 u 

5 11 
5 11 
5 11 
11 



SELECT OPERANDS 



I J 2 



1177* 




5 


X 1 


1177* 




J189B 




11777 




6 


X 2 


11792 




5 


X 1 


11792 




J 1 898 




I 179* 




6 


X 2 


11810 




5 


X 1 


11810 




J2026 




11815 




5 




11816 


31 


02906 


02908 


11828 


4 b 


118*8 


02907 


118*0 


*9 


1 18 IN 




118*8 


1* 


02907 


0COK3 


11860 


46 


U81N 


01200 


11872 


24 


02 701 


02907 


1188* 


46 


11816 


01200 


11896 


42 






11898 









11898 


25 


11921 


02528 


11910 


2 V 


11933 


02399 


11922 


11 


02528 


OCO-O 


11936 


17 


05*-* 


11940 


1 1966 


17 


054-4 


11950 


11958 


26 


03299 


02528 


11970 


11 


02528 


OOOLl 


11982 


44 


12006 


08037 


1199* 


12 


02529 


000-5 


12006 


16 


03041 


000-5 


12018 


49 


10902 




12026 


25 


12049 


02526 


12038 


25 


12061 


02399 


12050 


11 


02528 


000-0 


12062 


26 


03299 


02526 


12076 


16 


03041 


000-4 


12084 


11 


02528 


000-6 


12098 


49 


10902 




12106 


17 


05*04 


12116 


12118 


32 


12104 


00000 


12130 


43 


12164 


06037 


12142 


25 


08036 


06035 


1215* 


13 


12106 


OCOOO 


12166 


24 


12129 


03299 


12178 


11 


054-4 


1219^ 


12190 


I? 


054-4 


1220K 


12202 


IT 


054-4 


1221M 


12214 


1? 


054-4 


12220 


12226 


16 


03041 


00-6- 


12218 


24 


03299 


12129 


12250 


44 


12322 


12106 


12242 


25 


12265 


02526 


1227* 


25 


1229? 


02399 
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21900 




AM 


ADDCQW, 00,10 






12286 


11 


02528 


OOO-O 


21910 




TF 


ADORS, AODCOW 






12298 


26 


03299 


02528 


21920 




AM 


AOUCOW, 13,10 






1231 


tl 


02528 


O0OJ3 


21910 


DC AX 


TFM 


CFFA,NCDCF2 






12322 




02629 


J0938 


21940 




67 


ME X I T 






12)3* 


49 


10902 




21950 


C62S 


oc 


2*62 






12 3*2 




2 




21960 


C66W 


02 

OC 


2,66 






12 3*4 




2 




21970 


C*U 


06 

DC 


2 , * 1 






123*6 




2 




21960 


PR INT 


COMMANDS 














21990 


PRCS 


TDM 


PRNT3M1, 1,11 , 


Q 1 1 IS 1 




123*8 


15 


12551 


0000 J 


22000 


PRC 


TFM 


INPbT2*l ,035,9, 


OP CODE 




12360 


16 


030*1 


00- 35 


22010 




B7 


PRNT2 






12)72 


*9 


12*** 




22020 


PRNS 


TQM 


>RNT3*U, 1,11 , 


CI i IS L 




12380 


15 


12551 


OCOO J 


22030 


PRN 


TFM 


INPLT2* 1,038,9, 


OP CCDE 




12392 


16 


030*1 


00- 38 


220*0 




87 


PRNT2 






12*C* 


*9 


12*** 




?2050 


PR AS 


TOM 


PRNT i* 1 1 , 1,11, 


Q 1 1 IS I 




12*12 


15 


12551 


OCOOJ 


22060 


PR A 


TFM 


I NP LT 2* 1,039,9, 


OP CODE 




12*2* 


16 


030* I 


00- 39 


22070 




87 


PRNT2 






12*36 


*9 


12*** 




22010 


PRNT 2 


TD 


•♦23,ADDCOw, , 


MAKE ACCCOW EVEN 




12*** 


25 


12*67 


02528 


22090 




TO 


• 2 3 » A J U'S T 






12*56 


25 


12*79 


02399 


22100 




AM 


ADD COM, , 10 






12*68 


M 


02528 


000-0 


22110 




BTM 


EVALAO,»* 12,*1 1 






12*80 


17 


05M0* 


12*9K 


22120 




BTM 


E VALAO ,•♦12,511, 


, SHIFT LEAOINC COMMA 




12*92 


17 


05*-* 


1250M 


22130 




TF 


ADDR S , ADDCOW 






1250* 


26 


03299 


02528 


22140 




AM 


ADDCOM.lUlO 






12516 


1 1 


02528 


000J1 


22150 




BTM 


CT£ST,«»12,, 


TEST CORE OVERFLOW 




12528 


17 


07*36 


J2540 


22160 


PRNT3 


TOM 


1NPLT2*6,0 , 1 I , 


MD0IF1EI) TO MOVE 1 TO Qll 




125*0 


15 


0)0*6 


0000- 


22170 




T0« 


INPUT2** , 9 , 1 1 , 


MOVE 08 ANO C9 




12552 


15 


0)0** 


OCOOR 


22180 




TOM 


INPLT2*3,0,ll 






1256* 


15 


0)0*3 


0000- 


22190 




D7 


M E X I T , , , 


RESTORE MAIN PHASE ♦ LO AC 


LABEL 


12576 


*9 


10902 




22200 


PRINTER 


CARRIAGE CONTROLS 












22210 


SKIP 


TFM 


SKAP*23.SK|P1-1- 


10, .MODIFY TABLE REAO OUT MODIFIER 


1258* 


16 


12619 


J2877 


22220 


SKAP 


TFM 


PRN T6* 1 1 ,00012 , , 


MODIFY UPPER LIMIT OF OK 


C FIELD 


12596 


16 


12783 


-0012 


222 30 




TFM 


PRN-T7M1.SKAPI-1 


-10,, MOCIFY TABLE READ 


CUT 


126C8 


16 


128*3 


J2882 


222*0 




6 7 


PRNT* 






12620 


*9 


126*0 




22250 


SPAP 


TFM 


PRNT7M l.SPAPl-l 


-10. , MODIFY TABLE REAO 


CUT 


12626 


16 


126*3 


J3002 


22260 


PRNT* 


T D 


• ♦2 3, ADDCO'w . , 


MAKE AODCOW EVEN 




126*0 


25 


12663 


02528 


2 22, 70 




TC 


•♦23, A JUST 






12652 


25 


12675 


02399 


22280 




AM 


ADDCOW, , 10 






1266* 


11 


02528 


000-0 


22290 




BTM 


E VALAP » •♦ 1 2 • *i 1 , 


TEST P OPERAND 




12676 


17 


05MO* 


1268Q 


223Q0 




BTM 


EVALAD,*^ 12,5, 


GET OPERAND 




12688 


17 


05*-* 


12700 


22310 




CM 


ADDRS.OCQOO, 7, 


IS OP LARGER THAN ZERO 




127C0 


I* 


03299 


-oooo 


22320 




BH 


PRNT6 






12712 


*6 


12772 


01100 


22330 


PRNT5 


TFM 


EVALER-l,5C00O, , 


ERROR 5 




1272* 


16 


07071 


NCOOO 


223*0 




DC 


1 , • »• 






12735 




I 




22350 




6T 


EPR INT , E PR I NT- 1 






12736 


27 


07332 


07331 


22 360 




RD 


ERC QR »E R ST Sw 






127*8 


*3 


7196 


02*76 


22370 




TFM 


AODRS.OCOOl., 


.SET THE C FIELO TC I 




1276C 


16 


0)299 


-0001 


22380 


PRNT6 


CM 


A0DRS,0C0Q3, , 


IS Q LESS THAN * OR 13 MODIFIED 


12772 


1* 


03299 


-0003 


22390 




BH 


PRNT5,,,, 


Np GO TO ERROR 5 




12 78* 


*6 


1272* 


01100 


22*00 




TFM 


INPuT2^ 1,03*, 9, 


MOVE OP CODE 




12796 


16 


030*1 


00-^34 


22*10 




SP 


AODRS-3 




1 ! <> 


12 808 


32 


03296 


00000 
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22*20 




A 


•♦22, ADDRS., 


MODIFY THE MOVE BY 10 TC 120 


12820 


21 


128*2 


03299 


22*30 


PRNT 7 


TR 


INPUT2M.SPIM1 


-t-10,7, MOVE Q MOOIFIER TO INTERMEDIATE 


12832 


31 


030*3 


J2997 


22**0 




TF 


ACCRS.AOPCOW, . 


SAVE THE ACDRESS 


128** 


26 


0)299 


02528 


22*50 




AM 


ADOCOW, 11, 10, 


UP THE CURRENT ACCRESS 


12656 


11 


02528 


000J1 


22*60 




BTM 


CTEST.»*12.» 


TEST CORE OVERFLOW 


12868 


17 


7*36 


J2880 


22*70 




B7 


ME X I T , » . 


RESTORE MAIN PHASE ♦ LOAD LABEL 


12680 


*9 


10902 




22*80 


• • Q 


MODIFIER PRINTER CONTROL DECODE TABLES 










22*90 


SK 1 P 1 


DC 


2.-09, , , 


CHAN 1 


12888 








2250U 




-R 
DC 


3.-71' 




12891 












PJ' 














22510 


SKAP I 


DC 
-R 


2,-09 




1289 3 








22520 




DC 


'3.-41* 




12896 












MJ' 














22530 




PC 


2,-09,,, 


CHAN 2 


12898 








225*0 




-R 
OC 


3,-72' 




12901 












PK * 














22550 




DC 
-R 


2,-09 




129C3 








22560 




PC 
MK » 


3.-42* 




129C6 








2257U 




DC 
-R 


2,-09, , , 


CHAN 3 


12908 








22580 




OC 


3.-73' 




12911 












PL • 














22590 




DC 
-R 


2,-09 




12913 








22600 




DC 


3,-43* 




12916 












ML • 














22610 




DC 


2,-09,,, 


CHAN * 


12918 








22620 




-R 

DC 


3,-74* 




12921 












PM' 














22630 




DC 
-R 


2.^09 




12923 








226*0 




PC 


3,-44* 




12926 












MM' 














22650 




DC 


2,-09,,, 


CHAN 5 


1292S 








22660 




-R 

OC 


3,-75* 




12931 












PN» 














22670 




OC 


2,-09 




12933 








22660 




-R 

OC 


3.-45* 




12436 












MN • 














22690 




OC 


2,-09,,, 


CHAN 6 


12931 








22700 




OC 


3.-76* 




12941 












wo* 














22710 




OC 


2,-09 




129*3 








22720 




-R 

DC 


3»-46* 




129*6 












M0» 




CHAN 7 1 J./f 










22730 




DC 


2.-09,, , 


1294t 









162C- 1443 * ON I TOR 



VERSION 2 SPS ! I C PHASE * 



22740 




OC 

pp 1 


3 


- 77' 








DC 
*R 


2 


-09 




22 760 




DC 
MP' 


3 


-47' 




22770 




DC 
-R 


2 


-09,,, 


CHAN 8 


22780 




DC 
p Q . 


3 


-78' 




22790 




DC 
-R 


2 


♦09 




22800 




DC 
HQ* 


3 


-48' 




22810 




DC 

- R 


2 


-09, , , 


CHAN 9 


22820 




CC 
PR • 


3 


-79. 




22830 




DC 
■ -R 


2 


-09 




22840 




DC 
MR « 


3 


-49' 




2 2850 




CC 
-R 


2 


-09, , , 


CHAN 10 


22860 




DC 
P- • 


3 


-70* 




22870 




DC 
-R 


2 


-09 




22880 




DC 

M- • 


3 


r-40' 




22890 




DC 
-R 


2 


-09, , , 


CHAN 11 


22900 




OC 
LI • 


3 


-n.» 




22910 




CC 
-R 


2 


-09 




22920 




DC 
rL • 


3 


-C3' 




22930 




DC 
-R 


2 


-09, , , 


CHAN 12 


2294Q 




DC 

IM» 


3 


- 34' 




229*0 




DC 
-R 


2 


-09 




22960 




DC 
~m • 


3 


-C4' 




2 29 7C 




DC 
-R 


2 


-09,,, 


SPACE I 


22980 




rc 
\j « 


3 


-51' 




22990 


SPAPl 


CC 

■T'R 


2 


-C9 




23000 




uC 

KJ • 


3 


,-2P 




23010 




DC 
-R 


2 


-09, , , 


SPACE 2 



1 1 :.. 



12951 

12956 
12958 
12961 
12961 
12966 
12968 
129H 
12973 
12976 
12978 
12981 
12983 
12986 
12988 
12991 
12993 
12996 
12998 
130C1 
1300 3 
13CC6 
13008 
1301 1 
13013 
13016 
1.J0U 



162C-1443 KONITOR I VERSIUN 2 SPS II -C PHASE A PACE 



2 302C 




DC 
NK • 


3,-52' 




13021 




3 




23030 




OC 
-R 


2.-C9 




1302 3 




2 




23040 




UC 
OK • 


3,-62 • 




1 3026 




3 




23050 




DC 


2,-09,, , SPACE 3 




13028 




2 




23060 




-R 

DC 


3,-53' 




13031 




3 




23070 




Nl • 

DC 
-R 


2,-09 




1 3033 




2 




2 3080 




DC 


3,-*3' 




1 3036 




3 




2 3090 


FM 


01 • 
34 


FMCCF.00701 




13038 


34 


13086 


00701 


23100 




38 


FMCCF, 00702 




13050 


38 


13086 


00 702 


23110 




TRA 






13062 


36 


OOOOO 


00500 












13074 


49 


OOCOO 


CCOOO 


23120 


fMQCF 


ODA 


, , A3DAD , A 3SC T » I NSTRN 




13086 




14 








0J9252-29J0256 












23130 




TCD 


FM 




13038 








23140 


• 
















23150 




DEFINE MESSAGE 












23160 


• 
















23170 




DORC 


INSTRN 




10256 








23180 


BRANCH 


TABLE FOR OME S,DVLC ,HE AO 












23190 


DECL2 


TFM 


DECL3*6,0ECTAB 




10256 


16 


10298 


40304 


23200 




TO 


0ECL3*11,ZEP0*28 




10268 


25 


10303 


02328 


23210 




A 


DECL3*5,DECL3*ll 




10280 


21 


10297 


10 303 


23220 


0ECL3 


B 


*-t,,10 




10292 


49 


OOOOO 


000-0 


2 32 30 


DECT AB 


B 


DMES, , , *0 




10304 


49 


10682 


OOOOO 


23240 




□ORG 






10314 








2 32 50 




B 


DVLCm, +1 




10314 


49 


12028 


COOOO 


2 3260 




DORC 


1 




10324 








2 32 70 




B 


• **t *2 




10324 


49 


10324 


OOOOO 


23210 




DORG 


•-1 




103)4 








23290 




B 


HEADER , » , ♦ 3 




10334 


49 


12464 


COOOO 


23300 




OORG 


•-3 




10342 








23310 


• ANALYZE CONTROL CHARACTER , SUBROUTINE ANAL 












23320 


ANAL 


CM 


INPUT+24, 4 , IC , 1ST CHECK IF RIGHT PAREN IS PRESENT 


10342 


14 


02911 


0C0-4 


23330 




BNE 


ANAL 1* 12» » , NO LEFT PAREN, ERROR 




10354 


4? 


10414 


01200 


23340 




TF 


ANALUll, INPUT*22, tt*0VE CHARACTER TO ANOTMfR 


L0CAT1CN 


10366 


26 


1041) 


02909 


23350 




TR 


INPUT*l4,lNPUT*23t. POSITION INPUT RECORD 




10)78 


31 


02904 


02910 


23)60 




CM 


ANALl*ll,44,l0, 1 S IT A 




10)90 


14 


1041) 


00014 


23370 


ANAL1 


BNE 


ANAL2,,10, NOT AD, MAY BE GOOO 




104C2 


47 


10494 


012-0 


23310 




TFH 


EVALER-l, 17400, , IT IS A 0, ERROR 




10414 


14 


07071 


J7400 


23390 




OC 


It ' »• 




10425 




1 




23400 




CF 


ANAL* t» RESET STRAY PAREN SWITCH 




10416 


IS 


10)42 


OOOOO 


23410 




BT 


EPRINT,EPRINT-1,» PRINT ERROR MESSAGE 




104)8 


a? 


C7332 


073)1 


23420 




BO 


ERCOR f fRSTSN 




104 SO 


4) 


07194 


02474 


23430 


ANL14 


CM 


DT«-1,0MESC, , BRANCH TO REAP NEXT CHAR 




10442 


14 


11843 


J 1002 


23440 




BE 


DMSB1* * * SCANNING FOR ALPHA MOOE 




104T4 


44 


109M 


01200 


234*0 




B 


OHSNUM 




10404 


49 


11042 


OOOOO 


23460 




OORG 


•-3 


UC 


10414 









1620-1*43 MONl TCR I VERSION 2 SPS ! I-C PHASE A 



PAGE 



23*70 


ANAL2 


CM 


ANAL 1> I t,*l ,10, CHECK TC SEE If CHARACTER LFE BETWEEN A*F 


10*9* 


1* 10*13 


OOOMl 


2 3480 




bl 


ANAL !♦ 12 ♦ » t ■ NU If BRANCH FROM HERE 


10506 


*7 10*1* 


01300 


2 3490 




CM 


ANAL 1*1 1** 7,10, MAY BE (.HfLK FbRTHER 


10518 


1* 10*13 


00OM7 


235CO 




BL 


ANl 1<, , , , OKAY 


10530 


*7 10*62 


01300 


23510 




CM 


ANAL \*l 1,5*,10, CHECK REST OF CHARACTERS SERIALLY 


105*2 


I* 10*13 


OOON* 


23520 




HNE 


ANAL 1 , , , NOT A MODE CHANGE 


1055* 


*? 10598 


01200 


23530 




CM 


DTK- 1, ONE SC.. MODE CHANGE SET UP BRANCH 


10566 


1* 118*3 


J1002 


235*0 




BE 


DM r ,NUM , , , OUNGiNf. FROM ALPHA TO NUMERIC 


105 78 


*6 11062 


01200 


235SO 




R 


PMFS2,,, CHANGING F ROM NUMERIC TC ALFA 


10590 


*9 11238 


CCCOO 


2)560 




1)0.* C 


• - ) 


10598 






235T0 


ANAL 3 


CM 


ANAL! ♦ I 1,5 7, 10, CHK FOR P 


10598 


1* 10*13 


0C0N7 


23580 




HE 


ANL I* » » » LEAVE SUBROUTINE 


10610 


*6 10*62 


01200 


23590 




CM 


ANALl*ll,52,lO» CHECK FOR R,S,,I 


10622 


1* 10*13 


0C0N2 


2 3600 




BL 


ANALIM2,,, ERRCR J F BRANCH 


1063* 


*7 10*1* 


01300 


23610 




CM 


4NAL1H1.63.10, 


106*6 


1* 10*13 


00003 


23620 




BH 


ANAL 1*12,,, ERROR IF BRANCH 


10658 


*6 10*1* 


01100 


23630 




B 


ANL 1*, , , OKAY, R,S, OR T 


1C6 70 


*9 10*62 


occoc 


23640 


ANAL* 


OS 


, ANAL 1*12 


10* 1 * 







23650 


♦ PHASE A DMES PROCESSOR 








2 3660 


0M6S 


BTM 


EVALAD,*+12,*, SCAN ADDRESS UP h RAND 


10682 


17 05MO* 


1069* 


2 3670 




r f 


DIGITS. CIERER*2,. CLEAR DIGIT COLNT 


106 9* 


26 02699 


02702 


23680 




TFM 


OTft-1 ,DMf SC , , SET SWITCH TU HANCLE PCSS IBLE ERROR 


10706 


16 118*3 


J1002 


23690 




fiNR 


t ♦ 2* , INPUT»20, , CHECK if breaker a rm 


10718 


*5 107*2 


02907 


23700 




u 


DM SRM , , , BREAKER A RM, ERROR • INSERT NUM END MESSAGE 


10730 


*9 11*5* 


OCOOO 


237^0 




TDM 


SMOCE,,, INITIALIZE STARTING MUCE SWITCH 


107*2 


15 033*6 


OCOOO 


23720 




BNF 


One SI, BSW,, PROGRAMMER SPECIFIES ACCRESS 


10 75* 


** 10778 


080 3 7 


23730 




TF 


ADORS.AnOCOW, , NC, MOVE LOCATION COUNTER INTO ADDRESS LOC 


10 766 


26 03299 


02528 


237*0 


DMES1 


TFM 


MODE U6.DMSMN1 , , , INITITIALIZE BRANCH IN SU8R0UT iNfc MODE 


10778 


16 117b* 


J1026 


23750 




BTM 


M'ODE', • ♦ I 2 » » FIND MODE 


10790 


17 11730 


J0802 


2 3760 




CM 


INPLT*'2"0t*l , 10, SEE IF ALPHA MODE 


10802 


I* 02907 


OOOMl 


23770 




BE 


DMSALF,,, STARTING MODE ALPHA IF BRANCH. 


1081* 


*6 10862 


01200 


23780 




TFM 


EVALER-1. 17300. .ILLEGAL STARTING MOOE CHARACTER, 


10826 


16 07071 


J73O0 


2 3790 




CC 


1 . • , • 


10837 


1 




2 3800 




BT 


FPR INT.EPRINT-l PRINT ERRCR MESSAGE 


10838 


27 C7332 


07331 


2 38 1 




BD 


MLUR f ERSTSw 


10850 


*J 07196 


02*76 


2 3820 


DMSALF 


BNF 


OMESA, BSW,, SEE CF PROGRAMMER SPEC ACDRESS 


1C862 


** 1093* 


08037 


23830 




TO 


•♦23.ADOCOW, , NC, ADJUST AOCRESS ♦ LOC COUNTER 


1087* 


25 10897 


02528 


238*0 




TD 


•♦22, JSTBL 


10886 


25 10909 


02*59 


2 3850 




AM 


ADDCOW, ,10 


108S8 


11 02528 


OCO-Q 


2 3860 




TF 


ADDRS , AODCGw , , SET ADDRESS OF MESSAGE TO 2N0 IC I T 


10910 


26 3299 


02528 


2 3870 




SM 


ADDCOW, 2, 10, SET LOC. COUNTER TO LOC BEFORE MESSAGE 


10922 


12 02528 


000-2 


23880 


OMESA 


TFM 


MODE 1*6, 0MSB1 ,, , SET-UP .KANCH INST IN SUBROUTINE MQCE 


1093* 


16 1178* 


JC958 


2 3890 




BTM 


MODk ,MOCfc SEARCH FOR CCMMA 


109*6 


17 11730 


J1730 


2 39C0 


CMS R 1 


HTM 


DTW.OMESC SCAN MESSAGE OPERAND 


1C958 


17 118** 


J1002 


2 391 




AM 


DIGITS,'., 10, LEFT PARE N FOUND, LP C ATE DIGIT COUNT BY * 


10970 


11 02699 


000-* 


2 3920 




BNF 


ANAL, ANAL,, STRAY PARE N NOT FOUND IF BRANCH 


10982 


** 103*2 


103*2 


23930 




H 


ANA L <, 


1099* 


*9 10*1* 


coooo 


2 39*0 




OORG 


• - 3 


1 1 C C 2 






23950 


DM ESC 


AM 


ClOllS,?,lO, UPDATE DIGIT COUNT BY 2 


11002 


11 026^99 


000-2 


2 3960 







DM SB I 


1101* 


*9 10958 


00000 


2 3970 


0MSMN1 


TDM 


SMODE.1.10, SET SWITCH FOR ALPHA STARTING MODE 


11026 


15 033*6 


000- I 


23980 




BNF 


DMSNUM.feSW., CHECK IF PROG SPECIFIED ACCRESS 


11038 


44 11062 


08037 


2 3990 




AM 


ADDRS, l, 10. PROCESSOR ASSIGNED, INCREASE ADDRESS 


11050 


11 03299 


000-1 


2*000 


DMSNUM 


BTM 


D TO ,OMt SI 1 , , SC AN ME S SAGE OPERAND 


1 1062 


17 1184* 


J 1 1 1 8 


2*010 




AM 


Pfu . rr. . U), LEFT PARE N FOUND 


1107* 


11 02699 


000-2 



11 7 



162C- 1**3 "CNI TOR 1 VERSICN 2 SPS I I — C PHASE * PAGE 



2*020 




ONF 


ANAL, ANAL,. STRAY PARE N NOT FOUND IF BRANCH 


11086 


** 


10342 


10342 


2*030 




B 


ANAL* 


11098 


*9 


10414 


OCOOO 


2*0*0 




DURG 


• -3 


U1C6 








2*050 




DC 


1 , ' 


11105 




I 




2*060 




BT 


tPKINT, EPKINT-1 


U1C6 


27 


07332 


07331 


2*070 


DM E S I 1 


CM 


INPLT+20,79, , CHECK TO SEE IF CHAR NUMERIC 


11118 


I* 


02907 


-0079 


2*080 




OH 


DM SFR 2 , , , NOT NUMERIC, ERRCR 


11130 


*6 


11664 


01100 


2*090 




CM 


INPUT*20,69, 10 


111*2 


14 


C2907 


00009 


2*100 




BH 


DMS12, ,, NUMERIC IF BRANCH 


1115* 


46 


11214 


01100 


2*110 




CM 


INPUT+20,50,10, CHECK IF -OTHRL-9 


11166 


14 


02907 


OCONO 


2*120 




BL 


DMSER 2, , , NON-NUMERIC IF BRANCH 


11178 


47 


11664 


01300 


2*130 




CM 


INPUT*20,59,10 


11190 


14 


02907 


000N9 


2*1*0 




BH 


UMSER2,,, NOT NUMERIC IF BRANCH 


112C2 


46 


11664 


01100 


2*150 


DMS12 


AM 


DIGITS, 1,10, UPDATE DIGIT COUNT BY CNE 


1121* 


11 


02699 


000- I 


2*160 




B 


DMSNUM 


11226 


49 


11062 


00000 



2*170 • CHECK TO SEE IF ALPHA WILL START IN EVEN LOCATION 



24180 • LOCATION DMSV CONTAINS LOC OF LAST DIGIT STOREC, 



2*190 


DMES2 


TF 


DMSV.DIGITS,, INITIALIZE IT WITH OICIT COUNT. 


11238 


26 


03266 


02699 


2*200 




BNF 


DMES21, BSW,, SEE CF PROGRAMMER SPEC ACCRESS 


11250 


44 


11286 


0803 7 


2*210 




A 


DMSV, ADDCOW, , NO, ADD LOC COUNTER 


11262 


21 


03266 


02528 


24220 




B 


0MES22 


11274 


49 


11334 


00000 


24230 


DMES21 


A 


DMSV. ADDRS,, AOD PROG SPEC ADDRESS 


11286 


21 


03266 


03299 


2*2*0 




SM 


DMSV, I, 10, ADJUST FOR NUMERIC STARTING MODE 


11298 


12 


03266 


000- 1 


2*250 




BD 


•♦2*,SM0DE,, CHECK STARTING MODE 


11310 


43 


11334 


03346 


2*260 




SM 


DMSV, 1,10, ADJUST FOR ALPHA STARTING MODE 


11322 


12 


03266 


000-1 


2*270 


DMES22 


TD 


•♦23, DMSV 


11334 


25 


11357 


03266 


2*280 




TC 


DM SEND- I ,E VODO , , , 


11346 


25 


11429 


02469 


2*290 




RD 


UMSBI,0MSEND-1,,WILL START IN EVEN 


11358 


43 


10958 


11429 


24300 




TFM 


EVALER-1, 17600, , ODD ERROR, PRINT ERROR MESSAGE 


11370 


16 


070 7 1 


J7600 


24310 




DC 


1.' .* 


11381 




1 




24320 




BT 


EPR INT.EPR I NT- 1 


11382 


27 


07332 


07331 


24330 




BD 


ERCOR , ERSTSW 


11394 


43 


07196 


02476 


24340 




AM 


DIGITS, 1,10, ALLOW FOR - 


11406 


11 


02699 


000-1 


24350 




B 


DMSBl 


11418 


49 


10958 


00000 


24360 


DM SEND 


CM 


DIGITS, ,9, SEE IF NO DIGITS ACCUMULATED 


11430 


14 


02699 


00-00 


24370 




BH 


•♦36, , , NO ZERO, OKAY 


11442 


46 


11478 


01100 


2*380 


DMSRM 


AM 


DIGITS, 100,9 


11454 


11 


02699 


OOJOO 


24390 




B 


DMSER 1 * . • ERROR IF BRANCH, NO DIGITS 


11466 


49 


11614 


00000 


24400 




TFM 


I N P U T 2 ♦ 1 , 070,9 11 


11478 


16 


03041 


00-7- 


24410 




TF 


INPLT2*6, OIGI TS 


11490 


26 


03046 


02699 


24420 




BNF 


•♦24, BSW 


11502 


44 


11526 


08037 


24430 




A 


ADDCOW.DIGITS,, UPDATE LQCATICN CCUNTER BY MESSAGE SIZE 


11514 


21 


02528 


02699 


24440 




BTM 


CTEST,«»12 


11526 


17 


07436 


J1538 


24450 




TFM 


CFFA.NCOCF 


11531 


16 


02629 


J 1562 


24460 




BTM 


CFF.LOtBL 


11550 


1 1 


02592 


-8414 


24470 


NCCCF 


DOA 


,0,A2DA0.A4SCT,1NSTRN 


11562 




14 








OJ8800-27J0256 










24480 




OC 
. . 


l.» 


11576 




1 




24490 




TFM 


DIGITS, 100,9, SET DIGIT COUNT TO 100 


11578 


16 


02699 


OOJOO 


24500 




TFM 


EVALER-1.8C000,, Eft 6 MESSAGE. DMES TOO LONG 


115*0 


16 


07071 


QOOOO 


24510 




OC 


I , • 


11601 




1 




24520 




8 


** 2A t 1* 


11602 


49 


11626 


00000 



i62C-l**3 MQNtTOR I VERSION 2 SPS Il-C PHASE A 



PACE 



2*51C 


OM SER 1 


TFM 


E VALER- 1 »9C000 i , ER9 MESSAGE* NO OMES OPERAND 


11614 


16 


07C71 


RCOOO 


2*5*0 




DC 


l»'t*» PRINT ERROR MESSAGE 


11625 




I 




2*550 




BT 


E PR IN T # EPR I NT- 1 


11626 


27 


07332 


07331 


2*560 




BO 


ERCOR , ER STSW 


11611 


AJ 


07196 


02474 


2*570 




B 


0MSRM*2*, , , CONTINUE 


1 1690 


49 


11476 


COOOO 


2*580 


NMOAl 


DC 

-0 


?.o ■ ■ ' ' 


1 1663 




2 




2*590 


0NSER2 


TFM 


EVAlER-l»l 7500 t • ALPHA IN NUMERIC FJELC 


1 1664 


16 


07071 


J 7500 


2*600 




DC 


1 , • ♦• 


1 1679 




1 




2*610 




BT 


EPRINT,EPR!NT-1 M PRINT ERROR MESSAGE 


116 76 


2 1 


07332 


07331 


2*620 




OD 


ERCOR, ER ST SM • 




43 


07 196 


02476 


2*630 




AH 


DIGITS. 2, 10, UPDATE DIGIT COUNT BY 2 FOR END CF MESS 


11 700 


1 1 


02699 


000-2 


2*6*0 




B 


OMSNUM 


11712 


49 


11062 


00000 


2*650 




DC 


5 , 


1 1 728 




5 








-0000 










2*660 


MODE 


TR 


INPLT*l9,INPUT*2l » i MOVE INPUT REQORC LEFT 1 CHAR 


1 1 730 


31 


02906 


02906 


2*670 




BNR 


•♦24, INPUT+20, • ,KOT BLANK, CHECK FQR RM 


117*2 


45 


11766 


02907 


2*680 




b 


OMSRM , , , 


1175* 


49" 


1 1*5* 


00000 


2*690 




CM 


INPUT*20,23, 10, SEARCH FIELD, CHECK FOR COMMA 


11766 


14 


02907 


00OK3 


2*700 


MOCEl 


BE 


,,, COMMA FOUND * BRANCH 


11776 


46 


occoo 


01200 


2*710 




CM 


'INPLT«20* V 10, COMMA NOT FOUND, CHECK FOR BLANK 


1 1790 


14 


02907 


000-0 


2*720 




BE 


MODE,,, BLANK. CHECK NEXT CHARACTER 


1 1 802 


46 


11 730 


01200 


2*730 




TF 


•♦18.N00E-1,,, ALPHA CHAR IN FIELD, RETURN, OR CHECK 


11814 


26 


11832 


H729 


2*7*0 




B 


,,, NEXT CHAR. ACCORDING TO BRANCH 


1 1826 


49 


00000 


OOOOQ 


2*750 


• SUBROUTINE TC SHIFT ONE CHARACTER TO THE LEFT IN INPUT BUFFER 










2*760 




OS 


5 ' ' 


118*2 




5 




2*770 


DTR 


TR 


INPLT*19,INPUT*21,, MOVE OPERAND LEFT 1 CHAR ♦ SEARCH 


11844 


31 


02904 


02906 


2*780 




CM 


DIGITS, 100,9, CHECK DIGIT COUNT 


1 1856 








2*790 




BH 


DMSERI-36,,, BRANCH TC ERRO* ROUTINE 


1 1 868 


46 


11576 


01 100 


2*600 




BNR 


•♦<>C, INPUT*20, , FOR RM 


1 1880 


45 


1 1 900 


02907 


2*810 




B 


DM SEND ,»» RECORD MARK FOUNO, SCAN FIMSHPO 


11892 




1 1*30 


VUUUU 


2*820 




DOR G 


• - 3 


11 900 






2*8 30 




CM 


INPUT ♦20t4,'l0i CHECK FCR STRAY RT PAREN 






02907 


oon-A 


2*8*0 




BNE 


•♦b6 m NOT A STRAY PARE N IF BRANCH 


11912 


47 


1 1 968 


01200 


2*850 




SF 


ANAL,,, SET SWITCH FOR STRAY PAREN FCUNC 


1192* 


32 


10342 


UVUvv 


2*860 




CM 


CTR-l,DMESC 


1 1936 


14 


1 1 84 3 


J 1002 


2*870 




BE 


DM SB I ♦ 1 2 


1 19*8 


46 


10970 


01200 


2*880 




B 


D.M SNUM* 12, , , NUM 


1 1960 


49 


1 107* 


ocooo 


2*890 




DORG 


•-3 


1 1 968 








2*900 




CM 


INPLT*20,2*,10, CHK FOR LEFT PAREN 


1 1968 


1 4 


02907 


000K4 


2*910 




BNE 


•♦'2*, t .NOT A LEFT PAREN 


11980 


4 7 


1200* 


1200 


2*920 




BB 


, , , , LEFT PAREN FpUNC 


1 1992 


42 


00000 


ooooo 


2*930 




TF 


• ♦18.DTR-1, , NOT A I , 


120C* 


26 


12022 


1 1 8 * 3 


2*9*0 







,,, RETURN 


12016 


49 


00000 


ocooo 


2*950 


• 














2*960 


• 














2*970 


• 


DEFINE VARIABLE LENGTH ADDRESS CONSTANT 










2*980 


• 














2*990 


DVLC 


OTM 


EVALAD, •♦12,* 


12028 


17 


05M0* 


12040 


25000 




TO 


LDABSM.RLOCSM 


120*0 


25 


08036 


08035 


25010 




TF 


DVAOBMl, AODRS 


12052 


26 


12*03 


03299 


25020 




CF 


DVSW1 


12064 


33 


12100 


OOOOO 


25030 




RNF 


0VLC2, RSW 111) 


12076 


4* 


12112 


08037 


250*0 




TDM 


LDABSW, I, U 


12088 


15 


08036 


OOOOJ 
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25050 


CVASGN 


SF 


DVSWl 


12100 


32 


12100 


OOOOO 


25060 


CVLC2 


BTM 


EVALAD, • ♦ 12,5 


12112 


j / 


054-4 


1 2 124 


2S070 




TF 


DVCKL, AODRS 


12124 


26 


12111 


3299 


25080 




BNF 


DVLP, DVSW1 


12136 


44 


12208 


12100 


25090 




TF 


DVADBUl, ADDCOW,, AOOR I S RT.-MOST POS OF 1ST CON. 


121*8 


26 


1 2*0 3 


02528 


25100 




AM 


D VAOfl Ml , bO 


12160 


11 


12403 


-0050 


25110 




SM 


ADDRS, 50 


12172 


12 


03299 


-0050 


25120 




BNN 


• ♦2* 


12184 


46 


12208 


1 300 


251 30 




A 


D VADB ♦ 1 1 • AODRS 


12196 


2 1 


12403 


03299 


25 1*0 


DVIP 


BNR 


•♦48, INPUU20 


12208 


45 


12256 


02907 


25150 




TFM 


E VALE R- 1 , 9C000 , , ER 9, CCNSTANT NOT SPECIFIED 


j 2220 


16 


C 7071 


RCOOO 


25160 




DC 


1, • ,• 


12231 




1 




251 70 




BT 


EPR INT, EPKINT-1 


12232 


2 7 


07332 


7331 


25180 




BD 


ERCOR, ERSTS* 


1 2244 


43 


07 196 


02*76 


25190 




B TM- 


EVALAO, »*12, 5 11 


1 2256 


17 




1226Q 


25200 




BNR 


•♦20, INPUU20 


1 2268 


45 


12288 


02907 


25210 




B7 


OVEND 


12280 


49 


12320 




25220 




BTM 


EVALAO, ••12, 5 


12288 


17 


054-4 


12300 


25230 




A 


DVCKL, AODRS 


12300 


21 


12111 


03299 


?52*0 




B7 


DVLP 


12312 


49 


12208 




25250 


OVENO 


CM 


DVCKL , 00050 


12320 


14 


12111 


-0050 


25260 




BNP 


• ♦60 


12332 


47 


12392 


1 100 


25270 




TFM 


E VALER- 1, 8CO0O,, ER8, TOTAL LENGTH TOO BIG 


12344 


|6 


07071 


QOOOO 


25280 




DC 


1 , • ,• 


12399 




1 




25290 




BT 


EPR INT, EPRINT-l 


12996 


27 


07332 


07331 


25300 




BD 


ERCOR, ERSTSW 


12366 


43 


07196 


02476 


25310 




TFM 


OVCKL, 50 


12380 


16 


121H 


-0050 


25320 


OVAOB 


TFM 


AOORS, COOOO 


12392 


16 


03299 


-0000 


25330 




BNF 


•♦2*, 0VSW1 


12404 


44 


12429 


12100 


253*0 




A 


ADOCOM, DVCKL 


12414 


21 


02920 


121H 


25350 




TOM 


INPUT2, 8 


12426 


19 


03040 


00008 


25360 




TFM 


CFFA.NCDCF 


12440 


16 


02629 


j 1962 


25370 




BTM 


CFF ,DAC3-32 


12492 


|7 


02992 


J2004 


25380 


OVCKL 


OS 


, DVASGNMl 


12111 




o 




25390 


0VSM1 


OS 


, OVASGN 


12100 









25*00 


• 














25*10 


• 


HEADER ROUTINE 










25*20 


• 














25*30 


HEADER 


TFM 


HE0,,10 


12464 


16 


10237 


000-0 


25**0 




TOM 


HEAOER*T 


12476 


|f 


12471 


OOOOO 


25*50 




BNR 


COMA,lNPUT»20 


12469 


49 


12940 


02907 


25460 




TFM 


INPUT2M. 030,9 11 


12900 


14 


0304 1 


00-3- 


25*70 




TF 


INPUT2*6, HEO 


12912 


24 


0)044 


10237 


29460 




TFM 


CFFA.NCDCF 


12924 


14 


02429 


J 1962 


29490 




BTM 


CFF,SM0TC0 


12914 


17 


02992 


-0490 


2SS00 


COMA 


CM 


INPUT*20,23,10 


12940 


14 


02*07 


00OR1 


29910 




Bf 


HEADER* 36 


12960 


44 


12900 


01200 


29920 


• 


HEAOER OPERAND GREATER THAN ONI CHARACTER 










21930 




•0 


Eft 12 (HEADER + 7 


12972 


41 


12700 


12471 


29940 




CM 


INPUT^20, 9 10 


12904 


14 


02907 


000-0 


29990 




•£ 


• ♦AO 


12904 


44 


12494 


01200 


29940 




CM 


INPUT*20,40,1C 


12400 


14 


07407 


OOOMO 


29970 


• 


SPECIAL CHARACTER USED AS HEADER 










25980 




it. 


EMI t2» 


12420 


41 


12474 


01300 
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25590 




TF 


NfO i INPUT* 20 


126 32 


26 


102 3 7 


0290 7 


25600 




T DM 


h E AOE R ♦ 7 i 1 




1 5 


12*71 




25610 




TR 


INPLTU9, INPUT+21 


12656 


31 


02906 


02908 


25620 




R7 


HEADER* 2* 


12668 


*9 


12*88 




25630 


ER 1 1 


TFM 


cuii to. i . i 7 inn 


i » tit 


16 


07071 


J7 100 


256*0 




oc 


1 * * » • 


12687 




1 




25650 










la 




000-0 


25660 






• ♦2o' 


127C0 




12720 




2 56 tO 


_ 


TFM 


t V * L C K — I t 1 1 i U 


12708 


7 

16 


070 7 1 


J7200 


25680 




DC 


I » ' »• 


12 719 








25690 




8 T 


FPU IMTiFPR f Kf — l 


1 2 72 C 


2 7 


rJi i af 




25 700 




BC 


car nfi . ctcrcy 


12732 






02*76 


25710 




^1 


T* C » UC H ▼ JO 


127** 




12500 




25 7 20 


_ y 




c inr c r f» 7 n i 


12752 


3* 


12860 


CC 70 1 






38 


r ^ULr ,00 1Q2 


12 76* 


38 


1 2860 


00702 


257*0 




TR 


OLTAR-l, CLERER»3,2 


127 76 


3 1 


J0256 


02 703 


25750 




AM 


•-12*6, 50, 10 


12788 


1 1 


12782 


00ON0 


25760 




SM 


•♦23, 1, 10 


12800 


12 


12823 


000- I 


\ Win 




CM 


Ct, FRER* 1, 3*, 10 


12812 


1* 


02701 


000L* 






BL 


• -*8 


1282* 


* 7 


12776 


1 300 


25790 




TR A 




12836 


36 


00000 


00500 










128*8 


*9 


00000 


00000 


25800 


F2UCF 


COA 


,0,A*DA0,A*SCT, INSTRN 


12860 




1 * 








0J8881-27J0256 










25810 




TCD 


F2 


12752 
























2 58 30 


* 


SYMBOL TABLE OUTPUT PHASE 










258*0 


* 














25850 




OORG 


INSTRN 


10256 








25860 


U T AR 


CAS 


80 


10257 




80 


X 2 


258 70 




OAC 


1 , ' 


10* 17 




1 


X 2 


25880 


s? i n 


CAS 


3 2 


10*19 




32 


X 2 


25890 




OAC 


12, SYMBOL TABLE 


10*83 




12 


x 2 






SYMBOL TABLE 










25900 




DAS 


36 


105C7 




36 


X 2 


25910 


S T I T 2 


CAS 


3 2 


10579 




32 


X 2 


25920 




UAC 


09, BLOCK 01 


106*3 




9 


x 2 






BLOCK 01 










25930 




CAS 


39 


10661 




39 


X 2 


259*0 


OUTCL 


CAS 


80 


10739 




80 


X 2 


25950 




OAC 


l. # 


10899 




1 


x 2 


■ 

25960 


AL I R 


OAC 


5, CCOOO 


109C 1 




5 


X 2 






CCOOO 










25970 




OAS 


I 


10911 




1 


x 2 


25980 


NACC 


DS 


5 


10916 




5 




25990 


LNCT 


DS 


2 


10918 




2 




260C0 


• 














26010 


• 


E VALLATE ADDRESS OF DEND 










26020 
















26030 


DFNC 


TFM 


INPIT2+1. 30, 10 11 


1 '} \ 10920 


16 


30*1 


0001- 


260*0 




BTM 


EVALAO, •♦ 12,* 


1 10932 


17 


05M0* 


109** 
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26050 




TO 


INPL.T2 + 6, ZEP0*29 


26060 




TO 


INPUT2+5, ZEPO*28 


26070 




BU 


•♦2*,ZEP0»29, , 


26080 




CJTM 


OUTPUT, CSTAT 


26090 




TFM 


CFFA.NCDCFl 


26100 




BTM 


CFF.SNOTCD 


26110 


C ST AT 


BNF 


•♦2*,2PSSW 


26120 




B TM 


2PS0UT , »M2 


26130 




CM 


SBOLT, CO. 10 


261*0 




BE 


CALLA3 


26150 




TC 


OGSV, L0SYMB*1 


26160 




TD 


LOSYMBM, SPSGM 


26170 




NR1TE 


01SK-WLRC-0UTPUT PARTIAL 


26180 




TFM 


I0RT»»*23 


26190 




B 


IORBC.SOEF 1,7 


26200 




TO 


L0SYMB*1, OGSV 


26210 


CALl A3 


RCTY 




26220 


A3STRT 


TFM 


A3HD*ll,ISTAT-l 


26230 


A3B0 


BO 


•♦**,»-■ 


262*0 




TOM 


A3B0*ll,,6 


26250 




OC 


l**t» 


26260 




SM 


A3BD*1U1«10 


26270 




B7 


A3B0 


26280 




TO 


•♦23.MIADD 


26290 




TO 


•♦23,AJUST 


26300 




AM 


HIADD.00,10 


26310 




TO 


•♦23.PICKUP 


26320 




TO 


•♦23.AJUST 


26330 




AM 


PICKUP, ,10 


263*0 




BNF 


•♦20, ISTAT-30 


26350 




87 


• ♦20 


26360 




TF 


MOMAO »Ml ADD 


26370 


MACRIN 


BNF 


•♦68,KILSUB 


26380 




CM 


A3BDM I, I STAT-30 


26390 




BNH 


• ♦V* 


26*00 




TO 


A3BD*l l,A3BO*23,6 


26*10 




SM 


A360*lltl.l0 


26*20 




87 


• -** 


26430 




BO 


ASTOP.ASTSW 


26**0 




BNF 


•♦84.2PSSW 


26*50 




BNF 


•♦36,PTINSh 


26*60 




RCTY 




26*70 




WATY 


PT2NCS 


26*80 




BNF 


•♦36fC0!NSW 


26690 




RCTY 




26500 




MATY 


CD2MCS 


24910 




BO 


STBEGN, STPCSW 


26520 




BNF 


CALLBl.STPRStt 


26530 


STBEGN 


BNF 


STl.STPCSW 


2*960 




WACO 


STIT1,,, 


2*990 




WACO 


OUTCL 


2*9*0 


ST1 


BNF 


ST2.STTYSW 


2*970 




TF* 


ST1T1*2«44,,, 


24580 




OAC 





CHECK FOR TCD 



PUNCH TITLE 



122 



1C9** 


25 


03046 


02329 


10956 


25 


03045 


02328 


10968 


43 


10992 


02329 


10980 


17 


09686 


J1016 


10992 


16 


02629 


-7316 


1100* 


17 


02592 


-8*38 


11016 


4* 


110*0 


02*77 


11028 


17 


09978 


J1040 


110*0 


14 


02643 


ooo-o 


11052 


46 


1112* 


01200 


1106* 


25 


03347 


19998 


11076 


2* 


19998 


02560 


11088 


16 


00565 


Jllll 


11100 


49 


00520 


J0139 


11112 


25 


19998 


033*7 


11124 


34 


coooo 


00102 


11136 


16 


11159 


-2558 


11148 


43 


11192 


ooooo 


11160 


15 


1115R 


ooooo 


11171 




1 




11172 


12 


11199 


000-1 


11184 


49 


11148 




11192 


25 


11215 


02518 


11204 


29 


11227 


02399 


11216 


11 


02518 


ooo-o 


11228 


25 


11251 


02528 


11240 


25 


11263 


02399 


11292 


11 


0252* 


000-0 


1 12*4 


44 


112*4 


02529 


1127* 


49 


1129* 




1126* 


24 


00415 


02518 


1129* 


44 


113*4 


02*84 


11108 


14 


11199 


-2529 


11320 


47 


113*4 


01100 


11332 


29 


1115R 


11171 


11344 


12 


11199 


000*1 


1139* 


49 


11308 




113*4 


43 


12968 


10249 


1137* 


44 


11*60 


02477 


11388 


44 


11424 


02475 


11400 


34 


00000 


00102 


11412 


39 


13013 


00100 


11424 


44 


114*0 


02474 


1143* 


34 


00000 


00102 


11448 


39 


11091 


00 100 


114*0 


43 


114*4 


02470 


11412 


44 


1278* 


02472 


U4S4 


44 


11920 


02470 


1149* 


99 


10419 


00400 


11908 


39 


10719 


00400 


11920 


44 


11*04 


02471 


11932 


1* 


10907 


-oooo 


11949 




I 


X 2 
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26590 




RCTY 




26600 




RC TV 




26610 




HA TY 


STITl 


26620 




RCTY 




266 3C 




RC T Y 




26640 


ST2 


CM 


SBOLT t00# 10 


266 50 




BE 


OSYMB-20,,, 0U1PLT 


26660 




TFM 


SBCNT, 00, 10, EX! SIS 


26670 




TF 


8 2DCF ♦ 5 1 8 IDCF ♦ 5 


266S0 


STLCOP 


AM 


SBCNT, I, 10 


26690 




TO 


ST1 T2*40»2, SBCNT 


26700 




ro 


SUT209»2,SBCNT-1 


26710 




HNF 


ST3.STPCSW 


26720 




WACO 


OLTCL 


26730 




k AC D 


OLTCL 


267*0 




* AC D 


STIT2 


26750 




WACO 


OUTCL 




ST3 




LKLUiillYiW 


26770 




RCTY 




26780 




RCTY 




26790 




TFM 


ST IT2»4 1*2 


26800 




OAC 
• 


It* 


26810 




WATY 


STIT2 


26820 




RCTY 




26830 




RCTY 




26840 




TFM 


STIT2*M«2,00il0 ' 


26850 


CRLD 


AM 


B2DCF*5,SPBL 


26860 




C 


SBCNT.SBOUT 


26870 




BH 


FLOAO 


26880 




TD 


OGSV.LOSYMB* I 


26890 




ro 


LOSYMB* USPSGM 


26900 




RfcAD 


DISK-HLRC-READ SYMBOL BLOCK 


26910 




TFM 


10RT,»*23 


26920 




B 


10GT.SDEF2, 7 


26930 




TFM 


L IMITS.LBL1M 


26940 




TFM 


L I M I T S- 5 * MAXL I M 


26950 




TD 


LOSYMB* UDGSV 


26960 




67 


OSYMB-20 


26970 


FLO AD 


TO 


DGSV.LOSYMB* I 


26980 




TO 


LOSYMB* USPSGM 


26990 


• 


RE AO 


DISK-HLRC-PARUAL B LOCK 


27000 




TFM 


10RT,»*23 


27010 




R 


10GT,SDFFI,7 


27020 




TR 


L IMITS-9 f PKTLl M-4 


27030 




TD 


LOSYMB* UDGSV 


27040 




AM 


LIM1TS-5, 17,10 


27050 




07 


ST5 


27060 


0SYM8 


TR 


OUTAR-l ,OUTCL-l 


27070 




TFM 


LNC T, 05, 10 


27080 




TFM 


STLP»6.0OTAR*5«2 


2 7090 


STLP 


TF 


•-• ,L IMI TS-5, 


27100 




AM 


STLP*6, 14,10 


27110 




AM 


LIMITS- 5, 5,10 


27120 




TF 


NAOD.LIMI TS-5 t U 


27130 




TC 


ALIR*8,NADD 



123 



11544 


34 


00000 


00102 


11556 


34 


00000 


00102 


1 1568 


19 


10419 


00100 


11580 


34 


00000 


00102 


11592 


34 


00000 


00 102 


1 1604 


14 


0264 3 


000-0 


11616 


46 


12044 


01200 


11628 


16 


02675 


000-0 


11640 


26 


10193 


10177 


11652 


11 


02675 


000-1 


11664 


25 


10659 


02675 


1 1676 


25 


10657 


026 74 


11688 


44 


11748 


02470 


1 1 7 CO 


19 


10739 


00400 


11712 


39 


10739 


00400 


11724 


39 


10579 


00400 


11736 


39 


10739 


00400 


1 1748 


44 


1 1844 


02471 


11760 


34 


00000 


00102 


11772 


34 


ooooo 


00102 


11784 


16 


10661 


-0000 


11795 




1 


X 2 


11796 


39 


10579 


ooioo 


11808 


34 


OOOOO 


00102 


1 1820 


34 


OOOOO 


00102 


118 32 


16 


10661 


000-0 


1 1844 


1 1 


10193 


-0040' 


11856 


24 


02675 


02643 


1 1868 


46 


11972 


01100 


1 1880 


25 


03347 


19998 


1 1892 


25 


19998 


02560 


1 19C4 


16 


00565 


J .1927 


11916 


49 


00566 


JO 1 4 7 


1192B 


16 


03287 


K0009 


1 1940 


16 


03282 


J5997 


1 1952 


25 


19998 


03 347 


1 1964 


49 


12044 




11972 


25» 


03347 


19998 


11984 


25 


19998 


02560 


11996 


16 


00565 


J2QISS 


12006 


49 


00566 


JOl 39 


1202U 


1 1 


32 76 


Q2«.9« 


12032 


25 


19996 


3 347 


12044 


1 1 


03282 


000 J 7 


12056 


49 


12716 




12064 


31 


10256 


10738 


12C76 


16 


10918 


OCO-5 


12088 


16 


12106 


J0267 


12100 


26 


coooo 


0328K 


121 12 


11 


12106 


0C0J4 


12124 


11 


03282 


000-5 


12136 


26 


10916 


0328K 


12148 


25 


10909 


10916 
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27140 




TD 


ALZR*6,NADD- I 




27150 




TD 


AL ZR *4 ,NADD-2 




27160 




TO 


AL ZR ♦ 2 » NADD- 3 




27170 




TD 


AL ZR*0,NA0D-4 




27180 




TFM 


ALZR* 10,00, 10 




27190 




BNF 


•♦48,NADD 




2 7200 




TFM 


AL ZR* 10,59, 10 




*7210 




BD 


•♦24,R£LSW 




27220 




TFM 


Al ZR* 10,20, 10 




27230 




CF 


ALZR*9 




27240 




CF 


ALZR*8 




27250 




CF 


AL ZR 




27260 




TF 


STLP*6,ALZR*10,6 




272 70 




AM 


STLP + 6, 18, 10 




2 7280 




AM 


LIMITS- 5, 12, 10 




27290 




C 


LIMITS-5,LIMI TS 




27300 




BNL 


• ♦36 




27310 




SM 


LNC T , 1, 10 




27320 




BP 


STLP 




27330 




BNF 


ST4,STPCSW 




27340 




TFM 


IORT,»*23 




27350 




B 


I0PT,0UTAD-4,7 




27360 


ST4 


BNF 


ST4A , STTYSN , , , 


TYPE SVSTEP SVMBCL TABLE 


27370 




WATY 


QUTAR 




27380 




RCTY 






27390 


• • PR INT HEAD ING AND SYSTEM SYMBOL TABLE 


27400 


ST4A 


BNF 


ST5.STPRSW,, 


SMALL ME PRINT SYMBOLS QM 


2 7410 




NOP 


OFLO,,, 


FIRST TIME FALL THROUGH 


27420 




TFM 


I0RT.M23,, 


YES BRING IN THE HEADING 


27430 




B 


I0GT,DSKMD,7 




2 7440 




TOM 


ST4A*l3t9,, 


MODIFY NOP TC BRANCH 


27450 




07 


0FL0M2,, , 


SKIP THE OFLO TEST 


27460 


OFLO 


BNI 


ST4B, 3400, , 


TEST PRINTER CHAN 12 


27470 




BO 


ONE.PGNUM-2 




27480 




BO 


TWCPGNUM-1 




2 7490 




B7 


NONL* 




27500 


ONE 


TOM 


B10MA0M74,7 




2 7510 


TWU 


TDM 


B10MA0*176,7 




2 7520 


NONUM 


TD 


BICMA0*179,PGNUM, , 


, PAGE NUMBER 


27530 




TD 


B 10MAD* 17 7,PGNUM-l 




27540 




TD 


B10MAD* 175.PGNUM-2 




27550 




34 


,0971,, 


SKIP TQ UMMEOIATE 


27560 




34 


♦0962,, 


DOUBLE SPACE AFTER PRINT 


27570 




TFM 


I0RT,»*23,, 


TO IORT -PRINT PAGE HEAD 


27580 




6 


I0PT,PAGE-4,7 




27590 




AM 


PGNUM ,01 t 10 , , 


ADD I TQ PAGE NUMBER 


27600 


ST4B 


TFM 


IORT,«*23., 


FINALLY PRINT SYMBOL TABLE 


27610 




B 


I0PT,SYMT8-4,7, 




27620 


ST5 


C 


L IM I TS-5, LIMI TS 




27630 




BL 


OSYMB 




27640 




CM 


S80UT,00,1C 




27690 




BE 


CALLBl 




27660 




C 


SBCNT, SBOUT 




27670 




BNH 


STLCOP 




27610 


C ALIBI 


BNF 


•♦6C2PSSW 




27690 




BNF 


•♦48tPT!N$M 


12 



12160 


2S 


10907 


10915 


12172 


25 


10905 


10914 


12184 


25 


10903 


1091 3 


12196 


25 


10901 


10912 


12208 


16 


10911 


000-0 


12220 


44 


12268 


10916 


12232 


16 


10911 


000N9 


12244 


43 


12268 


02478 


12256 


16 


10911 


OCOKO 


12268 


33 


10910 


OOOOO 


12280 


33 


10909 


OOOOO 


12292 


3 3 


10901 


ocooo 


123C4 


26 


12100 


1091 1 


12316 


11 


12106 


000J8 


12328 


11 


03282 


000J2 


12 340 


24 


03282 


03287 


12352 


46 


12388 


01300 


12 364 


12 


10918 


000- 1 


12376 


46 


12100 


01100 


12388 


44 


12424 


02470 


124C0 


16 


00565 


J2423 


12412 


49 


00532 


J 300 4 


12424 


44 


12460 


02471 


12436 


39 


10257 


OOIOO 


12448 


34 


OOOOO 


00102 


12460 


44 


12716 


02472 


12472 


41 


12528 


OOOOO 


12414 


16 


00565 


J2507 


12496 


49 


00566 


J3325 


12508 


19 


12471 


CC009 


12520 


49 


12540 




1252B 


47 


12692 


01400 


12540 


43 


12572 


02645 


12552 


41 


129B4 


02646 


12564 


44 


12996 




12572 


19 


10074 


00007 


12SB4 


19 


1007* 


00007 


12596 


25 


10079 


02647 


12606 


25 


10077 


02*4* 


12620 


29 


10079 


02*49 


12612 


14 


OOOOO 


00971 


12644 


14 


OOOOO 


009*2 


12*96 


14 


009*9 


J2674 


12666 


49 


00912 


J3301 


126B0 


11 


02*47 


000-1 


12692 


1* 


009*9 


J2719 


12704 


49 


00912 


J1291 


12716 


24 


01212 


03287 


1272B 


47 


12044 


01300 


1274Q 


14 


01*41 


000-0 


12712 


4* 


12710 


01200 


12764 


14 


02*79 


02*43 


1277* 


47 


11*92 


01100 


12788 


44 


12**8 


02477 


12600 


44 


12848 


02479 



1620- 1**3 MONI TOR 



VERSION 2 SPS II-C PHASf A 



2 7700 
27710 
27720 
27710 
277*0 
27750 
27760 
27770 
27780 
27790 
27100 
27810 
2 7920 

27830 AS TOP 

27(1*0 

27850 

27160 OyTAO 



2 7170 

2 7B8Q PT2MES 
27990 CC2MES 
27900 2STM65 
27910 ASMS 
27920 CB10CF 
27930 



WATY 2STMES 
RCTt 



BNf • ♦^.STPCSW 
BNF •♦8*,LSC0SW 
MACO OUTCL 
WACO Ot'T.Cl 
WACC OUTCL 

NOP GUTCL • , »CHNGE tQ WACO IC PUNCH 1 KORE BLNK LN ApTR SYM TABLE 
NOP OUICL , , *CHNGE TO MACO TC PUNCH I MORE BLNK LN AFTR SYM TABLE 
NOP OUTCL, » »CMNGE TO MACO tC PUNCH 1 MORE BLNK LN AFTR SYM TABLE 
TFM CFFA.C8 IDCF 
BTM CFF,*188 
RCTY 

MATY ASMS 

B MONCAL, ,, CALL EXIT 

DSA OUTAR 



CC 3, 10' 
JO' 

CAC 39 f RE THREAD SOURCE PAPER TAPE FOR PASS 2. 
Rf THREAD SOUtCE PAPER TAPE FCR PASS 2. • 
DAC 32 i RELOAD SOURCE CARDS FOR PASS 2.* 
RELOAD SOURCE CARDS FOR PASS 2.' 
DAC 2*, PRESS START WHEN READY* ' 
PRESS START WHEN READY . * 

DAC 38, DISC AREA TOO SMALL* ASSEMBLY CELETED* 

UISC Aftt A TOO SMALL. ASSEMBLY DELE TEC 

ODA ,0,BIDA0.B1SCT.SB0UTM 

0J8978-21-26** 

DC 1, • 



2 79 AO 


SYMTB 


OS A 


01 TAR 


27950 




OC 


3, 16',,, 






J8« 




27960 


PAGE 


CSA 


B10MADM 


27970 




OC 


3,18' , , , 






J8 1 




2 7980 


DISK CD 


COA 


, I ,B8DADrOC2 






U70GI-02-99C0 


27990 




DC 


I » ' 


26000 


DSKHC 


psc 


2.22,,, 






22 




28010 




OS* 


OISKDD 


28020 




CC 


1, • 


28030 


f 3 


3* 


A5DCF ,00701 


280*0 




38 


A5DCF ,00702 



PR | NT SYMBOL TAQLE LISTING 



PRINT INDICATION ANC PAGE NUMBER 
,B 1 QMAD , , , C^A CF PRINT OUT OFLC 



PAGE OFLO CEFINER FOR SYMBCL TABLE 



I 25 



1620- 1**3 MCMTCR 1 VERSION 2 SPS II-C PHASE A 



28060 A50CF C OA , , A5DAD » A 5SC T , I NS TRN 

0J8737- 31J0256 
28070 TCD F3 



12812 


19 


13155 


00100 


1282* 


3* 


ooooo 


00102 


12816 


*M 


ooooo 


ooooo 


128*8 


** 


129** 


02*70 


12860 


** 


129** 


02*79 


12172 


39 


10739 


00*00 


12816 


19 


10739 


00*00 


12896 


39 


107 39 


00*00 


12908 


* 1 


10739 


0CO0O 


12920 


*1 


10 739 


oopoo 


12<J32 


*l 


10739 


ooooo 


129** 


16 


02629 


J3278 


12956 


17 


02592 


-*188 


12968 


1* 


OOOOO 


00102 


12910 


39 


13203 


00100 


12992 


*9 


00796 


OOOOO 


13008 




5 


X 1 


130C8 




J0257 




13011 




3 




13013 




39 


x 2 


13091 




32 


X 2 


13155 




2* 


X 2 


1320 3 




38 


X 2 


13276 




I* 




13292 




I 




132 97 




5 


X 1 


13297 




J0257 




13 300 




3 




133C5 




5 


X 1 


13305 




-9901 




13 308 




3 




13310 




1* 




1332* 




1 








2 




13331 




5 


X l 


13331 




43310 




1 3332 




1 




1 33 3* 


3* 


13382 


00 701 


133*6 


36 


13382 


00702 








PAGE 


13358 


36 


OOOOO 


00500 


13370 


*9 


COOOO 


COOOO 


13382 




1* 





126 





1620- 1**3 


HON I TOR 


I VERSION 2 


5 PS 11 -C 


1PTSP8 


01500 


ERSTStt 


02*76 


PRCCRE 


2PRT 10 


2C000 


E VALAD 


05*0* 


PftCSTM 


2PS0UT 


04978 


E VALER 


07072 


PRTLIM 


2PTSP8 


00600 


FF 1DCF 


1116* 


PT2MES 


2STMES 


13155 


G00DB2 


Oil 8* 


PT INS* 


5ALPH0 


03399 


G00DB3 


10292 


PUTS R J 


A3STRT 


11136 


HEADER 


12*6* 


RETURN 


ACOCOW 


02528 


[ NCODE 


02*91 


Rf VSKN 


ALFLPt 


0*660 


I NPUT2 


030*0 


RLOCSW 


B10W AO 


09900 


TNSTRN 


10256 


RSYMSW 


BCMSPC 


05772 


1 NTR SM 


02*8) 


2 PASS 


CA5DCF 


1278* 


1 NT SA V 


1561* 


2PBUF 


CALL A 2 


1392* 


I OAQOR 


02636 


2 PRE 


CALL A3 


1112* 


I OCSAD 


19783 


2PSSH 


CALL B I 


12 788 


K| L SUB 


C2*8* 


2PTR 


CALL EX 


12026 


LDABS* 


08036 


2, SECT 


CARDIN 


02668 


LOOSC V 


08926 


2S 


CBIDCF 


I 32 78 


LIMITS 


032 67 


5CHAR 


CD2ME S 


1 3091 


LOPQUT 


03327 


6CHAR 


COINS* 


02*7* 


LOS VM& 


1 9997 


AlCl 


CFFDEF 


0262 3 


L SCO Sm 


02* 79 


A I OAO 


CHVALD 


11712 


L SPR Sw 


02*8 1 


A 1 DCF 


CL ERER 


02 700 


LSTYSta 


02*80 


AISCT 


CLL IN* 


11898 


MACR I N 


112 96 


A20AQ 


LLLOAO 


1 1 898 


MACR02 


1 0256 


A2SCT 


CONMER 


0578* 


MAC SHF 


11816 




COMSPC 


05628 


MAXL I M 


15997 


A3DAC 


CE C T AB 


1030* 


MCADCF 


1 5582 


A3DCF 


I C I T S 




MCAOEF 


1557* 


A3SCT 




0*800 








IHCCF 


1*78* 


HOC TQC 


1602 3 


A*SCT 












D ! SK CO 


13 310 






A50CF 


UME S 1 1 


11118 


MONAME 


1 6035 


A5SCT 


ON E S 2 1 


11286 


HQ NC A L 


CC796 


ACC 


QMES2 2 


1 13 3* 


MONO I S 


160** 


ACCRS 


UMESCL 


111*0 


MO SB NO 


160*3 


A JUST 


UMS AL F 


10862 


MOSOAO 


1 966 3 


ALF LP 


DMSEND 


11*30 


MSTOAD 


189*3 


ALPOP 


DMSER 1 


1 1 6 1 * 


NCDCF 1 


07316 


ALPHA 


DMSER2 


1 1 66* 


NCOCF 2 


10938 


AL ZR 


DMSMN 1 


11026 


NO SI NE 


11908 


ANAL1 


DMSNUM 


1 1062 


08 JCRE 


02*96 


ANAL2 


DOBOMK 


10532 


OPLC TB 


0*91 2 


ANAL) 


COD I SK 


1 1060 


0T2DCF 


1022C 


ANAL* 


UQINST 


10360 


OUTDCP 


1 02 0* 


ANAL 


DOLL AR 


06312 


OUTOF 1 


10155 


ANL1* 




I'JSl h 


0UT0F2 


10163 


ACRS 


OOSVRS 


10980 


OUTPUT 


C9686 


A 


UVASGN 


12100 


PCALL1 


1151* 


ASET 


E 10CAC 


11736 


PCNUS* 


C2*82 


ASMS 


EPRINT 


07332 


PHASE A v 


03*08 


ASR 


ER9CAC 


11668 N 


PHCOAD 


18855 


ASTER 


fcRCHAR 


06*36 


PHCSCT 


00026 


ASTOP 


ERLNTH 


057*8 


PICKUP 


02528 


ASTSU 


ERROIG 


03277 


PROCON 


10882 


810AC 





162C-1**3 


MONI TUR 


I VERSION 2 


SPS II-O 


CLTbL 


11759 


DSKHD 


13325 


ICSK 


CNTR 


10239 


DSS 


1256* 


I ST AT 


COLL 


02*39 


OTR 


118** 


JSTBL 


COMA 


125*8 


OVAOB 


12392 


K 


CON TR 


10277 


DVCKL 


12111 


LABL 


CORM 


03355 


DVENO 


12320 


LAB 


CRLD 


118** 


0VLC2 


12112 


LACCR 


C 


13956 


UVLC 


12028 


LB2 


CSTAT 


11016 


DVLP 


12208 


L8ACC 


CT1 


07*8* 


DVStal 


1210C 


LBCK2 


CTEST 


07*36 


EQDAO 


COOOO 


LBFNC 


CTVT 


02*89 


EQSCT 


0000* 


LBLIM 


CYLAV 


15599 


EQSM 


08359 


LCLBL 


DAC3 


12036 


ER 1 1 


12676 


LCSOK 


OACER 


11580 


ER12 


12708 


LCSR 


OACR 


11860 


ER19 


0961* 


LOTR 


OAC 


11*72 


ER 1 


07*98 


LIM 


DAS 


11392 


ER20 


10C72 


LNCT 


OCARO 


1095* 


ER22 


11686 


LNTM 


DCRN 


13072 


ER2B 


09498. 


L 


DC 


12800 


ER2 


0*28* 


MACRO 


CDA 


12106 


ER 3 


0*8*8 


MEXIT 


OOAX 


12322 


ER4A 


095 9* 


M0CE1 


OOMOO 


111*2 


ER* 


095*6 


MQOE 


0ECL2 


10256 


ERCOR 


07196 


MODOC 


DECL3 


10292 


ERQSA 


13516 


MOMAO 


OECL 


051*8 


ERLAB 


03303 


MOMt 


OENDC 


12760 


EVl 


07108 


MOSCT 


DENO 


10920 


EVODO 


Q2469 


MPYSW 


DGM 


11220 


F20CF 


12860 


MULT 


OGSV 


033*7 


F2 


12752 


MURI 


DIM 


1*776 


F3 


13334 


NAOO 


DISK 


053** 


FDCF 


15764 


NASS 


DMESl 


10778 


FILE 


15716 


NCOCF 


0MES2 


11238 


FLA1 


15660 


NIC 


OMESA 


1093* 


FLGRM 


03345 


NMOAL 


DMESC 


11002 


FLOAO 


11972 


NOISE 


DMES 


10682 


FMOCF 


13016 


NQNEX 


DMS12 


1121* 


FM 


13038 


NONUM 


DMSB1 


10958 


GET1 


038*0 


NUMB 


OMSRM 


11*5* 


GET 


0641* 


OFLO 


DMSV 


032*6 


GOODB 


0*976 


OK 


OMSVM 


03271 


HCLIM 


02507 


ONE 


ON 8 2 


12*96 


MED 


1023T 


ONE I 


DOAOC 


10452 


MIAOD 


029l« 


OH 


DOB I 


10600 


I DMES 


12631 


OP 


DOK 


10736 


INKRM 


02565 


OSYMB 


DOL 


05685 


INPUT 


02187 


OUT AO 


DOROW 


10668 


INSAV 


02 755 


OUTAR 


DORG 


12586 


INST 


0528* 


OUTCL 





1*615 


IOCAL 


00716 


OUT 


OS A I 


13340 


I06ET 


10618 


PAGE 


0SA2 


13376 


IOGI 


00566 


PCALL 


OSA 


13308 


10PT 


00532 


PCC 


0S6 


12080 


IORBC 


00120 


PCK 


OSONB 


11316 


I0R7 


00*6% 


PCIH 



PHASE A 






PAGE 


62 


02*97 


B1DCF 


10172 


CI BP 


1 3460 


03916 


6 1 SC T 


0C021 


C 10 


15331 


02502 


B20A0 


19200 


C19P 


13524 


13013 


B2PCF 


1C 188 


C19 


1 536 1 


02*75 


B2SCT 


00052 


C1P 


12644 


108 30 


B3DA0 


19000 


C 1 


1*601 


05992 


B3MA0 


09100 


C20PI 


13628 


1 109* 


B3SCT 


C0069 


C20P2 


13560 


08035 


B4DA0 


19069 


C20P3 


13701 


080 3* 


B*SCT 


CC053 


C20P* 


13606 


09882 


B5pA0 


19122 


C20P 


13544 


10062 


B5SCT 


0C029 


C20 


15393 


10050 


B60A0 


19151 


C21P 


1 3 720 


02*77 


B6SCT 


0C030 


C 2 1 


15429 


099*2 


B7CAC 


19219 


C22P 


13740 


09626 


B7SCT 


ccoo* 


C22 


15453 


09862 


B60A0 


17001 


C23P 


13760 


Q6562 


B9MA0 


16500 


C 2 3 


1 5* 81 


0659* 


BBACK 


06200 


C24P 


13816 


10682 


BETA 


02696 


C24 


15491 


18600 


BI 


05320 


C25P 


1 3664 


15720 


BN 1 


05320 


C25 


15509 


00137 


BOMK 


05308 


C26P 


1 3 904 


18800 


BP 2 OK 


0C005 . 


C 26 


1551 9 


00055 


B ■■ ' ' 


1 3632 


X2P1 


1 2 766 


111*8 


BSAV 


08390 


C 2P2 




19252 


BSBF 


0836* 


C 2P 


12724 


1 1 20* 


6SCYC 


08 132 


C 2 


14023 


00029 


BSENT 


084 1 3 


r %e \ 






8SHI 








00027 






r \v\ 


i Ids a 


187 37 


BS 


08120 


r\o 


if OKI 


1 3382 


BSW 


08037 


r x 




pOO 3 1 


8 T BL 2 




C*1A 


i jui 


05296 


BTBL 3 


1 C 30* 


C*P 


13024 


03299 


BTBL* 


1 C**0 


C * 


14681 


02399 


BTBL 


05058 


C5P 




0*7 16 


CIO 


1 5027 


C 5 


1*903 


0*616 


C 1 1AP 


I 322* 


C62S 


12342 


02686 


CI I A 


15093 




123** 


1090 1 


CI IP 


1 320* 


C 6P 


I 306* 


10*02 


C 1 1 


1 5059 


C 6 




10*9* 


C 1 2P 


1 324* 


C 70 


15573 


10598 


C 1 2 


15127 


C 7P 




10* 1* 


C I 3P 


1 326^ 


C 7 


1*963 


103*2 


Ci\ 


151*7 


C 8P 


1 31 0* 


10*62 


Ci*P 


1 3 320 


C8 


1*995 


05896 


CI* 


15177 


C9P 


1312* 


13575 


C15P 


1 3376 


C9 


15017 


05956 


C15 


15217 


CCN2 


13012 


13203 


C16P 


13*20 


CCN3 


13276 


0689* 


C16 


15259 


CCON 


12860 


068*6 


C17AP 


13*60 


CFFA 


02629 


12968 


C17A 


15307 


CFF 


02592 




C I 7P 




CHK2 


07152 


1 RQ7A 


C I 7 


* 


CHKNO 


07120 


12 7 










PHASE A 






PAGE 63 


0055* 


PC TR 


11*9* 


SKAP1 


12893 


02559 


PGCON 


0990 1 


SKAP 


12596 








SKIPl 


12 888 




0UACC 

oi ire 




SKIP 


1258* 








SLP 


11178 




DD A 




SLPX 


11302 




OB A< 


12*12 


SMODE 


03346 




PRO 


1 2360 


SMPBL 


00235 


07590 


oa r\K 




SPAP1 


13013 


085 30 


PttW 


12392 


SPAP 


12628 




PRNS 


1 2 380 


SPBL 


000*0 


20009 


PRNT 1 


1 0428 


SPEC 


0580* 




PRNT2 




SPIM1 


13008 


09059 




1 2540 


SPSGM 


02560 


090*6 


PRNT* 


12640 


SREL 


06176 




PRNT5 


1272* 


SSTOF 


13695 


Q8*00 


PRN T6 


12772 


SSTSW 


13719 


1 09 1 8 


PRNT 7 


12832 


ST1 


11520 


02387 


PRNT 


10392 


ST2L 


10850 


Q252Q 


PRT AO 


IC25Q 


ST2 


1160* 


1 1288 


PRTHC 


1C265 


ST3 


11740 


10902 


PUT 


10666 


ST*A 


12460 


1 1778 


R2BE 


03712 


ST4B 


12692 


11730 


R3E 


04036 


ST4 


12424 


16022 


RCTR 


08033 


ST5 


12716 


00* IS 


K09l r K 


07868 


START 


10262 


160* 1 


ROM 


05332 


STCNT 


02513 




READ 1 




STITl 


10419 


08038 




03640 


STIT2 


10579 


06796 


RE AO) 


3*** 


STtP 
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02280 




nc 


* , • 


03861 


* 






-00 • 








02290 


L IMTSP 


DS 


iHCLIM 


025C 7 


o 


02 300 


L !H 


CC 


10, C 


C 3 8 7 I 


10 






-OOOOOOGCO 






02310 




DC 


1 t • 


38 72 


I 


0232U 


L IMSV 


CS 


10 


03882 


10 


02 330 




DC 


1 , • 


03883 


1 


02 3*0 


BL X 


DS 


, SUOUT 


026* 3 


o 


02350 


HEC 


CS 


3 


03886 


3 


02360 


DME Sw 


OS 


I 


03887 


1 


02370 


7TY5 


DC 


5,75 


03892 


5 






-00 75 






02380 


IC 


CC 
-0 


2,0 


389* 


2 


02390 


FRSrAD 


LS 


5 ' ' 


03899 


5 


02*00 


STKLEN 


DS 


5 


03.9C* 


5 


02*10 


LSTAC 


DS 


5 


C39C9 


5 


02*20 


FLGRM 


DC 


1. ' 


03910 


1 


02*30 


PACKAC 


CSA 


PACK, PACK* 75, PACK* 150, PACK* 22 5 


*9lb 


5 










C3915 


-298* 










03920 


-3059 








1 5 


C3925 


-313* 
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03930 


-3209 


02**0 




DC 


It 1 


3931 


I 


02*50 


PK MOD 


CSS 


26 


03932 


26 


02*60 




DC 


6,0 


03963 


6 






-OOCOO 






02*70 


ISTTCC 


DS 


5 


03968 


5 


02*80 




DC 


1 1 ' 


03969 


1 


02*90 


SFA 


ns 


8 


03977 


8 


02500 




DC 


liO 


3978 


1 



02510 BLKACS CSS 
02520 OSA 



30 

SYMTBL-6 



03979 
0*013 



30 
5 X 



02530 LIHTSF DSA S YM TBL* 1 T SMPBL* 1 1 



025*0 



CC 



02550 BLKCTR OS 2 
02560 DMPCI6 OC 5,0 
-0000 

02570 ABBA DC 5,0 
-0000 

02580 FRSTMT DSC 1,0 


02590 KIRISW DS 1 
02600 X DS 5 

02610 CARQIN OS 1 
02620 VACANT OSS 
02630 COPOEF OSA 



026S0 IN I T I 

02660 

02670 

02680 

02690 

02700 

02710 

02720 

02730 

027*0 

02750 

02760 

02770 

02780 

02790 

02800 

02810 

02820 

02830 



1*C 

INPLT2 



DC 

J0« 

TF 

TFM 

TFM 

TFM 

TFM 

TF 

SM 

TFM 

BNF 

TFM, 

TO 

SM 

SF 

BNR 

TR 

TFM 

B 

TR 

AM 



3, 1C» 

ERL AB*10,CLERER*1 1 
HEC, t 10 
SUBOUT*5,0 
INKRM 1 99999 
SLB!N*13, INTBUF 
S0BIN*5, IOADDR 
SUB1N»5,2,10 
AODCOM, 2*01 
•♦2*,RELSW 
ACDCOWt 99999 
DMPDIG-*,PROCRE 
DMPOIG.1,10 
FLGRM 

•♦*8»ISTAT-29 

PKMOO.PACKAD-* 

7TY5t75 

• ♦*a 

PKMUOtPACKAOn 
PKM0D**t25 



136 



0*013 
0*018 



0*018 
Q*019 



0*021 
0*026 



0*032 

0*033 
0A038 
0*039 
0*0*0 
0*18* 

0*18* 
0*187 

0*188 
0*200 
0*212 
0*22* 
0*2 36 
0*268 
0*260 
0*272 
0*28* 
0*296 
0*308 
0*320 
0*332 
0*3** 
0*356 
0*3*8 
0*380 
04192 
0**0* 



J 599 7 

5 X 



K0009 
1 



5 
1 

1*0 
5 X 

-3287 
3 

018*1 
03686 
03593 
02565 
03S77 
03569 
03569 
02676 
0*306 
02676 
0*022 
06026 
01910 
06362 
03632 
03662 
04626 
03632 
03636 



02730 
000-0 
-0000 
66669 
-3626 
02636 
000-2 
-2401 
02476 
66666 
02467 
000-1 
00000 
02530 
03611 
-0075 
OCOOO 
03616 
-0025 
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PAGE 


02140 




TFM 


7TV5«50 


04416 


16 


01892 


•0050 


02850 




TR 


L IM-9.LIMISP-9 


04428 


31 


03662 


02498 


021*0 




TF 


SUB SM*5.SVMTA0 


04440 


26 


0)617 


02641 


0/STO 




TF 


SF A tSVMTAO 


04452 


26 


01977 


02641 


02110 




TF 


ABBA ,PKM0D»4 


04464 


26 


06011 


03936 


02*90 




TO 


INTBUF*200 ( SPSGM 


04476 


29 


01828 


02560 


02900 


• ••• ROUTINE TC HINT FUST PAGE INDICATION FOR LISTING 










02910 




BNF 


ENT«12 f LSPRSH,« TEST FOR LISTING 


04488 


44 


04584 


02461 


02920 




TFM 


PCNLM,CC02,8 


04500 


16 


02647 


0-002 


02910 




TFM 


10RT»**?3 fl GET HE AO RECORO 


04512 


16 


00565 


-4535 


02940 




H 


I0GT,H0PRT,7, , 


04524 


49 


00566 


-4611 


02940 




34 


.0971,, SKIP TO 1 IMMEDIATE 


06516 


}4 


00000 


00971 


02960 




34 


,0962,, OOUBLE SPACE AFTER PRINT 


04548 


34 


CCOOO 


00962 


02970 




TFM 


I0« T , ♦♦2). , TC IORT PRIM PAGE 


04560 


16 


00565 


-4563 


029t0 


ENT 


n 


I0PT,H0DEF-4,7, 


04572 


49 


00512 


-4623 


02990 


• •• 1 


CONTINUE INITIALIIATICN 










0)000 


• 


CALL PHASE 12 










0)010 




TF* 


CFFA,0CFB2 


04584 


16 


02629 


-4608 


0)020 




6TM 


CFF,PHASEB-12 


04596 


17 


02592 


-4188 


0)030 


DCFB2 


COA 


,0,B2DA0,B2SCT ,PHASEB-12 


04608 




14 








0J9200-52-4I88 










0)040 




oc 

• 


l.» 


04622 




1 




03050 


HCDEF 


USA 


B7MA0* I 


04627 




5 


X 1 










04627 




-6089 




0)060 




oc 

J8« 


3,18 , .,» PRINT INDICATION ANC PAGE NUMBER 


04630 




3 




0)070 


MCPRT 


DSC 


2,22,,, DISK DEFINER FCR 1ST PAGE »-EAOING 


04631 




2 




3080 




22 
CSA 


► DPAU 


046 3 7 




) 


x 1 










04637 




-4640 




0)090 




OC 
* 


I > • 


04638 




1 




0)100 


MOPRTl 


CCA 


* 1 »B8DAD,07SCT,H7NAD, i t OOA 1ST PAGE HEADING 


04640 




1 4 








1J7001-04-608B 










0)110 




OC 


It 1 


04654 




I 




0)1 20 


• 


LOAD PHASE Bl TO THE FILE 












F I 


34 


SL0C.701 


04656 




C4704 


0070 1 


0)140 




38 


SLBC.702 


04668 


38 


04704 


00702 


0)150 




TR A 




04680 


36 


00000 


00*00 










ni* irf 


49 


nnnnn 


U UUv w 


Oil hU 


SUBO 


COA 


,0,81CAD,B1SCT, SBOljT* I 














0J8978-21-2644 










0)170 




TCC 


Fl 










3180 




CORG 


I N I T I 


04 IBB 








0)190 




BTM 


GEET,«*12,,CALL PHASE B3 


04 188 




092 10 


-4200 


0)200 


PHASER 


BO 


2PASS,?PSSm 


04200 


43 


04304 


02477 


0)210 


B7MAU 


US 


tPMSEB-12*l9C0tt -RESTORE PARTIAL 


0608b 









0)220 




TFM 


SLBINM3, INPLT-19 


04212 


16 


03577 


-2774 


0)2)0 




AM 


SUBIN^5,2,10 


04224 


11 


03569 


000-2 


0)240 


• 


READ SOURCE STATE KENT F ROM THE FILE 










0)2 SC 




TFM 


IORT, •♦23 * 


04236 


16 


00565 


-4259 
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PAGE 






a 


10GT,DEF|N,7 


n ... 


49 


00566 


— 3556 






TK 


1 NTBUF , INPUT- I 9 






03626 


02774 






BNG 


G01 , INPUU80, ,CHK.FCR FILE GRP.MRK 


ni?ii4 






0287 3 


r lion 




SM 


SLBIN*5»ltlO 




12 


A14AO 


COO— I 


0))00 




87 


GO I 


04296 




04444 




0)310 


2PA5S 


BNF 


SECRD, PTINSW,, CHK FOR CARU OR TAPfc INPUT 


04 3C4 


44 


04348 


02475 


0))20 


• ACCEPT TAPE INPUT 














TFM 


I0RT,**2) 


043 16 


16 


00565 


-4339 






B 


I0GT,TAPIN-4,7 




49 


00566 


-2656 






B7 


FORM) 


n4i4r 


49 


04372 






• ACCEPT CARD INPUT 










J* 'J: 


SECRD 


TFM 


IORT, ^23 


04)411 


14 


00565 


-437 1 


3310 




ft 


IOGTtCAROIN-4,7 




4Q 








FORWD 


BNR 


• ♦24, INPUT- 10 






04396 


02783 






TF« 


INPUT- 10,0,10 


04384 


16 


02763 


000—0 






CM 


INPUT-10, 14,10 


04 396 


|4. 


02783 


000J4 






BE 


2PASS 


04408 


46 


04304 


01200 






TDM 


•-11,1 


04420 


|i) 


04409 


00001 


3440 




BT 


R SCAN, A SCAN- I 


044 32 


2| 


05744 


05743 


3490 


GO I 


AM 


INKRM.1,10 




1 1 


02565 


000— 1 






BT 


CLOLT.CLOUT-l 


04456 


27 


08126 


08125 


03470 




TM 


INPLT2*156,CLERER*l,, CLEAR THE REMAINS 


04468 


)! 


03443 


02720 


03480 




TDM 


KLRLSU,1,11 


04480 


|) 


04033 


OCOOJ 






TR 


INPLT2-1, INPUT-U 


04492 


31 


032S6 


02782 


n«tnn 




BNF 


•♦24,LSTYSM 


04504 


44 


04528 


02480 






RCTV 




04516 


34 


00000 


00102 


03520 


• 














3530 


• 


CHECK FOR COMMENT STATEMENT 












• 
















CASTER 


BNR 


•♦20, INPUT 


04528 


4^ 


04548 


02793 


a?«aa 




B7 


OK 10 


04540 


49 


04760 




03570 




CM 


INPLT,14,10 


04568 


14 


02793 


0OOJ4 


C )590 




BNE 


CHK 10 


04560 


41 


04760 


01200 




• ••• i 


PRINT 


COMMENTS STATEMENT 










5600 


PRINT) 


8NF 


PCHC0M-24.LSPRSW., SHALL WE PRINT COMMENTS 


065T2 


44 


04492 


02481 


36 10 




TPM 


IORT, •♦2),, YES .LET ER GO 


04584 


16 


005*5 


-4607 


03620 




B 


IOPT.LSTDEF-4,7 


04596 


49 


00532 


J2339 


036)0 




BNI 


PCHCOM-24,3400t« TEST PRINTER CHAN 12 OFLO PAGE 


04608 


41 


04*92 


0)400 


3640 




TFM 


PLNCHU6.PRINT4,, MODIFY BNF TO RETURN HERE 


06620 




12194 


-4668 


3650 




TDM 


PUNCHt+1,9,, MODIFY BNF TO BRANCH 


09632 




12189 


00009 






TF* 


CFFAf PRTAO, , 01 SK CONTROL FIELO PRINT OFLO 


06644 


|4 


02629 


42 172 


A 11* A 




BTM 


CFF.PAGE,, AOORESS TO START OFLO INDICATION 


04696) 


11 


02992 


-627S 


nils a 
1 «^on 


PR1NT4 


TFM 


PUNCH1*A,G0CL RESTORE BNF TO GOCL ADDRESS 


0466 S 


It 


1219* 


J 2 29* 






TOM 


PUNCH 1*1, 4,, MODIFY BRANCH TO BNF 


04*00 


|§ 


12189 


00004 


A1?AA 




BNF 


PHASES. LSCOSW 


066*92 


44 


04200 


02479 


03 r 10 




BT 


REVSCN.REVSCN-l 


06704 


21 


09S94 


05893 




• 


PUNCH COMMENTS CARD 












PCHCON 


BNF 


PHASES »LSCDSW 


06716 


44 


0*200 


02479 


01740 




TF* 


I0AT,«*2) 


0672S 


t* 


009*9 


•4791 






B 


IOPT.COPOEF-4,7 


04740 


49 


00912 


•4100 


0)760 




87 


PHASES 


04752 


49 


06200 




03770 


CMKIO 


TF* 


RLOPMl.INPUT-2 


067*0 


t* 


04819 


-2791 


03790 




AM 


RLOPMl.2,10 


04772 


11 


04819 


000-2 


03790 




CM 


RL0PMl,INPUTM2 


067S6 


1* 


04819 


-2805 


03900 




BE 


RL0PW4 


0979* 


6* 


04812 


012O0 


03910 


SLOP 


BNR 


•-)*••-• 1 38 


06S0S 


41 


06772 


OOOOO 



03820 
03830 
038*0 
03850 
03860 
03870 
03880 
03890 
03900 

03910 RMUP 

03920 

03930 

039*0 

03950 

03960 

03970 

03980 

0J990 

0*000 

0*010 • 

0*020 

0*030 

0*0*0 PULL 10 

0*050 

0*060 

0*070 ERR XX 

0*080 

0*090 

0*100 

U*110 

0*120 

0*1 30 

0*1*0 

0*1 50 

0*160 

0*1 70 • 

0*180 • 

0*190 • 

0*200 NAST 

0*210 

0*220 

0*230 

0*2*0 

0*250 

0*260 

0*270 

0*280 

0*290 M ARK 1 
0*300 
0*310 
0*320 
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TF INPUT * 1Q,CLERER * 11 

C CLERER*ll,lNPUT*lC 

OE •♦36 

TF ERLABMO, INPUT* 10 

TFM I NK RM , 

TFM RHOP* I I , INPUT* IC 

AM R*CP*1 I ,2 t 10 

CM RM0P*1 1 , INPUT*20 

BE RMUP*2* 

ttNR • - 36t»-* 

TF lNPUT*18,Cie«E«*7 

BNF NAST.2PSSW 

BNF •♦ 32, INTBUF* 7 

TDM INTBUF*7,0 

87 »*2C 

TK INTBUF , INTBUF* 8 

8NR PULlO, INTBUF 

TFM SLQINM3, I N TBUF 

AM SUB IN *05 , 2 t 10 

RFAD INTERMEDIATE OUTPUT FROM FILE 

TFM IOR T , 2 3 

B IOCT,DEFIN2,7 

HNF NAST, INTBUFW 

TFM EVALER-2, 67670 

BT EPR INT ,EPR I NT- I 

WATY MESS2 
RCTY 

BT F WL) SCN i F WOSCN- I 

TFM IORT,»*23 

B IUGT,TYPIN-*,7 

BC* ERRXX 

CM INPUT , 1*, 10 

BNE »*2* 

TDM INTBUF*7,Q 

B7 CASTER-*8 

TYPE OUT SOURCE STATEMENT 

TF LOPOUT, INPUT-2 

TR INPUT2-1, LOPOUT-9 

TF LOPOUT, INPUT* LC 

TR INPUT2* I 1 , LOPOUT- 1 1 

TF LOPOUTt INPUT*18 

TR INPLT2*25, LOPOUT-7 

TR INPLT205, INPUTMS 

TR VACANT , INPUT* 19 

T CM DMESW 

TF PLACE.ADDCOW 

BNR • *i!* , INPUT*20 

TFM INPU*22.,10 

CC !»',• 



0*330 BT RE VSCN.REVSCN-l 

0*3*0 TLU BNF • ♦ 3 2, I N TBUF ♦ I 

0*350 MD INSTRN, INTBUF* I 

0*360 B7 TBI 1 



0*820 


26 


02803 


02730 


0*8 32 


2* 


02 730 


02803 


0*8** 


46 


04880 


01200 


0*856 


26 


3841 


02 BO 3 


0*868 


16 


02565 


-CCOO 


0*880 


16 


04939 


-2803 


0*892 


11 


04939 


000-2 


0*90* 


I* 


04939 


-2813 


0*916 


*6 


04952 


01200 


0*928 


45 


04892 


OOCOO 


0*9*0 


26 


02811 


02726 


0*952 


44 


05220 


02477 


0*96* 


** 


04996 


03635 


0*976 


15 


03635 


OOCOO 


0*988 


*9 


05008 




0*996 


31 


3628 


03636 


05008 


45 


05068 


03628 


05020 


16 


03577 


-3628 


05032 


1 I 


03569 


000-2 


050** 


16 


00565 


-5067 


05056 


*9 


00566 


-3548 


05068 


4* 


05220 


03635 


05080 


16 


07634 


07670 


05C92 


27 


08022 


0802 1 


05 IC* 


39 


0799 1 


00 100 


051 16 


34 


00000 


00102 


05128 


27 


05904 


05903 


051*0 


16 


00565 


-5163 


05152 


49 


00566 


-26*8 


05 16* 


*6 


05 104 


00*00 


05 I 76 


1* 


02793 


000 J* 


05 188 


47 


05212 


01200 


052CG 


lb 


03635 


00000 


052 12 


49 


04*80 




05220 


26 


03857 


02 791 


052 32 


31 


03286 


038*8 


05?** 


26 


03857 


02803 


05256 


3 I 


03298 


038*6 


05268 


26 


03857 


02811 


05280 


31 


3 312 


03850 


05292 


3 i 


03322 


0281 2 


U53C* 


3 1 


0*0*0 


02812 


05316 


1 5 


03887 


00000 


05328 


26 


09C33 


02678 


053*0 


*5 


0536* 


02813 


05352 


16 


02815 


oco-o 


05 36 3 




1 




0536* 


27 


0585* 


05853 


65376 


** 


05*08 


03629 


05388 


*3 


12*** 


03629 


05*00 


*9 


05558 
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0*370 




BNF 


INSTRN, INTBUF 


054C8 


4* 


12*** 


03628 


0*380 




BD 


INSTRN, IWTBUF 


05*20 


43 


12*** 


03628 


0*390 


TBL2 


TFM 


GC0DB2*6,BTBL2 


05*32 


16 


05*7* 


-5*80 


0**00 




TO 


CCoCB2*li,INTBUF*l 


05*** 


25 


05*79 


03629 


0**10 




A 


GCGDB 2* 5 , GU0DB2* 1 I 


05*56 


21 


05*73 


05*79 


0**20 


G00DB2 


B 


i.lC 


05*68 


49 


CCCOO 


OCO-0 


0**30 


BTBL2 


B 


MACRO,,, 


05*80 


49 


1*832 


OCGOO 


0***0 




DORG 


1 


5*90 








0**50 







SAVE,*, *1 


05*90 


*9 


1*916 


OCOOO 


0**60 




OORC 


•- 1 


Q55GG 








0**70 




B 


RSTR , , , *2 


055C0 


49 


1*90* 


OCOOO 


0**80 




CORC 


•~ I 


05510 








0**90 




B 


PCHCOM-12, , ,*3 


05510 


49 


0*70* 


00000 


0*5C0 




OORG 


1 


05520 








0*510 




B 


CALLEX,,,** 


05520 


*9 


1*808 


OCOOO 


0*520 




DORG 


•-1 


05530 








0*530 




B 


MAC2,,,*5 


05530 


*9 


1*952 


00000 


0*5*0 




OORG 


•- I 


055*0 








0*550 







PCHCOM-12, , ,*6 


055*0 


49 


04704 


00000 


0*560 




DORG 


• -1 


05550 








0*570 




B 


L INKSF , , ,*7 


05550 


49 


14 796 


ooood 


0*580 




DORG 


•~3 


0555b 








0*590 


TBL I 


TFM 


G00DB*6,BTBL 


05558 


16 


05600 


-5656 


0*600 




TD 


GOUCB* lit INTBUF 


05570 


25 


05605 


03628 


0*610 




A 


G00DB*5,G00D8*1 1 


05582 


21 


05599 


05605 


0*620 


GOUCB 


B 


. , IC 


0559* 


49 


00000 


000-0 


0*630 




B 


TRA,,,-5 


05606 


49 


14820 


00000 


0*6*0 




DORG 


•- I 


05616 








0*650 




B 


D SDNB , , , -* 


05616 


49 


13332 


00000 


0*660 




DORG 


1 


05626 








0*670 




B 


DENC , , * -3 


05626 


49 


14856 


00000 


0*680 




OURG 


1 


05636 








0*690 




B 


DC,,, -2 


05636 


49 


13840 


00000 


0*700 




OORG 


• - 1 


05646 








04710 




B 


DORG,,, -I 


05646 


49 


13736 


00000 


04720 




DORG 


1 


05656 








04730 


BTBL 


B 


DAC , • , 


05656 


49 


14940 


00000 


04740 




DORG 


•-1 


05666 








0*750 




B 


DSA , , , *1 


05666 


49 


14844 


OCOOO 


0*760 




DORG 


•-1 


05676 








0*770 




B 


CAS,, , *2 


05676 


49 


13540 


00000 


0*780 




OURG 


1 


05686 








0*790 




B 


H E A D » , , *3 


05686 


49 


06002 


OCOOO 


0*800 




OURG 


•-1 


05696 








04810 




B 


DSB * , * ** 


05696 


49 


14784 


00000 


04820 




OORG 


•-1 


05706 








04830 




B 


DGM , , « *5 


057C6 


49 


14880 


00000 


04840 




OORG 


• -1 


05716 








04850 




B 


DDA « * , *6 


05716 


49 


14868 


00000 


0*860 




OORG 


•-1 


05126 








04870 




B 


DMESt f t ♦? 


05726 


49 


14928 


00000 


04890 




DORG 




05716 








04890 




B 


DVLC.i *8 


05716 


49 


14892 


00000 


04900 




DORG 


•-3 


05744 








04910 


ft SC AN 


TFM 


INPUT* 1 40 


1 *" 05755 


16 


02911 


•0000 


04920 




OAC, 






1 


X 2 
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PAGE 



0**430 




TFM 


• ♦ 3 5 1 I NPllT ♦ 1 *0 


05756 


16 


0579 I 


-2933 


0*9*0 




SM 


•♦23,2 


05768 


12 


05791 


-0002 


0*950 




TF 


RSCANl- I 


05780 


26 


05851 


00000 


0*960 




ou 


RSCAN1 .RSCANl-l 


05792 


*3 


05852 


05851 


0*970 




00 


RSCANl,RSCANl-2 


0580* 


*3 


05852 


05850 


0*980 




TFM 


•-25, .610 


05816 


16 


0579J 


000-0 


0*990 




DC 
• 




05827 




I 




05000 




CM 


RSCAN**7» INPUT+20 


05828 


1* 


05791 


-2813 


05010 




BNE 


RSCAN»2* 


058*0 


*7 


05768 


01200 


05020 


RSCAN1 


682 




05852 


42 






05090 


REvSCN 


TFM 


• ♦35, INPUT2M60 


0585* 


16 


05889 


^3**7 


010*0 




SM 


•♦23,2, 10 


05866 


12 


05889 


0C0-2 


01050 




BNR 


•- 12,»-» 


05878 


*5 


05866 


00000 


05060 




TFM 


•- 1 ,0,610 


05890 


16 


0588R 


000-0 


05070 




BB2 




059C2 


62 








FWOSCN 








26 


02791 


02 728 


05090 




TF 


INPUM0,CLERERK1 


05916 


26 


02803 


02730 


05100 




TF 


INPUT* l8,CltRER» 7 


05928 


26 


02811 


02726 


05110 




TFM 


• ♦3CINPUTM8 


059*C 


16 


05970 


-2811 


05120 




AM 


•♦16,2,10 


05952 


11 


05970 


CCO- 2 


051 30 




TFM 


• - • 


0596* 


16 


00000 


-0000 


051*0 




OAC 


li«,«» 


05975 




I 


* 2 


05150 




CM 


• -6, INPUTS l*C 


05976 


I* 


05970 


-2933 


05160 




BL 


• -36 


0598B 


*7 


05952 


01300 


05170 




BB2 




06000 


♦ 2 






05180 


• 














05190 


• 


HEADER ROUTINE 










05200 


• 














05210 


H E AO 


TF 


HEI) , INTBUF *b 


06002 


26 


03886 


03634 


05220 




TFM 


AUURS 


0601* 


16 


03520 


-0000 


05230 




B7 


ECLAT 1 


06026 


*9 


13796 




052*0 




NOP 




0603* 


*l 


00000 


ooooo 


05250 


SCAN 


TFM 


OPER, 10, 10 


060*6 


16 


090*7 


000J0 


05260 




TFM 


RLOCSW, 0000,8,, 


CLEAR REL0CAT1CN CONTROL AREA 06056 


16 


07950 


0-000 


05270 




TDM 


8S*,l,U 


06C70 


15 


090*8 


OCUOJ 


05280 




SF 


SCAN- 5 


06082 


32 


060*1 


OOOQO 


05290 




TF 


A0URS.CLERER*9 


0609* 


26 


03520 


02728 


05300 




TO 


ALPHA, LNTH*ltt 


RECORO MARK-- ALPHA EMPTY 06106 


25 


02688 


02388 


05310 




BO 


• ♦**, INPUT* 19 


061 IB 


*3 


06162 


02812 


05320 




BO 


•♦32, INPUT+20 


06130 


*3 


06162 


02813 


05330 




TR 


lNPUT+19, INPUT*21 


061*2 


31 


02812 


0281* 


053*0 




07 


• -36 


0615* 


49 


06118 




05350 




BNR 


SCANl-2*, INPUWC 


06162 


*5 


0633* 


02813 


05360 


SCANA 


SF 


ADDRS-* 


0617* 


32 


03516 


OOOOO 


05370 




CM 


RCTR, 00, 1C 


06186 


1* 


079*8 


000-0 


05380 




BE 


SRfl*l2 


06198 


66 


06326 


01200 


05390 




CM 


RCTR, 01,10 


06210 


1* 


079*8 


000- I 


05*00 




BNE 


• ♦2* 


06222 


*7 


062*6 


01200 


05*10 




HNF 


SREL, AOORS 


0623* 


** 


0631* 


03520 


05*20 




CM 


RCTR, -01,10 


062*6 


I* 


079*8 


000-J 


05*30 




bNF 


•♦2*, AOORS 


06258 


** 


06282 


03520 


05**0 




BE 


SREL 


06270 


46 


0631* 


01200 


05*50 




TFM 


EVALER-2, 71770,, 


RELOCATION F RRCH 06282 


16 


C763* 


P1770 


05*60 




BT 


EPR INT ,EPR I NT- 1 


0629* 


27 


08022 


08021 



! 'il 
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05*70 




B7 


EV1 


06306 


49 


07672 




05*80 


SREL 


TOM 


KLQCSta,l,ll 


0631* 


15 


07950 


OOOOJ 


05*90 




H7 


SCAN- 1 , ,6 


06326 


*9 


060*N 




05500 




CM 


INPLT^20,23,10 


0633* 


1* 


02813 


00OK3 


U5510 




BE 


SCANA 


063*6 


*6 


0*17* 


01200 


05520 


SCAN I 


CM 


1NPLT+20, 10, lp 


06358 


1* 


02813 


OOOJO 


05530 




BNE 


• ♦** 


06370 


47 


06*1* 


01200 


055*0 




TFM 


OPER, 10, 10 


06382 


16 


090*7 


OOOJO 


05550 




TR 


INPUTM9.INPUT + 21 


06 39* 


31 


02812 


02814 


05560 


EVALOP 


B7 


EVALAO 


06*C6 


49 


06726 




05570 




CM 


INPLT^20,2C,10 


06*1* 


1* 


02813 


OCOKO 


05580 




BNF 


EVALAO 


06*26 


47 


0*72* 


01200 


05590 




TFM 


OPER, 20, 10 


06*38 


16 


090*7 


OOOKO 


05600 




B7 


SCANU36 


06*50 


49 


0639* 




05610 


OIGALF 


BNR 


•♦20, ALPHA 


06*58 


45 


06*78 


02688 


5620 




07 


MOVE 


06*70 


49 


06534 




05630 




M 


ALPHA, BETA 


06*78 


23 


02488 


02698 


056*0 




SF 


90 


06*90 


32 


00090 


OOOOO 


05650 




TF 


ALPHA, 99 


06502 


26 


02688 


00099 


05660 




BO 


SRE1-32,RSYMSW 


0651* 


43 


06282 


07949 


05670 




87 


M0VEM2 


06526 


49 


0654* 




05680 


MOVE 


TF 


ALPHA, BETA 


0653* 


26 


02688 


02698 


05690 




BNR 


•♦20.INPUT+20 


06546 


45 


0656* 


02813 


05700 




B7 


BLOP 


06558 


49 


0**10 




05710 




CM 


INPUT*20, 1*. 10 


06566 


14 


02813 


000J4 


05720 




BNE 


• ♦32 


06578 


47 


0**10 


01200 


05730 




BO 


SREL-32, RSVMSW 


06590 


43 


0*282 


07949 


057*0 




B7 


S0AN1O6 


06602 


49 


0*394 




05750 


BLOP 


CM 


OPER, .10 


06610 


14 


09047 


000-0 


05760 




BE 


SCAN+60 


06622 


46 


0*10* 


01200 


05770 




TO 


•♦13.0PER-1 


06634 


25 


0**47 


090 4* 


05780 


ACCSUB 


20 


AOORS, ALPHA 


06644 


20 


03520 


02*88 


05790 




TF 


ALPHA fCLERER+9 


06698 


26 


02*88 


02728 


05800 




TFM 


OPER , , 10 


06670 


16 


0«047 


000*0 


05810 




BNF 


•♦36,RSVMSW 


06682 


44 


0*711 


07949 


05820 




TO 


•♦13, AODSUB^l 


06694 


29 


0*707 


0**47 


05830 




AM 


RCTR, 1,10 


06706 


11 


07948 


000-1 


058*0 




87 


SCAN+60 


04718 


49 


0*10* 




05850 


EVALAC 


SF 


HE0-2 


06726 


32 


01884 


coooo 


05860 


SF 


OOLLAR 


06738 


32 


070** 


00000 


05870 




TOM 


6Sh,0 


0*790 


19 


09048 


OOOOO 


05880 




TFM 


LABL t 1 f 10 


06762 


t* 


0*891 


000-1 


05890 




TFM 


OOL,, 10 


0*77* 


I* 


0*891 


000-0 


05900 




TR 


C0LL-1I.THINGS-20 


0*78* 


11 


02421 


02400 


05910 




B7 


BCMSPC 


0*798 


49 


0*922 




05920 


• 


CHECK FOR SPECIAL CHARACTER 








OOOPO 


05930 


COMSPC 


CM 


INPLJT*20,70,10 


0*80* 


14 


02811 


059*0 




BL 


SPEC 


0*818 


47 


0*942 


01300 


09990 




TF 


COLL, INPUU2C 


06130 


2* 


02414 


02813 


05960 




CF 


COLL-1 


041*2 


13 


02418 


OOOOO 


09970 


LA8L 


OS 


»• 


06853 









09980 


OOL 


DS 


,•-2 


0*891 









05990 




AM 


DCL.WIO 


0*894 


11 


0*891 


000-1 


08000 




TR 


COLL-17.COLL-19 


0*1** 


31 


02422 


02424 


0*010 




CM 


CQlL-17,7,10 


04878 


14 


02422 


000- 7 


06020 


• 


SYMBOL IN OPERAND CONTAINS MORE THAN SIX CHARACTERS 











142 
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06030 • OR NLMBER IN OPERAND HAS MORE THAN FIVE DIGITS 







BNE 


•■♦20 




06890 


4 7 


069 10 


1200 






Q7 


CHKNO 




06902 




07720 




06060 




TR 


INPLT*19, INPUT»21 




06910 


31 


02812 


02814 




* 


CHECK TO SEE IF OPERAND IS PRESENT 












06080 


BC S C 


BNR 


COMSPC. INPUT*20 




06922 


45 


06806 


0281 3 


06090 




B7 


GE T 




06934 


49 


07 190 




061 00 


* 


CHECK FOR ♦ OR - 












061 1 


SPEC 


BD 


SI, INPUT* 20 




06942 


43 


06974 


02813 


06120 


* 


CHECK FOR BLANK 












06130 




BD 


CET.INPUTM9 




06954 


43 


07190 


02812 


061*0 




87 


BCMSPC-12 




06966 


49 


06910 




06 1 50 


* 


CHECK FOR COMMA 












061 60 


S 1 


CM 


lNPUT+20,23, 10 




06974 


14 


02813 


000K3 


06170 




BE 


GET 




06986 


46 


07190 


01200 


06 1 80 


• 


CHECK FOR ASTERISK 












06190 




CM 


INPLT+20, 14,10 




06998 


14 


02813 


00QJ4 


06200 




BE 


ASTER 




07010 


46 


07534 


01200 


062 10 


• 


CHECK FOR DOLLAR SIGN 












06220 




CM 


!NPUT*20t 13tlO 




07022 


14 


02813 


000 J 3 


062 30 




BE 


DOLLAR 




07034 


46 


07066 


01200 


062*0 




TDM 


LABL 




07O46 


15 


06853 


00000 


062 50 




87 


C0MSPC*24 




07058 


49 


06830 




06260 


OOLL AR 


CF 


DOLLAR 




7066 


33 


07066 


ooooo 


06270 




BD 


32,DOl 




07078 


43 


07110 


06851 


06280 




TFM 


COLL, , 10 




07090 


16 


02439 


oco-o 


06290 




87 


• ♦44 




07102 


49 


07146 




06300 




CM 


DOL, 1,10 




07110 


14 


06851 


000-1 


06310 




BNE 


DOL L AR- 20 




07122 


47 


07046 


01200 


06320 




SF 


COLL-3 




071 34 


32 


02436 


occoo 


06330 




CF 


HEO-2 




07146 


33 


03884 


ooooo 


06340 




TOM 


LABL 




07158 


15 


0685 3 


ocooo 


06350 




BD 


BCMSPC- 12, DOL 




07170 


43 


06910 


06851 


06360 




B7 


BCMSPC-56 




07182 


4^ 


06666 


06370 


GET 


TDM 


RSYMSW, 




07190 


15 


07949 


ooooo 


06380 




BD 


TRNLMB,LABL 




07202 


43 


07382 


06853 


06390 




A 


COLL- 17, COLL- I 7 




072 14 


21 


02422 


02422 


06400 




BNF 


TRMMM»24,HED-2 




07226 


44 


07362 


03884 


0641Q 




CM 


COLL-14, 12070 




07238 


14 


02425 


J2070 


06420 




BNE 


• ♦44 




07250 


47 


07294 


01200 


06430 




SF 


COLL-? 




07262 


32 


02437 


ocooq 


06440 




SF 


CULL- 13 




72 74 


32 


02426 


ocooo 


06450 




B7 


LB ADO 




07286 


49 


08176 




06460 




TFM 


• ♦3CC0LL-2 




U7294 


16 


07 524 


-2437 


0647C 




S 


♦♦18,C0LL-17 




7 3C6 


22 


07324 


02422 


06480 




TF 


,HEC 




07 318 


26 


00000 


03886 


06490 




B7 


TRMMM+24 




07330 


49 


07362 




06500 


TRMMM 


TR 


COLL-17.COLL-15 




07538 


31 


02422 


02424 


06510 




TDM 


COLL-2,0 




0735C 


15 


02437 


ocooo 


06520 




CNF 


•-24, COLL- 1 3 




07362 


44 


07338 


02426 


06530 




B7 


LBACD 




07374 


49 


08176 




06540 


TRNUMB 


CM 


COLL-14, 6060 




07382 


14 


02425 


-6060 


06550 




BH 


CHKND 




07394 


46 


7 720 


01100 


06560 




TDM 


NLMB-1,,11 




07406 


15 


02447 


CCOO- 


06570 




TFM 


TRNLMUIUCOLL-? 




07418 


16 


07477 


-2437 


06580 




S 


TRNLMUU,C0LL-17 


1 >'i \ 


07430 


22 


07477 


02422 
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06590 




S 


TRNUMl-Hl.COLL-l 7 


07442 


22 


07477 


02422 


06600 




TR 


NUMB-5,NUMB-4 


07454 


31 


02443 


02444 


06610 


TRNUM1 


TO 


NUMB-1 


07466 


25 


02447 


OOOOO 


06620 




TR 


COLL-17.COLL-15 


07478 


31 


02422 


02424 


06630 




TF 


•♦23,»-l3 


07490 


26 


07513 


07477 


06640 




BNR 


TRNL'Ml-12 


7502 


45 


07454 


OOOOO 


06650 




TF 


BETA, NUMB-1 


07514 


26 


02698 


02447 


06660 




87 


CICALF 


07526 


49 


06458 




06670 


ASTER 


CM 


D0Lt0,10 


Q75 34 


14 


06851 


000-0 


06680 




BNE 


GET 


07546 


47 


07 HO 


01200 


06690 




TF 


BE T A , AODCOW 


07558 


26 


02698 


02678 


06700 




BNF 


•♦24, RELSta 


75 70 


44 


07594 


02478 


06710 




TDM 


RSYMSW, 1,11 


07582 


15 


07949 


OOOOJ 


06720 




TR 


INPUT+19.INPUU21 


07594 


31 


02812 


02814 


06730 




B7 


DIGALF 


07606 


49 


06458 




06740 


• 














06750 


• 


EVALER IS THE ERROR ROUTINE 










06760 


• 














06770 




DAS 


5 


07615 




5 


X 2 


06780 




BNR 


59CC7 


07624 


45 


59007 


OOOOO 


06790 




DC 


1, • 


07635 




1 




06800 


EVALER 


BT 


EPR INT , EPR I NT- 1 


07636 


27 


08022 


08021 


06810 




SPTY 




07648 


34 


OOOOO 


00101 


06820 




WATY 


CCLL-12 


07660 


39 


02427 


00100 


06830 


EVl 


BD 


C0RER5 ,ERSTSW 


07672 


43 


07796 


02476 


06840 




BNF 


CHKNO, LSTYSW 


07684 


44 


07720 


02480 


06850 




RCTY 




07696 


34 


OOOOO 


00102 


06860 




TBTV 




07708 


34 


OOOOO 


00108 


06870 


CHKNO 


TFM 


AOORS 


07720 


16 


03520 


-0000 


06880 




BNR 


•♦20,INPUT*20 


07712 


45 


07752 


02813 


06890 




B7 


SCAN- 1, ,6 


07744 


49 


0604N 




06900 




CM 


INPUT*20,23,10 


07752 


14 


02813 


000K3 


06910 




BE 


SCAN- I, ,6 


07764 


46 


0604N 


01200 


06920 




TR 


INPUT*l9,!NPUT*2l 


07776 


11 


02812 


02814 


06930 




87 


CHKN0*12,,2 


07788 


49 


-7732 




06940 


C0RER5 


WATY 


RNMESS 


07796 


19 


07951 


00100 


06950 




TF 


AODCOW, PLACE 


07808 


26 


02678 


09011 


06960 




RCTY 




07820 


14 


OOOOO 


00102 


06970 




TR 


INPLT* 19, VACANT 


07832 


31 


02812 


04040 


06980 




WATY 


INPUT-10 


07844 


19 


02781 


00100 


06990 


OOPS 


RCTY 




07*96 


14 


OOOOO 


00102 


07000 




BT 


FWOSCN+ 36.FWDSCN+35 


07868 


27 


05940 


05919 


07010 




WATY 


INPUT- 10 


07880 


19 


02783 


00100 


07020 


• ACCEPT 1 


CORRECTION FROM TYPWRITER 










07030 




RATY 


INPUT*20 


07892 


17 


02811 


00100 


07040 




BC4 


OOPS 


07906 


46 


07856 


00400 


07050 




BTM 


GEET,»*12 


07916 


17 


09210 


-7928 


07060 




TOM 


INTBUF^7,1,11 


07928 


15 


01615 


OOOOJ 


07070 




B7 


G01*12 


07940 


49 


04456 




07080 


RCTR 


DS 


2 


07948 




2 




07090 


RSYMSW 


OS 


I 


07949 




1 




07100 


RLOCSW 


DS 


I ' ' 


07950 




1 




07110 


RNMESS 


OAC 


19, RE-ENTER OPERANDS' 


07953 




IV 


X 2 






RE-I 


ENTER OPERANDS • 










07120 


MESS2 


DAC 


16, RE-ENTEft .STMT* 






16 


X 2 






RE-ENTER STMT • 
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07140 


• 


EPRINT PRINTS THE ERROR MESSAGE ANC REFERENCE TC 










07150 


• 


INDICATE THE STATEMENT IN ERROR 










07160 


t 














07170 


E PR 1 NT 


RCTY 




08022 


34 


00000 


0C102 


07100 




TF 


LOPQuT, 1 NPUT-2 


08034 


26 


03857 


02791 


0M90 




MATY 


LUPOUT-8 


08046 


39 


03849 


00100 


07200 




WATY 


ERL AB 


08058 


39 


03831 


00100 


07210 




MNT Y 


I NKRM- 3 


08070 


38 


02562 


00100 


07220 




MATY 


E VALER-21 


08082 


39 


07615 


00100 


07230 




BO 


•♦24,ERSTSW 


08094 


43 


08118 


024 76 


07240 




SF 


NONE X ti.KUL OBJECT PROG. EXECUTION IF ERROR IS OETECTEO 


08106 


32 


00457 


ooooo 


07250 




BB 




08118 


42 


00000 


00000 


0/2 60 




OORG 


• -3 


08126 








07270 


CI (JU T 


TR 


1NPLT2- I iClERER 


08126 


31 


03286 


02719 


07280 




TR 


INPUT2»52.CLERER»1 


08138 


31 


03339 


02720 


07290 




TR 


INPLT2* 104,CLERER«1 


08150 


31 


03391 


02720 


07300 




TFM 


INPIT2M60,OCCOO, , CLEAR FINAL 


08162 


16 


03447 


-0000 


7 310 




HB2 




OBI 74 


42 






07320 


• 














07330 


• 


THE SYMBOL TABLE IS SEARCHED FOR EQUIVALENCE 










073*0 


• 














07350 


L0ACO 


TFM 


BLKCTR ,0, 10, INI T{ AL I ZE BLOCK COUNTER 


081 76 


16 


04021 


000-0 


07360 




C 


SF A , S YM T AO ,,CHK.T0 SEE IF THIS IS PARTIAL BLOCK 


08188 


24 


03977 


02641 


07370 




BE 


PAR T L 


082C0 


46 


08256 


01200 


07380 




AM 


BLKCTR, 1,10 


08212 


1 I 


04021 


000- 1 


07390 




TR 


L IM-q,L IMTSF-9 


08224 


31 


03862 


04009 


07400 




Tf 


L1M.LIMTSP 


08236 


26 


03871 


02507 


07410 




67 


• ♦20 


08248 


49 


08268 




07420 


PAR TL 


TR 


LIM-9.LIMTSP-9 


08256 


31 


03862 


02498 


07430 




BT 


BSERCH, BSERCH- I , ,T0 BINARY SEARCH ROUTINE TO FIND SYMBOL 


08268 


27 


08752 


08751 


07440 




BO 


GOTIT ,EQSW,,WAS SYMBOL IN TABLE 


08280 


43 


083 76 


08979 


07450 




C 


BSBF-l.LIMTSP 


08292 


24 


09003 


04018 


07460 




BNL 


GOTIT-24 


08304 


46 


08352 


01 300 


07470 




CM 


BIX, 0, 10 


08316 


14 


02643 


000-0 


07480 




ONE 


CF IL 


08328 


47 


08468 


01200 


07490 




TF 


SFA,SUBSM«-5 


08340 


26 


03977 


361 7 


07500 




TFM 


E VALER-2 » 7 5000 » »CANNCT FIND SYMBCL IN SYMBOL TABLE 


08352 


16 


07634 


P5000 


07510 




BT 


E VALfcR »E VALER- 1 


08364 


17 


07636 


07635 


07520 


GO T I T 


TF 


SF A # SUB SM^ 5ft SAVE FILE ADR. OF BLOCK WHERE SYMBOL WAS FUUNC. 


08376 


26 


03977 


0361 7 


07530 




AM 


OSHF-l ,5*10, MOVE SYMBCL ADDRESS 


08 388 


1 1 


09003 


000- 5 


7540 




TF 


DE TA.BSBF-l , H , IMC BETA 


084C0 


26 


C2698 


0900L 


07550 




BNF 


•♦48, RE L Sw 


084 12 


44 


08460 


02478 


07560 




BNF 


•♦36, BETA 


08424 


44 


08460 


02698 


07570 




TOM 


RSYMSh, 1,11 


08436 


1 5 


C 7949 


0000 J 


07580 




CF 


BE TA 


08448 


33 


02698 


ooooo 


07590 




Q7 


1 CALF 


08460 


49 


06458 




07600 


CFU 


TF 


•♦35.SYMTAD ,, INITIALIZE SUB-INSTR. TO READ FIRST FILE BLK 


08468 


26 


00503 


02641 


07610 




AM 


•♦23.SPBL 


06480 


11 


08503 


-0040 


07620 




TFM 


SUH5M^5 


08492 


16 


03617 


-0000 


7630 




TR 


L 1M-9 ,1 IMTSF -9,, INITIALIZE FOR FULL BLOCK 


08504 


31 


03862 


04009 


07640 




C 


SUB SM ♦ 5 , SF A , , CHK. IF THIS BLOCK HAS ALRfcACY BEEN SEARCHEO 


08516 


24 


03617 


03977 


07650 




BE 


CMPCNT 


08528 


46 


08636 


01200 


07660 


• 


SAVE DIGIT AT LOS YMQ* I 










07670 




TU 


MURI , LOSYMR^ 1 


08540 


25 


02631 


19998 


7680 




TC 


L S YMB ♦ I , SPSGM 

i /. p: 


08552 


25 


19998 


02560 



1 4 5 
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07690 


• READ BLOC K OF SYMBOLS FRCM FILE 










07700 


TF" 


I0RT,»»23 


08564 


16 


00565 


-8587 


07710 


B 


I0GT,0EFSM,7 


08576 


49 


00566 


-3603 


7 720 


TC 


LOSYMB* 1 ,MURI 


08588 


25 


19990 


02631 


U7730 


b T 


BSERCH, BSERCH- I 


OB600 


27 


08752 


08751 


7 740 


AM 


BLKCTR, 1, 10 


08612 


11 


04021 


000- I 


07750 


BO 


GOTIT, EOSM 


08624 


43 


08376 


08979 


07760 


CMPCNT C 


BLKCTR, BLX 


086 36 


24 


04021 


02643 


07770 


8H 


GOTIT- 36 


08648 


46 


08 340 


01100 


07780 


BL 


CFILM2 


08660 


47 


08480 


01300 


07790 


C 


SF A , S YMTAO 


08672 


24 


03977 


02641 


7800 


BE 


GOT IT- 36 


08684 


46 


08340 


01200 


07810 


TF 


SUbSM^5,SYMTA0 ,,MOVE FILE ACOR.CF PARTIAL BLOCK TO SUBIN 


08696 


26 


03617 


02641 


07820 


TR 


L IM-9.L IMTSP-9 


08708 


31 


03862 


02498 


07830 


TF 


L IM,LIMTSF 


08720 


26 


03871 


04018 


07840 


B7 


CFIL*48 


08732 


49 


08516 




07850 


• BINARY SYMBOL TABLE SEARCH SUBROUTINE 










07860 


NOP 




08740 


41 


OOOOO 


OOOOO 


07870 


BSERCH TF 


6SBF, CLERER + 5 


00752 


26 


09004 


02724 


07000 


A 


B SBF , LIM 


08764 


21 


09004 


03871 


07890 


A 


BSBF, LIM-5 


08776 


21 


09004 


03866 


07900 


TF 


BSAV, BSBF 


00700 


26 


09010 


09004 


07910 


A 


BSBF , BSBF 


O00CO 


21 


09004 


09004 


07920 


A 


BSBF , BSBF 


00812 


21 


09004 


09004 


07930 


A 


BSBF, BSAV 


08824 


21 


09004 


09010 


07940 


BO 


•♦24, BSBF 


08836 


43 


08860 


09004 


07950 


AM 


BSBF-1, 8,10 


08848 


11 


09003 


000-8 


07960 


SM 


BSBF-l, 8,10 


00060 


12 


09003 


COO- 8 


07970 


C 


BSBF-1, LIM-5 


00872 


24 


09003 


03866 


07980 


BNE 


• ♦26 


08884 


47 


08910 


01200 


07990 


TOM 


EQSfe, 


08896 


IS 


08979 


OOOOO 


08000 


BB2 




08908 


42 






08010 


C 


C0LL-2,BS8F-l,U 


08910 


24 


02437 


0900L 


08020 


BNE 


BSNEQ 


08922 


47 


08948 


01200 


08030 


TOM 


EOSW, 1,11 


08934 


IS 


08979 


OOOOJ 


08040 


HB2 




08946 


42 






08050 


BSNEQ bh 


BSHI 


08948 


4* 


08980 


01100 


08060 


TF 


LIM, BSBF-1 


089*0 


2* 


03871 


09003 


08070 


B7 


BSERCH 


00972 


49 


00792 




08080 


BSHt TF 


LIM-5, BSBF-1 


08800 


24 


03848 


09003 


08090 


B7 


BSERCH 


08982 


49 


08792 




08100 


EOSW OS 


t BSHI-l 


08979 









08110 


8SBF OC 


6,0 


09004 




4 






-OOOOO 










08120 


ISAV OC 


6,0 


09010 




4 






-OOOOO 










08130 


TEST OS 


9 


09015 




9 




00140 


882 OC 


6,424272 


09021 




4 






M24272 










08190 


TTPf OS 


2 


09023 




2 




08180 


TESTA OS 


9 


04028 




9 




08170 


PLACE OS 


9 


09033 




9 




08100 


SUBCNT DS 


5 


09038 




9 




00190 


CNTR OS 


2 


08040 




2 




00200 


TBI END OS 


9 


09041 




9 




08210 


OMR OS 


2 4 /. A 


08047 




2 
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08220 BSw 
06230 CSA6UX 

08240 

08250 NMOAl 
08260 SMOCf 
08270 DMSV 
08280 DIGITS OS 



ns l 
use 1 1 i C ' 
OOOOOOOCCO' 
DS i 



OS 
DS 
DS 



08290 INSTRUCTIONS TO BRING IN PHASE B6 

08300 DC 5,123*5 

J2345 

08310 GAT rFM CFF A , OF ADO 3 

08320 RT CFF,GAT-l 

08330 CFACD3 C DA , C , B60AD , Bfc SC T , I N S TRN 

0J9151-3CJ2444 
08340 DC 1,' 



09046 
09049 

09060 
09061 
09062 
09067 
09072 

09077 

090 78 
09090 
091C2 



1 

1 1 

1 
1 
1 
5 
5 



02629 
02592 



-9102 
C9077 



08350 
08360 



08370 GI T 
08380 



INSTRUCTIONS TO BRING IN PHASE B5 
DC 5,12345 
J2345 

TFM C F F A , OF ADD 2 
BT CFF.GIT-l 
08390 CFACD2 DDA , , 8 5DA D , B5 SC T , I N S TRN 

0J9122-29J2444 
08400 DC 

08410 INSTRUCTIONS TO BRING IN PHASE B4 

08420 DC 5,12345 

J2345 

08430 GETT TFM CFFA,DF ADD 
08440 BT CFF ,GE T T- 1 

08450 DFACD UOA » , B4D AD , B 4 SC T , L I NPR T 

0J9069-53-9268 
08460 DC It* 



09122 
09134 
09146 



09166 
09178 
09190 



16 02629 -9146 
?7 02592 09121 
14 



16 02629 -9190 
27 02592 09165 
14 



08480 



08490 GEET 

O85C0 
0851 

08520 DFACC1 

085 30 

08540 • 
08550 F3 
085e0 
08570 

08580 SUB 3 

08590 

08600 
08610 • 



INSTRUCTIONS TO RESTORE PHASE 83 
DC 5,12345 
J2345 

TFM C F F A , DF ADD! 
TFM X.PHASEB 
BT CFF »GEE T- 1 
CDA ,0,B3DAD,B3SCT,B3MAD 
OJ9000-69-9100 
DC l t * 

TO LOAD PHASE 82 TO THE FILE 
34 SU83.701 
38 SU8 3. 702 
TRA 

DDA ,0,B2DAD,B2SCT,PHASEB-12 

0J9200-52-4188 
TCD F3 



DORG F3 

THE ROUTINE WHICH FOLLOWS TAKE S CARE OF ThE 



09209 

09210 
9222 
09234 
09246 

09260 



09262 
09274 
09266 
09298 
C9310 

09262 

09262 



36 



02629 
04038 



-9246 

-4200 



02592 09209 



34 09310 00701 
38 09310 00702 

ocooo 

00000 
14 



C0500 
OCOOO 



I 4 7 
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08620 


• 


OUTPUT FOR" THE PROCESSOR 














08630 




















08640 




DC 


5,CC0OO 






09266 




5 








-0000 














08650 


L INPRT 


CF 


ADDRS-4 






09268 


33 


03516 


00000 


08660 




CF 


LNTH-4 






09280 


33 


02383 


cocoo 


08670 


• 


















08680 




















08690 




CM 


L INPRT-UDOINST 






09292 


14 


09267 


J0038 


08700 




BE 


OOINST 






09304 


46 


loose 


01200 


08710 


• 


















08720 


• 


















08730 




SF 


LNTh-4 






09316 


32 


02383 


00000 


08740 




SF 


AOURS-4 






09328 


32 


03516 


occoo 


08750 


BRNCH 


B 


LlNPRT-1,,6 






09340 


49 


0926P 


00000 


08760 


DUDS 


BTM 


LST0UT,»»12 PUNCH DS UR 


DNB LIST 


CECK CARD 


09352 


17 


11984 


-9364 


08770 




BD 


X, INTBUF*6,6 






09364 


43 


0403Q 


03634 


08780 




















08790 




GENERATE OUTPUT FOR NUMERIC BLANKS 












08800 


• 


















08810 




AM 


AODRS ,1*10 






09376 


11 


03520 


000-1 


08820 




IF 


FRSTAD, ADDRS 






09388 


26 


03899 


03520 


088^0 




TF 


LSTAO, ADORS 






094CO 


26 


03909 


03520 


08 8 •'■ 




S 


FRSTAD, LNTH 






09412 


22 


03899 


02387 


08850 




. FM 


TYPE, 99, 10 






09424 


16 


09023 


00OR9 


08860 




TFM 


D01NSW3 






094 36 


16 


10111 


-0000 


08870 




BTM 


REL00G.4, 101 1 






09446 


17 


10254 


000- M 


08880 




•'3 I M 


STACKR,9, 10 






09460 


17 


10434 


000-9 


08890 




B7 


X, ,6 






09472 


49 


040 30 




08900 


LNTH2 


DS 


5,CC00O 






00000 




5 




08910 


• 


















08920 


• 


PUNCH THE CONSTANT CARDS 














08930 




















08940 


PCUN 


BTM 


LST0UT,»*12 






09480 


17 


11984 


-9492 


08950 


OOCON 


DS 


•PCON, 






09480 









08960 




TFM 


•♦3C,OUT*2 






09492 


16 


09522 


-2220 


08970 




A 


•♦18. LNTH 






09504 


21 


09522 


02387 


08980 


PCONl 


TO 


,LNTH*l 






09516 


25 


00000 


02388 


08990 




BTM 


RELODG, 2* 1011 






09528 


17 


10254 


000-K 


09000 




BD 


MESOUT.DHESW 






09540 


43 


09780 


03887 


09010 


LUCK 


BTM 


STACKR»9, 10 






095S2 


17 


10434 


000-9 


09020 




B7 


X, ,6 






09564 


49 


04030 




09030 


PDSA 


BTM 


CVACT,»*12 






09572 


17 


11916 


-9584 


09040 




BTM 


LST0UT,»*12 






09584 


17 


11984 


-9596 


09050 




TF 


0UU6,2EP0t5 






09596 


26 


02224 


02305 


09060 




TO 


QUT*7,LNTMM 






09608 


25 


02225 


02388 


09070 




BTM 


«EL0DG,2, 101 1 






09620 


17 


10254 


000-K 


09080 




AM 


C»-SYM»1 1, 1. 10 






09632 


11 


09655 


000-1 


09090 


CHSVM 


BNF 


•♦24»0SAB0X-l 






09644 


44 


09668 


09048 


09100 




BTM 


RElGDG* 3, 1011 






09656 


17 


10254 


000-L 


09110 




BTM 


STACKR*9,10 






09668 


17 


10434 


000-9 


09120 




TFM 


LNT*,5 






09680 


16 


02387 


-0005 


09130 




TR 


*£PO*l, M>Q*6 






09692 


31 


02301 


02306 


09140 




BNR 


•«32 »2EP0*l 






09704 


45 


09736 


02301 


09150 




TDM 


INTBUf r 






09716 


15 


03628 


00000 


09160 




87 


X , » 6 






09728 


49 


040 3Q 
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PACE 



20 



?u! art 




TF 


FR S TAD f LSTAO 






ft 










AM 


LSTAO.5,10 




09748 


1 1 


niana 


rt _ 


nai on 
n Inn 




AM 


ADDRS, 5, 10 






la 


no *b 


000-5 




CULL c 


B7 


LINPRT 




097 72 


49 






092 1 


* 


THE FOLLOWING ROUTINE HANDLES OLTPLT FOR DMES 














U 


TC 


INPLT2*lOO.UUT*2,27,MOVE OMES 






f , 






092 30 




AM 


•-6,1,10, DATA 




09 792 


1 1 


09786 


000 1 


Q9240 




AM 


•-13,1,10, FROM 




09804 


1 1 


0979 1 


000- 1 


09250 




SM 


LNTH, 1,10, 0UT*2 




09816 


1 2 


02 38 7 




09260 




ONN 


MESOUT,,, TO INPUT2*100 




09828 


46 


09780 


1 300 


092 70 


DOMfcSS 


TF 


LSTAO, FRSTAO 




09840 


26 






09200 




TR 


OUW, INPUT2* 100 




09852 


' * 


02220 


3 387 


092 90 




TFM 


B ANAN* 1 1 , I NPUT2*99 




09864 


1 6 


0997 1 




09300 




SM 


MESUUT*6,2. 10 




098 76 


1 2 


09786 


CCO- 2 


09310 




TFM 


L N TH , 




09886 


16 


02387 


-0000 


09320 




AM 


LSTAO, 1 , 10 




09900 


1 I 


3909 


000- 1 


09330 




AM 


LNTH, I , 10 




09912 


1 I 


02387 


000- 1 


09340 




AM 


UANANH1.1.10 




09924 


1 1 


0997 1 


000- 1 


09350 




c 


BAN AN* 1 1,MESGUT*6 




099 36 


24 


0997 1 


09 786 


09 360 




8NL 


R ANAN ♦ I 2 




09948 


46 


099 72 


1 300 


093 70 


BAN AN 


8NR 


• -60 




09960 


45 


09900 


00000 


09380 




HSR 


•♦24,BANAN» 11,11 




09972 


4 i 


09996 


nnnn J 


09390 




TOM 


OLMPlMl.O.tl 




C9984 


* \ 






09*00 




QTM 


STACHR,9, IC 




09996 


1 7 


104 34 


nnn a 


094 1 




AM 


B A N AN ♦ 1 1,1,10 




1 00C8 


1 1 




nnn i 


09420 




C 


BANAN*1 1,MES0UT»6 




10020 


24 


0997 1 


S !!« 


09430 




BH 


X, ,6 




IC032 


46 


0403Q 


1 100 


09440 




TR 


UUT*2,BANAN*ll,H 




10044 


3 I 


02220 


0997 J 


09450 




TF 


FRSTAO, LSTAD 




10056 


26 


03899 


03909 


09460 




SM 


BANAN* 1 1 , 1 , 10 




1C068 


12 


0997 1 


OCO- 1 


09470 




07 


D0MESS*48 




IC080 


49 


09888 




09480 


• 
















09490 


* 


OUTPlT ROUTINE FOR INSTRUCTIONS ANO LINKAGES 












09500 


• 
















0951 


DQINST 


RTM 


LST0UT,«*12 




10088 


I 7 


1 1984 


JO 100 


09520 




SF 


AODRS-4 




10100 


32 


03516 


ooooo 


09530 




TF 


FRSTAO *AOQRS 




10112 


26 


3899 


3520 


09540 




TF 


LSTAO .ADDRS 




10 124 


26 


3909 


3520 


09550 




AM 


LSTAO ,12 




1C1 36 


1 1 


03909 


-0012 


09560 


NOTYPE 


TO 


D01NST*19,ZEP0*12 




10148 


25 


10107 


02312 


09570 




TC 


ZEPO* 12, LNTH* t 




10160 


25 


02312 


02 388 


U95BU 




TR 


ULT*2 ,ZEPO 




10 172 


3 1 


02220 


02 300 


09590 




TFM 


LNTH, 12 




10184 


16 


02387 


-00 1 2 


09600 




HTM 


REL COG , 1,1011 




10196 


I 7 


10254 


CCO- J 


09610 




bTM 


STACKR,9,10 




1Q2C8 


17 


10434 


000- 9 


09620 




TO 


ZEPU* 12,001 NST* 19 




10220 


25 


02312 


IC 107 


09630 




9NR 


SEC INS , ZE PO* 1 2 




IC232 


45 


10352 


02312 


09640 




B 


X, ,6 




10244 


49 


04030 


OOOOO 


09650 




DOR G 


•- 1 




10254 








09660 


RELOCG 


TO 


IC.RELODG- t 




IC254 


25 


03894 


1C253 


09670 




BNF 


•♦36.KLRLSW 




10266 


44 


10302 


04033 


09680 




3NF 


•♦24,RELSW 




10278 


44 


10302 


02478 


09690 




CF 


IC 




IC290 


33 


03894 


OCOOC 


09700 




RD 


•♦46.RELSW 




IC3C2 


43 


10350 


02478 


09710 




CM 


IC, 1,1011 




1C314 


14 


03894 


000-J 


09720 




HNE 


• ♦24 1 VJ 




10326 


47 


10350 


C1200 
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P AGfc 


09730 




TDM 


IC,2, 11 




IC338 


15 


03894 


OCOOK 


09740 




BB2 






1C350 


42 






09750 


SEC INS 


BT 


CLOUT , CLOUT- I 




10352 


27 


08126 


08 125 


09760 




TR 


ZEPCZEPO+12 




10364 


31 


02300 


02312 


09770 




AM 


ADDRS, 12 




10376 


1 1 


03520 


-C012 


09780 




RTM 


L S TOUT , • ♦ 1 ? 




1C388 


I 7 


1 1984 


JC40C 


09790 




TF 


FRSTAD. , LSTAO 




1C4C0 


26 


03899 


03909 


09800 




AM 


LSTAO, 12 




1C4 12 


1 1 


03909 


-0012 


0981 




B 


D0INST*60 




10424 


49 


10148 


OOOOO 


09820 




DOR G 


• - 1 




1C434 








09830 


• 
















09840 


* 


THE FOLLOWING ROUTINE ARRANGES THE OBJECT OUTPUT TC THE 


FILE 










09050 


• 
















09860 


S FACKR 


TO 


STNLCn*13,STACKR-t 




1C434 


25 


I 1489 


10433 


09870 




BNF 


NEhCAR.FRSTMT, , GO TO NEWCAR IF THIS IS FIRST ENTRY 




10446 


44 


1 1 100 


04032 


09880 




CM 


7TY5,75, ,CHK. IF CARD IS EMPTY 




&0458 


14 


03892 


-0075 


09890 




BE 


MOD IF I 




1C470 


46 


1 1308 


01200 


01900 




BO 


BRSEO, IC, *CHK . FOR TCO 




10482 


43 


10502 


3894 


09910 




87 


INDAOR 




10494 


49 


10932 




09920 


BRSEO 


C 


TESTAO,FRSTAO,,TEST FOR BREAK IN AOCRESS SEQUENCE 




105C2 


24 


09028 


03899 


099J0 




UNE 


REMAIL 




10514 


4? 


10976 


01200 


09940 




C 


TYPE, IC ,, TEST FOR KIND OF STATEMENT 




10526 


24 


09023 


03894 


09950 




BNE 


NEWIL 




10538 


47 


11044 


01200 


09960 




TFM 


TEST,0 , , DATA IS 




10550 


16 


09015 


-0000 


09970 




TFM 


TRDATA*U,0UT*2 , , C CNT I GUOLS ,G0 DIRECTLY 




10562 


16 


10765 


-2220 


09980 




TCM 


ULT-7,0 ,,TC SEE IF OATA FITS 




IC5 74 


15 


0221 1 


OOOOO 


09990 


FIT 


S 


7TY5, TE ST , , TEST TO SEE IF ACCRS . I ND« LEN ETC 


FITS 


10586 


22 


03892 


09015 


1 0000 




BMP 


SETFRM, ,,NQ, GO TO SET FLAG REC.MARK 




10598 


47 


1 1296 


01100 


100(0 




S 


7TY5 , LNTH ,, NOW SEE IF DATA FITS 




1C610 


22 


03892 


02387 


10020 




BNZ 


• ♦24 




10622 


47 


10646 


01200 


10030 




TFM 


7TY5.75 




10694 


16 


03092 


-00/5 


10040 




BNL 


CHKRM 




10646 


46 


10694 


01300 


10050 




TO 


•♦22, IC, NO, TEST 




10658 


25 


10660 


03094 


10060 




CM 


• ♦8*20000* 79, FOR 




106 70 


14 


10676 


KO-00 


10070 




BNE 


SETFRM.,, CONSTANT 




10682 


47 


11296 


01200 


10080 


CHKRM 


BNR 


TROATA.OUT-7 




10694 


45 


10754 


02211 


10090 




TO 


TRDATA»6,0UT-7,6 




10706 


25 


1076- 


02211 


10100 




AM 


ABBA ,1,10 




10710 


11 


04031 


000-1 


10110 




TOM 


OUT-7,0 




10730 


15 


02211 


OOOOO 


10120 




SM 


TEST, 1,10 




1C742 


12 


09015 


000-1 


10130 


TRCATA 


TR 


ABBA, ,6, MOVE DATA {PLUS ADDR. , I NO. LEN, ETC > TO OUTPUT 


BUFFER 


10754 


31 


0403 J 


OOOOO 


10140 




BNF 


•♦20.7TV5 




1076* 


44 


10766 


03692 


10150 




87 


SPLIT 




10778 


49 


11564 




10160 




A 


STKLEN, LNTH, 6, UPDATE LENGTH 




10706 


21 


0390M 


02367 


10170 




A 


ABBA, TEST 




10790 


21 


04031 


09015 


10100 




A 


ABBA, LNTH 




10010 


21 


04031 


02367 


10190 




TF 


TE S TAD, LSTAO, * STORE AODR.OF LAST POSN.M 




10022 


2* 


09026 


03909 


10200 




TF 


TYPE, IC, .STORE INDIC.CODE. 




10034 


26 


09023 


3694 


10210 




80 


•♦34, IC 




10046 


43 


10062 


03094 


10220 




TO 


TR0ATA*6,FLGRM,6 




10090 


25 




03910 


10230 




TFM 


7TYS.75 




10070 


16 


03692 


-0075 


10240 




TDM 


FRSTMT , 1 * 1 1 




10002 


15 


04032 


OOOOJ 


10290 




BNF 


• »24. DUMP l*ll,,CK. FOR CONST. WHOSE LAST POSN.IS A REC.MRK. 


10094 


44 


10916 


03547 


102*0 




TDM 


TVPE-1, l,ll,SET INDICATOR THAT CONST. HAS RECORO MARK 




10906 


15 


09022 


OOOOJ 


10270 




TOM 


0UMP1*U 




10910 


15 


03547 


OOOOO 


10200 


R6ETRN 


BB2 






10930 


42 
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10290 • SET UP FOR IN0ICAT0R A NO A0DRESS--TC0 



10300 


INDACR 


TON 


HUB 1 ♦ 1 I « 6 


109 32 


15 


11167 


CC006 


10310 




TOM 


HUB 1*35,5 


10944 


15 


11191 


00005 


10320 




TFM 


HUB2*l l.OUT-7 


10956 


16 


1 1 '703 


-2211 


10330 




87 


HUB I 


10966 


49 


11156 




10340 


• 


SET IP FOR «EC.MRK.,AODRESS, INDICATOR ANC LENGTH 










10350 


REMAIL 


TO 


0UT-7,LNTH*l 


10976 


25 


02211 


02396 


10360 




TOM 


HUai*ll,9 


10988 


15 


11167 


00009 


10370 




TOM 


HUBl»35i8 


1 1000 


15 


11191 


00006 


10380 




TFM 


HUB2*ll,0UT-6 


11012 


16 


11203 


-2212 


10390 




TF 


OlWtFRSTAD 


11024 


26 


02216 


03899 


10400 




B 


HUB 


11036 


49 


11132 


00000 


10*10 




00 R C 


•-3 


11044 








10420 


• 


SET LP FOR NEW INDICATOR AND LENGTH 










10430 


NEW 11 


TOM 


TYPE- I, , 11, TURN OFF • INOICATCR 


1 1044 


15 


09022 


OOOO- 


10440 




TDM 


HUBl*ll,3 


1 1056 


15 


11167 


00003 


10450 




TOM 


HUB 1*35,2 


11066 


15 


11191 


00002 


10460 




TFM 


HUQ2*ll,0UT-l 


11060 


16 


11203 


-2217 


10470 




8 


H LB 


11092 


49 


11 132 


ooooo 


10480 




OURG 


• -3 


1 1 1 CO 








10490 


• 


SET UP FOR NEW 75-0! Gl T RECORD- NEW ADORfSS , 1 NO . ANO LENGTH. 










10500 


NEwCAR 


TOM 


HUD1*1 1,8 


11100 


15 


11167 


0C008 


10510 




TOM 


HUB 1*35, 7 


11112 


15 


11191 


0CO07 


10520 




B 


RE MA 1 L ♦ 36 


11124 


49 


11012 


ooooo 


10S30 




DORG 


•-3 


11132 








10540 


HUB 


TO 


OUT-l.IC 


11132 


25 


02217 


03894 


10550 




TFM 


OUT*l,0,lO 


11144 


16 


02219 


000-0 


10560 


HUB I 


TFM 


TEST 


1 1 156 


16 


09015 


-0000 


10570 




TF 


STKLEN, ABBA 


11168 


26 


03904 


04031 


10580 




AM 


STKLEN, 


1 1 180 


1 1 


03904 


-0000 


10590 


HUB2 


TFM 


TRDATA* I 1 , 


1 1 192 


16 


10 765 


-0000 


10600 




TO 


•♦22, IC 


11204 


25 


1 1226 


03894 


10610 




CM 


•♦8,40000,79 


1 1216 


14 


11224 


MO- 00 


10620 




8NE 


FIT 


1 1228 


47 


10586 


01200 


10630 




A 


OL T ♦ 1 , LNTH 


1 1240 


21 


02219 


02387 


10640 




A 


0LT+l,D0INST*23 


11252 


21 


02219 


1011 1 


10650 




TF 


D01NST^23,LNTH 


11264 


26 


10U 1 


02387 


10660 




TFM 


L N T H , 


11276 


16 


02387 


-cooo 


10670 




87 


FIT 


1 1266 


49 


10566 




10680 


• 


SET A FLAGGED RECORD MARK TERMINATING ONE CARO 










10690 


SETFRM 


TD 


TRDATA*6,FLGRM,6 


1 1296 


25 


HO 76- 


03910 


1O700 


MOCIF I 


TFM 


/TY5, 75,, INITIALIZE FULL CARO COUNTER 


11308 


16 


03892 


-0075 


10710 




TR 


PKM0D,PKXQD*5 


11320 


31 


03932 


03937 


10720 




BNR 


STNUCO.PKMOD 


11332 


45 


114 76 


03932 


1 7 30 




C 


r :VH IN*5, SUB0UT*5 


11344 


24 


03569 


03593 


1 7 4 u 




BNH 


OVRLAP 


1 i 356 


4 7 


11668 


01100 


10750 


• 


WRITE 3 SECTORS — 4 CARDS — TO THE FILE 










10760 




TFM 


I0RT,**2) 


1.368 


16 


00565 


J 1391 


10770 







IG«6C,l)EF0UT,7 


11380 


49 


00520 


- 3579 


10780 




TFM 


•♦30, INPUT2*99 


1 1392 


16 


11422 


- 3386 


10790 




SM 


•♦18,1,10 


11404 


12 


11422 


000-1 


10800 




TDM 


•-•,o 


11416 


I* 


OOCOO 


OOOOO 


1CS1C 




CM 


• -6, PACK 


11426 


14 


11422 


-2984 


10820 




BNE 


• -36 


11440 


4 7 


11404 


01200 


10830 




AM 


SLB0UT*5, 3, 10 


11452 


11 


03593 


000-3 


10840 




TR 


PKM00.PACKA0-4, .INITIALIZE BUFFER ADDRESSES 


11464 


31 


03932 


0391 1 
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10850 


STNUCD 


TF 


ABBA, PKM0D*4 ( , ADDRESS CF NEW CARD MOVEC TO ABBA 


11476 


26 


040 31 


03936 


10860 




B 


•♦8,, .BRANCH BACK OR CONTINUE 


11488 


49 


11496 


OOOOO 


10870 




DORG 


• - 3 


11496 








10680 




TDM 


OUT-7,0 


11496 


15 


02211 


ooooo 


10890 




BD 


NEWCAR, IC 


115CB 


43 


11100 


03894 


1090U 




TF 


1 S T TCD , ADORS 


11520 


26 


03968 


03520 


10910 




TD 


1STTC0-5, IC 


11532 


25 


03963 


03894 


10920 




TR 


TRDATA+6, ISTTC 0-10,6 


11544 


11 


1076- 


03958 


10930 




87 


REE TRN-60 


11556 


49 


10870 




10940 




ROUTINE TO HANDLE THE CASE WHERE DATA OVERFLOWS FROM ONE 










10950 


• 


CARD TO ANOTHER 










10960 


SPL IT 


A 


LNTH.7TY5 MOVE PARTIAL 


11564 


21 


02387 


03892 


10970 




TFM 


•♦35,OUT*2 DATA 


11576 


16 


11611 


-2220 


10980 




A 


•♦23, LNTH INTO 


11588 


21 


11611 


02387 


10990 




TR 


OUT+2 , , 0UT*2 


11600 


31 


02220 


OOOOO 


1 1000 




A 


FRSTAD, LNTH, , OBTAIN ADDRESS OF NEW FIRST DIGIT 


11612 


21 


03899 


02387 


11010 




CF 


7TY5 


11624 


33 


03892 


ooooo 


1 1020 




A 


STKLEN, LNTH, 6 


11636 


21 


0390M 


02387 


1 1030 




TF 


LNTH, 7TY5 


11648 


26 


02367 


03892 


11040 




B7 


MOD IF I 


11660 


49 


11308 




11050 


• ERROR ROUTINE — FINAL OUTPUT MAS OVERLAPPED INT. OUTPUT 










11060 


OVRLAP 


TFM 


EVALER-2, 72710 


11668 


16 


07634 


P2710 


11070 




BT 


EPR INT , EPR I NT- 1 


11680 


27 


08022 


06021 


1 1080 




B7 


MONCAL 


11692 


49 


00796 




11090 


• 














11100 


• 


NUMERIC TO ALPHA CONVERTER 










11110 


• 














11120 




DS 


5 


11703 




5 




11130 


FILL 


TR 


FILBUF,FILL-1,11 


U7C4 


31 


11960 


U 701 


11140 




TFM 


FCHBUF, 70,10 


11716 


16 


11977 


OOOPO 


11150 




TO 


FCHBUF, FILBUF*4, 11 


11726 


25 


11977 


1196M 


11160 




BNF 


•♦60, FCHBUF 


11740 


44 


11800 


11977 


11170 




TDM 


FCHBUF-l, 5,11 


11752 


IS 


11976 


OOOON 


11180 




CF 


FCHBUF 


11764 


33 


11977 


OOOOO 


11190 




BO 


• ♦24, FCHBUF 


11776 


43 


11800 


11977 


11200 




TOM 


FCHBUF-l, 2,11 


11766 


IS 


11976 


0000K 


11205 




BNG 


•♦24, FCHBUF 


11600 


55 


11824 


11977 


11206 




TFM 


FCHBUF, 47, 10 


11612 


16 


11977 


000M7 


11210 




BNR 


•♦24, FCHBUF 


11824 


45 


11848 


11977 


11220 




TFM 


FCHBUF, 34, 10 


11836 


16 


11977 


000L4 


11230 




TF 


FIL8UFH4, FCHBUF, 6 


11846 


26 


1197* 


11977 


11240 




AM 


FILBUF*4, 1,10 


11860 


11 


11964 


000-1 


11250 




AM 


FILBUF*14, 2,10 


11872 


11 


11974 


000-2 


11260 




C 


F ILBUF*4, FUBUF»9 


11864 


24 


11964 


11969 


11270 




BNH 


FILLM2 


11196 


47 


11716 


01100 


11280 




88 2 




11906 


42 






11290 




OS 


5 ■ 


11914 




S 




11300 


CVACT 


TFM 


ACTFIL*5,ZEP0 


1191* 


14 


12420 


-2300 


11310 




A 


ACTFIL*5,LNTH 


11926 


21 


12420 


02367 


11320 




8TM 


FlLl,ACTFU-4 


11940 


1? 


11704 


J24U 


11330 




B 


CVACT-l, r 6 


11952 


49 


1191N 


OOOOO 


11340 




DORG 


«-3 ' 


1 1960 








11350 


FR8UF 


OSS 


16 


I i960 




16 




11360 


FCHBUF 


OS 


2 ' 


11977 




2 




11370 




OS 


5 


11962 




S 
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11390 • DECK 



1 1*00 


I STOUT 


11 TM 


FlLL«ADRF|L-*,,ADOR£SS 


i i 00! 


I ' 


nil* a 




11*10 




TCM 


|NPtT2»2»6 I- 3*42,7 




1 5 




CT007 


1 1*20 




cm 


L I NPH T- 1 ,001 NS T 


1 20CB 


I * 


0926 7 


1 ft n b fl 

•J -ZZ 


1 1*30 




UNE 


LSTCON 


12020 


* 7 


12076 




1 1**0 




HTM 


F ILL tUPF It-*, » OP. CODE 


12 32 


I 7 


1170* 


1 3 14. » 

1 \ 110 


1 1**0 




fo TM 


F ILL ,PF IL-4, |P-FIELD 


1 20** 


1 7 


1170* 




11*60 




HTM 


FILL.,OFlL-*i.O-FlELO 




I 7 




J2395 


11*70 




H7 


PR INT 


12068 


*9 


12100 




u*ao 


ISTCON 


UTM 


F ILL .LNTHFL-* 


12076 


17 


1170* 


J2*27 


11*90 




TDM 


INPLT2*2«67- 3*42, 7 


1 2088 


1 5 


346C 


CCOO 7 


1 1S00 


MINT 


ONF 


PINCMl , L SPHSW , , SHALL WE PRINT 


i 2 1 CO 


** 


12188 


02481 


11510 




TFM 


IORT,«*23,, VES TO PRINT LISTING (IORT) 


12112 


16 


00565 


J2 1 35 


11520 




R 


IOPT.LSTUEF-4,7 


1212* 


*9 


00532 


J2 3 39 


11530 




BN1 


PLNCHl , 3*00 , , TEST PRINTER CHAN 12 OF LQ PAGE 


1 2 1 36 


* 7 


12188 


3*00 


115*0 




TFM 


CF F A i PR TAD » » DISK CCNTRCL FIELC PRINT OFLO 


121*8 


16 


02629 


J 2 1 72 


11550 




HTM 


CFf ,PACE AUORESS TU START CFLO INDICATICN 


12160 


I 7 


02592 


-6278 


11560 


PR T AO 


UUA 


t I 1 80 AO i B /SCT,H7MA0« « t CDA PAGE OFLU TITLE AND PROGRAM 


121 72 




14 








1 J 700 1-04-6088 










1 1570 




cc 


1 ' 


12 186 




1 




11580 


PUNCH 1 


ONF 


GQCL.LSCOSw, , TO PUNCH OR NUT 


12188 


** 


12296 


024 79 


1 1590 




CM 


REVSCN05,INPUT2*2»59, , YES * AKE HCLES 


1 22CO 


I* 


C5889 


- 3405 


1 1 600 




ONH 


PLNCH2 


12212 


4 7 


12260 


01100 


11610 




TFM 


inRT,»*23,. PUNCH STATEMENT ONLY 


1222* 




00565 


J2247 


11620 






lUr I itU°Otr~* , r 


12236 


49 


00532 


-*180 


1 1630 




HT 


CLULT, CLOUT- I , , CLEAR CARO CNLY AREA 


12248 


27 


08126 


08125 


116*0 


PUNCH2 


TR 


INPLT2»2»61-),1NPUT2*M«2*39, , MOVE OBJECT CQCE 


12260 


31 


03406 


03*48 


11650 




TFM 


I0HT,«+23*» PUNCH C0UE-MAY8E STATE CENT 


12272 


16 


00565 


J2295 


11660 




H 


I0PT,C0PDEr-4, 7 


1228* 


*9 


00532 


-4180 


11670 


COCL 


n t 


CLULT .CLOUT- I 


12296 


27 


08126 


08125 


U6S0 




TR 


|NPLT2*156.iCLERER*lit CLEAR THE REMAINS 


12308 


31 


03**3 


02720 


11681 




TFM 


RE VSCN* 35, INPUT2*2»58, , SET POINTER LOW FOR MACRO CUTPUT 


12320 


16 


05889 


-3403 


1 1 690 






LSTQUT— l,,6 


123)2 


*«* 


1 198L 




11700 


LSTCEF 


DSA 


INPLT2 


123*3 




5 


X 1 










123*3 




-3287 




11710 




DC 


3,18',,, PRINT ALPHA LISTING 


123*6 




3 




11720 


ACRFIL 


DSA 


AUUN IIJUR 3 | I IlKU li't ■Ol*<»^t 


12351 




5 


X 3 










12)51 




-3516 












12 356 




- 3S20 












12361 




-3449 




11730 




DC 


I. • 


12362 




I 




117*0 


OPFIL 


DSA 




12 367 




5 


x 3 










12367 




-2300 












12372 




-2 301 












12 3 7 7 




-3461 




11750 




DC 
* 


1 , • 


1237H 




1 




11760 


PFIL 


USA 


Z E PO *2 t ZE PQ* 6 , I NPU T2 ♦ 2 • 70-2 ♦* 2 


123H3 




5 


X 3 










12383 




-2302 










i r> :j 
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-2 306 












12393 




-3*67 




11770 




CC 


l.» 


1239* 




1 




1*780 OF IL 


DSA 


ZfP0*7,ZEP0*l I , lNPUT2*2»76-2*42 


12399 




5 


x 3 










12399 




-2307 












1 2*C* 




- 2 3 1 1 












124C9 




-3479 




1 1 790 




CC 


If ' 


12410 




1 




11800 


ACTFIt 


DSA 


ZEPO*l,»-« ,lNPUT2*2»73-2*42 


12*15 




5 


x 3 










12*15 




-2301 












12*20 




-0000 












12*25 




-3*73 




11810 




DC 


It 1 


12*26 




1 




11820 


INTHFl 


DSA 


LNTK-*,LNTH, I NPU T2 ♦ 2 «6 7-2 »*2 


12431 




5 


X 3 










12*31 




-2383 












12*36 




-2387 












12**1 




-3*61 




11830 




DC 


!»• 


12**2 




I 




116*0 


• 














11850 


• 


ASSEMBLE INSTRUCTION 










11860 


• 














11870 


INSTRN 


TO 


•♦23.AODCOW 


12*** 


25 


12*67 


02678 


11880 




TD 


•♦23.AJUST 


12*56 


25 


12*79 


02399 


11890 




AM 


AD0C0h,,10 


12*68 


11 


02678 


000-0 


11900 




TFM 


L INPR T- I ,D0l NS T 


12*80 


16 


09267 


J0086 


U91Q 




TO 


ZEPOflNTBUF 


12*92 


25 


02300 


03628 


11920 




TD 


ZEP0^1.INTBUF*1 


125C* 


25 


02301 


03629 


11930 




HTM 


SC*N,»*12 


12516 


17 


06046 


J2528 


119*0 




TR 


ZEPC*2,CLERER*43 


12528 


31 


02302 


02762 


11950 




TR 


ZEP0*2,ADDRS-* 


125*0 


31 


02302 


03516 


11960 




CF 


2EP0»2 


12552 


33 


02302 


00000 


11970 




BNF 


•♦24.RLOCSW 


1256* 


** 


12588 


07950 


11980 




SF 


ZCPO 


12576 


32 


02300 


00000 


11990 




TR 


INFLT»l9,INPUTi2l 


12588 


31 


02812 


0281* 


12000 




BTM 


SCAN,»*12 


12600 


17 


06044 


J2612 


12010 




TR 


Z6P0*7,ADDRS-* 


12612 


31 


02307 


03516 


12020 




CF 


2EPO*7 




33 


02307 


00000 


12030 




BNF 


•♦24,RLOCS* 


126316 


64 


12660 


07950 


120*0 




SF 


26P0*l 




32 


02301 


00000 


12050 


• 


SET Tt* O-MOOIFIERS 










12060 


OPCOOE 


TFM 


MVf*OO*6tIEP0*6 




16 


12T50 


-2306 


12070 




TFM 


CHKMOOM l.lNTBUF»l 




16 


12743 


-3629 


12080 


AC01 


AM 


CMtMOOMltl 




11 


12743 


-0001 


120*0 




CM 


CHKM0D*ll,lNT6UF*7 




14 


12743 


-363S 


12100 




BE 


TVFIMS 




46 


12776 


01200 


12110 




AM 


MVEM0D*6.l 




11 


12750 


-0001 


12120 


CHKMOD 


BNF 


AODl 




44 


1266* 


00000 


12130 


MVEMOO 


TO 


,CMCMO)0*lltU 




25 


00000 


12741 


12160 




CF 


MVEMO0*6,,6 1,5^ 




33 


1275- 


00000 



162C- 1443 MCNt TOR I VERSION 2 SPS I I -C PHASE B 
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12150 




H7 


AOD I 


12768 


49 


12684 




12160 


TYP INS 


TF 


ADDRS.ADDCOn 


1 27 76 


26 


03520 


02678 


12170 




AM 


ADOCOta, 11 


12786 


11 


02678 


-0011 


12180 




c 


INPLT* 16,862 


12800 


24 


02809 


09021 


12190 




BNE 


CHKB7 


12812 


47 


12844 


01200 


12200 




SM 


AOOCOM, 10, 10 


12824 


12 


02678 


CCO JO 


12210 




B7 


FL AGGR 


12836 


49 


12880 




12220 


CHK87 


CM 


INPlT*14, 4277,8 


12844 


14 


02807 


0M277 


12230 




BNE 


FL AGGR 


12856 


47 


12880 


01200 


12240 




SM 


AD0C0M,5 


12868 


12 


02678 


-0005 


12250 


t 














12260 


• 




CHECK TO SEE IF THERE IS A FLAG QPERANC 










12270 


• 














1 2280 


FL AGGR 


TR 


INPLT*19, INPUT*2l 


12880 


31 


02812 


02814 


12290 




BNR 


•♦20, INPUT+20 


12892 


45 


12912 


0281 3 


12300 




B7 


SEE IN 


129C4 


49 


12956 




12310 




CM 


INPi.W0.23, 10 


12912 


14 


02813 


000K3 


1 2320 




BE 


SEE IM 


12924 


46 


12956 


01200 


1 2330 




HD 


MGRIDR , INPUT* 19 


12916 


4 3 


13112 


02812 


12340 




B7 


FLACf.R 


12948 


49 


12880 




12350 


• 














12360 


• 




SET FLAG IF IMMEDIATE INSTRUCTION 










12370 


• 














12380 


SEE IN 


TC 


•♦21, INTBUF 


12956 


25 


1297 7 


03628 


12390 




CM 


•♦9,1,810 


12 966 


14 


12977 


0-0- 1 


12400 




BNE 


L INPRT 


12980 


47 


09266 


01200 


12410 




C 


• ♦ ? 3 » IN TBUF ♦ I 


12992 


24 


13015 


03629 


12420 




HI 


L INPRT, 1215, 10 


130C4 


46 


09266 


012J5 


12430 




SF 


ZEPOW 


13016 


32 


02307 


ooooo 


12440 




B7 


L INPRT 


1 3026 


49 


09268 




12450 


• 














12460 


• 




SCAN FLAG OPERAND 










12470 


• 














12480 


TRANS 


TR 


INPLT*19,INPUT*2l 


1 3036 


31 


02812 


02614 


1 2490 




BNR 


• ♦20, INPUWC 


13048 


45 


1 3068 


0281 3 


12500 




B7 


L INPRT 


1 3060 


49 


09268 




12510 




BD 


• ♦20, INPUTM9 


13068 


4 3 


13088 


02812 


12520 




B7 


TRANS 


13080 


49 


13036 




1 2530 




CM 


INPLT*20,23,10 


13088 


14 


02813 


00OK3 


12540 




HE 


L INPRT 


131C0 


46 


09268 


01200 


12550 


MGRUDR 


CM 


INPUT ♦20, 7 1,10 


13112 


14 


02813 


00OP1 


12560 




BNE 


ABIE 


13124 


47 


1 3280 


01200 


1 25 70 




BNR 


•♦2C, INPUW2 


13136 


45 


13156 


0281 5 


1 2580 




87 


ABLE 


13148 


49 


I 3280 




12590 




c 


ZERCNE^9, INPUU22 


13156 


24 


1 3 32 1 


G2815 


12600 




BNE 


BAKR 


13166 


4/ 


13212 


01200 


12610 




SF 


ZEPO^ 10 


lUbC 


32 


02 310 


OCCOO 


12620 


CHAR 


TR 


INPUTM9, INPUT+23 


13192 


31 


02812 


02816 


1 2630 




37 


TR ANS ♦ 1 2 


132C4 


49 


13048 


12640 


BAKR 


C 


ZERCNE^ ll.INPUT+22 


13212 


24 


1 3 323 


02815 


12650 




BNE 


ABLE 


1 3224 


4 7 


13280 


01200 








b a ?r i luniiTi 
• ♦/!» »IN*UM24 


1 32 36 


45 


I 3256 


0281 7 


12670 




B7 


ZERONE 


1 3248 


49 


13312 




12680 




C 


ZEK0NEt9,INPUT*24 


1 3256 


24 


1 3321 


0281 7 


12690 




BNE 


ZERONE , r r 


1 3268 


47 


13312 


01200 


12 700 


ABLE 


r D 


•♦l8,INPUT+20 


1 3280 


25 


13298 


02813 
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12710 




SF 


ZEPC 


I 3292 


12 


02300 


00000 


1 2720 




B7 


TRANS 


133C4 


49 


13036 




12730 


ZERONE 


SF 


ZEPO+1 1, 7071 ,81C 


13312 


32 


02311 


OPOPl 


1 2740 




B7 


CHAR 


1 3324 


49 


13192 




1 2750 


CNT 


DS 


2, CHAR- 1 


13191 




2 




12760 


• 














1 2 770 


• 




EVALUATE LENGTH OF DS OR DNB 










12780 


• 














1 2790 


DSDNB 


8TM 


SCAN, •♦ 12 


13 3 32 


17 


06046 


J3344 


1280U 




TF 


L N T H , ADDR S 


13344 


26 


02387 


03520 


12810 




BD 


•♦48, INTBUF^6 


13356 


4 3 


13404 


03634 


12820 




CM 


LNTH, 100 


13368 


14 


02387 


^0100 


1 2830 




BN 


• ♦24 


1 338Q 


47 


1 3404 


01 300 


12840 




TFM 


LNTH, 99 


13192 


16 


02387 


-0099 


12850 




TR 


INPLiT* 19, I NPUWl 


13404 


31 


02812 


0281 4 


12860 




BTM 


SCAN, •♦ 12 


13416 


17 


06046 


J3428 


12870 




BD 


•♦32.BSW 


13428 


43 


13460 


09Q48 


12880 




TO 


KLRLSH.RLOCS* 


1 344 


25 


04033 


07<>50 


12890 




B7 


PROS 


13452 


49 


13528 




12900 


• 














12910 


• 




ADDRESS ASSIGNED BY PROCESSOR 










12920 


• 














12930 




TF 


ACDRS.ADDCOW 


13460 


26 


03520 


02678 


12940 




A 


ADDCOw , LNTH 


13472 


21 


02678 


02387 


12950 




BD 


DSS.INTBUF+5 


13484 


43 


13516 


03633 


12960 




A 


ADDRS , LNTH 


13496 


21 


03520 


02387 


12970 




B7 


DSSU2 


13508 


49 


13528 




12980 


OSS 


AM 


ADDRS, 1, 10 


13516 


11 


03520 


000- I 


12990 


PROS 


BTM 


L INPRT, DOOS 


1 3528 


17 


09268 


-9352 


1 3000 


• 














13010 


• 




EVALUATE LENGTH OF DAS 










13020 


• 














13030 


OAS 


BTM 


SCAN, 12 


13540 


17 


06046 


J 3552 


1 3040 




TF 


LNTH, ADDRS 


13552 


26 


02387 


03520 


1 3050 




A 


LNTH, LNTH 


13564 


21 


02387 


02367 


13060 




TF 


TEMPR , L NTH 


13576 


26 


02571 


02387 


13070 




BNR 


NOA0D,INPUT*20 


13588 


45 


13680 


02613 


13080 


• ■ 














13090 


• 




ADDRESS ASSIGNED BY PROCESSOR 










13100 


• 














13110 




TD 


•♦23,ADDCOW 


136CQ 


25 


13623 


02678 


13120 




TD 


•♦23,JSTBL 


13612 


25 


13635 


02459 


13130 




AM 


ADDCOW.,10 


13624 


11 


02678 


000-0 


13140 




TF 


AOORS.AODCOW 


13636 


26 


03520 


02678 


13150 




A 


ADDCOW, TEMPR 


13648 


21 


02678 


02571 


13160 




SM 


ADDCOWt 2t 10 


13660 


12 


02678 


000-2 


13170 




87 


PROS 


13672 


49 


13528 




13180 


NOACO 


TR 


INPUT*19, INPUT+21 


13680 


31 


02812 


02814 


13190 




BTM 


SCAN,»»12 


13692 


17 


06046 


J3704 


13200 




BD 


DAS+60,BSM 


13704 


43 


13600 


09048 


13210 




TD 


KLRL SHfRLOCSW 


13716 


25 


04033 


07950 


13220 




B7 


PROS 


13728 


49 


13528 




132 30 


• 














13240 


• 




DEFINE ORIGIN 










13250 


• 




5CAN*«*12 '^6 










13260 


OORG 






13736 


17 


06046 


J3748 
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1 127o 




TF 


ADOCriW, AODR S 




1 3 748 


26 


C2678 


3520 


1 3280 


• 
















I 12^0 


• 


SET ACDRESS COUNTER 


in kfm 










1 3300 


• 
















1)310 




SM 


ACOCOM, 1,10 




1 3760 


1 7 


026 78 


000" 1 


13320 




3NF 


•♦24,A0nC0ta 




1 3 7 72 




1 1796 


02678 


1 1330 




TFN 


A0UCn«t99999 




1 1 784 


16 


02678 


R9999 


13)40 


ECL AT I 


CF 


ADCRS-4 




1 1 796 




03516 


OCOOO 


I 3350 




BTM 


F ILL.A0RFIL-4 




1 1808 


1 I 


1 1 704 


J234 7 


13360 




TF* 


LSTCJUT-l.PHASEB 




1 1820 




1 1 98 3 


~4200 


1 1370 




B7 


PRINT 




11812 


49 


12100 




I 3380 


• 
















I 3390 


• 


DEFINE CONSTANT ANO 


DEFINE 


tPFT 1 At rnki^TAMT 








I 3400 


• 
















1 1410 


OC 


TC 


DC »?)• INTBUF4-5 




to 






03633 


1 1420 




CF 


CCUMfR 




1 3852 






UbvUv 


1 34)0 




TF* 


SFLAG*11, OOUOO 








* * * 




1 1440 




UTM 


$C AN » • ♦ 1 ? 






17 




1 1 ft It A 


1 3450 




TF 


LNTH.AnnRS 




1 3ARA 


26 




n i«o 


I 3460 




CM 


L N T r , 5 1 




i lor r 
i !ai j 






rn* i 


1 3470 




DL 


• »2<, 








i tail 




1 1480 




TFM 


LNTh.SO 




1 3924 


1 6 


02 387 


•0050 


1 1490 




TR 


ZFPO- I » C LF R f R 




13936 


\ ^ 


02299 


02719 


I 3500 




ro 


Zt PU*5l ,LNTH» 1 




I 3948 


25 


02 351 


02368 


i 




SF 


zfpc 




13960 


32 


02300 


00000 






TFM 


SFLACMt 4 1,10, 




CHANGE SF TC NCP 13972 


16 


14 18 1 


OOOMl 


I 3530 




B7 


TRKrC*12 




13984 


49 


14 168 




1 3540 


CCOMER 


C« 


INPLT»22,23, 10 




13992 


1 4 


02815 


CC0K3 


1 35 50 




BE 


IRREC^24 




140C4 


46 


14 180 


01200 


1 3560 




SH 


TRRfC-7? 




14016 


46 


14084 


01100 


1 35 70 




CM 


INPLW2, 20,10, 




lr - , ON UNlib DIbIT Or CON 1402B 


14 


0281 5 


OOOKO 


1 3580 




8NE 


TRREC ♦ i » 




IGNORE ♦ 14040 


4 7 


14 156 


01200 






SF 


CCOMER 




14052 


12 


1 3992 


00000 






TFM 


SFiAG»l, 32,10, 




CHANGE NOP TO SF 14064 


16 


14161 


00012 






8 7 


IRKEC 




140 76 


49 


14156 




I 3620 


* 
















1 36 30 




COLLECT CONSTANT 












1 3640 


















\ 




TF 


SFLAG*ll,INPUT*?2 




14084 




14191 


0281 5 






ro 


ZEPO*M , INPUT* 22 




14096 


25 


02 35 1 


02815 






CM 


1NPLT*22,60, 10 




14108 


'1* 


02815 


00000 


J 




BP 


• ♦2<, 




14 120 


46 


14 144 


1 100 






SF 


ZFP0**>1 




14132 


12 


02351 


00000 


I 3700 




TH 


ZEPC,ZEPO»l 




14144 




02 300 


02 30 1 


I 3710 


TRR EC 


Tft 


INPLT«19 V I NPUT.*21 




14156 




02812 


02814 


1)720 




BNR 


CCUMER,INPUT*22 




14 168 


it 


13992 


02815 


13730 


SFlag 


SF 


ZEPO*50 




14 180 




02 350 


CCCOO 


I 3740 




CM 


I ,34, 10 




14192 




14191 


0C0L4 


l)7Su 




HNfc 


• ♦7? 




142C4 


:i 


14276 


01200 


13760 




8NF 


■•♦36,.2EPO«"50 




14216 




14252 


02350 


1 3770 




CNF 


•♦24.CCCMFR 




14228 




14252 


13992 


1 3780 




SF 


2EP049 




14240 


12 


02349 


OCGOO 


1 3790 




TD 


ZEP(J*50,LNTM*l 




14252 


25 


02350 


02388 


1 3800 




TC* 


l)UMPl»U, ,11 




14264 


15 


03547 


CCOO- 


1 1810 




SF 


Z6 PO 




. - ■ m 14276 


12 


02 300 


ooooo 


1 1820 




C 


LNTM, I N TBUF f4 




1 •> < 14288 


24 


02387 


03632 
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PAGE 


1 3830 




BNN 


• ♦36 




14 300 


46 


14 3 36 


1 300 


13840 




IF 


L N T H , 1 N TBUF ♦ 4 




14312 


26 


02387 


3632 


1 3850 




CF 


LNT^-1 




14324 


3 3 


02 386 


OCOOO 


1 3860 




TFM 


• ♦35,VEP0«-5O 




14 3)6 


16 


14 3 71 


-2350 


1 3870 




S 


♦ ♦2 3,LNTH 




14348 


22 


14371 


02387 


I 38HO 




TR 


ZEPC 




14360 


31 


02300 


CCOOO 


1 3890 




HD 


• ♦?<., DC *2l 




14372 


4 i 


14 396 


1 386 3 


I 39C0 




SF 


ZEPCM 




14 384 


32 


02301 


00000 


1 3910 




QNR 


•♦?4,/EP0* 1 




143S6 


45 


14420 


02301 


1 3920 




CF 


ZEPCM 




144C8 


33 


0230 I 


OCOOO 


I 3930 




BNR 


Ch-CK , INPUW2 




14420 


4*> 


14612 


02815 


1 3940 


* 
















1 3950 


* 


AOOKfSS ASSIGNED BY 


PROCt SSCk 








1 396U 


t 
















1 3970 


CO ahc 


TF 


AODRS, ACDCOM 




14432 


26 


3520 


02678 


1 3980 




A 


ACDCOW.LNTH 




14444 


2 1 


02678 


02 387 


I 3990 




TF 


L S T AD , ADDCOW 




14456 


26 


3909 


02678 


14000 




AM 


L S T AD ,1,10 




14468 


11 


03909 


QCO- 1 


14010 




BD 


DSCtDC *23 




14480 


4 3 


14516 


1386 3 


14020 




A 


A0L5RS »LNTM 




14492 


2 1 


0352Q 


02387 


14030 




8 


USLM2 




14504 


49 


14528 


00000 


1 4040 


CS,£ 


AM 


AODRS.1,10 




14516 


1 1 


03520 


OCO- 1 


1 4050 




TR 


0tt*2*|EPO*l 




14528 


11 


02220 


02301 


1 4060; 


'/ 


TF 


FR S TAD , L S TAD 




14540 


26 


0)899 


03909 


1 4 7 6 




S 


FR S TAD ,LNTH 




14552 


22 


03899 


02387 


14080 




HNF 


•♦36.DUMP1* H 




14564 


44 


14600 


03547 


1 4090 




BNR 


• ♦24,?EP0M 




14576 


45 


14600 


02301 


14100 




TOM 


DUMP1U1.1.11 




14588 


15 


03547 


0000 J 


14110 


PROCSA 


OTM 


LINPRT.DOCON 




14600 


17 


09268 


-9480 


14120 


CHECK 


TR 


INPLT>19, INPUT* 2') 




14612 


31 


02812 


02816 


141 30 




a tm 


SCAN, •♦ 12 




14624 


1 7 


06046 


J4636 


14140 




80 


COAhD.OSW 




14636 


41 


14432 


09048 


14150 




TO 


KLRLSMrRLOCSM 




14648 


25 


04033 


07950 


14160 


* 
















14170 


• ■ 


ADDRESS ASSIGNED BY 


PROGRAMMER 








14180 


• 
















14190 




TF 


LSTAD , AOORS 




14660 


26 


03909 


0)520 


14200 




BO 


•♦32, DC *23 




14672 


41 


14704 


1386) 


14210 




AM 


LSTAD ,1,10 




14684 


1 1 


03909 


000- 1 


14220 




37 


DSC ♦ 12 




14696 


49 


14528 




14210 




A 


L S IAD » LNTM 




14704 


2 1 


0)909 


02)87 


14240 




07 


0SO12 




1*716 


49 


14528 




14250 


• •FL 1 P 


BRANCH TABLE 












14260 


DQDSF 


8 TM 


L INPRT.OOOS 




14724 


17 


09268 


-9352 


14270 


OOC.ONF 


BTM 


LINPRT.OOCON 




14 ?)6 


17 


09268 


-9480 


14280 


PCSAF 


BTM 


L INPRT ,PDSA 




14748 


I? 


09268 


-9572 


14290 


PCONF 


BTM 


LINPRT«PCON 




14760 


17 


09268 


-9460 


14100 


UNP 


BTM 


t INPRT, 00 INST 




147T2 


1? 


09268 


J0088 


14)10 


OSB 


BTM 


GETT.OSBF 




147B4 


17 


09166 


-9268 


14120 


IINKSF 


BTM 


GE IT, LINKS 




14796 


11 


09166 


J 39 76 


14330 


CAUEX 


BTM 


GETT.CALEXT 




14808 


IT 


09166 


J4204 


14)40 


TRA 


BTM 


GI1.MTRA 




14B20 


17 


09122 


J3838 


14)50 


MACRO 


BTM 


G I T ,MACROF 




14812 


17 


09122 


J 3084 


14)40 


DSA 


BTM 


GIT ,DSAF 




14844 


I? 


09122 


Jit to 


14)70 


OINC 


BTM 


GIT.DENDF 




1 t W 14B14 


IT- 


09122 


J4498 


14380 


CCA 


BTM 


G1T.0DAF 




14868 


17 


09122 


J3392 
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PACE 







BTM 


GETT.DGMF 






1 7 






44(H 


nwi r 


BTM 


Gf T T.DVLCF 




1*892 


I 7 


09 166 


~96*6 




a <to 

-\ r 


B TM 


GE T T , R S TRF 




14904 


1 7 


09 166 


J02 32 






BTM 


GE TT.SAVEF 




1*916 


1 7 


09166 


^ ? ^ n ^ 


j 44 


DME S 


BTM 


GETT.OMESF 




14928 


1 7 


09 166 


4 1 196 


1**40 


OAC 


QTM 


GETT.OACF 




1*940 


17 


09166 


J 2 950 


1**50 


MAC2 


BTM 


GAT.MACR2 




1*952 


17 


09078 


J2756 


1 4460 


* 


LOAD PHASE B3 TO 


THE FILE 










1**70 


F 2 


34 


SLB2.701 




1*964 


34 


15012 


OC 701 


1**80 




MN 


SUB 2, 702 




14 9 76 


18 


15012 


00 702 


14490 




TR A 






14988 


36 


00000 


00500 












150C0 


49 


00000 


COCOO 


1*500 


SUB2 


CCA 


,0 .B3DAD, B 3SC r , 


B3MAD 


15012 




14 








0J9C0O-69-910O 












1*510 




TCD 


F2 




14964 








1*520 


•••••• 


• • • • » 


PAGE HEADING 


RECCRO AND PHASE 8 PRINT OVERFLOW 










1*530 




DOR G 


B7MA0,,, 




06088 








1*540 


PGARE A 


CAS 


8 2,,,, 


HEADER INFORMATION 


06089 




82 


X 2 


1 4550 


PGCQN 


DAC 


00, PAGE l.i, » 


PAGE CONSTANT 


0625 3 




8 


x 2 






PAGE 


1 












1*560 




CSC 


2,0' 




06268 




2 




1*570 


P AGEP 


0' 

DSA: 


PGARfcA 




062 74 




5 


« 1 












06274 




-6089 




1*580 




DC 


3.18»,., 


PRINT INDICATION ANO PAGE NUMBER 


062 7 7 




3 




1*590 


PAGE 


J8 ' 

TD 


PGCON* 14.PGNUM, 


■ » PAGE NUMBER 


062 78 


25 


06 267 


02647 


1*600 




TD 


PGC0NU2.PGNUM- 


1 ' 


06290 


25 


06 265 


02646 


1*610 




TO 


PGC0N*10,PGNUM* 


2 ' 


06302 


25 


06263 


0264 5 


1*620 




BD 


ONE.PGNUM-2 




06314 


4 3 


06346 


C2645 


1*630 




BO 


TWO.PGNUM-l 




06326 


4 3 


06358 


02646 


1*6*0 




B7 


NONLM 




06338 


49 


06 3 70 




1*650 


ONE 


TOM 


P GC ON ♦ 9 , 7 




06346 


15 


06262 


00007 


1*660 


TWO 


TOM 


PGC ON ♦ I 1 , 7 




06358 


15 


06264 


CCC07 


1*670 


NONUM 


3* 


,0971,, 


SKIP TO 1 IMMEDIATE 


06370 


34 


COCOO 


009 71 


1*680 




34 


,0962,. 


OOUBLE SPACE AFTER PRINT 


06382 


34 


00 000 


00962 


1*690 




TFM 


10RT,»*23., 


TO 10RT-PRINT PAGE 


06394 


16 


00565 


-641 7 


147C0 







1 OP T » P AGE P- 4 , 7 , 


♦ 


064C6 


49 


00532 


-62 70 


1 4710 




AM 


PGNLM ,0 1 ,10,, 


ADD 1 TU PAGE NUMBER 


064 18 


I 1 


02647 


OOO- 1 


1*720 




TFM 


CF F A » RE NU » , 


RESTORE PHASE B PARTIAL 


064 30 


16 


2629 


-6454 


1*730 




BTM 


CFF .PUNCHl, , 


RESUME OUTPUT ROUT I NE 


06442 


17 


02 592 


J 2 188 




RENU 


OOA 


, 1.B70AO.B7SCT, 
















U9219-C*-6088 












1*750 




DC 


1 . ' 




06468 




1 




1*760 




LOAD HE AO ING PHASE 


TC DISK STORAGE 










1*770 


F7 


3* 


SLBD, 701 




06470 


34 


06518 


CO 701 


1*780 




38 


SU80,702 




06482 


38 


06516 


00 702 


1*790 




TRA 






06494 


36 


00000 


00500 












065C6 


49 


oocoo 


CCOOO 


1*800 


suae 


DDA 


. 1.B8DAD.B7SCT, 


B7MAD, , , LOAD 


06518 




14 





1 J7001-04-6088 

14810 TCD F7 06470 

I 5 !) 
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14820 




00 RG 


L INPRT 


09268 








14830 
















14840 


• 


EVALLATF LENGTH OF DSB 










14850 


• 














14860 


DSBF 


BTM 


SCAN, 12 


09268 


17 


C6046 


-9280 


14870 




r f 


LNTH.AODRS 


09280 


26 


02387 


03520 


14880 




TR 


INPUT* 19, I NPUU21 


09292 


31 


02812 


C2814 


14890 




BTM 


SCAN, 12 


09304 


17 


06046 


-9316 


14900 




BNF 


•♦24.BSW 


09316 


44 


09340 


09048 


14910 




TFM 


ADDRS.l 


0932b 


16 


03520 


-COOl 


14920 




M 


LNTH.AODRS 


09340 


2 3 


02387 


03520 


14930 




SF 


95 


09352 


32 


00095 


00000 


14940 




TR 


INPUT+19, INPUU2L 


09364 


31 


02812 


02814 


14950 




BTM 


SCAN, 12 


09376 


17 


06046 


-9 388 


14960 




BNF 


ASINE.BSW 


09388 


44 


09436 


0904 8 


14970 


• 














14980 




AODRESS ASSIGNED BY PROCESSOR 










14990 


• 














15000 




A 


LNTH.ADDCOM 


094C0 


21 


02387 


02678 


15010 




TF 


ADDRS .LNTH 


09412 


26 


03520 


02387 


15020 




A 


A00COW.99 


09424 


21 


02678 


0C099 


15030 
















15040 


• 


AODRESS ASSIGNED BY PROGRAMMER 










15050 


• 














15060 


ASINE 


TF 


LNTH, 99 


094 36 


26 


02387 


00099 


15070 




BTM 


GEE T.OODSF 


09448 


17 


09210 


J4724 


15080 


• 














15090 


• 


DEFINE FILE GROUP MARK 










15100 


• 














15110 


OGMF 


TFM 


LNTH, I 


09460 


16 


02387 


-COOl 


15120 




BTM 


SCAN,»*12 


09472 


17 


06046 


-9484 


15130 




TO 


KLRLSW.RLOCSW 


09484 


25 


04033 


07950 


15140 




BNF 


•♦48.BSW 


09496 


44 


09544 


09048 


15150 




AM 


AOOCOW, 1 


09508 


11 


02678 


-0001 


15160 




TF 


AOORS.ADDCOW 


09520 


26 


3520 


02676 


15170 




TDM 


KLRLSM, 


09532 


15 


04033 


0000 J 


15180 




TF 


FRSTAO ,AODRS 


095*4 


26 


03899 


03520 


15190 




TF 


LSTAD , ADDRS 


09556 


26 


03909 


03520 


15200 




AM 


LSTAD ,1,710 


09568 


11 


03909 


-00-1 


15210 




TO 


0UT+2,SPSGM 


Q9560 


25 


02220 


02560 


15220 




TOM 


0UMPIM1, 1,11 


09592 


15 


03547 


OOOOJ 


15230 




BTM 


GEE T . PCONF 


09604 


17 


09210 


J4760 


15240 


• 














152 50 


• 


DEFINE VARIABLE LENGTH AODRESS CONSTANT 










15260 


• 














15270 


OVLCF 


BTM 


SCAN. •♦12 


09616 


17 


06046 


-9628 


15280 




TD 


KLRLSW,RLOCSW 


09628 


25 


04033 


07950 


15290 




TF 


OVADBF+ll • ADDRS 


09640 


26 


10147 


03520 


15300 




SF 


0VSW2 


09652 


12 


10037 


00000 


15310 




CF 


DVSmI 


096*4 


33 


10036 


00000 


15320 




BNF 


• 06,ftS'M 


09676 


44 


09712 


09046 


15330 


DVASGN 


SF 


0VSM1,,, MACHINE ASSIGNS ADDRESS 


09688 


12 


10016 


00000 


15340 




TOM 


KLRLSW. 1, 11 


09700 


15 


04031 


OOOOJ 


15350 




TR 


INPUT*19» INPUT*2l 


09712 


31 


0.2812 


02614 


13360 




BTM 


SCAN, »*12 


09726 


17 


06046 


-9736 


15370 




TF 


LNTH, APDSS J g |, 


09736 


26 


02387 


03320 
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32 



15380 




TR 


CLI , CLERER ♦ 1 


097*8 


31 


02218 


02720 


15390 




TFM 


0V!R*6, OUT*? 


09760 


16 


1005* 


-2220 


15*00 


OVLP 


CM 


LNTh, 0C050 


09772 


1* 


02387 


-0050 


1 S410 




BNP 


• ♦*« 


0978* 


*7 


09832 


01100 


15*20 




$M 


LNTH, 50, 10 


09796 


12 


02387 


OOONO 






S 


ADOR S , LNTM 


09808 


22 


03520 


02387 


15**0 




TFM 


LNft-,50 


C9820 


16 


02387 


-0050 


15*50 




BNF 


• *b« 12, DVSW2 


09832 


** 


09928 


10037 


1S*60 




BNF 


•♦36, 0VSM1 


098** 


44 


09880 


10036 


15*70 




TF 


D VAOBF ♦ 1 1 ,A0DC0W 


09856 


26 


101*7 


02678 


15*80 




A 


0VA0BF*U, LNTM 


09868 


21 


101*7 


02387 


15*90 




TF 


LSTAO , OVAOBF*U 


09880 


26 


03909 


101*7 


15500 




S 


L ST AO , LNTH 


09892 


22 


03909 


02387 


15510 




AM 


LSTAO , I 


099C* 


11 


03909 


-0001 


15520 




CF 


DVS*»2 


C9916 


33 


1003 7 


00000 


15530 




TR 


26PO, CLERER»2 


09928 


31 


02 300 


02721 


155*0 




TFM 


0VSF4-6, 2EPO*5t 


099*0 


16 


100*2 


-2351 


15550 




s 


D V SF *6 1 AOORS 


C9952 


22 


100*2 


03520 


15560 




TF 


DVA0M1, AOORS 


0996* 


26 


10071 


03520 


15570 




TR 


INPITU9, INPUT»21 


09976 


31 


02812 


0281* 


155dQ 




ATM 


SCAN, »*12 


09988 


17 


060*6 


JCCOO 


156*0 




CF 


ADDRS-* 


1CCC0 


33 


03516 


00000 


15650 




TF 


ZEPO+50, AUORS 


10012 


26 


02350 


03520 


15660 




CF 


ZEP0*50-9 


1002* 


33 


023*1 


00000 


15670 


OVSF 


SF 


CCCCO.,2 


1C036 


32 


-CCOO 


COOOO 


15680 


DVTB 


TR 


•-• ,0VSF*6,2l 1 


IC0*6 


31 


-0000 


10Q4K 


15690 


OVAO 


AM 


DVTR^6, OCCCO 


10060 


1 1 


1005* 


-CCOO 


15700 




BNR 


•♦20, INPUU20 


10072 


*5 


10092 


0281 3 


15 710 




7 


D VAOBF 


IOCS* 


*9 


101 36 




15720 




TR 


[ NPL T ♦ 19, INPLT^2l 


10092 


31 


C2812 


0281* 


15730 




BTM 


SCAN, «*12 


1010* 


17 


060*6 


J0116 


157*0 




A 


LNTH, AOORS 


10116 


2 1 


02387 


03520 


15750 




8 7 


OVLP 


10128 


49 


C9772 




15760 


CVACHF 


TFM 


ACURS, COOOO 


IC 1 36 


16 


03520 


-COOO 


15770 




A 


LSTAD , LNTH 


101*6 


2 I 


03909 


02387 


15780 




RNF 


•♦2*, DVSttl 


1016C 


** 


1018* 


10036 


15790 




A 


ACOCOW, LNTH 


1C 172 


2 1 


02678 


02387 


15800 




TR 


ZEPGM, 0UT*2 


IC 184 


3 1 


02301 


02220 


15810 




TF 


FR S TAO » L S T AD 


10196 


26 


03899 


3909 


15820 




s 


FHSTAO.LNTH 


102C8 


22 


03899 


02387 


I 5830 




U TM 


Gf E T ,DOCONF 


I C220 


1 7 


092 10 


J*736 


158*0 


CVSta 1 


CS 


, OVSF 


1C036 




c 




15850 


dvsm? 


OS 


, ovsfm 


1003 7 









15860 


RSTKF 


TU 


• *23, AOOCCJW , » AUJUST 


102 32 


2* 


10255 


02678 


15870 




TD 


•♦23, A JUST , , LOCATION 


1C2** 


25 


10267 


02399 








AbUCUilf | lw | L v 11 M T n 










1*890 




TF 


TEMP, AOOCOM 


10268 


26 


02718 


02678 


159C0 




TF 


F R S TAD ,ADUCOW 


1C28C 


26 


03899 


02678 


15910 




AM 


AD0CQta»23,, UPDATE LOC CULNTE R BY MACRO EXPANSICN 


10292 


I l 


02678 


-CU23 


15920 




TF 


LSIAD .ADOCOfc 


103C* 


26 


03909 


02678 


15930 




TR 


ZEPC.RSfN,, MOVE EXPANSION INTC WORK RLKFEk 


10316 


31 


02300 


10*8* 


119*0 




BTM 


SCAN, •♦12,, FIND NUMERIC ECUIV OF 1ST OPERAND 


10328 


17 


060*6 


JO 3*0 


1 5950 




BNF 


• ♦ 2 * » B S W 


103*0 


** 


1036* 


090*8 


1 5960 




TFM 


ADURS,80 


10352 


16 


03520 


-0080 


15970 




CF 


A0URS-* , , ,MOVE 1ST 


1036* 


)3 


035 16 


00000 


15980 




TR 


IE 90*2 « ADOR S-* , , OPERAND INTO MACRO EXPANSION* 


10376 


31 


02302 


03516 








I 6 1 
















.162C-l**3 MONITOR I VERSION 2 SPS II-C PHASE B 
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15990 




TR 


INPLT+19, INPUT*21, , GC ANO GET 


1C388 


31 


02812 


0281* 


16000 




BTM 


SCAN, •♦12,, NUMERIC EQUIVALENT OF NEXT CPERANO 


10*00 


17 


060*6 


J0*12 


16010 




TF 


ZEP0M1,ADDRS, , INTO MACRO EXPANSION 


10*12 


26 


0231 1 


03520 


16020 




CF 


ZEPOT 


IC*2* 


33 


02307 


OCOOO 


1602 3 




BNF 


•♦2*,RLUCSW 


10*36 


** 


10*60 


07950 


16025 




SF 


ZEPOM 


10**8 


32 


02301 


ooooo 


16030 




TF 


AODRS , TFMP 


10*60 


26 


03520 


02718 


160*0 




HTM 


GEET, LINP 


10*72 


1 7 


09210 


J*772 


1 6050 


• MACRO EXPANSION FOLLOWS 










16060 


RSIN 


TR 


0,0 


10*8* 


31 


00000 


OOOOO 


1 6070 




TDM 


100,0 


10*96 


15 


CO 100 


OCOOO 


1 6080 




cc 


1, • 


105C8 




1 




1 6090 


SAVEF 


TO 


•♦23,AOOCOM,, ADJUST 


10510 


25 


10533 


02678 


1 6100 




TO 


•♦23»AJUST , , LOCATION 


10522 


25 


105*5 


02399 


161 10 




AM 


ADDCOW,,10, COUNTER 


105 34 


11 


02678 


000-0 


161 20 




TF 


TEMP.AOOCOW 


105*6 


26 


02718 


02678 


16130 




TF 


FR S TAO .ADUCOW 


10558 


26 


03899 


02678 






AM 


ADDCOW,35,, UPDATE COUNTER BY MACRO EXPANSION 


10570 


i l 


02678 


-0035 


161 50 




TF 


L S TAD ,ADOCQW 


10582 


26 


03909 


02676 


161 60 




TR 


ZEPC, SAVIN,, MOVE MACRO EXPANSION INTO WORK BUFFER 


1059* 


31 


02300 


1077* 


16170 




DTM 


SCAN, •♦12,, F.I NO NUMERIC EUUIV OF 1ST OPERAND 


10606 


17 


06046 


J0618 


16180 




CF 


AOORS-*, , , MOVE 1ST 


10618 


33 


03516 


OCOOO 


16190 




TR 


ZEP0M*,ADDRS-*,, OPERA NO INTC MACRO EXPANSION 


10630 


31 


02314 


03516 


16193 




BNF 


•♦2*,RL0CSW 


106*2 


** 


10666 


07950 


16195 




SF 


ZEP0M2 


1065* 


32 


02312 


OOOOO 


16200 




TR 


INPLTM9,lNPUT*2l GO ♦ GET 


10666 


31 


02812 


0281* 


162 10 




BTM 


SCAN, •♦12,, NUMERIC EQUIVALENT OF NEXT CPERANO 


10678 


17 


06046 


J0690 






BNF 


•♦2*,BSW 


10690 


44 


10714 


090*8 


1 62 30 




TFM 


AOORS, 80 


10702 


16 


03520 


-C080 


162*0 




TF 


ZEPO+23, AOORS, , OPERAND INTO MACRO EXPANSION 


1071* 


26 


02323 


03520 


16250 




CF 


ZEP0M9 


10726 


33 


02319 


OOOOO 


16260 




TOM 


ZEPO+ll.O,. MOVE RECORD MARK IN EXPANSICN 


10738 


15 


02311 


OOOOO 


16270 




CC 


I,*** ■ ■ ■ 


107*9 




1 




16280 




TOM 


ouMpmi. i, ii 


10750 


15 


03547 


OOOOJ 


16290 




B 


RSIN-2* 


10762 


49 


10*60 


OOOOO 




• MACRO EXPANSION FOLLOWS 










16310 


SAVIN 


TOM 


1CC.0 


1077* 


15 


C0100 


cccoo 


16320 




TR 




10786 


31 


COOOO 


OOOOO 


16330 




TOM 


100 . 


10798 


15 


00 100 


OOOOO 


1 63*0 




DC 


l,» 


10810 




1 




16350 


• SUBROUTINE TO PROCESS CONTROL CHARACTER PMA 










16360 


AM At 


CM 


INPUT*2*,4,10, 1ST CHECK IF RT. PAREN. IS PRESENT 


10812 


14 


02817 


000-4 


16370 




BN6 


ANAL* , t , NO LEFT PAREN. * ERROR 


1082* 


47 


11072 


01200 


16380 




TF 


ANALl*llrINPUT*22,, MOVE CHAR TO ANOTHER LOCATION 


10836 


26 


10899 


02819 


16990 




TR 


INPLT+ 19, INPUT+23 , , POSITION INPUT RECORD 


108*8 


31 


02812 


02816 


16*00 




TFM 


•♦23.CCMAR,, BEGIN CHECKING CONTROL CHAR. 1ST INITITIALIZE 


10860 


16 


10863 


J 1 19)4 


16*10 




C 


ANAL !♦ 11,,, AOORESSES. CHECK CHARACTERS 


10672 


24 


10695 


OOOOO 


16420 


ANAL 1 


BE 


ANAL2,,10, CHARACTER FOUND 


1088* 


44 


10444 


012-0 


16*30 




CM 


ANALl-l.CCHAR-24,, SEE IF SEARCH IS FINISHEO 


10896 


14 


10863 


J1170 


16**0 




BE 


ANAL*,,, YES, NC CONTROL CHARACTER FOUNO 


10401 


46 


11072 


01200 


16*90 




SM 


ANAL1-1 ,3.10, NOT FINISHfO, MODIFY AOORESS 


10420 


12 


10863 


000-3 


16460 




8 


ANAL 1-12.,. BRANCH BACK TO CONTINUE SEARCH 


10932 


*9 


10672 


OCOOO 


1**70 


ANAL 2 


TF 


ANL 1CM1.ANAL1-1,, PREPARE TO MOVE CONTROL CHARACTER 


109*4 


26 


11003 


108B9 



t ft? 
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16*80 




AM 


DIGITS 


, It 10, 


SET ADDRESS TO MOVE 




10956 


11 


09072 


000- 1 


16490 




TF 


• ♦ 30,DtGI TS, 


, DIG! F 1 NTC OLTPLT BUFFER 




10968 


26 


10998 


09072 


165CQ 




SM 


•♦23,2 


,10, PREPARE TO SET CONTROL CHARACTER IN CUT PUT 


BUFFER 


10980 


12 


11003 


000-2 


16510 


ANL 1C 


ro 






1 NSERT CONTROL DIGIT 




10992 


25 


ooooo 


OOOOO 


16520 


ANL IB 


CM 


ANAL IU It 54, 


10, SEE IF ITS A MODE CHANGE 




1 10C4 


14 


10695 


O0ON4 


16530 




QE 


ANAL3 








11016 


46 


11048 


01200 


16540 


ANL 1 A 


UD 


DMSNUM 


, NMOAL 


,, SCANNING F OR NUM MOOE 




1 1028 


43 


1 1680 


09061 


16550 




87 


0MS81, 


, , SCANNING FOR ALPHA MOOE 




1 1040 


49 


1 14 36 




16560 


AN At 3 


00 


OMf S2,l 


MMOAL t 


t CHANGE FROM ALPHA TC NUMERIC 




11048 


43 


11912 


09061 


16570 







DMSNMl 


t t t CHANGE FROM NUMERIC TC ALPHA 




11060 


49 


1 1668 


OOOOO 


16580 


ANAL 4 


BD 


ANAL 4 1 


, NMOAL 


, , CHECK TO SEE IF ALPHA OR NUMERIC 




11072 


43 


1 1 108 


09061 


16590 




T F 


•♦18,0IGI TS. 


.PREPARE TO CLEAR LCCATICN PREVIOUSLY SET 


WITH 7 


1 1084 


26 


1 1 102 


09072 


16600 




TOM 


, , , CLEAR LOCATION 




1 1096 


IV 


OOOOO 


OOOOO 


16610 


ANAL41 


AM 


DIGITS 


,1,10, 


SET IN NEXT LOCATION 




11108 


11 


09072 


000- I 


16620 




TF 


• ♦ 18*0 IGI TS 






11120 


26 


1 1 1 38 


09072 








• tt 








11132 


15 


COOOO 


OOOOO 


16640 




DSC 


I »■• 








11141 




I 




16650 




CF 


ANAL , , 


, RESET STRAY PAREN SWI TCH 




11144 


33 


10812 


OOOOO 
















11156 




1 1028 


COOOO 


16670 




DSC , 
1 


I , 1 








11 168 








1 6680 




DC 


2,5 7 








11170 




2 


























16690 




nsc 

3 


t. 3 








11171 




I 




16700 




DC 


2,4 3 








11173 




2 








M3 


















16710 




DSC 

4 


1 t 4 








1 I 1 74 




1 




16 720 




DC 


2,42 








11176 












M2 


















16730 




DSC 
5 


1 , 5 








11177 




1 




16740 




DC 


2,4 1 








I I 179 




2 




16750 




Ml 

DSC 
8 


1,6 








11180 




1 




16 760 




DC 


2,5S 








11182 




■ 


























16770 




DSC 
7 


1 , 7 








11183 




I 




16780 




cc 


2,62 








11165 




2 




16790 




02 

rsc 

6 


1,6 








11186 




i 




16800 




DC 


2,6 3 








11188 




2 








03 


















16810 




DSC 
2 


1,2 








11189 




i 




16820 




DC 
N4 


2,54 








11191 




2 




16830 




DSC 
4 


1.9 








11192 




1 




16840 


CCHAR 


CC 


2,4 6 








11194 




2 
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16860 


DMESF 


BTM 


SCAN, •♦12, .EVALUATE ADDRESS OPERAND TO FIND NUM. VALUE 


11196 


17 


06046 


J 1208 


16870 




TDM 


DMFSW, 1,11, SET SWIYCH TO REPLACE -WITH 


112C8 


15 


03887 


OOOOJ 


16880 




TDM 


SMQDE, .. RESET STARTING MODE Shi TCH 


11220 


15 


09062 


OOOOO 


16890 




TR 


OLT.CLERER,, CLEAR 


112 32 


31 


02218 


02719 


16900 




TR 


0UT*50,CLERER*l , , OUTPUT BUFFER 


11244 


31 


02268 


02720 


16910 




TFM 


DIGITS, OUT* I, , INITIALIZE 


11256 


16 


09072 


-2219 


16920 




BNR 


• ♦24, INPUT»20, , CHECK TC SEE OF BREAKER A RM 


I 126fl 


45 


U292 


02813 


16930 




B 


DMSER1 


11280 


49 


12496 


OOOOO 


16940 




TFM 


M0UE1+6,0MESD, ,FINO STARTING MODE 


11292 


16 


12670 


J 1620 


16950 




BTM 


MODE, •♦ 1 2 


113C4 


1? 


12616 


J1316 


16960 




BNF 


OMESA, BSW, .ALPHA CHAR. IN FIELD, ASSUME ALPHA MOCE • CHECK 


11316 


44 


11400 


09048 


16970 




TDM 


KLRLSW, 1, U 


11328 


15 


0403 3 


OOOOJ 


16980 




TO 


• ♦ 2 3 • ADDCOW , , TO SEE IF ADDRESS CP PRGRAMMER OR PROCESSOR 


11340 


25 


11363 


02678 


16990 




TD 


• ♦23, JSTBL, .ASSIGNED PROCESSOR IF NO BRANCH FROM PREV INST. 


11352 


25 


11375 


02459 


t 7000 




AM 


ADDCOW, , 10, ADJUST LOCATION COUNTER 


1 1364 


11 


02678 


000-0 


17010 




TF 


AODRS , ADDCOW t , SET ADDRESS OF MESSAGE TO 2ND DIGIT 


11376 


26 


03520 


02678 


1 7020 




SM 


ADDCOW, 2, 10, SET LOC COUNTER TO LOC BcFORE MESSAGE 


11388 


12 


02678 


000-2 


17030 


OMESA 


TFM 


MODE 1 +6 , DME SB » . SEARCH FOR COMMA 


U4C0 


16 


12670 


J1424 


1 7040 




BTM 


MODE. MODE,, ENDING FIELD 


11412 


17 


12616 


J2616 


17050 


OMESB 


TDM 


NMOAL,,, SET SWITCH FOR ALPHA FIELD. 


11424 


15 


0906 I 


OOOOO 


17060 


0MSB1 


BTM 


D TR ,DME SC , , SCAN MESSAGE OPERAND 


11436 


17 


12730 


J154J 


17070 




AM 


DIGITS, 1,10, 


1 1448 


11 


09072 


000- 1 


17080 




TF 


•♦18, DIGITS, , PREPARE TC MOVE IN 


11460 


26 


11478 


09072 


17090 




TR 


, DM SB 2- 2 


11472 


31 


OOOOO 


11517 


17100 




AM 


DIGITS, 2, 10, LEFT PARE N UPDATE DIGIT COUNT BY TWO 


11484 


11 


09072 


000-2 


17110 




TF 


• ♦18, DIGITS, . ALLOW FOR CONTROL CHAR IN OUT PUT BUFFER 


11496 


26 


11514 


09072 


17120 




TDM 


,,, INSERT EVERYTHING EXCEPT FINAL CCNTRCL DIGIT 


115C8 


IS 


OOOOO 


ooooo 


17130 




DSC 


2, • ,»-2 


11517 




2 




17140 


0MSB2 


0« 

DSC 
7 


1,7, • 


11519 




1 




17150 




BNF 


ANAL, ANAL,, STRAY PAREK NOT FOUND IF BP ANCH 


11520 


44 


10812 


10812 


17160 




B 


ANAL 4 , , , STRAY PAREN 


115 32 


49 


11072 


00000 


17170 




00 RG 


#-3 


1154C 








17180 


DM ESC 


AM 


DIGITS, 2,10 , UPDATE DIGIT COUNT BY 2 


11540 


11 


09072 


000-2 


17190 




TF 


•♦18, DIGITS,, ALLOW FOR CHARACTER IN OUTPUT BUFFER 


11552 


26 


11570 


09072 


1 7200 




TF 


. INPUt>20t. MOVE CHARACTER FROM INPUT TO OUTPUT BUFF 


11564 


26 


OOOOO 


02813 


17210 




SM 


•-6,1,10, SET UP ADDRESSES TO CLEAR FLAG 


11576 


12 


11570 


000- 1 


17220 




TF 


• ♦ 18, 18, , ♦ CLEAR 


11588 


26 


11606 


11570 


17230 




CF 




11600 


33 


OOOOO 


OOOOO 


17240 




B 


0MSB1... CONTINUE SCAN 


11612 


49 


114 36 


OOOOO 


17250 




DORG 


• -3 ' 


1162C 








17260 


DMESD 


BNF 


0MES1.BSW,, IS IT A PROGRAMMER SPECIFIED ADDRESS 


11620 


44 


11656 


09048 


17270 




TF 


AODRS, ADDCOW, , NO, MOVE LOC. COUNTER INTO ADDRESS LOC. 


11632 


26 


03520 


02676 


17280 




AM 


AODRS. 1,10 


11644 


11 


03520 


000-1 


17290 


0MES1 


TOM 


SMODE.1.10, SET SWITCH FOR NUM STARTING MODE 


11656 


15 


09062 


000-1 


17300 


DMSNMl 


TDM 


NMOAL, 1,10, SET SWITCH FOR NUMERIC MOOE 


11666 


15 


09061 


000- 1 


17310 


DMSNUM 


BTM 


TR .DME S 1 1 ». SCAN MESSAGE OPERAND 


11680 


17 


12730 


J1746 


17320 




AM 


DIGITS. 1,10. LEFT PAREN FOUND, UPDATE DIGIT COUNT BY 2 


11692 


11 


09072 


000- 1 


17330 




TF 


•♦18.0IGITS..ALL0W FOR CONTROL CHAR. IN OUTPUT 8UFP6H 


11704 


26 


11722 


09072 


17340 




TDM 


,,, MOVE TO BUFFER 


11716 


15 


OOOOO 


oeooo 


17350 




DSC 


I. ' ,• 


11727 




I 




17360 




BNF 


ANAL. ANAL,. STRAY PAREN NOT FOUNO IF BRANCH 


11726 


44 


10.812 


10812 


17370 




B 


ANAL4,,, STRAY PAP EN 


11740 


49 


11072 


OOOOO 



16 4 
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I 7)80 




DOUG 


1 


11748 








1 7 190 


OMfcSll 


CM 


INPIWO, 79,10, CHECK TC SEE IF CHAR IS NUMERIC 


1 1748 


14 


02813 


00OP9 


17400 




BH 


0MSER2,,, NOT NUMERIC, ERROR 


11760 


46 


11900 


01100 


17410 




CM 


|NPUT«20,69,10 


11772 


14 


02813 


00009 


17420 




BH 


0MS12, ,, NUMERIC IF BRANCH 


11784 


46 


11856 


01100 


174)0 




CM 


INPUT*20,5C, 10, , CHECK IF -OTHRU-9 


11796 


14 


02813 


OOONO 


17440 




BL 


0MSER2t,» NON-NUMERIC IF BRANCH 


11808 


47 


11900 


01300 


174)0 




CM 


INPUT«20,59,10 


11820 


14 


02813 


000N9 


1 7460 




BH 


UMSER2 * * , NOT NUMERIC IF BRANCH 


11832 


46 


11900 


01100 


17470 




SF 


INPUT*20 


11844 


32 


02813 


00000 


17480 


0MS12 


AM 


DIGITS, I, 10, UPDATE DIGIT COUNT BY ONE 


11856 


11 


09072 


000-1 


17490 




TF 


•♦16.DIGI TS,» ALLCW FOR DIGIT 


11868 


26 


11886 


09072 


17S00 




TD 


, INPUWO,, MOVE DIGIT TO OUT PUT BUFFER 


11880 


25 


00000 


02813 


1 7)10 




B 


DMSNUM,,, BRANCH BACK TO CONTINUE SCAN 


1 1892 


49 


1 1680 


OCOOO 


17520 




DORC 


#- 3 


1 19C0 








1 7)30 


DMSER? 


BTM 


0MSR2, DMSNUM, , PL T END OF MESSAGE I N CUTPUT BUFFER 


1 1900 


17 


12514 


J1680 


1 7540 


ONE 52 


TF 


35.0IGI TS, , NUMERIC TO ALFA MOOE CHANGE, 


11912 


26 


1 1947 


09072 


1 7550 




SM 


• ♦23, OUT* I , , SEE IF ALPHA STARTS IN EVEN LOCATICN 


1 1924 


12 


11947 


-2219 


17560 




TFM 


DMSV,,, INIT. SAVE LOC WITH DIGIT CCUNT 


1 1936 


16 


09067 


-0000 


17570 




BNF 


DMES21,BSW,, SEE IF THERE IS A PROGRAMMER SPEC ADORESS 


1 1948 


44 


11980 


09048 


17580 




A 


DMSV,AODCOW, , NO* ADD LOC COUNTER FOR LOC OF LAST DIGIT 


1 I96C 


21 


09067 


02678 


1 7590 




B7 


DMES22 


11972 


49 


12028 




17600 


C*€S21 


A 


DMSV,ADDRS, ,AOD PRCG ADDRESS FCR LOC CF LAST CIGIT 


1 1980 


21 


09067 


03520 


17610 




SM 


0MSV,1,10, ADJUST FOR NUMERIC STARTING MODE 


1 1992 


12 


09067 


000-1 


17620 




BO 


•♦2*,SM0DE , , CHECK STARTING MODE 


120C4 


43 


12028 


09062 


17630 




SM 


DMSV, 1,10, ADJUST FOR ALPHA STARTING MOCE 


12016 


12 


09067 


000- I 


17640 


DMES22 


TD 


• ♦2 3, DMSV, , SEE IF CHAR WILL START IN EVEN LOC 


12028 


25 


12051 


09067 


17650 




TU 


EVOOD+l.EVOOD 


12040 


25 


02470 


02469 


17660 




BO 


DMESB.E VOnu* 1 , , WILL START IN EVEN LOCATION 


12052 


43 


11*2* 


02470 


1 7670 




AM 


DIGITS, 1.1C, INSERT 


12064 


1 1 


09072 


OOO- 1 


17680 




TF 


•♦ 18»DIGI TS, »- 


12076 


26 


12094 


09072 


17690 




TOM 


,. 11 


12088 


15 


00000 


0000- 


17700 




B 


DMk'SO 


12 ICC 


49 


1 142* 


00000 


17710 




DURG 


• ♦ 1 


12112 








17720 




nc 


2,-C,«-3 


12108 




2 




17730 




DC 


3 , 2 * »• 


12111 




3 




I 7740 


ONfR IN 


-2 • 
TDM 


OLT*100*, PLT IN NUMERIC 


12112 


15 


C231B 


OCOOO 


17750 




DC 


1 , ' , • 


12121 








17760 




TDM 


ULT*101« , , END OF HE SS AGE 


12124 


15 


02319 


COOOO 


1 7770 




CC 
t 


1 , ' , * 


12135 




1 




17780 




B 


DMER1C 


12136 


49 


12196 


00000 


1 7790 


ONER 1 A 


TFM 


0LT«101,,8, CLEAR LAST FOUR DIGITS FCK END OF MESSAGE 


12148 


16 


02319 


0-000 


I 7800 




CF 


OL T «98 


12 160 


)3 


C2316 


ooooc 


17810 




TDM 


CUT«99, , ,MUVE R M F LR 


121 72 


15 


02317 


OCOOO 


11620 




CC 




12183 








17810 




TOM 


OLTUOl 


12184 


15 


02319 


ooooo 


17840 




DC 


1» • ,• 


1219b 




1 




17850 


D*H» IC 


TFM 


DIGITS, 100,, SET DIGIT COUNTER TC 100 


12196 


16 


C9C72 


-0100 


1 7860 




H 


• 4<4t> 


122C8 


49 


12304 


ooooo 


17870 


DMSCNC 


CM 


U 1 1 . 1 T S , U T ♦ 1 , , CHECK IF OPERANC PRESENT 


12220 


14 


09072 


-2219 








1 »» 
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ONE 


•♦6C,,» ERROR IF NO MESSAGE OPERAND PRESENT 


12232 


67 


12292 


01200 


1 7890 




80 


DMSER I ,SMQUE , , CHECK MODE 


12244 


43 


12*96 


09062 


1 7900 




TFM 


OUT+5,,, MOVE IN ALPHA END OF MESSAGE 


12256 


16 


02223 


-C0Q0 


17910 




DC 


2 » • »«-2 


12265 




2 




1 7920 




DSC 


2 , • »•- I 


12266 




2 




1 7930 




• 

C F 


OL T ♦ ? 


12268 


3 3 


02220 


CCC00 


1 7940 




TFM 


DIGITS, OUT* 101 


1228C 


16 


09072 


-2 319 


1 7950 




SM 


D IG I TS ,OUT* 1 , , SUBTRACT STARTING LOCATION OF Q/P BUFFER 


12292 


1 2 


09072 


-2219 


1 7960 




TF 


LSTAD , DI G I T S , , MOVE DIGIT COUNT FOR OUTPUT 


123C4 


26 


03909 


09072 


1 7970 




AM 


LSTAD ,1,10, ADO 1 FOR RT LOC ♦ ! 


12316 


1 1 


03909 


GCQ- 1 


1 7960 




ilNF 


DM£NDl,BSW,i CHECK FOR PROGRAMMER SPECIFIED ADDRESS 


12 328 


44 


12376 


090*8 


1 7990 




A 


LSTAD , ADOCOW , ,FGRM RT LOC+1 


123*0 


21 


03909 


02676 


180C0 




A 


ADOCOW»OIGI TS, , UPDATE LOC COUNTER TO LAST DIGIT OF CONSTANT 


12352 


2 1 


02678 


09072 


18010 




n 


0MEND2 


12 364 


49 


12*24 


COOOO 


18020 


DMENO 1 


A 


LSTAD ,ADDRS,» INITIALIZE LEFT MOST WITH PRCG SPEC ACCRESS 


12376 


2 1 


03909 


03520 


18030 




SM 


LSTAO ,1,10, ADJUST FOR NUMERIC STARTING MODE 


1 2 388 


1 2 


03909 


000- 1 


18040 




BO 


•♦2*»SH0DE»» CHECK IF STARTING MOOE ALPHA 


12400 


43 


12*24 


09062 


18050 




SM 


LSTAD ,1,10, UES, ADJUST FUR ALPHA STARTING MODE 


124 12 


12 


03909 


OCO- 1 


18060 


DMEND2 


TF 


FRSTAD , LSTAD FORM LEFT MOST 


1 2424 


26 


03899 


03909 


18070 




s 


FRSTAD ,DIGITS,, ADORESS 


12436 


22 


03899 


09072 


1 8080 




Tf 


LN TH ,0 1 GI TS , , INITIALIZE LENGTH LOC 


12448 


26 


02387 


09072 


18090 




NUP 


MFS0UT*6, 1NPUT2*5 


12460 


41 


09786 


03292 


18100 




NOP 


MES0UT*U,0UT*2 


12472 


41 


09791 


02220 


18110 




ft TM 


GEE T.PCONF 


12484 


1 1 


09210 


J4760 


18120 


DMSER 1 


BTM 


DMSR2*0MSEND*60* , , , PUT END OF MESSAGE IN CUTPUT BUFFER 


12496 


17 


1251* 


J2280 


18130 




DS 


5 


12512 




5 




18140 


0MSR2 


AM 


DIGITS, I, 10 


12514 


11 


09072 


000-1 


18150 




TF 


•♦18, DIGITS 


12526 


26 


12544 


09072 


18160 




TDM 


,*, INSERT 


12538 


is 


00000 


COOOO 


181 70 




DC 


I » ' »• 


12549 




1 




18180 




AM 


DIGITS, I, 10 


12550 


11 


09072 


000-1 


18190 




TF 


•♦18, DIGITS 


12562 


26 


12560 


09072 


1 8200 




TDM 


, , , INSERT 


12574 


15 


00000 


OOOOO 


18210 




DC 
• 


It 1 .* 


12585 




I 




18220 




TF 


• ♦18.0MSR2-1 


12586 


26 


12604 


12513 


11230 




8 




12598 


49 


00000 


OCOOO 


18240 




OC 


3»-O f •• 


126C9 




3 




182S0 




OC 


5,0 


12614 




5 








-ooco 










H260 


MODE 


TR 


INPLU19,INPUU21 , , MOVE INPLT RECCRC LEFT I CHAR 


12616 


31 


02612 


02814 


U270 




RNR 


•♦24.INPUT*20»,*NQT BLANK, CHECK FOR RN 


12626 


49 


12692 


02813 


112 SO 




B 


DMSEN0O6 


12660 


69 


12256 


OOOOO 


16290 




CM 


INPLU20.23.10, SEARCH FIELD* CHECK FOR COMMA 


12652 


16 


02813 


0OOK3 


11300 


HOC El 


OE 


, ,, COMMA FOUNO, BRANCH 


12666 


46 


00000 


01200 


16310 




CM 


INPLU20, ,10, COMMA NOT FOUNO, CHECK FOR BLANK 


12676 


16 


02613 


000-0 


16320 




6E 


MOOE*., BLANK* CHECK NEXT CHARACTER 


12666 


66 


12616 


01200 


16330 




TF 


•♦18.M0DE-1 , , , ALPHA CHAR IN FIELD* RETURN* OR CHECK 


12700 


26 


12716 


12615 


16360 




B 


, ,, NEXT CHAR* ACCORDING TO BRANCH 


12712 


69 


00000 


OOOOO 


16390 


• SUBROUTINE TO SHIFT ONE CHARACTER TO THE LEFT IN INPUT 6UFFER 










16360 




DS 


5 


12726 




5 




16370 


OTR 


TR 


INPLT*l9,INPUT^2l , , MOVE OPERAND LEFT I CHAR ♦ SEARCH 


12730 


31 


02812 


02614 



166 
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PACE 



18380 




TF 


-OMSV.DIGI TS, , CHECH 


NUMBER OF 


DIGITS 








k 2/42 


26 


09067 


09072 


18390 




SM 


DMSV,OUT* 1 














1754 


12 


09067 


-2219 


184C0 




CM 


0«SV, 100,9, CHECH OIGIT COUNT 












W766 


14 


09067 


OOJOO 


18410 




BNH 


•♦36,,, LESS THAN ICO, OKAY, 


ERROR 


IF 


NC 


BRANCH 




12778 


47 


12814 


01100 


18420 




BO 


OME R IN , NMOAL , , TEST 


SWITCH FOR NUM 


OR 


ALPHA, NUM 


IF BR 


.2790 


43 


12112 


09061 


18430 




B 


DMER1A,,, ALPHA IF BRANCH FRM 


HERE 










12802 


49 


12148 


OCOOO 


18440 




BNR 


•♦20,INPUT*20. , FOR 


RM 












12814 


45 


12834 


02813 


18450 




B7 


OMSENO 














12826 


49 


12220 




18460 




CM 


INPUT»20,4, 10, CHECK 


FOR STRAY RT PAREN 






12894 


14 


02813 


OCO-4 


18470 




BNE 


•♦44, , , NOT A STRAY 


PAREN IF 


BRANCH 








12846 


47 


12890 


01200 


18480 




SF 


ANAL,,, SET SWITCH FOR STRAY 


PAREK 


FCUNC 






12858 


32 


10812 


00000 


18490 




BC 


OMSNUM* 12 , NMOAL , , SC ANN ( NG IN 


NUMERIC MOCE IF BRANCH 


12870 


43 


1 1692 


09061 


18500 




B7 


DMSBU12,,, SCANNING 


IN ALPHA 


MOOE 










12882 


49 


1 1448 




18510 




CM 


INPLT*20,24,10, CHK 


FOR LEFT 


PAREN 










12890 


14 


02813 


O0OK4 


18 520 




BNE 


•■♦24,,, NOT A LEFT PAREN 












129C2 


47 


12926 


01200 


18530 




BB 


, LEFT 


PARI N FOUNO 










12914 


42 


00000 


00000 


18540 




TF 


• ♦ I 8.0TR- 1 , , NOT A 


1, ,0R ERROR 










12926 


26 


12944 


12729 


18550 




B 


,,, RETURN 












12938 


49 


00000 


OCOOO 


18560 


• 


























18570 


t 


E VALLATE LENGTH OF OAC 






















18580 


t 


























18590 


CACF 


DTM 


SCAN, •♦ 12 














12950 


17 


06046 


J 2962 


18600 




CM 


AOORS ,51 














12962 


14 


03520 


^C051 


18610 




BNN 


EROAC 














12974 


46 


13738 


01300 


18620 




A 


AOORS , AOORS 














12986 


21 


03520 


03520 


18630 




T F 


TEMPR, AOORS 














12998 


26 


02571 


03520 


1 8640 




BNR 


• ♦ 20 » INPUT*20 














13010 


45 


13030 


0281 3 


18650 




8 7 


• ♦ 20 














1 3022 


49 


1304 2 




18660 




BNR 


OAC 2 , INPUT^22 














13030 


45 


13090 


0281 5 


18670 




CM 


AOORS,0 














13042 


14 


03520 


-cooo 


18680 




BK 


EROACl 














1 3054 


46 


138 30 


01 100 


18690 




















13066 


16 


02815 


-0000 


18700 




OAC 


t , • .• 














13077 




1 


X 2 


18710 




















13078 


16 


0281 3 


OOOK 3 


18720 


C AC 2 


TFM 


•♦35, INPUT* 19 














13090 


16 


13125 


-2812 


18730 




A 


•♦23. TEMPR 














13102 


2 1 


13125 


02571 


18740 


CHVALD 


TR 


0UT*2 














13114 


31 


02220 


OCOOO 


18750 




BNR 


•♦2C,OUT*3 














13126 


45 


13146 


022 21 


18760 




B7 


ERDACM2 














13138 


49 


13750 




1 8770 




BNR 


• ♦PO.OUT* 1 * 














13146 


45 


1 3166 


02223 


18780 




ft7 


• ♦ 3? 














1 3158 


49 


1319C 




18790 




CM 


OLT*5,23,lO 














13166 


14 


02223 


C0CK3 


18800 


S T CHAR 


BNE 


ERDACM2 














13178 


47 


13750 


01200 


18810 




TO 


STCHAR* I 1, OUT* 5 














13190 


25 


1 3189 


02223 


18820 




AM 


CHVALD* 11,3 














132C2 


11 


13125 


-000 3 
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AM 
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0281* 


21070 


BTM 


LSTCAR,»*12, , 


PICK UP 3RC OPERANO 


135*0 


17 


1*850 


J3552 


21080 


TF 


M20IG.LCHAR 




13552 


26 


1275* 


1*983 


21090 


TR 


INPLT*19,1NPUT*21 




1356* 


31 


02812 


0281* 


21100 


#• TEST FOR 


ABSOLUTE SECTOR ADDRESS 










211 10 


BTM 


LSTCAR,»*12, , 


PICK UP *TH OPERAND 


135 76 


17 


1*850 


J3588 


21120 


C 


• *2 3,LCMAR 




13588 


2* 


13611 


1*983 


21130 


ONI 


•*2*, 012*1 , 10. 


TEST FOR A ABSOLUTE 


13600 


*7 


1362* 


012M1 


211*0 


TDM 


MBIK3,2,11 




13612 


15 


127*1 


OCCOK 


21 150 


C 


•♦23.M2DIG 




1362* 


2* 


136*7 


1275* 


21160 


HI 


EN, 01259, 10 




13636 


*6 


1 3660 


012N9 


21170 


CF 


MB LK 3 




136*8 


33 


127*1 


00000 


21180 


EN TR 


OCT *2 ,MBUK3, , 


FIRST OPERAND TO LIST 


13660 


31 


02220 


127*1 


21190 


TF 


L S T AD , AODBK T 




136 72 


26 


03909 


12750 


21200 


AM 


AODBKT,02,10 




1368* 


11 


12750 


000-2 


21210 


TFM 


LNTH.02 




13696 


16 


02387 


-0002 


21220 


BTM 


LINKC,»*12 




13708 


17 


12*88 


J3720 


21230 


TR 


0UT*2,MBUKl-*, , 


SECNC OPERAND TO LIST 


13720 


31 


02220 


12729 


212*0 


TFM 


LNTH.05 




13732 


16 


02387 


-0005 


21250 


TO 


DSABOX, MDI GI T 




137** 


25 


090*9 


127** 


21260 


TOM 


INTBUF ,1 




13756 


15 


03628 


0000 1 


21270 


BTM 


L I NKOR , •♦ 1 2 




13768 


17 


12602 


J3780 


21280 


BO 


NOT3,OP3SH 




13780 


43 


13840 


127*5 


21290 


TR 


OUT*2,MBUK2-*» , 


THIRD OPERAND TO LIST 


13792 


31 


02220 


12735 


21300 


TOM 


INTBUF, 1 




13804 


15 


03628 


00001 


21310 


TO 


DSABOX, RLOCSW 




13816 


25 


090*9 


07950 


21320 


BTM 


LINKPR,«*12 




13828 


17 


12602 


J38*0 


21330 


NOT* TR 


0UT*2,MRM,, 


RECORO MARK 


138*0 


31 


02220 


127*3 


213*0 


TFM 


L NTH, 01 




1385? 


16 


02387 


-0001 



1620-1**3 MONITOR I VERSIGN 2 SPS 1I-C PHASE B 
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21350 TOM DUMP1U1, l.ll 

211*0 A A0DCOW,SVADD 

21370 BTM LlMCR,»*12 

a)HU BTM UfcET.PHASFB 

2l|90 ENC Of DISK OfflNfRS 

21*00 GENERATE CALL LINK AND ICAD 

21*10 RM CC I, • 



21*20 
21*30 
21**0 

21*50 
21*60 
21*70 
21*80 
2 I 490 
21500 
21510 
21520 
21530 
2 1 5*0 
21550 
21560 
21570 
21580 
21590 
21600 
21610 
21620 
2163Q 
216*0 
21650 
21660 
21670 
21660 
21640 
217CO 
21710 

2172G 



FlUATA OSS *0O,RM-*00 
•••• ERROR 2N0 OPERAND CALL 

OC 5,123*5 

J2 345 

ER TFM EVAtER-2, 71780 

EPR INT #6PR | NT- 1 
C0RER5,ERSTSw 
•♦36.LSTVS* 



BT 
HO 
BNF 
RCTV 
T8TV 



CAC 



00 RG 
TO 
TO 



ER- I, 
• -* 



• ♦?3,A0OC0w. , 
•♦23.AJUST 
AM ACDCrito,,10 
TF MlGCSMl.AUDCOW,, 
AH MIUCSM I, 14,10, 
TfM MlOCS*lB,!OCAL , , 
BIN LSTCAR,»*12 
TFM MBLK3*l»32,10, 
C •»?3,LCHAR 
HI •♦2*,01?**,10, 
Sf M8LK 3» I » » , 
TR INPLTM9,INPUT»21 , , 
BTM PCALL,«»12 
BNF fOLNO» 12,ALPHSM, t 
• t R E AO THE DIM ENTRY fOR E QLi I V TABLE 
TfM IURT,»*23 

lOGT.OEfOI M, 7 
CONTU 
2,22 



ADJUST ACOCOW 



RETURN ACORESS 
AOJUST ACCRESS 
SET LP BR TC ICR 

CODE FOR READ NO *LR 

TtST FOR D IN LOAD 

EXECLTE 

SLIDE COMMA 

NO ALPHA INPUT 



B 

87 

C6FCIM DSC 
22 
CSA 



DFA0D6 



21730 DFACD6 C DA , , I MD AO , U I MSC T , F LOA T A 

0-*B00-CU35l2 
217*0 DC 1,' 

21750 CONTU TF Of ADD** 5 , F LOA T A* *5 , , 
21760 TO Of ADD*,f LUATA**0, , 

21770 READ ThE EOLIV TABlh FOR LCUK UP 



EXTRACT EUUIV FILE ADDR 
EXTRACT EOUIV FILE MODUL E 



2 1 780 


RCEOI V 


TFM 


IOR T , • ♦ 2 3 




21 790 




U 


I U<> T , DEFE Q , 7 




21600 




B7 


GCCN 




21610 


DEFt'O 


DSC 


2,22 








22 






2 1820 




CSA 


UFACD* 










162C- 1**3 MONI TOR I 


VERSION 2 SPS II-C PHASE 


21B3C 




uc 


I, ' 




21B*0 


Cf ACO* 


rcA 


.0,EQCAD,EQSCT,FLDATA 






0-0C0C-C*J35l2 




21850 




DC 


1, • 




21860 


GOUN 


ONR 


• ♦<•*» F L DA TA* 1 1 , , 


TEST END OF TABLE 


21B70 




TFM 


IDENT-2, 00000, , 


2ER0 CLT EQUlV BUCKET 


218BU 




D TM 


ER**»12, » 


CPERANC NOT FOUND 


21890 




B 


FOLND* 12 




214C0 




CORG 






21910 




C 


FLOATA* 11 .COtL-2 




21920 




BE 


FOLND 




21930 




TR 


FLDATA.FLDATA* 16 




219*0 




BNR 


GOUN.FLOATA, , 


TEST ENO Of BLCCK 


21950 




AM 


DFA0D**5,0*,10, , 


NEXT BLOCK 


21960 




R7 


ROE Q I V 




21970 


FOUND 


TF 


IDENT-2, FL0ATAM5, , 


LOAD EQUIV NUM 


21980 




SF 


I DENT- 5 




21990 




TF 


MBLK1 , IOENT-2 




22000 




CF 


MBUKI-* 




22010 




TR 


INPLT* 19, INPU7+21 , , 


SLIDE COMMA 


22020 




B TM 


SCAN,»*12 




22030 




TF 


MBLK 2 , ADDR S • , 


SAVE 3RC OPERAND 


220*0 


«• START TO 


OUTPUT 




22050 




IF 


FRSTAO, ADDCOW 




22060 




TF 


ACCRS,A0DCOW 




22070 




TF 


LSTAD.ADDCQW 




22080 




AM 


LSTAO, 24*10, 


SET TO TOTAL LENGTH 


22090 




AM 


AOOCOW, 19, 10 




22100 




CF 


MI0CS*2 




22110 




CF 


MIOCS*!* 




22120 




CF 


MI0CSM9 




22130 




TR 


ZEPO.MIOCS 




221*0 




TFM 


X,»*2* 




22150 




BTM 


L INPRT.OOINST 




22160 


•• OUT PUT 


CONSTANTS 




22170 




TF 


L STAD, AOOCOW 




22190 




AM 


ADDC0W,07,10 




22190 




TFM 


LNTH,07 




22200 




TR 


OUT*2,MBUK3 




22210 




TR 


QUT*4,MBUK1-* 




22220 




BTM 


tlNKCR,*»12 




22210 




BO 


N03,BSW,, 


TEST 3RD OPERANO 


222*0 




TR 


0UT«2,MBUK2-4t, 


OUfPtT 1RD OPERANO 


22250 




TO 


DSADOX.RLOCSW 




222*0 




TOM 


INTBUF , 1 




22270 




AM 


AOOCOW, 05, 10 




22210 




TFM 


LNTH.05 




22290 




BTM 


LINK0R,«*12 




22100 


NO 3 


TR 


0LT42,MRM 




22110 




TOM 


OUMPUll, l.ll 




22120 




TFM 


L NTH, 01 




22110 




BTM 


L!NKCR.«+12 




221*0 




■ TM 


GEE T, PHASES 





17) 



1 386* 


15 


035*7 


OOOOJ 


13876 


21 


02676 


12752 


I 3688 


I 7 


12518 


J 3400 


139C0 


17 


09210 


-*200 


13912 




1 




13512 




*00 




13917 




5 




13916 


16 


0761* 


P1780 


1 3930 


27 


08022 


08021 


139*2 


43 


C7796 


02*76 


I 395* 


** 


11990 


02*80 


1 3966 


3* 


00000 


00102 


13978 


3* 


00000 


00108 


13990 


*9 


1391P 


OCOOO 


13997 








1 3998 


25 


1*021 


02678 


1*010 


25 


1*033 


02399 


1*022 


11 


02678 


COO-0 


1*03* 


26 


12715 


02678 


1*0*6 


11 


12715 


O00J9 


1*056 


16 


12722 


-0716 


1*070 


17 


1*850 


J*062 




1 6 






1*09* 


2* 


1*117 


1*981 


1*1C6 


*6 


1*130 


012M* 


1*118 


32 


127*2 


00000 


1*130 


31 


02812 


0281* 


1*1*2 


1 7 


1 *990 




1*15* 


** 


1**2* 


15 329 


1*166 


16 


00565 


J*189 


1*178 


*9 


00566 


J*197 


1*1 40 




1*220 




1*197 




2 




l*2C3 




5 


X 1 


1*2C 3 




J*20* 




1*2C* 




I* 




1*218 




1 






26 






1*232 


25 


1*28* 


13S52 


1*2** 


16 


00565 


J*267 


1*256 


*9 


00566 


J*275 


1*268 


*9 


1*300 




l*27S 




2 




l*2Bl 




5 


x 1 



17 '» 



1*281 




J428* 




l*?82 




1 




1*28* 




1* 




1*296 




1 




l*3CG 


45 


1*3** 


13523 


1*312 


16 


1533* 


-0000 


1*32* 


17 


13918 


J*336 


1*336 


49 


1**2* 


OCOOO 


1*343 








14344 


24 


13523 


02437 


14356 


46 


14*12 


01200 


14368 


11 


13512 


13528 


14380 


45 


14100 


13512 


14392 


11 


14289 


000-4 


14404 


49 


142*4 




14412 


26 


15334 


13527 


14424 


12 


15331 


00000 


14416 


26 


12733 


15334 


14444 


13 


12729 


00000 


14460 


11 


02812 


02614 


14472 


17 


06046 


J 4484 


14484 


26 


12739 


3520 


14496 


26 


01899 


02678 


14508 


26 


01520 


02678 


14520 


26 


01909 


02678 


14512 


11 


01909 


000K4 


14544 


11 


02678 


0C0J9 


14556 


11 


12706 


OCOOO 


1*568 


11 


12718 


00000 


14580 


11 


12721 


00000 


14592 


11 


02100 


12704 


14604 


16 


04018 


J4628 


14616 


17 


09268 


J0088 


14628 


26 


01909 


02*78 


14640 


11 


02*78 


000-7 


14652 


16 


02187 


-0007 


14664 


11 


02220 


12741 


1467* 


11 


02222 


12729 


14688 


17 


12518 


J* 700 


14700 


41 


14784 


09048 


14712 


11 


02220 


12719 


14724 


29 


09049 


07990 


14714 


If 


01628 


00001 


14748 


11 


02678 


000-9 


14760 


16 


02187 


-0009 


14772 


1? 


12602 


J4784 


14784 


11 


02220 


12741 


1479* 


IS 


01947 


OOOOJ 


14808 


1* 


02187 


-0001 


14820 


17 


12918 


J4832 


14812 


17 


09210 


-4200 



16 20- 1 **3 MONITOR ! VERSION 2 SPS 1 I - C PHASE B PACE 



2 2 ISO 




DC 


5, I 2 3*5 




1 4 8*8 




5 








J23*5 












2 2 160 


L STCAR 




I ( M A R , » 10» 


BLANK THE ONE CHAR BUCKET 


1*850 


16 


1498 3 


000-0 


2 2 3 7 




RNR 


• ♦ 2 t I N PU T ♦ 2 








14882 


02813 


22 380 




87 


NOCAR 




1487* 


49 


14962 




22190 




C 


•♦23, INPUT* 20, , 




1*882 


24 


14905 


0281 3 


22*00 




H 1 


• ♦*8,0l200i 10, 




1*89*. 


46 


14942 


012-0 


22*10 




C 


•♦23, 1NPUU20, , 


TEST COMMA 


1*906 


24 


14929 


0281 3 


22*20 




8 1 


NOCAR, 1223, 10, 




1*918 


46 


1*962 


12K3 






TF 


LCHAR , INPUT*20, , 


SAVE LAST CHARACTER 


1*930 


26 


1*98 3 


02813 


> ?44A 




TR 


INPUT* 19, INPUU21 




1*9*2 


31 


02812 


02814 


? ?4sn 




8 7 


L S TC AR ♦ I 2 




1*95* 


49 


1*862 








TF 


•♦ 18, L STCAR- 1 




1*962 


26 


14980 


14849 






8 


cccco 




1*97* 


49 


00000 


ocooo 


2 2*80 




DORG 


• -3 




1*982 








2 2*90 


L CHAR 


DC 
J2 


2,12,, 


LAST CHARACTER IN OPERAND 


1*983 




2 




2 2 5CQ 




DC 


5, 123*5 




1*988 




5 








J23*5 












2 2 5 10 


P C ALL 


TR 


COLL - 18,THINGS-2C 




1*990 


31 


02421 


02400 


2 2 520 




TR 


ALPhSn, ZEROS,, 


CLEAR BUCKET AND SWITCH CFF 


15002 


31 


15329 


15337 


22530 






•♦20,INPUT*20, 


RM 


1501* 


45 


15034 


0281 3 


225*0 




87 


■PC ALL I 




15026 


*9 


15254 




2 2550 




CM 


INPLWO.23,10, 


COMMA 


1503* 


1* 


02813 


000K3 


22560 










150*6 


*6 


1525* 


01200 


225 70 




CM 


INPLT*20, 00 ,10 




15058 


14 


02813 


000-0 


22580 




8E 


PC TR 




15070 


46 


1523* 


01200 


22590 




T F 


COLL , INPUT+20 




15082 


26 


02*39 


02813 


22600 




CF 


COLL-1 




1509* 


33 


02*38 


00000 


2261 




TR 


CCl L- 17,C0LL-15 




151C6 


31 


02*22 


02*2* 


22620 




TD 


IDfcNT-1 ,INPUT*20 




15118 


25 


15335 


02813 


22630 




TR 


IDENT-6, IDENT-5 




15 130 


31 


15330 


15331 


226*0 




CM 


INPL T*20, 69, 10, 


TEST FOR ALPHA 


151*2 


14 


02813 


00009 


22650 




HH 


• ♦2* 




1515* 


46 


15178 


01100 


22660 




TDM 


ALPHSW,l,ll, 


SET ALPHA SW ON 


15166 


15 


15329 


0000 J 


22670 




CM 


COLL-17,7,10 




15178 


1* 


02*22 


000-7 


22680 




BNE 


PC TR 




15190 


*7 


1523* 


01200 


22690 




TR 


ALPHSW, ZEROS 




152C2 


31 


15329 


15337 


22700 




BTM 


E R » • ♦ 1 2 




1521* 


17 


13918 


J5226 


22 7 1 




B7 


MICH 




15226 


*9 


15322 




22720 


PC TR 


TR 


INPLT ♦ 19, [NPUT + 21 




152 3* 


31 


02812 


0281* 


22 730 




B 


PCALl *2* 




152*6 


*9 


1501* 


CCCOO 


22 7*0 




DURG 


•-3 




1525* 








22150 


PC ALL 1 


CM 


CCLL-17,06, 10 




1525* 


1* 


02*22 


000-6 


22 760 




b-E 


• ♦** 




15266 


*6 


15310 


01200 


2 2 7 7 




TDM 


CCLL.O 




15278 


15 


02*39 


eoooo 


22 780 




IR 


COLL-17.COLL-15 




15290 


31 


02*22 


02*2* 


22790 




B7 


PCALL1 




15 302 


*9 


1525* 




2 2HOO 




SF 


COIL- 1 3 




15310 


32 


02*26 


ocooo 


2 2 M 1 


I I I C H 


B 


PC ALL -I,, 6 




15322 


*9 


1*98R 


00000 






PGR (i 


• - * 




15 329 








2 2 H lij 


ALPHSW 


oc 


1 , G 




15329 




1 




228*0 


ICENT 


DC 


V.CCCOCO 1 




1 5336 




7 








-00000' 












2 *; » 5 


1 ER OS 


DSC 


BtCCCOOOO 1 




15337 




8 








OCOCOOO' 


■17 5 
















U2C- 1** 3 MQNI TOR I 


VERSION 2 SPS Il-C PHASE B 










2 286 


• TO 


LOAD Pf-ASt R6 TO THE DISK FILE 










2 28 7 


f 6 


3* 


St'8 6, 70 1 




153*6 


3* 


1539* 


00 701 


2 2880 




38 


SLD6.702 




15358 


38 


15 39* 


CC702 


22690 




TR A 






15370 


36 


cccoo 


00500 












15382 


*9 


00000 


00000 


229C0 


SUB6 


CDA 


,0 ,B6DAI),B6SCT , INSTRN 




1539* 




1* 








0J9 151- 30J2**A 












2 29 10 




TCO 


F6 




153*6 








22920 




DORG 


MACR2 




12756 








22930 


psap 


( FM 


1RCSA+6 ,96 , 10 




12756 


16 


1293* 


000R6 


229*0 




TR 


DSAB0X,CLERER**3 




12768 


31 


090*9 


02762 


22950 




TFM 


Rl.USA*6,D'SAB0X-l 




12 780 


16 


12866 


-90*8 


2 2 960 




TFM 


CHSYMU l.DSABOX-l 




12792 


16 


09655 


-90*8 


2 29 70 




87 


•♦20 




1280* 


*9 


1282* 




22980 




TR 


INPLT*19 ( INPUT*21 




12812 


31 


02812 


0281* 


22990 


* 
















23000 


• 


COLLECT OPERANDS 












2 301 


• 
















23020 


GQEVAL 


BTM 


SCAN, 12 




1282* 


17 


060*6 


J2836 


2 30 30 




AM 


rRDSA*6,5, 10 




12836 


11 


1293* 


000-5 


2 30*0 




AM 


RL0SA*6, 1, 10 




128*8 


11 


12866 


000-1 


2 30 50 


RLCSA 


TD 


.RIOCSW 




1286C 


25 


00000 


07950 


23060 




CM 


TRDSA>6,51 ,10 




12872 


I* 


1293* 


000N1 


23070 




BL 


TRDSA 




1288* 


47 


12928 


01300 


23080 




TFM 


TR0SA*6,*6, 10 




12896 


16 


12934 


000M6 


23090 




TFM 


RLCSA*6,DSAB0X*9 




129C8 


16 


12866 


-9058 


2 3100 




B7 


TRDSA + 12 




12920 


49 


12940 




2 3110 


TRDSA 


TR 


ZEPC, ADDRS-* 




12928 


31 


02300 


03516 


2 3120 




BNR 


GOEVAL-12.INPUT*20 




129*0 


45 


12812 


02813 


23130 




BNF 


MAC 1, INTBUFU 




12952 


44 


13140 


03629 


2 31*0 




TFM 


LNTH.5 




12964 


16 


02387 


-0005 


23150 




AH 


A0DC0W,5,10 




12976 


11 


02678 


000-5 


23160 




TF 


ADDRS , ADDCOW 




12988 


26 


03520 


02678 


23170 




A 


ADDCOW, TRDSA* 6 




130C0 


21 


02678 


1293* 


23180 




SM 


ADDCOW, 1,10 




13012 


12 


02678 


000- I 


23190 




TF 


FR STAD , AODR S 




13024 


26 


03899 


03520 


23200 




SM 


FRSTAD,* 




13036 


12 


03899 


-000* 


23210 




TF 


L STAD »FRSTAD 




130*8 


26 


03909 


03899 


2 3220 




AM 


L ST AO, 5 




13060 


11 


03909 


-0005 


2 32 30 


KATHV 


BTM 


GEE T , PDSAF 




13072 


17 


09210 


J4748 


2 32*0 


• 
















23250 


« 


SUBROUTINE LINKAGE FOR 


FUNCTIONAL MACROS AND ARITHMETIC MACR 










23260 


• 
















2 32 70 


MACROF 


TD 


•♦2 3, ADDCOW 




13084 


25 


13107 


02678 


2 3280 




TD 


•♦23.AJUST 




13096 


25 


13119 


02399 


2 3290 




AM 


ACOCOW, ( 10 




13108 


11 


02678 


000-0 


2 3300 




TF 


SPQFLD* 1 I, INTBUF + 6 




13120 


26 


13259 


03634 


23310 




B7 


DSAF , , , TO DSA ROUTINE 


TO PICK UP OPERANDS 


13132 


49 


12756 




23320 


• 
















23330 




ASSEMBLE LINKAGE 












233*0 


♦ 
















23350 


MAC! 


TR 


0UT*2,/EP0*1 




13140 


31 


02220 


02301 


23360 




TF 


ADDRS, AOOCOW 




13152 


26 


03520 


02678 


23370 




A 


AOOCOW, TR0SA*6 




13164 


21 


02678 


12934 


23380 




AM 


ADDCOW, 23, 10 


1 7 6 


13176 


11 


02678 


O0OK3 









162C-1443 MOM TCR 


Vf KSI ON ? iFS I I-C PHASE B 






PAGE 


2 3390 




1* 


ZEPO.L INK 




13188 3 


I 02300 


03522 


23400 




A 


ZEP0M1.ADGRS 




13200 2 


I 02311 


03*20 


?i<.io 




MM 


SPOFLDMi.5, 101 I 




(3212 I 


3 132*9 


000-N 


2 3420 




TR 


ZePO*25tOUT*2 




1322* 3 


I 0232* 


02220 


2 34 30 




S 


ZEP0M8.99 




13236 2 


2 0231S 


CC099 


? 3 4 40 


spofl c 


CF 


KPO» 14 




132*8 3 


3 02314 


00000 


2 34'5'C 




TfM 


x,**24 




13260 1 


6 040 38 


J3284 


2 346Q 




■at h ; 


I I N PR T , 00 I N S T 




L 3272 1 


t 09268 


J0O88 


2 347G 




TR 


OLT*2,ZEPO*25 




1328* 3 


I 02220 


0232* 


? 3*80 




AM 


AOCRS , 7, 10 




13296 I 


1 03*20 


0C0-7 


2349U 




TF ' 


I STAO.AODRS 




13308 2 


6 03909 


03*20 


2 3'SCO 




* 1 •* 


I 1NK0R , •♦ 1 2 




13320 I 


7 12602 


J 3 3 32 


2 3M0 




TFM 


I N T H , I 




13332 1 


6 02187 


-C001 


'2352u 




YC 


01 T ♦ 2 » L N Th* I , , MOVE 


REC.MRK. TC CLT»2 


133*4 2 


* 02220 


02388 


23*>30 




T CM 


DLMPl»l I, Ml 




13356 I 


5 03*47 


OOOOJ 


2 3*40 




RTM 


t INKCR » 12 




13368 1 


7 12*18 


J3380 


23**0 




H TM 


OF, E T , PHASED 




13380 1 


7 09210 


-4200 


2 3 560 
















2 35 7 


• 


CEF INE 


DISK ADDRESS 










2 3580 
















2 3500 


DC AF 


B Tm 


SC AN,»* 1 2 




13192 I 


7 06046 


J3404 


2 3600 




tc 


MLR 'J EL iBSW 




114C4 2 


* 03627 


09046 


23MO 




HO 


DOASGN.BSW 




13416 4 


3 13460 


09048 


2 3620 




rc 


KlRLSw.RLOCSw 




13428 2 


* 04033 


079*0 


2 3630 




tf 


L STAOtAODRb 




1344G 2 


6 03909 


03520 


2 36*0 




H7 


0DA2 




134*2 4 


9 13*08 




2 3650 


DC ASCN 


TF 


L STADt ADOCQw 




13460 2 


6 03909 


02678 


2 3660 




TO 


t ♦23,LSTAO 




1 34 72 2 


5 1149* 


03909 


2 16 70 




T 


• ♦ 2 3 » A JUS T 




13484 2 


5 13507 


02 399 


2 3680 




AM 


I St AO ,00 1 10 




13496 I 


1 03909 


OCO-0 


2 3690 


C C A2 


TR 


INPLT'»19»|NPUT*21 




13508 3 


1 02812 


02814 


2 3 700 




BTM 


SC AN, 12 




13*20 I 


7 06046 


J3532 


2 W 1 C 




TO 


DA X-5 , ADDR S 




13532 2 


* 13820 


03*20 


2 3720 




tr 


INPUT ♦l9,lNPLiT>2l 




13*44 ) 


1 02812 


02814 


2 3710 




P TM 


SC AN, 12 




13**6 1 


7 06046 


J3568 


2 3 740 




T F 


UA X ,ADDRS 




13*66 2 


6 1382* 


01*20 


2 3 750 




TR 


INPUT ♦ I 9 , ! NPUT* 2 I 




13*80 3 


1 02812 


02814 


2 3 760 




HTM 


SC AN, • ♦ 12 




13*92 1 


7 06046 


J3604 


2 37 70 




SF 


ADDRS- 2 




136Q4 3 


2 03*16 


ooooo 


2 3 7 80 




TF 


SC T X i AO OR S 




13616 2 


6 13829 


03*20 


2 3740 




TR 


INPLT»19,INPUT*21 




13628 3 


1 C2812 


02814 


2 3800 




ttTM 


SC AN, I 2 




13640 1 


7 06046 


J3652 


2 38 I 




TF 


MAX , AOOR S 




136*2 2 


6 138 3* 


03*20 


2 3 B 2 




TR 


0UT*2, DAX-'j 




13664 3 


1 02220 


1 3820 


2 lb 3 




T FM 


L N T H , 6 




1 3676 I 


6 02387 


-0006 


2 384 




RTM 


L I NKC , • ♦ 1 2 




13688 1 


/ 12486 


J37O0 


2 *850 




TR 


OL T *2 » SC T X- 2 




117C0 1 


I 02220 


13827 


2 38iS0 




T FM 


L N 1 H , 3 




13712 I 


6 02 387 


-CQ03 


2*8 70 




H TM 


L 1 N K C R i • ♦ 1 2 




13724 I 


7 12*18 


J 3 7 36 


2 J880 




TR 


Ot, T *2,MAX-4 




13736 3 


I C222Q 


13811 


2 3840 




TQ 


I) S A F3l J X RLU^SW 




13748 2 


5 09049 


P7950 


2 19C0 




n ? m 


L (NKOft , • ♦ I 2 




1376C I 


7 12602 


4 3 7 72 


2 391 




RNF 


*♦ 36, MURIEL 




13772 * 


4 13808 


3627 


2 3 92U 




U 


ADDCOW.LSTAO 




1378*. 2 


6 02678 


03909 


2 5930 




SM 


AQOCU*, 1 




13796 1 


2 02678 


-0001 


2 1940 




B T M 


Lit T , P H A S f H 


177 


I JSCS 1 


7 09210 


-4200 
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23950 D AX OS 
2 3960 DC 



23970 SCTx CS 
2 3980 DC 



23990 MA* OS 
2400u DC 



2401.0 
24020 
24030 
24040 
24050 
2*060 
24070 
24080 
24090 
241C0 
24110 
24120 
24130 
24140 
24150 
24160 
24170 
24180 
24190 
24200 
24210 
24220 
242 30 
24240 
242*0 
24260 
24270 
24280 
24290 
24300 
24310 
24320 
24330 
24340 
24350 
24360 
24370 
24380 
24390 
24400 
24410 
24420 
24430 
24440 
24450 
24460 
24470 



TRANSFFK 
M TR A TD 
TO 



T FM 
TF 
TF 
AM 
CF 
CF 
CF 
TR 
TF 
TFM 
BTM 
*• GENERATE 
TFM 
CF 
TR 
AM 
TF 
AM 
TFM 
BTM 
TF 
AM 
TR 
AM 
TFM 
70 
TOM 
BTM 
TR 
AM i. 
TFM 
TOM 
BTM 

•f GENERATE 

: f m : 

TFM 
TR 
AM 
TFM 
BTM 
TFM 



TO RETURN AODRESS ROUTINE 
» +23, AOOCOW, , 
• ♦23,A.JUST 
ADOCOW, , 10 
M IOCS M l f GOO 19 
MiqCSHl.AODCOW,, 
MIOCStlfl, IUCAL ., 
FRSTAD,A0UCO* 
L STAD.ADDCUW 
L5TAD,24, 10, 
MIUCS*2 
MJOCS* 14 
MI(jCS»19 
7EPO,MfOCS 
ACCRS,F«STAD 
*,»*24 

L INPRT,00INST 
OlSK DEFI AJERS 
MBLK3*l,22, 101 1 , 
MBLH3 

GUT*2fM8UK3 
ADDCOK, 19, 10, 
L STAO» AOOCOW 
A0DCOW.02, 10 
LMTH # 02 
L INKCR, 12 
MBLKlt ADOCOM, , 
MBLK1,06,10 
0uilt2#M8UKl-4 
AOOCOt«f05*LO 
LNTM*05 
OSASOXfREtSW 
IN T8UF t i 
L 1NKDR, #*12 
0UT*2*MRM«» 
AD0C0W,01,10 
LNTH.Ol 

OLMPIU 1, l,U, 
L !NKCR**tl2 

DOA 
QUT*2»|t. 
M8LKUI0CSAD 
OLT*3,MBUKl-4 
AOOCOM f 06»10 
LNTH,06 

M8LKl,003,9, 



ADJUST ACDCOW 



RETURN ACDRESS 
IOR GETS' E^TR V 



SET TQ TOTAL LENGTH 



MOVE ACDCOW TO END OF LINK 



AODRESS pF CCA 



RECORD MARK 



PRINT RM 



DISK ADDRESS 



SECTOR COUNT 



l 3h2» 




6 








I 




i ^ » 




3 
I 




1183* 




5 




1 3836 




1 




1 38 38 


2* 


13861 


02678 


138*0 


2* 


1 3873 


02 399 


13862 


11 


02678 


000-0 


1 3874 


16 


12715 


-0019 


13886 


21 


12715 


02678 


13898 


16 


12722 


-0716 


13910 


26 


03899 


02678 


13922 


26 


03909 


02678 


13934 


11 


03909 


0C0K4 


13946 


13 


12706 


00000 


* 139*8 


33 


12T16 


OOOOO 


13970 


33 


12724 


OOOOO 


13982 


11 


02300 


12704 


13994 


26 


03*20 


01899 


140C6 


16 


04038 


J4030 


14016 


17 


09268 


J0088 


14030 


16 


12742 


OGQKK 


14042 


13 


12741 


OOOOO 


14056 


31 


02220 


12741 


14066 


11 


02678 


0OOJ9 


14078 


26 


03909 


02678 


14090 


11 


02676 


QOQ-2 


14102 


16 


02387 


-0002 


14114 


I? 


12516 


J4126 


14126 


26 


12733 


02678 


14131 


11 


12733 


600-6 


14110 


11 


02229 


1.2729 


14162 


11 


02676 


000-5 


14174 


16 


02167 


-0005 




25 


090§9 


02478 


14196 


1* 


03628 


00001 


WW 


1? 


12602 


J4222 


vmz 


11 


02220 


12743 


14214 


11 


02676 


QOO-1 


1426* 


16 


02367 


-OQOl 


14256 


19 


03147 


OOQOJ 


14270 


1? 


12916 


J4262 


14282 


19 


02220 


00001 


14294 


16 


127)1 


49781 


14306 


11 


02221 


12729 


l>Mf 


U 


62*76 


000-6 


14330 


16 


02107 


-0004 


14342 


1? 


|2fl0 


J4354 


14354 


16 


12711 


00*01 
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PAGE 



2**80 




TR 


Ob T +2 tMBUK 1-2 




1*366 


31 


02220 


12731 


2**90 




AM 


ACCCOWt 03,10 




1*378 


11 


02678 


000-3 


2*500 




TFM 


INTH,03 




1*390 


16 


02387 


-0003 


2*510 




rt tm 


I I NKC R » • ♦ 1 2 




1**02 


I 7 


12518 


J** 1 * 


2*520 




TFM 


MBLM.O., 


CURE ADDRESS 


I** 1* 


16 


12733 


-0000 


i ' <» 5 3 . 




TR 


0LT»2,MBUK1-* 




1**26 


3 1 


02220 


12729 


2*5*'b.' 




AM 


ADDC0W,05,10 




1**38 


1 1 


02678 


000-5 


2*550 




TFM 


LNTH.06 




1**50 


16 


02 387 


-0006 


2*560 




TDM 


DUMPl ♦ I 1,0, 11 




1**62 


15 


035*7 


0000- 


2*570 




BTM 


LINKCR»«*12 




1**7* 


1 7 


12518 


J**86 


2*580 




R TM 


GEET, PHASES 




1**86 


1 7 


092 10 


-*200 


2*590 


















2*600 




EVALLATE ADDRESS Of DEND 






























2*620 


DENOF 


BTM 


SCAN,»*12 




1**98 


j 7 


060*6 


J*510 


2*6 30 




CF 


ADDRS-* 




1*510 




03516 


UUvUU 






BTM 


F ILL.ADRFIL-* 




1*522 


I j 


1 1 70* 


J 2 3* 7 






TFM 


LSTOUT- 1,**20 


**.♦• 


it«S*A 




i??nn 


J* 5 5* 






B7 


PRINT 






40 


n»i t a 




2*6 70 




SF 


ADDRS-* 






32 






2*680 




80 


DOTCD, INTBUF*6, , CHECK 


FOR TCD 


: _ 


4 3 




36 3* 






TFM 


T E S TAD 




: _ 


16 


nan?* 








TF 


FRSTAO.HIAOD 




ias on 

i 


26 






5 7 in 

■ 




TFM 


LNTH 






1 6 










TO 


0UT«2.LNTH» I , ,RK.MRK. 




1*6 1* 


25 


02220 


02386 


2*730 




BTM 


REIODG.6,11 




1*626 


1 7 


1025* 


00000 


2*7^0 




BTM 


STACKR.9,10 




1*638 


1 7 


10* 34 


000-9 


2*750 




TOM 


STNUCD*13,2 




1*650 


1 5 


1 1489 


00002 


2* 760 




BT 


MOD IF I , MOD I F I- I 




1*662 


27 


1 1 308 


1 1307 


2*770 




TR 


TRDATA*6,NINES-5,6 




1*67* 


31 


1076- 


14793 


2*780 




TFM 


* 10,999,9 




1*686 


16 


00*10 


00R99 


2*7 90 




TR 


* 16.A00RS-* 




1*698 


3 1 


00* 16 


03516 


2*800 


# 


WRITE F INAL 3 SECTORS TO 


FILE 










2*8 i t 


FINIS 


TFM 


IORT,«*23 




1*710 


16 


00565 


J4733 


2*8 2 




B 


IORBC »DEFOUT, 7 




1*722 


49 


00520 


- 3579 


2*830 




END OF PHASE B .CALL IN 


PHASE C 










2*8*0 




TFM 


CF F A , PH A ZEC 




1*7 3* 


16 


02629 


J* 758 


2*850 




BTM 


CFF.PHASEC 




1*7*6 


17 


02592 


JOOOO 


2*860 


PH AZ EC 


DDA 


,0,PHCDAD,PHCSCT.PHASEC 


1*758 




I* 








0J8855-26J0000 












2*870 




DC 


1,' 




1*772 




1 




2*880 


S I MPL E 


TOM 


TRDATA>6,6,611 




1*7?* 


15 


1076- 


00000 


2*890 




B7 


F IN I S-*8 




1*786 


49 


1*662 




2*900 


NINES 


OC 


6,99999* 




1*798 




6 








R9999* 












2*9 1 


OhS I X 


DC 


6,6 




1*80* 




6 








-00006 












2*920 




DC 


I » * 




1*805 




I 




2*9 30 


DOT CD 


BTM 


R EL ODG . . 1011 




1*806 


17 


1025* 


000— 


i h i * :j 




TFM 


lNTh 




1*818 


16 


02387 


-COOO 


2*950 




TO 


0LT-7.IC 




1*830 


25 


0221 1 


0389* 


2*960 




TR 


01 I-6.ADDRS-* 




1*8*2 


31 


02212 


03516 


.2*970 




BTM 


GEET, LUCK 




1*85* 


17 


09210 


-9552 


2*98 


• TO 


LOAD 


PHASE B5 TO THE FILE 


1 7U 
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PAGE 


2*990 


F 5 


3* 


SLB5.701 




1*866 


3* 


1*91* 


00701 


c 5 C o 




38 


SUB5.702 




1*878 


38 


1*91* 


00702 


2 501 C 




TR A 






1*890 


36 


00000 


00500 












l*9C2 


49 


00000 


OCOOO 


2 50 20 


SUH5 


CDA 


,C,B5DAD,B5SCT,INSTRN 




1*91* 




1* 








0J9122-29J2*** 












2 *j 3 G 




TCD 


F5 




1*866 








250*0 


P H A S E C 


DORG 


ICOOO , 


READ SECTORS 1*2 OF CBJECT PROGRAM 


100C0 








250 50 




TFM 


IORT .•♦23 




10000 


16 


00565 


J0023 


2 5060 




h 


IOGT ,JHB ,7 




10012 


49 


00566 


J 1818 


2 50 70 




BNR 


DO-12 .ISTAT-29 


BR IF SUBRS REQD 


1002* 


45 


100** 


02530 


25080 




B 7 


SIZE 




1C036 


49 


10376 




25090 




BNR 


D0M2 ,C0 IM i, 


BR IF CARD IMAGE 


100** 


45 


10068 


02529 


2 51 00 


DO 


TDM 


CDIM.-t 




10056 


15 


02529 


0000 J 


251 to 




SF 


*15 • M 


INDICATE SUBRS REQO 


10068 


32 


00* 15 


00000 


2 5 1 20 




TF 


BLF*5 ,BUFU05 


STORE FIRST ACR 


10080 


26 


12**0 


125*0 


2 51 10 




TF 


BUF*80 ,BUF*5 




10092 


26 


12515 


12**0 


25 I SO 




SM 


BUF*5 ,100 ,9, 


CONVERT TO 1 SECTOR BEFORE 


1010* 


12 


12*40 


OOJOO 


251 50 




TDM 


BLF+6 ,2 




10116 


15 


124*1 


00002 


2 5 i 60 




BNF 


•♦2* ,BUF*106 , i 


RELOCATABLE 


10128 


4* 


10152 


125*1 


25170 




TOM 


BUF*6 ,-2 t f 


NON RELOCATABLE 


101*0 


15 


12*41 


OOOOK 


2 5 1 80 




T f 


B LF ♦ 1 * .FRSTCO 


MOVE SPS ID COCE AND LENGTH 


10152 


26 


12**9 


11817 


25190 






TO CARD 1 COLS 6-1* 












25200 




TO 


BUF+81 ,BUF*6 ,, 


CONSTANT INC FOR SECCNO CARD 


1016* 


25 


125 16 


12**1 


25210 




TR 


BUF*82 ,SECCD-3 ,, 


LOADS SECONO CARD C0LS7-25 


10 I 76 


31 


1251 7 


1 1791 


25220 




TO 


BUF+85 ,R MARK , , 


INSERTS RECORD MARK 


10188 


25 


12520 


00*21 


252 30 






WRITE SECTOR 1 AND 2 AFTER SECTOR 1 IS UPDATED 










252*0 




TO 


BUF*2* tRELSW ,, 


-I IF RELOCATABLE OBJ PGM 


10200 


25 


12459 


02478 


2 5 2 5 




TR 


BUF+25 ,C0MDAT*09,, 


MOVE COMMON DATA 


10212 


31 


12460 


02509 


25260 




TF 


B UF *75 ,1 STAT 




1022* 


26 


12510 


02559 


252 70 




TFM 


IORT ,»*23 




10236 


16 


00565 


J0259 


25280 




B 


IORBC ,JH8 ,7 




102*8 


49 


00520 


J181 8 


25290 




RD DIM ENTRIES FOR SUBR 


INCL PICK 










25300 


RCD IM 


TFM 


IORT ,»*23 




10260 


16 


00565 


J0283 


25310 




B 


I0GT ,JHB2 ,7 




10272 


49 


00566 


J1626 


25320 




BNR 


CKSET .ISTAT-28 


BR IF MORE THAN DlVW REQUIRED 


10284 


45 


1 1428 


02531 


25330 




BO 


CKSET*24,ISTAT-36 




10296 


43 


11452 


02523 


25340 




A 


PICKUP tWAH814 


ADO LENGTH OF SOFT DIVIDE TO PICKUP 


10308 


21 


02528 


142*9 


25350 




TFM 


CKMAP+54 .SIZE (t 


SET BRANCH ACR 


10320 


1* 


11622 


J0376 


25360 




TFM 


CKMAP*47,01 




10312 


16 


11615 


-0001 


25370 




TFM 


MAP »WA*1814 




10344 


16 


11383 


J4249 


25380 




6 


CK DIM 




10396 


49 


11532 


00000 


25390 




OORG 


•-* 




10363 








25*00 




BNR 


CALC , ISTAT-29 ,9, 


BR IF LAST REQ SUB NOT PROCESSEO 


10364 


45 


11260 


02N30 


25*10 


INO 


OS 


.• ft 


I STAT POINTER 


10375 









25*20 


SIZE 


TFM 


IORT t»*23 it 


SYS COMM SEC TO ZERO 


10376 


16 


00565 


J0399 


25*30 




B • 


IOGT tCSDOOA ,7 




10388 


49 


00566 


J1834 


25**0 




• PUNCH BLANK RECORDS AFTER LIST DECK 










25*50 




BNF 


HIPICK .LSCDSW 




10400 


44 


10496 


02479 


25*60 




TR 


CLERER+5* tCLERER 




10412 


31 


02773 


02719 


25*70 




TOM 


CLERER*53.0 




10424 


15 


02772 


00000 


25*80 




TR 


CLERER+108 tCLERER 




10436 


31 


02827 


02719 


25*90 




TDM 


CLERER*107 




10*48 


15 


02824 


00000 


25500 




WACO 


CLERER*2 




106*0 


39 


02721 


00400 


25510 




WACO 


CLERER+2 


!8o 


10412 


19 


02721 


00400 
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PACE 



25520 




WACO 


CLERER*2 








10484 


39 


02 721 


00400 


2 55 30 




PL ACL HlCMkST ADORE SS 


USED 


IN PICKUP 














C 


H I ADD 


,P1CKUP 








24 


0251 8 








BNH 


• ♦24 
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1 0932 
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10000 


B 1 SC T 
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13191 
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035*8 
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C328 7 


PHAZEC 


1*758 


B2CAC 
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02*39 
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C ONTU 
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C3628 
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1 9000 


CORE 


1 1 879 
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02528 
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C C069 
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DFACC* 
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1 3090 


LFACD6 


1*20* 
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1 35*6 
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06*58 
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02502 
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00029 




1 359* 
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09072 


L I MT SP 


025C 7 


P T 1 NSW 


02*75 


B6C AC 


19 151 


OAC 5 


13 7 7* 


Ul"CAC 


0*800 


L 1 NKCR 


1251 8 


PULL I C 


05068 


B6SC T 


0C030 


DACF 


12950 


DI«SCT 


COOO 1 


L I NKDR 


12602 


PUNCH1 


12188 


B 7CAC 


19219 


OAC 


1*9*0 


DMENC I 


12376 


L I NKE R 


12632 


PUNCH2 


I 2260 


B 7HAC 


06088 


DAS 


I 35*0 


CMENC? 


12*2* 


L I NKSF 


1* 796 


RCEC I V 
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B 7SC T 


OCOO* 


OAX 


1 3825 
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121*8 
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09268 
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0**08 
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R E L CR E 


1 19 39 


89H AO 


1 6500 


OC 


1 38*0 
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12112 
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C3857 
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1025* 


BAKR 


13212 


DCA2 


13506 
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117*8 
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REHAIL 


10976 
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DOAF 


13392 


0MES21 
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C2*79 


HEVSCN 


0585* 
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1*868 



I(f5 







162C- 1**3 HONI TOR 


I VdRSIUN 2 


SPS II-C 


PHASE B 






PAGE 57 


CEF1 


11699 


FQDAD 


COOCO 


ICSK 


0055* 


NONUM 


06370 


SAVIN 


1077* 


DEF2 


11707 


EQSCT 


0000* 


ISTAT 


02559 


NOOPP 


12908 


SBHAX 


02673 


DEF3 


11715 


EOSW 


08979 


JHB2 


1 1826 


NOPRT 


13172 


SBOUT 


02**3 


CEF* 


11723 


ERDAC 


1 3 738 


JHB 


11818 


NUT 3 


138*0 


SCAN1 


06358 


0EF5 


11731 


ERLAB 


03 831 


JSTBL 


02*59 


NOTOP 


1 3336 


SCANA 


0617* 


DEF6 


11739 


ERR XX 


0510* 


KATHY 


13072 


NUHB 


02**8 


SCAN 


060*6 


REFEO 


1*275 


ER 


13918 


LABL 


06853 


UHSIX 


1*80* 


SCTX 


13*29 


DEF1N 


03556 


EVl 


C7672 


LBACC 


0B176 


ONE 


063*6 


SECCO 


1179* 


DEFS* 


03603 


EVODO 


02*69 


LBLIH 


20009 


ONEZ 


02586 


SECRD 


0*3*6 


DENUF 


1**98 


F I 


0*656 


LCHAR 


1*983 


OOPS 


C7856 


SEE I M 


1295* 


DENC 


1*856 


F2 


1*96* 


L I H 


03871 


0P3SH 


127*5 


SFA 


03977 


DFACD 


09190 


F3 


09262 


L I HS V 


03882 


OPER 


090*7 


SFLAG 


1*180 


OGMF 


09*60 


F * 


1*32* 


L INKC 


12*88 


OPFIL 


12367 


SIZE 


1037* 


DGM 


1*880 


F5 


1*866 


L1NKC 


125*8 


OTHER 


12067 


SKIP 


11*6* 


DHESl 


11656 


F6 


153*6 


L INK 


03522 


OUT 


02218 


SHODE 


09062 


0HES2 


11912 


F7 


06*70 


LINKS 


139 76 


OVER 


11993 


SMPBfe 


002 35 


DMESA 


11*00 


FAULT 


12139 


LINP 


1*772 


PACK 


0298* 


SPBL 


000*0 


DHESB 


11*2* 


FILL 


1170* 


LNTH2 


00000 


PAGEP 


062 7* 


SPEC 


069*2 


DHESC 


115*0 


FINIS 


l*71C 


LNTH 


02387 


PAGE 


06276 


SPLIT 


1156* 


OHESC 


11620 


FIT 


10586 


L 


02520 


PARTL 


08256 


SPSGM 


02560 


DHESF 


11196 


FLGRH 


0391 C 


L ST AD 


3909 


PCALL 


1*990 


SREL 


0631* 


DMES 


1*928 


FORWU 


0*372 


LUCK 


09552 


PCK 


02365 


STCNT 


02513 


DHESW 


03887 


FOUND 


1**12 


H2CIG 


127 5* 


PCONl 


09516 


STPM 


12195 


DNS 12 


11856 


GAT 


09078 


HAC1 


131*0 


PCONF 


1*760 


SUBO 


0*70* 


0HSB1 


11*36 


GEET 


09210 


HAC2 


1*952 


PCON 


09*60 


SUB2 


15012 


0HSB2 


11519 


GET 


07190 


MACR2 


12756 


PCTR 


152 3* 


SU63 


09310 


0HSR2 


1251* 


GETT 


09166 


MACRO 


1*8 32 


POSAF 


1 * 7* 8 


SUB* 


1*372 


o«sv 


090*7 


GIT 


09122 


HAP 


11383 


PCSA 


09572 


SUB5 


1*91* 


OOCON 


09*60 


GO I 


0**** 


HARK1 


05328 


PFIL 


12383 


SUB* 


1539* 


OODSF 


1*72* 


GOAHD 


1**32 


MAX 


13835 


PGCON 


0*293 


SUBC 


12*6* 


DDCS 


09352 


GOCL 


12296 


HBUK1 


12733 


PGNUM 


02**7 


SUBO 


0*516 


OOL 


06851 


GONOM 


13372 


HBUK2 


12739 


PKMOC 


3932 


SUB1N 


035** 


DORG 


13736 


GOOOB 


0559* 


HBUK3 


127*1 


PLACE 


09033 


SUBNO 


02523 


DO 


10056 


GOON 


1*300 


MESS2 


07991 


PROS 


13528 


SU8SM 


03612 


DOTCD 


1*806 


GO 


129** 


HIOCS 


1270* 


PRINT 


12100 


SVAOO 


12T52 


DSAF 


12756 


GOT IT 


08376 


MIO 


13950 


PRTAC 


12172 


TAP IN 


02**0 


OSA 


1*8** 


HCL I H 


02507 


M00E1 


126*4 


OF IL 


12399 


TBI I 


05558 


DSBF 


09268 


HDOEF 


0**2 7 ■ 


MOOE 


12616 


RCTAB 


12*** 


TBL2 


05*32 


DSO 


1*78* 


HDPRT 


0**31 


MODOC 


1*022 


RCTR 


079*6 


TEMPR 


02571 


osc 


1*516 


HEAD 


0*002 


MOMAD 


00*15 


RDCIM 


102*0 


TEMP 


02716 


DSONB 


13332 


HED 


03886 


MOML 


160*1 


REG 


1325* 


TEST 


09015 


DSS 


13516 


HI ADD 


02518 


MOSCT 


16000 


RELStt 


02*76 


TLU 


0537* 


DTR 


12730 


HUB1 


1115* 


MOVE 


0*53* 


RENU 


0**5* 


TRANS 


1303* 


DUMP 1 


03536 


HUB 2 


11192 


MRM 


12.7*3 


RLCSA 


126*0 


TRA 


1*820 


CUP 


11196 


HUB 


11132 


MTRA 


13636 


RLOP 


0*808 


TROSA 


12928 


DVAD 


10060 


IC 


0389* 


MURI 


02631 


RM ARK 


00*21 


TRMMM 


07336 


DVLCF 


09*16 


I DENT 


1533* 


NAST 


05220 


RMOP 


0*928 


TRREC 


1*156 


OVLG 


1*692 


I NO 


10375 


NE 


11320 


RMRK 


02575 


TWO 


0*356 


OVLP 


09772 


I NI T I 


0*188 


NEWIL 


110** 


RM 


13912 
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1003* 


INKRH 
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NINES 


1*798 


RSCAN 
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DVSfcft 
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NHOAL 
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113*0 
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1*78* 


RSTRF 
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WA 


12*35 


OVTR 


100*8 


I OCT 
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13*80 


RSTR 


1*90* 


X 
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SI 
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E* 
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I0R6C 
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NOISE 
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SAVEF 


10510 


ZEROS 


15337 


EMT 


0*572 


IQtT 


005*5 


NONEX 


00*57 


SAVE 


1*91* 


ZILCH 


15322 
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SHFACO 1S998 STACKR 

SEC INS 10352 STCMA1 

SETFRM 11296 STCHAR 

SIMPLE 14774 STKLE * 

SPQFLD 132*8 STNUCO 

SSTCAO 18908 STPCSK 

SSTSCT 00035 STPRSW 

END Of ONE ASSEMBLY. 



187 



162C-1443 MONITOR I VERSION 2 SPS II-C SUBROUTINE SUPERVISOR PAGfc 1 



00030 


COMMON 


DS 


I 


,A01 




0C4C1 




1 




00040 


RM ARK 


OS 




,421 . 


ADR CF RECORD MARK 


00421 




C 




CCJ050 


REL INC 


US 




,434 , , 


AOR CF RELOCATION INCREMENT 


00434 









00060 


SYSCAL 


OS 




,4 75 




00475 









00070 


IORBC 


OS 




,520 




00520 









00080 


IORT 


DS 




,565 




00565 









00090 


IOGT 


OS 




,566 




00566 









00100 


IOCAL 


DS 




,716 




00716 









00 no 


MONCAL 


OS 




,796 




00796 









00120 


BASE 


DS 




*16C0 , 


SCRATCH SEC AOR FOR SUBRS 


01600 









00130 


PCK 


OSB 


5 


,7 ,2365 




02365 




5 


X 7 


00140 


PLUSL 


OS 


2 


, PCK* 3 3 




02398 




2 




00150 


FOR EQ 


OS 




,7280 , 


START CF AREA COMM WITH FORTRAN LOR 


07280 









00160 


SUBVEC 


OSB 


5 


,30 ,PCK - 


150 


02215 




5 


X 30 


00170 


MOD 


OSS 


12CC0 


,8000 , 


AREA FCR SUBR READ IN 


O8000 




12000 




00180 


BUF 


DS 




,M0D-1 




07999 









00190 


RM 1 


DS 


,02210 






02210 









00200 


RM2 


DS 


,02215 






02215 









00210 


SSLOC 


DS 




, 1 7024 , 


LUC CF SUBR SUPER ON DISK 


17024 









00220 




DORG 


24C2 






024C2 








002 30 


XEQ 


TFM 


IORT 


,•♦23 ,, 


RO SUBR FM SCTC 


02402 


16 


C0565 


-2425 


00240 




B 


IOGT 


, OOOAP ,7 
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13298 SUBOAO 04808 TESTAO 09028 VACANT 040*0 

13178 SUBENT 09038 THINGS 02420 Z6R0NE 13312 

03904 SUBOUT 03588 TROAT A 10794 

1147* SVMTAO 02*41 TRNUM 1 074** 

0247O SVMT8L 16003 TRNUM 8 07382 

02472 SYSCAL 00475 TVfNSW 02473 
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01120 







10GT 


,00DASC 


i7 




C3006 


49 


C0566 


-2 12b 


01130 




TD 


IOD 


,428 






3016 


25 


C3C38 


0C428 


01140 




CM 


IOD 


i03 


,71011 




0303C 


14 


C3C38 


-CO-L 


01150 


100 


OS 




.•-3 




I /O DIGIT INCtCATOR 


03036 









01 160 




6H 


ORCOOE 






BR IF PRCG ON DISK 


03042 


46 


C2892 


01100 


01 170 




00 


FOR EX 


,MA3«75 






03054 


4 3 


C 33 18 


C7375 


01180 




no 


FOR EX 


, MA 3* 74 






03066 


43 


C3316 


C7374 


01190 




Tf)M 


DSKSW 


t-1 


t i 


SCT FOR NUN DISK INPUT 


03076 


15 


05980 


COOOJ 


01200 




TFM 


ROFRST»23 


♦N00DA-4 






03C90 


16 


03149 


-2«ll 


01210 




BL 


RD FR ST 




* » 


BR IF PRCG CN CARDS 


C 3102 


47 


C3126 


G 1300 


01220 




TDM 


ND00A»2 


,2 






03114 


15 


C2817 


CCC02 


01230 


ROFRST 


TFM 


IORT 


,•♦23 




READ FIRST RECORD OF OBJECT PROG 


03126 


16 


0C565 


-3149 


01240 




H 


10GT 


.OODA 


,7 




03136 


4* 


C0566 


-2779 


1250 






SAVE CARD 


SEQ NO 


IF NCN OISK INPUT (NCI) 










01260 




ONF 


CAP 


,DSKSk 






03150 


44 


C321C 


C5980 


01270 




SF 


HA ♦ 75 








03162 


3/ 


C74 75 


CCCOO 


01260 




TF 


taA3*98 


•MA* 79 






C 3174 


26 


C7398 


74 79 


01290 




TF* 


IORT 


,•♦23 






03166 


16 


C0565 


-3209 


01300 




H 


10RBC 


.CDDASC 


,7 




03198 


49 


C0520 


-2 726 


01310 




CALC SWE OF UBJECT 


CORE. HIGHEST ADR AVAIL IN CAPM8 










01320 


CAP 


AM 


C AP ♦ 1 5 


,20 


tlO, 


STEP HI ADCRESS BY 20000 


0J21G 


11 


C3225 


OOOKO 


01330 




DC 


2 




.•-3 




032lt 




2 




01340 




TR 


01SS9 


♦ •-5 


• 23, 


HOVfc RECCRC INTO HI ADCRESS 


03222 


31 


-J999 


C321 7 


01350 




BNR 


CAP 


,0 




BR IF NC MR AP AROUND 


GJ214 


4> 


CJ210 


OCOuO 


01360 




TF 


RE DICE ♦ 1 1 


,cap»i e 




SAVE CCINT OF OBJECT CORE CAPACITY 


03246 


2t 


C6C05 


C3228 






C 


SPSTST 


,hAFM3 






3256 


24 


C6464 


C741 3 


01360 




RE 


RD cu 




, , 


BR IF CARU IMAGE SPS PROGRAM 


03770 


46 


C3430 


C1200 


01390 




SF 


SPSTST-5 








03282 


32 


C6459 


OCOOO 


01400 




C 


SPSTST 


,MAF^5 






03294 


24 


06464 


C7405 


0141U 




HE 


CORIM 






BR IF CORE IMAGE SPS PROGRAM 


3306 


46 


C3358 


C1200 


C1420 


FOR EX 


CF 


429 






IORT HOUSKEEP 


3316 


3 J 


C0429 


CCUOO 


01430 




TFM 


w*t 


,•♦19 


, , 


CALL LINK FOR FOR (RAN LOAOER 


033 JO 


16 


CC565 


-3349 


U1440 




n 


IOCAL 


,22001 


,610 




03342 


49 


CU716 


2K0-1 


01450 




CSC 


3 


, 38* 






3354 




3 




01460 


COR IK 


38' 

TH 


MA2«WA 








03356 


31 


C2934 


C7400 


01470 




TF 


WA*70,RMS 








C3 370 


26 


C7470 


06456 


01480 




TR 


MA ♦ 6 , MA 2 








03382 


31 


C7408 


C2934 


01490 




AM 


00AR*5 t It 


10 






03394 


11 


C2570 


CCO- I 


01500 




SM 


DDAR *8 » 1 » 


10 






C3406 


U 


C2573 


COO- I 


01510 




AM 


DDARMl.l 


,10 






34 18 


11 


C2576 


OCO-l 


01520 


ROC TV 


ONF 


#♦24 


,MAF*23 


1 1 


AD J FOR RELCCATICN INCREPfcNT AS REO 


34 30 


44 


03454 


C7423 



till 



01530 
01540 
01550 
01560 
01570 
01580 
Q1590 
01600 
01610 
01620 
01630 
01640 
01650 

1660 
01670 
01680 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 

01 BOO 
01810 
01820 
01830 
01840 
01850 
01860 
01670 
01880 
01690 
01900 
01910 
01920 
01990 
01940 
01950 
01960 
01970 
01960 
01990 
02000 
02010 
02020 
01010 
02040 
02050 
02060 
02070 
02060 



iiitii 



NOISY 
MANTL 



SUBSET 
*••••• 



•••••• 

CKSFT 



RODIM 
•••••• 
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BR IF SUBSET IS AOJ AT EXECUTE T IME 



A 


PICKUP 


,REL INC 






SAVE AREA 428-440, 


CLR 1 


TO 


441 


,421 




TR 


RES TOR ♦& 


,426 




CF 


RESTORE 






BNF 


NOISY 


,77*WA3 




BNF 


MANTL 


,79^WA3 




BNF 


SUBSET 


, al*MA3 


, » 


B7 


CKSET 






TD 


MA* 36 


, 77* MA 3 




R7 


PARAM 






TU 


MA + 35 


, 79* MA 3 


• i 


TO 


MA* 34 


,78* MA 3 




SF 


MA04 






07 


PARAM* I? 






TU 


MA08 


*8UWA3 






SET SECTOR 


AOR FOR 


REQO 




03 AFP • 4808 ,02 VI ■ < 




A NO CONTROL 


TYPEOUT 




BO 


• ♦44 


,WA*3B 


» t 


AM 


0DA2>5 


,18 




TCM 


DDA2»8 


, 1 




B7 


RD DIM 







INSERT NCISE DIGIT 



INSERTS UNITS DIGIT OF LENGTH 
INSERT TENS DIG INCL FLAG 



INSERT SUB SET 10 
IK SET 

• 4814 ,01 FXL ■ 4820 tOO OIV • 4626 



Art IF NOT SCFT OIV SET , 00 



CM 

BH 

TFM 

BE 

CM 

BE 

TFM 

B7 

AM 

TFM 

B 



DELETE 



CM 

BH 

TFM 

CM 

BL 

TFM 

TO 

TO 

TF 

BNR 

TR 

CM 

TFM 

BE 

BH 

BNR 

TOM 

SM 

TFM 

B 

RCTV 



MA*38 
RO DIM 
DDA 2* 5 
RD DIM 
MA* 35 
• ♦32 
MA08 
RO DIM 
DDA2*5 
IORT 
IOGT 
INSIST THAT 



tlO 



BR IF AFP SET (03) 
BR IP VL SET (02) 



FORCE SET 02 
READ REQO OIM ENTRIES 



MA* 35 

• ♦24 
MA* 35 
HA* 35 

• ♦24 
HA* 35 



,6 

,•♦23 

OOOA 2 

MANTISSA LENGTH MEET SPECIFICATIONS 



.02 



,02 
,45 



.45 



.10 



• 10 

• 10 



PCK04,MA08,,, 
PCK*36 ,WA06 
PCK03 ,L 
DELETE » MA 2* 19 
MA 2 ♦600, MA 2 
MA 2 +15 ,01 
RM1 ,-33 
FVLAFP 
VL AFP 

DELETE .ISTAT-26 
SUBNO , 1 
SV ,5 
CAPCK-2,S0FT 
FVLAFP ,60 SET M 



SUBROUTINE SET I.D. 
,, NOISE DIGIT FOR OBJ PGM 
,. ♦L FOR OBJ PGM 



DECOOE SET 

I NO LCC OF RM AT END OF ALPHA 



SET TO 01 FOR SOFT DIV SET 



03442 


21 


C7443 


CC4 34 


03454 


25 


0044 1 


0C421 


03466 


11 


C2627 


00426 


C34 78 


11 


C2626 


ccooo 


03490 


44 


01534 


C7377 


035C2 


44 


03554 


C7379 


03514 


44 


C3598 


07361 


C3526 


49 


C3610 




03534 


25 


C7436 


C7377 


03546 


49 


03502 




3554 


25 


C7435 


07379 


03566 


25 


17434 


C7 378 


03578 


32 


CM 34 


CCCOO 


03590 


49 


03514 




03598 


25 


C7416 


■0 7161. 


03610 


43 


C1654 


C7438 


03622 


11 


C2754 


-C018 


03634 


15 


C2757 


CCCOl 


03646 


49 


03758 




03654 


14 


C7436 


000-2 


C3666 


46 


C17S8 


CI 100 


01678 


16 


C2734 


-4814 


01690 


46 


03731 


01200 


03702 


14 


C7415 


000-6 


01714 


46 


03746 


C1200 


01726 


16 


07436 


CCO- 2 


01718 


4* 


01756 




01746 


U 


C2754 


-C006 


01758 


16 


00365 


-1761 


01770 


49 


00566 


-2767 


01762 


14 


C7413 


000-2 


0S794 


46 


CI616 


01100 


03106 


16 


07433 


CCO-2 


01616 


14 


07435 


000M5 


01610 


47 


C1634 


01300 


01842 


16 


07435 


00OM5 


03654 


25 


02399 


07436 


01666 


25 


02401 


07436 


01676 


26 


02396 


07433 


03690 


45 


04022 


02933 


03902 


11 


03534 


02934 


03914 


14 


02949 


000-1 


01926 


16 


02210 


-003L 


03936 


46 


04270 


01200 


01930 


46 


04102 


01100 


03962 


45 


04022 


07446 


03974 


IS 


04557 


00001 


03966 


12 


05740 


-0003 


03996 


16 


03696 


-6966 


06010 


49 


04270 


06767 


04021 


34 


OCOOO 


00102 



192 
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PAGE 



6 



02090 




MA TV 


DELE TE- 1 , 




6, 


TYPE REASON FOR TERMINATION 


4 1 4 


39 


0402 J 


00 100 


02100 




RCTY 










0404t> 


34 


CCCOO 


00 102 


0?l 10 




MATY 


DFATEO , 






TYPE TE RM I NAT ICN 


0405b 


39 


C6 74 1 


CC 100 


Q212G 




RCTY 










4 7 C 


34 


CCOOO 


CC 102 


02 1 30 




TDM 


SYSCAL , 


4 






0408 2 


1 5 


004 75 


CC004 


02 1 AO 




H7 


MONCAL 








04094 


49 


CO 796 




021 50 




CREATE AOC VECTOR FOR 


ADJUSTMENT CF P ANC C OPERANDS 










2 1 60 


VI AFP 


TFM 


RM 1 , 


-147 


» 


IND LCC CF RM AT ENC OF ALPHA 


C4 IC2 


1 6 


02210 


- C 1 4 P 


02170 




SM 


F VI AFP* 35 


98 








[ 2 


04 305 


- 0Q9H 


02180 




A 


IOC 115 


L 


t 


INSERT *L 


04 126 


2 1 


06 315 


C 74 35 


q 2 1 9Q 




A 


LOC 115*50, 


L 






C 4 t 3b 


2 1 


06 365 


C 74 35 


2200 




S 


LOC 1 1 5* 10 


L 


• 


I NSE « T - L 


U4 I 5C 


2 2 


C 6 32 5 


74 35 


2210 




AM 


LOC 1 1 5* 10 


99999 






it I 


1 1 


06 325 


R 9 999 


02220 




AM 


1,00 1 15* 10 


1 










06 325 


- COO 1 






TF 


LOC 1 15*60 


LOCI 1 5* 10 










06375 


06 32 5 






A 


L 


L 


i 


I N SE R T ♦ 2 L 






C 7 4 3 5 


C 74 3 5 






A 


LOC 115*20 


L 






042 IC 


^ J 




074 35 






A 


LOC 115*70 


L 






0422 2 


2 i 


C6385 


74 35 






TF 


LOC 115*30 


LOC115M0 


i 


INSERT -2L 


042 34 


2t 


C6345 


06 32 5 


02280 




A 


L0C115O0 


LOCI 1 5*30 








2 I 


06 34 5 


06 34 5 


02290 




TF 


LOC 115*B0 


LOC I 1 5*30 






04 2 58 


26 


06395 


06 34 S 


2 300 


F VL AF P 


S 


• ♦35 


PICKUP 






04 2 70 


2 2 


C 4 3 5 


C 744 3 






HNH 


• ♦24 








nit 3 of 


4 7 


C 4 3 6 


01100 


2 320 




AM 


P ICKUP 


SECLST-12 




MUVE S PICK |F CHJ PGM SHCRT 




* ' 




- 2662 


2 3 3u 




TF 


DDDAP* I I 


PICKUP 






r L.ir*, 




r 




u2 340 




TF 


SUCi NO- ? 


mA* 38 


, 


STORE SET NC 


04 3 1tt 


It 






02 350 




07 


RD SUB 








04 3 3ij 


49 


C45 10 




02360 


F INAL 


QNR 


CK SUB 


I STAT-30 


7, 


BR IF ANOTHER SUBR RE QC 


C 4 3 3 b 


4 5 


C4 358 


- 7444 


02370 


IND 


OS 








ISTAT PNTR 


04 35^ 









2 380 




87 


CAP CK 
















02390 


CKSUB 


HD 


RD SUB 


IND 


1 I t 


HR IF SOBR IS USED 


C4 35a 


4 3 


C4510 


0434R 


O240Q 




AM 


IND 


I 


10 




U 4 3 7 


I 1 


C4349 


CCC- 1 


02410 




AM 


SUB NO 


1 


10 




G4 36<r 


1 1 






2420 




AM 


DIM, 10,610 






r 


\ ) 






02*30 




AM 


SV*5 


5 






C 4 4 C 6 


1 I 


r 




2440 


S TPSV 


SM 


SV 


5 


10, 


AO J SOBVEC POINTER 


044 1b 


1 2 




r r t 


0245U 




SM 


NF 


I 


10 




044 3C 


1 2 


C44 38 


CCG- 


02460 


NE 


DC 


2 


01 


• -3, 


NO OF ISTAI ENT TO CK FCR SUBR 


U44 3 b 




2 




02470 




- 1 
BM 


CK SUB 








0444 t 


4 6 






02480 


ADJC IM 


AM 


IM 


20 


,10, 


AUJ FOR NE OF NtXT 01* ENTRY 


04454 


I I 


r 7 7 
044 7 


C C OK 


02490 




TU 


NE 


MA 2 ♦ 1 8 


7, 


STORE NE 


04466 


2 5 


C44 )B 


- 2952 


02500 


DIM 


DS 




• 




POINTER FOR NE IN CIM ENTRIES 


C44 7 7 




r 7 «! 




025 10 




TFM 


SV*5 


MOD* 7 






J 4 4 7 b 


I 6 


? « 




02520 




BO 


F INAL 


NE 






U4490 


4 3 


04 3 38 


C4 4 3d 


02530 




B 7 


AD J DIM 






SKIP BLANK CIP r NT RY 


G45C/ 


4^ 


C4454 




02540 


RDSUB 


TF 


RD SU0*35 


DIM 






04510 


26 


C4545 


04477 


02550 




SM 


RD SUB*35 


IB 






04 52^ 


1 2 


04 54 5 


- C I 8 






TR 


DDARS 






MuVfc UIM ENTOV TC CCA FCR RUG SURR 










02570 




CM 


UDARS*17 






CK SLBR NO 


04546 


14 


C2 75 i 


-CCOO 


02580 


SUBNQ 


DS 


4 


• 




Sfc T NO AND SUbR NL 


G4'>5 7 




4 




02590 




ONE 


DELE TE 








4 5 5 it 


4 7 


04022 


C 1200 


2600 




AM 


LOC 115*40 






AOO CORES US E ^Y PKtVlLiUS SUBR 


045 70 


I I 


C63S5 


-COOO 


02610 


P ICKAD 


DS 




• 




NUM HAS CORE.RFCL BY LAST SUBR 


04->ti I 









02620 




A 


LUC 115*50 


PICKAD 




INSERT PICK *l 


04582 


21 


C6365 


C4581 


02630 




A 


LOC 1 15*60 


PICKAD 




INSERT PICK -L 


C4594 


2 I 


C6 3 75 


C458 1 
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02640 
02650 
02660 
02670 
02680 
02690 
02700 
02710 
02720 
02730 
02740 
02750 
02760 
02770 
02780 
02 790 
02800 
02810 
02820 
02830 
02840 
02850 
02860 
02870 
02880 
02890 
02900 
02910 
02920 
02930 
02940 
02950 
32960 
02970 
02980 
02990 
03000 
3010 
03020 
03030 
30*0 
030S0 
03060 
03070 
03080 
03090 
03100 
03110 
03120 
03130 
03140 
03150 
03160 
03170 
3180 
03190 



MOUIFY 
NEW CD 
CARD 

NXTINO 
PNTR 



NOTRM 
INST 

SE TP 
SMPQ 



AOJ 

CTtPNT 



OCK 



A 


LOC 115* 70 


,PICKAC 




INSERT PICK *2L 


04^06 


2 I 


063U5 


04581 


A 


LOC 115*80 


.PICKAD 




INSERT PICK -2L 


U46 I b 


2 I 


06395 


04581 


TF 


PKLP 


,CDAPS*13 




STORE CORES USED OY SUBR 


.04630 


?6 


05653 


C2747 


SET PICKAD 


TO TENS COMPLEMENT OF CCRES USFO 1>Y THIS SUBR 










TF 


PICKAO 


, DDAR S* I 3 






04*4? 


26 


C4 5«l 


02 74 7 


SF 


P ICKAO 








04654 


32 


C4581 


ocooo 


AM 


PICKAD 


, 99999 






04666 


I I 


04501 


R9999 


AM 


P ICKAD 


,1 






046 7b 


1 1 


C4581 


-C001 


TFM 


D0ARS*13 


,MOD 




PUT WORK ARFA CORE ACK INTO DDARS 


04690 


lb 


C2 74 7 


-8000 


TFM 


IQRT 


,•♦23 




RE AO IN SUBROUTINES 


G47C2 


16 


00565 


-4725 


B 


IOGT 


, DDDAR S 


,7 




04714 


49 


0Q566 


- 2 795 


TFM 


IORT 


,•♦23 






04726 


16 


00565 


-4 749 


B 


554 


♦DDDAM 


,7, 


PRE SEEK 


0473b 


49 


C0554 


-2803 


TDM 


SET P*25 


• I 




DISABLE MUDIFCTN 


04750 


15 


04943 


OCOOl 


TDM 


M0D*5 


,-2 




ASHCAN DS A CF EACH SUBR 


04762 


1 5 


08005 


COOOK 


TFM 


CARD 


,BUF*6 


* , 


SET TO FIRST INDICATOR DIGIT 


04774 


16 


C4797 


-8005 


TFM 


PNTR 


• CARD 




SET PNTR TC FIRST INC ON NfcW CARC 


04786 


16 


C4821 


-4797 


DS 








ADR CF FIRST INO FCR NEXT CARC 


04797 









AM 


CARD 


, 75 


,1C, 


AD J ADR OF NEXT CARD 


0479b 


11 


04797 


CC0P5 


DNR 


NOT RM 


,BUF*6 


,7 , 


CK INU CCDE FOR RM 


04810 


45 


04b62 


-80Q5 


US 








POINTS TC SUBR POSITION OF INTEREST 


04b2l 









BNF 


RM 


» PN TR 


ill, 


BK IF BREAK IN SECUENCE 


04822 


44 


C4842 


U402J 


B7 


NEw CD 






OR IF NEM CARC REQUIRED 


U4834 


49 


C4786 




AM 


PNTR 


,6 


,10, 


AUJ FOR NEXT I NO OlGIT 


04842 


I 1 


04821 


000-6 


07 


PNTR-ll 








04854 


4 9 


04810 




BR TU ROUTINE TO PROCESS 


DATA PER INGICATCR DIGIT 










TD 


• ♦17 


, PNTR 


,11 , 


INSERT IND CODE 


04862 


25 


C4879 


0482J 


B7 


L0CU5*5 




,6, 


BR AS I NUl C AT EC 


04874 


49 


C632- 




AM 


PNTR 


,2 


,10, 


AD J FCR LENGTH OF INSTRUCTCN X 


04802 


11 


C4B21 


000-2 


TF 


LNG 


,PNTR 


»ll , 


STORE LENGTH 


04894 


26 


C5227 


0482J 


AM 


PNTR 


, 1 


,10, 


AD J FOR P CPER HI ORDER DIGIT 


04906 


11 


04821 


OCO-l 


AM 


PNTR 


,2 






04918 


11 


04821 


-CO 02 


TDM 


SMPQ 


,-l 


, , 


SfcT TO IND P OPER MOCIFCTN 


04930 


15 


C4 940 


OOOOJ 


OS 


1 


, — 1 






04940 




1 




NOP 


AD J 


,CTL PNT 


,11 , 


BR IF ELG1BLE FOR MODIFICATION 


04942 


41 


04974 


049BN 


AM 


PNTR 


,10 






04954 


11 


C4821 


-0010 


B7 


LNG CK 






04966 


49 


05218 




BO 


• ♦2C 


t 




BR IF MCD OF P FIELD REQC 


04974 


43 


04994 


OCOOO 


OS 


5 


»• 




POINTER FOR SUBR MODIFICATION CONST 


04985 




5 




b 


U CK 








04986 


49 


C5102 


00000 


DORG 


• -4 


, INO FOR 


INDIRECT ADR CONOTN 


04993 








SF 


PNTR 


t 


,6, 


SET FLAG TO DEFINE FIELD 


04994 


32 


0482 J 


OCCOO 


AM 


PNTR 


,4 


,10, 


AOJ FOR LOW END GF FIELD 


050C6 


11 


04821 


C00-n4 


TD 


INO A 


,PNTR 


tilt 


SAVE IND ADR CCNO OF FIELD 


05018 


25 


04993 


0482 J 


CF 


PNTR 




,6, 


REMOVE ANY 1A FLAG 
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02507 


ooooo 




00150 


CLERER 


DS 


,02700 








02700 


ooooo 




00160 


INPUT 


DS 


,02887 








02887 


ooooo 




00170 


LIMITS 


OS 


,03287 








03287 


ooooo 




00180 


AODR S 


OS 


,03299 








03299 


OOOOO 




00190 


LOPOUT 


DS 


,03327 








0J327 


ooooo 




00200 


PHASE A 


DS 


,03*08 








03*08 


ooooo 




00210 


PROSTM 


OS 


,03916 








03916 


ooooo 




00220 


AL FOP 


DS 


,0*616 








0*616 


ooooo 




00230 


ALFLP 


DS 


,0*716 








0*716 


ooooo 




002*0 


ER3 


US 


,0*8*6 








0*8*8 


ooooo 




00250 


ZP 


DS 


,0*8C \ 








0*80* 


ooooo 




00260 


EV AL AO 


OS 


,0 5*C > 








05*0* 


ooooo 




270 


OK 


DS 


,0*9 








0*928 


ooooo 




00280 


EVALER 


OS 


,070 2 








07072 


ooooo 




00290 


LOLBL 


DS 


,08*1* 








08*1* 


ooooo 




00300 


LDTR 


OS 


,09190 








09190 


ooooo 




00310 


ER*A 


DS 


,0959* 








0959* 


ooooo 




00320 


OUTPUT 


DS 


,09686 








09686 


ooooo 




00330 


INSTRN 


OS 


,10256 








10256 


ooooo 




003*0 


START2 


OS 


,1053* 








1053* 


ooooo 




00350 


ST2L 


OS 


, 10850 








10150 


ooooo 




00360 




OORG 


10900 








10900 






00370 


LIBST 


GET 


PHA1 








10900 


10 00565 


J0923 
















10912 


*9 00566 


J3237 


00380 




BTM 


MOOSPS, 


PROCON 






1092* 


17 12376 


J0936 


00390 


PROCON 


BTM 


ROCKt«t20 






10936 


17 12788 


J0956 


00*00 




87 


PHAS6A 








109*8 


*9 03*08 


OOOOO 


00*10 




TPM 


• ♦30ilNPUT-ll 






10956 


16 10986 


-2876 


00*20 




AM 


•♦18t2t 


10 






10968 


11 10986 


000-2 


00*30 




CF 


• -• 








10980 


33 OOOOO 


OOOOO 


00**0 




CM 


*-6, INPUT*1S1 






10992 


I* 10986 


-3038 


00*50 




BL 


• -36 








1100* 


*7 10948 


01300 


00*60 




TFM 


SiNR*ll 


, INPUT-IO,, 


COMPRESS 


BLANKS 


11016 


16 11031 


-2877 


00*70 


SLP 


AM 


SBNA + il 


t2tl0 






11028 


11 11091 


000-2 


00*80 


S8NR 


BNR 


♦♦20, 


■* 






110*0 


*5 11060 


OOOOO 


00*90 




•7 


SLPX 








11052 


69 11160 


OOOOO 


00500 




C 


CLERER*1,SBNR*11,11 






11060 


2* 02701 


11 05 J 


00510 




•ME 


SLP 








11072 


*7 11021 


01200 


00520 




TF 


STR*U, 


SiNR+U 






not* 


26 11163 


11031 



2o o 
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2 



00530 




TF 


STR*6,SBNR*U 


11096 


26 


11138 


11051 


00540 




SN 


STR*6,1,10 


iiiob 


12 


11138 


000-1 


00550 




AM 


STR + 11,1,10 


11120 


11 


11143 


000-1 


00560 


STR 


TR 


*.*,«.» 


11132 


31 


00000 


00000 


00570 




B7 


SBNR 


11144 


49 


11040 


00000 


00580 




B7 


SBNR 


11152 


49 


11040 


00000 


00590 


SLPX 


CM 


SBNR + U, INPUT-10*2M3 


11160 


14 


11031 


-2903 


00600 




BL 


• ♦36 


11172 


47 


11208 


01300 


00610 




C 


INPUT-10*2»12.C1*2»12 


IP 14 


24 


02901 


11433 


00620 




BE 


C1P 


11196 


46 


11544 


01200 


00630 




CM 


SBNR*11, INPUT-10*2»13 


11206 


14 


11051 


-2903 


00640 




BL 


• ♦36 


11220 


47 


11256 


01300 


00650 




C 


INPuT-lO*2»12iC2*2*12 


11232 


24 


02901 


11459 


00660 




BE 


C2P 


11244 


46 


11716 


01200 


00670 




CM 


SBNR*ll, INPUT-10*2»24 


11256 


14 


11051 


-2925 


00660 




BL 


• ♦36 


11268 


47 


11304 


01300 


00690 




C 


INPUT-10+2»23,C3^2*23 


11280 


24 


02923 


11507 


00700 




Be 


C4P 


11292 


46 


11620 


01200 


00710 




CM 


SBNRM1, 1NPUT-10^2*07 


11304 


14 


11051 


-2891 


00720 




BL 


• ♦36 


11316 


47 


11352 


01300 


00730 




C 


1NPUT-10^2*06iC4+2»0 6 


11326 


24 


02889 


11521 


00740 




BE 


C3P 


1 1 340 


46 


12246 


01200 


00750 




CM 


SBNR* 11»INPUT-10^2*11 


11352 


14 


11051 


-2899 


00760 




BL 


• ♦36 


11364 


47 


11400 


01300 


00770 




C 


INPUT-10^2M0,C5^2»10 


11376 


24 


02897 


11543 


00780 




BE 


C5P 


11388 


46 


12256 


01200 


00790 




B7 


PHASEA 


1 1400 


49 


03408 


00000 


00800 


C 1 


OAC 


I 3,»0EF INEOPCOOE 


11409 


00026 




008 10 


C2 


UAC 


i3i *OELETEOPCOOE 


11435 


00026 




00820 


C3 


OAC 


24 1 *OEF 1 NE SY ST EMS VMBOL TABLE 


1 146 1 


00046 




00830 


C4 


OAC 


07«*ENDLlB 


11509 


00014 




00840 


C5 


OAC 


1 1 1 *L I ST OP CODE 


1152 3 


00022 




00850 


C IP 


GE T 


OPTAR... DPP IMF np mt)F 


11544 


10 


00565 


J 1 56 7 










1 1556 


49 


00566 


j 32 1 3 


00860 




BTM 


MO0SPSt*+12 


11568 


17 


12576 


J 1 580 


00870 


C 1P2 


BTM 


ROCKfbNOClP 


1 1 580 


17 


12788 


J 2978 


00880 




BTM 


ALFUP»»+20 


1159 2 


17 


04616 


Jl 6 1 2 


00 b 90 




B7 


ALR 1 N 


1 1604 


49 


13010 


00000 


00900 




TF 


0PSAV»ZP*1» » 1 1 


11612 


26 


132 76 


04 82K 


00910 




TF 


ZP*1B,60S»6 


1 1624 


26 


0482K 


1 3266 


00920 




SF 


INPUT* 1 1 


11636 


32 


02898 


00000 


009 JO 




BTM 


ALFUPfNOSPAC 


1 1648 


17 


04616 


J3030 


009<»0 




BTM 


EVALAD,*+12,<. 11 


11660 


17 


05M04 


1167K 


00950 




TF 


ZEP0^30,ADDRS 


11672 


26 


02330 


03299 


OOVtoO 




Th 


ZfcPU^27,OPSAV 


11684 


26 


02327 


13276 


00* 10 




TH 


ZH-ni,ZEP03U,6 


11696 


26 


04B1N 


02330 


00980 




o7 


PH« JC A 


11708 


49 


03408 


00000 


009O0 


C?P 


GET 


HPTAB, , , DELETE OP COOE 


11716 


10 


00565 


J1739 










11728 


49 


00566 


J3213 


1000 




BTM 


M0DSPSi»+12 


11740 


17 


12576 


J1752 


01010 


C2P2 


ttTM 


RDCK.ENDC1P 


11752 


17 


12788 


J2978 


01020 




BTM 


AL FOP i NOT I N 


1 1 764 


17 


04616 


J2958 


01030 




TF 


INPUT+18.60S 


11776 


26 


02905 


13268 
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01040 




TF 


ZEPO*27,ZP*l«iil 




11788 


26 02327 


0482K 


01050 




TF 


ZP+ll,ZEP0+30,6 




11800 


26 0481N 


02330 


01060 




B7 


PHASE A 




11812 


49 03408 


00000 


01070 


C4P 


TFM 


SSTDCF+5,MSTDAD, , , 


DEFINE SYSTEM SYMBOL TABLE 


11820 


16 12237 


J8943 


01080 




BTM 


MODSPSi *+12 




11832 


17 12576 


J1844 


1090 


C4P1 


TF 


SSTDCF+13.HCLIM 




11844 


26 12245 


02507 


OilOO 




SM 


SSTDCFM3tSSTSCT»100 + ll 




11856 


12 12245 


-3511 


Oil 10 




GET 


SST 




11868 


10 00565 


J1891 












11880 


49 00566 


J2224 


01120 




TF 


C4P02+11,SSTDCF*13 




11892 


26 11927 


12245 


01130 




AM 


C4P02+1U4. 10 




11904 


11 11927 


000-4 


01140 


C4P02 


S 


PR TL I M» *-* 




11916 


22 02502 


00000 


01150 




TR 


L1MI TS-9 f PRTLlM-4 




11928 


31 03278 


02498 


01160 




S 


LDTR^il,C4P02+ll» 11 




11940 


22 09201 


1192P 


01170 




S 


LOTR+ 6.C4P02M1.11 




11952 


22 09196 


1192P 


01180 




TFM 


PMASEA-1,*^12 




11964 


16 03407 


J 1976 


01190 




BTM 


ROCK , C4END 




11976 


17 12786 


J2076 


1200 




AM 


ENTCNT. It 10 




11988 


11 12218 


000- 1 


01210 




CM 


ENTCNT, 150, 9 




12000 


14 12218 


00J50 


01220 




BH 


C20ECT 




12012 


46 12044 


OilOO 


01230 




BTM 


EVALA0»»*12,4 




12024 


17 05M04 


12036 


01240 




87 


LDLBL 




12036 


49 08414 


00000 


01250 


C20ECT 


RCTY 






12044 


34 00000 


00102 


01260 




WATY 


C20EM 




12056 


39 12157 


00100 


01270 




CALL 


EXIT 




12066 


49 00796 


00000 


01280 


C46N0 


TF 


C4P02*11,HCLIM,6 




12076 


26 1192P 


02507 


01290 




S 


C4P02+11,PRTLIM,6 




12088 


22 U92P 


02502 


01300 




SM 


C4P02*li,17,6 10 




12100 


12 1192P 


000 J 7 


01310 




TFM 


SSTDCF*5,SST0AO 




12112 


16 12237 


J8908 


01320 




PUT 


SST,RBC 




12124 


10 00565 


J2147 












12136 


49 00520 


J2224 


01330 




B7 


PRQCON+20 




12148 


49 10956 


00000 


01340 


C20EM 


OAC 


30, LIMIT OF 150 SYMBOLS 


EXCEEDEOi 


12157 


00060 




01350 


ENTCNT 


DC 


3,0 




12218 


00003 




01360 




OS 


5 




12223 


00005 




01370 


SST 


00 


,SSTDCF,,,A 




12224 


00002 22 














12226 


00005 J22 32 












12231 


ooooi a 




01380 


SSTOCF 


00 A 


,0,SST0A0,SSTSCT,*-* 




12232 


00006 0J8908 












12236 


00003 -35 












12241 


00003 -oooo 


01390 




DC 


ltd 




12246 


00001 




01400 


C3P 


CALL 


EXIT 




12246 


49 00796 


00000 


01410 


C5P 


GET 


OPTAB,,, 


LIST OP COOE 


12256 


10 00969 


J2279 












12266 


49 00566 


J3213 


01420 




TFM 


ZP06*6fC»P2 




12260 


16 04644 


J2456 


01430 




TF 


INPUT*18»CL€RER+7 




12292 


26 02409 


02707 


01440 




TF 


LOPOUT t CLCRER +9 




12304 


26 03327 


02709 


01450 




TF 


XC*9,CLERER*1 




12316 


26 12929 


02701 


01460 




TFM 


INPUT*12, 99,10 




12326 


16 02699 


000R9 


01470 




BTM 


ALF0P,**12 




12340 


17 04616 


J2352 


01480 




TFM 


INPUT*14,99,10 




12392 


16 02401 


000R9 


01490 




BTM 


ALF0P,«*12 


2 02 


12364 


17 04616 


J2376 
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01500 




TFM 


1NPUT*16,99, 10 








12376 


16 


02903 


00OR9 


1510 




BTM 


ALF0P,«*12 








12388 


17 


0*616 


J2*00 


01520 




TFM 


INPUT ♦18, 99, 10 








12*00 


16 


02905 


000R9 


i *> 30 




BTM 


ALF0P,**12 








12*12 


17 


0*616 


J 2*2* 


015*0 




TFM 


ZP*36>6,ALFLP 








12*2* 


16 


0*8*6 


-*716 


015*5 




TFM 


PHASEA- 1,PR0C0N 








12*36 


16 


03*07 


J0936 


01550 




B7 


PHASEA 








12**8 


49 


03*08 


00000 


01560 


C5P2 


TF 


LOPOUT-2,Z£PQ*27 








12*56 


26 


03325 


02327 


015 70 




t 


60S-6 , LOPOUT-2 








12*68 


2* 


13262 


03325 


01580 




BE 


ALFLP 








12*80 


*6 


0*716 


01200 


01590 




BD 


•♦2*,**2**9 








12*92 


*3 


12516 


1 2 52 5 


1600 




RCTV 










1250* 


3* 


00000 


00102 


01610 


xc 


AM 


•♦9,2,8 10 








12516 


11 


12525 


0-0-2 


1620 




MATY 


LOPOUT-8 








12528 


39 


03319 


00 1 00 


1630 




MNT Y 


ZE PL)* 28 








1 25*0 


38 


02328 




16*0 




SPTY 












3* 


00000 


ooio? 


01650 




B7 


ALF LP 








1 2 5 6 * 


*9 


0*716 


UUUUU 








5 








125 75 


00005 




016 70 




T F 


"WU 5 1 D, OrrlATO,, 


L UNV t K I 


1 NrU i KUU 1 1 He 




125 76 


26 


03922 


12710 








U*+l,W£,lUt, 


CONVERT 


OP CODE 




12 5 88 


16 


0*929 


0OOM2 


n uon 








LOOK-UP 


ROUT INE 




1 2600 


26 


0*85* 


12718 


n i 7nn 






0UTPUT + 6,BLDLBL.+ 6« » 


CONVERT 


L DL BL ROUT INE 




12612 


26 


09692 


1 2726 


_ 

n ! 7 ?'n 






ER*A+6*BER*+6 








1262* 


26 


09600 


127*2 








t V A L rK ♦ 6 , O t K 9 ♦ 6 , , 


CONVERT 


EVALAD 




12636 


26 


07078 


1273* 








r n A i t * «!• 1 , n UU o r a - 1 








126*8 


26 


03*07 


12575 


7*0 














12660 


26 


10856 


1 2 750 


. 7 




M 


1 ^ a| U • ^ ^ 








12672 


15 


02331 


00000 


1 760 

: 




nr 










126 83 


00001 








1 FM 


*LrUrtjB*BlNul IN 








1 268* 


16 


0*658 


J2958 


1780 




B7 










1 2696 


*9 


1053* 


00000 


1 790 


BPHA 


B 7 










1 270* 


M9 


03* OP 


00000 




BOP 












12 712 


M9 


0*6 IN 


00000 


1 8 1 


fa f R ^ ^ L 


B7 


Pm A SE A » ,0 








12720 


M9 


03*08 


00000 
















12728 


M9 


13050 


00000 


18 30 


8 fc R *» 


k 7 


tor ^ 'n° 








12736 


M9 


13010 


ooooo 


1 8*0 




M7 










1 27** 


M9 


12752 


ooooo 


n i 


is. 


at 


r i *p 








12752 


*7 


131 70 


01 300 


n I !in 






C i * p 








1 276* 


*6 


13126 


01 200 






B 7 


C 1 3P 








12776 


*9 


13082 


ooooo 


1880 














12787 


00 005 




1890 


ROCK 


&NR 


♦♦2*, INPUT- 10 








12788 


*5 


12812 


02877 


1900 




TFM 


INPUT- 10 ,00 , 10 








12800 


16 


02877 


000-0 


1910 




BO 


* •» 36 » T Y I NSM 








12812 


*3 


128*8 


02*73 


1920 




RCTV 










1282* 


3* 


00000 


00102 


01930 




MATY 


INPUT- 10 








12836 


39 


02877 


00100 


19*0 




CM 


lNPUT-10,1*, 10 








128*8 


1* 


02877 


000J* 


1950 




6t 


RDlK-0 1,,6 








12860 


*6 


1278P 


01200 


I960 




SF 


INPUT - t 








12872 


32 


02886 


OOOOO 


01970 




SF 


INPUT* 11 








1288* 


32 


02898 


00000 


1980 




TFM 


•♦30 , INPUT*17 








12896 


16 


12926 


-290* 


01990 




AM 


•♦18,2, 10 








12908 


11 


12926 


000-2 


02000 




SF 


*-» 








12920 


32 


00000 


ooooo 


02010 




CM 


♦~6* INPUT+151 






2 3 


12932 


1* 


12926 
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02020 




BL 


*-36 








129** 


*7 


12908 


01300 


02030 




BB2 










12956 


*2 


OOOOO 


OOOOO 


020*0 


NOT IN 


WAT Y 


NOT I NM 








12958 


39 


13353 


00100 


02050 




B7 


PHASEA 








12970 


*9 


03*08 


ooooo 


02060 


ENDC IP 


PUT 


OPTAB.RBC 








12978 


10 


00565 


J3001 
















12990 


*9 


00520 


J3213 


02070 




B7 


PROCON*20 








13002 


*9 


10956 


ooooo 


02080 


ALR1N 


MATY 


AIR! NM 








13010 


39 


1 3279 


00 1 00 


02090 




B7 


PHASEA 








13022 


*9 


03*08 


OOOOO 


02100 


NOSPAC 


MATY 


NOSPM 








13030 


39 


13315 


00100 


02110 




B7 


PHASEA 








130*2 


*9 


03*08 


ooooo 


02120 


ER50ET 


MATY 


UNDSYM 








13050 


39 


13383 


00100 


021 30 




MATY 


COLL-12 








13062 


39 


02*27 


00100 


021*0 




B7 


PHASEA 








1307* 


*9 


03*08 


ooooo 


02150 


C13P 


TDM 


COINS*, 1. 


11 






13082 


15 


02*7* 


00OOJ 


02 160 




TOM 


PTINSW.O 








1309* 


15 


02*75 


ooooo 


021 70 




TDM 


TYINSW ,0 








13106 


15 


02*73 


ooooo 


02180 




B7 


PHASEA 








13118 


*9 


03*08 


ooooo 


02190 


C1*P 


TDM 


PTINSW,1, 


11 






13126 


15 


02*75 


0000J 


02200 




TDM 


C0INSM,0 








13138 


15 


02*7* 


ooooo 


02210 




TDM 


TYINSM ,0 








13150 


15 


02*73 


ooooo 


02220 




B7 


PHASEA 








13162 


*9 


03*08 


ooooo 


02230 


C15P 


TDM 


TY1NSM.1, 


11 






13170 


15 


02473 


OOOOJ 


022*0 




TDM 


CDINSM.O 








13182 


15 


0247* 


ooooo 


02250 




TDM 


PTINSM.O 








1319* 


15 


02*75 


ooooo 


02260 




B7 


PHASEA 








13206 


*9 


03*08 


OOOOO 


02270 


OPT AB 


DO 


,OPTB, ,,A 








13213 


0000 2 22 


















13215 


00005 J3222 
















13220 


00001 a 




02280 


OPTB 


DO A 


,0,A2QAD*A2DlS,A2SCT-.A20lS< 


,INSTRN*100*A2DIS 


13222 


00006 0J8833 
















13228 


0000 3-22 
















13231 


00005 J3556 


02290 




DC 


1»? 








13236 


0000 1 




02300 


PHA1 


DO 


» A 1 DC P 1 1 1 A 






13237 


00002 22 


















13239 


00005 J3*46 
















132*4 


00001 a 




02310 


A IDC F 


00 A 


, 1, 18600, 


86,2300 






132*6 


00006 1J8600 
















13252 


00003 -66 
















13259 


00005 -2300 


02320 




DC 


i,a 








13260 


00001 




02330 


60S 


DC 


8,60606060 






13261 


00008 




02340 


OPSAV 


DC 


8,0 








13276 


00008 




02350 


AIR INM 


OAC 


18, ALREAOY DEFINED! 






13279 


00036 




02360 


NOSPM 


DAC 


19, NO ROOM IN TABLEi 






13315 


00038 
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.0. 




BR IF CHAR SMALLER THAN 03 






















00772 


M7 


008 52 


01300 


00730 




CM 


BETA 


-P 


,00 




.10. 




,*L 00784 


J4 


00196 


000-0 


00740 




BNH 


• ♦44 








.0. 




BR IF CHAR LESS OR EQUAL L 






















00796 


M7 


00840 


01100 


00750 




TQM 


401 




,0 




.lit 




CHAR TOO LARGE 

0080S 


15 


00401 


0000- 


00760 




TO 


ALPHA* 1 


-P 


,H34*7 






RESTORE RM 00620 


KN 


00051 


01018 


00770 




B7 


ZPE S 












00832 


M9 


00530 


00000 


00780 




TDM 


401 




,0 








00840 


15 


00401 


00000 



235 



SPS II-O MOM I TOR I 



SUBROUTINE $1T 02 



00790 




TFM 


♦♦42 


♦iAVE-l -P,07, ADJ TO SUB TWO PI FROM MANT 

00852 JO 00894 -0099 


ooeoo 




S 


•♦30 


tIETA -PtOt UNTIL REDUCEO TO NE6 NUMBER 

00084 KK 00894 00198 


00810 




TOM 


BETA-2 


-PtO tilt -L 00878 JS 00194 0000" 


00820 




TP 




♦BETA-2 -P 00888 20 00000 00194 


00810 




B 


8ft 


♦ ,0 00900 M9 00208 00000 


00840 




OORG 


•-4 


00907 


008S0 


AAB 


OS 


4 


00910 00004 


00860 


*B 


OS 


4 


00914 00004 


00870 




OS 


1 


009 IS 00001 


00880 


PI 


DC 


47 


,3141592*53589793238442*433832793028841971*93993 

009*2 00047 


00890 


TWOPI 


•oc 


47 


♦628»18S90717990*4 76929286 76699900976999499B7967 

01009 00047 


00900 


H34 


DC 


2 


tOl 01011 00002 


00910 




oc 


2 


,02 01013 00002 


00920 




DC 


5 


,000 2 § 01018 00009 


00930 




DENO 


02072 


02072 



23 y 
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00010 




USA 


FATN3 






00004 00005 -0000 


00020 




OORG 


E06AR 






00000 






00030 


FATN3 


TFM 


PCK*5 


,♦♦20 


,17 


00000 10 


02370 


-0020 


00040 




87 


PCK 


t 


,*, 


BR TO PICK AND RETURN 
















00012 49 


0236N 


00000 


00050 




DC 


50 ,0700055050 0000110005 


0576705070 7000065020 51500825, 


350 














00350 00050 




00060 




TFM 


TEST+11 




,08, 


SET INDICATORS 


















00020 J6 


00075 


0-000 


00070 




BO 


♦ ♦20 


,BETA-1 


-PtOt 


i-L 00032 ML 


00052 


00199 


00080 




87 


EOO+12 


t 


1 1 


BR IF 2ER0 MANT 


















00044 M9 


01052 


00000 


00090 




TO 


TEST^9 


tOETA-2 


-PtO, 


SAVE MANT SIGN 


















00092 KN 


00073 


00194 


00100 


TEST 


CF 


BETA-2 


-P 




000*4 L3 


00194 


00000 


00110 




CM 


BETA 


-P, 


tlO 


0007* J4 


00194 


000-0 


00120 




BM 


PCNAR 




tOt 


•R IP CHAR POSITIVE 


















00088 M* 


00836 


01100 


00130 




BE 


ALPH 


t 


tOt 


BR IF CHAR 2ER0 


















00100 M* 


00196 


01200 


00140 




CM 


BETA 


-P, -99999 


♦ 10, 


♦L 00112 J4 


00196 


999RR 


00150 




BL 


EOO 


t 


tOt 


BR IF CHAR LESS THAN 


-u-n 














00124 M7 


01040 


01900 


00160 




TFM 


ALPM-1 


t BETA-2 


-PiOT 


001S* JO 


00195 


-0194 


00170 




A 


ALPM-i 


♦ BETA 


-PtO 


00148 KJ 


00195 


00196 


00180 




TF 


BETA-2 


-PtCLR-96-P tt 


-L,*L CLEAR AREA LEFT 


OP BIT A 














00160 KO 


00194 


OOBOB 


00190 




CF 


BETA-1 


-Pt 


tt 


-L EKPANO BETA BY REMOVING FLAG 














00172 Li 


00199 


00000 


00200 




TF 


BETA-2 


-Pt 


it 


ADJUST BETA FIELD FOR CHAR 
















00184 K* 


00194 


00000 


00210 


ALPH 


SF 


BETA-1 


-Pi 


1 1 


-L CONTRACT SETA IV RESETTNO FLAG 














00196 L2 


00199 


00000 


00220 




CM 


BETA 


-Pt29 


tlOt 


-L 00208 J4 


00196 


0OOK9 


00230 




81 


ATNl-72 


: t 


tOt 


BR IF MANT LESS THAN 


• 29 
















00220 NT 


00992 


01100 


00240 




TF 


79 


,CLR-100-P,t 


♦♦L 00232 20 


00079 


00804 


00250 




MM 


BETA-2 


-Pt6 


tlOt 


6*NANT IN 99 


















00244 J3 


00194 


000-6 


00260 




TOM 


98 


t-1 


tt 


-L 14*»MANT IN 99 


















00216 19 


00098 


OOOOJ 


00270 




S 


BETA-2 


-P,SU-48 


tit 


♦L MANT-* 6 L It ITS 


















00266 KK 


00194 01210 


00280 




TF 


ALPHA 


-P,99 


tt 


10*6*MANT MOVEO TO ALPHA. L^20* 














00210 K6 


00090 


00099 


00290 




TP 


99 


,CLR-94-P »t 


♦2L 2L*2 ZEROS 


















00292 20 


00099 


00910 


00300 




ID 


98 


,BETA-2 


-Pit 


-Lt L DIGITS 1 
















00904 20 


00096 


00194 


00310 




OC 


48 ,2552000855 1218010108 2020055008 5352OOCOO0 5*550855,348 














00148 00< 


)48 




00320 







100 


, ALPHA 


•Pl.t 


-Lt 142 DIGITS 00114 2R 00100 00050 


00330 




TF 


BETA-2 


-Ptt? 


tt 


i-L MANT IS INANT-«*)/f 104**MAn7) 
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■00 3 28 K6 00 19* 


00097 


00 3*0 




SF 


TEST* 


1 1 1 




,0 , 






I NO THIS 


CALC MADE 
























003*0 L2 00075 


00000 


00350 




TF 


80 




iCLR- 106-P 






2L 


ZEROS 
























00352 20 00080 


00798 


00360 




M 


BETA- 


2 -P, 


iBETA-2 -P 








SQUARE MANT 0036* K L 0019* 


00 19* 


00370 




TF 


SAVE 


-p 1 


,99 






-I 


SAVE IS 


MANT *M ANT . L DIGITS 






















00376 K6 00100 


00099 


00380 




TF 


ALPHA 


-V | 


, f.LK -95 -P 






♦I 


IN I T ALPHA TO 00 L*l ZEROS 






















00388 KO 00050 


00809 


00390 




T FM 


A T N 1 * 


35 , 


,99999 


i 10, 




2L 




00*00 J6 00*59 


999R9 


00*00 




1 F M 


A T N 1 - 


3 , 


,99999 


t 10, 




♦ L 




00*12 J6 00*21 


999R9 


00410 


ATM 


TF 


99 




.CLK-92-P 






♦ L 


L ** 


ZEROS 
























00*?* 20 00099 


008 12 


00*20 




TFM 


98 




i 10 


. 10, 


- L 






00*36 16 00098 


OOOJO 


00*30 




UM 


9B 








-L 






00**8 19 00098 


-0000 


00**0 




S 


96 




,Al.PHA -P 










00*60 2K C0096 


00050 


00*50 




TF 


ALPHA 


-P i 


,96 








L * 1 


1 G I T S 
























00*72 K6 00050 


00096 


00*e>0 




T F 


80 




, C l R - 1 6 - P 






2L 




00*8* 20 00080 


00798 


00*70 




M 


ALPHA 


-P i 


»SAVF -P 








2L* 1 


DIGITS 
























00*96 K L 00050 


00 100 


00*80 




I F 


ALPm A 


-P 


• 99 






-L 


L*l 


DIGITS 
























00508 Kh 00050 


00099 


00*90 




b" 


A T N I ♦ 


35 , 


r 2 


,010 








005 20 J2 00*59 


000-2 


00500 




SM 


A TN 1 - 


3 


, 1 


,0 10 








00532 J2 00*21 


000-1 


005 10 




BNZ 


ATN1 






,0 , 






BR IF LESS THAN L-l PASSES 






















005** M7 00*2* 


01200 


00520 




TF 


SAVE 


-P , 


, (INEZ -47-P 






*L 


L*2 


DIGITS 
























00556 KO 00100 


0057* 


00 5 30 




s 


SAVE 


-P , 


, AL PhA -P 








ONE MINUS 


SUM OF ( COF F »MANT* 


>*2) 






















00568 KK 00100 


00050 


005*0 




TF 


80 




,ClR- 106-P 






2L 




00580 20 00080 


00798 


00550 




M 


SAVE 


-P , 


i B E T A- 2 -P 








2L*2 


DIGIT PRODUCT 
























00592 K L 00100 


00 19* 


00560 




UC 


*8 ,0000202 100 202650250* 


50**2000*0 0205000000 0008*025, 


3*8 






















003*8 000*8 




005 70 




bNF 


TEST2 




, Tfc ST* 1 1 


,0 1 








0060* MM 00652 


00075 


00580 






TESI2 


-12 ■ 




,0 








006 16 Mfe 006*0 


01300 


00590 




SF 


99 








-L 






00628 32 00099 


00000 


60') 




A 


99 




, T A N6- * 5 


, 1 , 


- L , 


♦ L 


L*l 


DIGITS 
























006*0 2J 00099 


01256 


00 * 10 


TE ST 2 


BNF 


•♦36 




, TEST* 10 


,01 








00652 MM 00688 


0007* 


006^0 




SF 


9'* 








- L 






0066* 32 00099 


00000 


00 6 30 




A 


99 




,P10V2-*5-l 


p , , 


-L , 


*L 


L*2 


DIGITS 
























00676 2J 00099 


00623 


006*0 




r f m 


BETA 


-P i 


, 1 


,10 








00688 J6 00196 


000-1 


h 5 




[ 


100 




, B E T A ♦ 1 - P 




-L 




INSERT 


R M AT 100-L 
























00700 2N 00100 


00197 


00f>60 




80 


TEST 1 


-36 , 


,98 


,0 • 




2L 


BR IF NORMALIZATION NOT REQD 






















007 12 M3 00768 


00098 


Ouo 10 






BE 1 4 


-P i 


, 1 


, 10 








0072* J2 00196 


000-1 


UUO60 




Tk 


9o 




, 9V 




-2L 




21 


00736 31 0009B 


00099 
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00690 




TD 


QQ 




,NflS 01 G 




-L 


INSEAT 


NOISE DIGIT 






















007*8 


25 00099 


0240 1 


00700 




B7 


*-*H 






,0 






00760 


M9 00712 


00000 


00710 




SF 


98 








-2L 




00768 


32 00098 


00000 


00720 




TF 


PCK*25 




.97 


i 6, 




-L 


00780 


26 0239- 


0009 7 


00730 




TF 


PCK+15 




(BETA -P 


,6 






00792 


20 0238- 


00196 


007*0 


TEST 1 


BNF 


• *2* 




»TEST*9 


,01 






008 0* 


MM 008 28 


00073 


00750 




SF 


PCK*25 






,6 






00816 


32 0239- 


00000 


00760 




B7 


PCK* 10 






,6 






COS 28 


49 0237N 


00000 


00770 


PCHAR 


TOM 


TEST*10 




,-1 


,0 , 




INOICATE 


POS IT IVE 
008 36 


CHAR 

J5 00074 


OOOOJ 


00780 




TF 


99 




.CLR-95-P 






2L 


00848 


20 00099 


00809 


00790 




TDM 


100 




,-1 




-2L 


DIVIDEND 


EQUALS . 
00860 


I 

15 00100 


OOOOJ 


00800 




U 


99 




, BETA-2 -P 




-L, 


DIVISOR 


IS MANT 

00872 


2R 00099 


0019* 


008 10 




DC 


*8 ,0**0525000 5250000050 


0000010000 0500555670 


70510005, 


,348 




















003*8 


000*8 




00820 




bD 


**5t> 




,99 


iO , 




2L BR 


IF MAN T IS 100000., 






















0088* 


M3 00940 


00099 


00830 




SF 


100 








-2L 


REDUCE TO L OIGITS 






















00896 


32 00100 


00000 


008*0 




TF 


BETA-2 


-P 


»99 






-L 


00908 


K6 00194 


00099 


00850 




SM 


BETA 


-P 


, 1 


, 10, 




REDUCE CHAR 1 


BY 1 






















009 20 


J2 00196 


000-1 


00860 




B7 


**32 






,0 , 




THESE 3 


00932 


M9 00964 


00000 


00870 




TF 


BETA-2 


-P 


,98 


» 1 




-L INSTRUCTIONS 


GO 






















00940 


K6 00194 


00098 


00880 




SM 


BETA 


-P 


,2 


,10, 






WITH BD 
00952 


ABOVE 
J2 00196 


000-2 


00890 




til 


♦ ♦44 






,0 , 




BR IF OPERAND IS ONE 






















0096* 


M7 01008 


01300 


00900 




BE 


ALPH 






.0 , 




BR IF CHAR REDUCED TO ZERO 






















00976 


M6 00196 


01200 


00910 




SF 


BETA 


-P 








CHAR STILL POSITIVE, MAKE NEG 




















00988 


L2 00196 


00000 


00920 




B7 


TEST+48 












01000 


M9 00112 


00000 


00930 




TFM 


PCK*15 






• 610, 




STORE 


01008 


16 0238- 


000-0 


009*0 




TF 


PCK*25 




,PI0V4-45 


,16, 




♦ L 


010 20 


20 0239- 


01301 


00950 




B7 


TEST1 












01032 


M9 00804 


00000 


00960 


EOD 


BD 


* + 32 




,TEST*10 


,01, 




BR IF RESULT MORE 


THAN PI0V2 




















01040 


ML 0107 2 


00074 


00970 




TP 


PCK*25 




» BETA-2 -P 


,6 






01052 


20 0239- 


00194 


00980 




b7 


TEST1-12 










01064 


M9 00792 


00000 


00990 




TF 


ALPHA 


-P . 


,BETA-2 -P 








01072 


KO 00050 


00194 


01000 




TF 


BETA-2 


-P, 


,PI0V2-46- 


Pit 




♦ L L*l 


DIGITS 
01084 


KO 00194 


00622 


01010 




Cf 


ALPHA- 1 


-P 


r 


t t 


-L 




01096 


L3 00049 


00000 


01020 




TOM 


ALPHA 


-P 




tilt 


-L 




01108 


J 5 00050 


0000- 


01030 




CM 


BETA 


-P,00 


,1011, 


t 


♦ L 


01120 


J4 00196 


000 — 


01040 




8NH 


♦ ♦48 






tO 






01132 


M7 01180 


01100 


01050 




TFM 


♦ ♦35 




, ALPHA -P,0 7 






01144 


JO 01179 


-0050 


01060 




OC 


10 ,0550050000,310 








00310 


00010 





2 42 
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01070 




A 


•♦23 


♦ tot t A -P,0 


01156 KJ >H 


. 96 


01080 




s 


BETA-2 


-P 


01168 K2 .'0 1S4 


OOG . 


01090 




TF 


PCK*23 


♦ BET A- 3 -P,6 


01180 2C 0239- 


0019^ 


01100 




TFM 


PCKM5 


• 1 (610 


01192 16 0238- 


000-1 


Oil 10 




B 


TEST 1 


r tO 


01204 M9 00804 


00000 


01120 




DORG 


• -4 




01211 




01130 


six 


OC 


45 


, 60000000000 OOOOQOO 000000000000000000000000000 














01255 00045 




01140 


T AN 6 


oc 


46 


,540* 19500 2 705841 5544357836*6085 999 10 135 148 2514 














01301 00046 




01150 


P I OVA 


OC 


45 


,785398163397448309615660845819 


875721049292349 
01346 00045 




01160 




06 NO 


02091 




02091 





2 4 3 



SPS ' 11-6 MONITOR I SUBROUTINE SET 02 



COO 10 




OSA 


FEXT3 


FEX3 




00004 00005 -0020 














00009 00005 -0000 


00020 




OORG 


EDGAR 






00000 


000 30 


FfX3 


TOM 


SETUP* 1 


1 


,0 , 


ALLOW MUL BY LOG E FOR EXP 














00000 J5 00145 00001 


00040 




B7 


FEXT3+12 




iO 


00012 M9 00032 00000 


00050 


FEXT3 


TDM 


SETUP+1 


9 


,0, 


PREVENT MUL BY LOG E FOR EXT 














00020 J5 00145 00009 


00060 




TFM 


PCK*5 


♦ ♦20 


.17 


00032 10 02370 -0052 


00070 




B7 


PCK 




,6, 


BR TO PICK AND RETURN 














00044 49 02 36N 00000 


00080 




DC 


46,005607000 5 


50 20 250008 


5604504052 0052510050 000050 • 348 














00348 00046 


00090 




TFM 


PCK*15 


1 


.610 


00052 16 0238- 000-1 


00 100 




TF 


ALPMA-2-P 


ONEZ 


-45-P,, 


(♦L ONE. 1*4 DIGIT MANTISSA 














00064 KO 00048 00576 


00110 




BD 


• ♦20 


BETA 


-1 -P»0f 


,-L 00076 ML 00096 00195 


00120 




B7 


GOBACK-12 




» » 


BR IF MANT ZERO 














00088 M9 01004 00000 


00130 




TO 


RECIP-l 


BETA 


-2 -PtO, 


NON ZERO MANTISSA 














00096 KN 00867 00194 


00140 




CF 


BETA-2 -P 






00108 L3 00194 OOOOO 


00150 




TFM 


101 






-L 00120 16 00101 -0000 


00160 




TF 


97 


BETA 


-2 -P.» 


-L L+4 OIGITS IN 101-L 














00132 20 00097 00194 


00170 


SETUP 


B 


♦ ♦92 




(0, 


MUL BY LOG E IF EXP 














00144 M9 00236 OOOOO 


00180 




TF 


80 


UR- 


106-Pti 


,21 00156 20 00080 00798 


00190 




M 


BETA-2 -P 


LOGE 


-45-P,, 


(♦L 2L+2 OIGIT PROOUCT 














00166 KL 00194 00670 


00200 




BO 


• ♦56 


»98 


,0, 


(-2L BR IF HIORDER NOT ZERO 














00160 M3 00236 00098 


00210 




SM 


BETA -P 


1 


,10 


00192 J2 00196 000-1 


00220 




SF 


99 




1 1 


-2L, 00204 32 00099 OOOOO 


00230 




TF 


BETA-2 -P 


102 


t ♦ 


,-L MOVE L+4 OIGITS 














00216 K6 00194 00102 


00240 




B7 


• ♦20 




iO 


00228 M9 00248 OOOOO 


00250 




TF 


BETA-2 -P 


101 


1 1 


(-L MOVE 1+4 OIGITS 














00236 K6 00194 00101 


00260 




CM 


BE T A *P 


,-00 


.1011 


(♦I 0024B J4 00196 000 — 


00270 




BNH 


GOBACK-12 




(Oi 


BR IF CHAR LESS THAN -L 














00260 M7 01004 01100 


00280 




CM 


BETA -P 




,10, 


00272 J4 00196 000-0 


00290 




BE 


CALC 


» 


.0, 


BR IF CHAR ZERO 














00284 M6 00468 01200 


00300 




61 


CALC*6t 


r 


(0« 


BR IF CHAR BETWEEN -L AND ZERO 














00296 M7 00536 01300 


00310 




CM 


BETA -P 


► 2 


,10 


00)08 J4 00196 000-2 


00320 




BM 


E12 




.0, 


BR IF CHAR LARGER THAN 2 














00)20 M6 00436 01100 


00330 




Bl 


• ♦44 




•0( 


BR IF CHAR BETWEEN AND +1 














00332 M7 00376 01300 


003*0 




OC 


46 f 07770070 


7007770OS0 


3090007000 7000000505 76709070* 348 
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00 3 50 










-4 - 


6, 


f - 1 


CHAR FUUALS + 2 




















00344 2. J 0238- 


00192 


00 3 60 




T R 




„p 




* 


- L » - L 


SHIFT LEFT 2 POSITIONS 


















00356 LJ 00191 


0019 3 






B 7 


6 12-12 










00368 M9 00424 


00000 


nn \ an 
00380 




TOM 


BE T A-6 


~ P 




1 1 i 


- 1 


CHAR EQUALS *1 




















00376 J5 00190 


0000- 


00 390 




CF 


BETA-5 


-P 




♦ 


-L 


00388 L3 00191 


00000 


00400 




* 


PCX* I 5 




BETA-5 - P 


6 


» - L 


00400 2J 0238- 


00191 


004 10 




T R 


BE T A- 5 


-P 


BETA-4 -P 


• 


-L.-L 


SHlFT LEFT 1 POSITION 




















00412 LJ 00191 


00192 


00420 




BNV 


•♦32 






» 


BR 


IF ADJ CHAR DOES NOT OVFLOW 
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TF 


PCK+15 


,8ETA -Pi 


.6, 


MOVE 8 TO A 00032 


20 0238- 00196 


00030 




87 


PCKMO 


? 


,6, 


RETURN TO MAINLINE 














00044 


49 0237N 00000 


00090 




DfcNO 


02161 






02161 





252 



SPS II-D MONITOR I 



SUBROUTINE SET 02 





DSA 


BTFS3 






00004 


00005 -0000 


00020 


tfm** 


EDGAR 






00000 










PCK*5 


♦ •♦20 


#17 


00000 


10 02370 


-0020 


00040 


87 


PCK 




• 6 


00012 


49 0236N 


00000 


00050 


oc 


8 


,000 50005 ,350 


00190 


00008 




00060 


SM 


PCK*25 


tl 


1 1 


AOJ FOR A- 3 00020 


12 02390 


-0001 


00070 


TF 


PCK*25 


,BETA-2 


-P|6, 


MOVE 8-2 TO A-3 00032 


20 0239- 


00194 






• ♦30 


♦PCK+10 


*o. 


SAVE MAINLINE RETURN ADR 














00044 


K6 00074 


02375 


00090 


BT 


PCK*15 


.BETA 


-P. 6, 


BT TO OESIREO LOG 

00056 


2P 0238- 


00196 


00100 


B7 






1 » 


RETURN TO MAIN LINE 

00068 


49 00000 


00000 


00110 


OENO 


02171 






02171 







25 



SPS II-D MONITOR I 



SUBROUTINE SET 03 



000 10 *•**»» 

00020****** 

00030****** 

00040****** 

00050****** 

00060****** 

00070****** 

00080****** 

00090****** 

00100****** 

00110****** 

00120* 

00130****** 

00140* 

00150****** 

00160* SPS 

00170****** 

00180 

00190 EDGAR 
00200 PCK 
00210 NOSOIG 
00220 

00230 ALPHA 
00240 P 
00250 SAVE 
00260 BETA 
00270 

00280 PICK 

00290 

00300 

00310 

00320 

00330 

00340 OVFL 

00350 

00360 

00370 

00380 

00390 UNFL 
00400 ZRES 
00410 
00420 
00430 

00440 *•••*• 
00450 ONEZ 

00460 PI0V2 



PCK AREA MAY BE USEO AS A WORK AREA IF SUBR NOT USED. IF 
SUBROUTINES REQUlR EO. THEN THE AREA IS USED AS FOLLOWS 
02401 NOISE DIGIT. SOURCE • SUBROUT INE SUPERVISOR 

PCK ADR OF PICK. SOURCE » SUBROUT INE SUPERVISOR 

PCK + 5 ADR OF RETURN TO SUBR. SOURCE * SUBROUT I NE 

PCK+10 ADR OF RETURN TO MAINLINE. SOURCE t PR IMARY LINKAGE 
PCK+15 AOR OF A OPERANO CHARACTERISTIC. SOURCE , PICK 
PCK+20 ADR OF 8 OPERAND CHARACTERISTIC. SOURCE, PICK 
PCK+25 AOR OF A OPERANO MANTISSA. SOURCE, PICK 

PCK+30 ADR OF B OPERANO MANTISSA. SOURCE, PICK 

PCK+31 RESERVED FOR POSSIBLE RECORD MARK 
PCK+35 4 RESERVED CORE 

PCK-6 THRU PCK-90 SUBVEC FOR THE 17 FURN I SHED SUBROUTINES 

AORS ARE SUPPLIED BY THE SUBROUTINE SUPERVISOR 
PCK-91 DOWN TO END OF IORT MAY BE USED IF NO ADDED SUBROUTS 
I SUBROUTINES - AUTO FLOATING POINT 4 MAY 1963 . .JHB 
FOR OPERANOS A AND B ONLY 

PICK 00004 00005 -0198 

,*-4 00000 00000 

5 ,6 ,2365 02365 00040 

,02*01 02401 00000 

EDGAR 00000 
51 00050 00051 

tALPHA-ALPHA 00000 00000 
50 00100 00050 
96 00196 00096 

1 00197 00001 
401 »BETA+1-P tl* RESET ERROR INDICATOR 

00198 2N 00401 00197 
MOVE OPERANOS FROM MAINLINE 

00210 31 02376 0237N 
AM PCK* 10 ,11 ,5, CALC RETURN ADR AND OVERFLOW 

00222 11 023P5 00011 
TFL BETA tPCK+20 tilt MOVE 8 TO BETA 

00234 -6 00196 0238N 
BV PCK +5 * ,6, RETURN TO SUBROUTINE 

00246 46 0237- 01400 

tOO 100 1 10000020 .350 
t-i 

• t* *L 
tNINE-43 16, ,*L 

* ♦.» t*L 



DSA 
DS 
DSB 
DS 

DORG 

OS 

DS 

DS 

DS 

DS 

TO 

TR 



PCK*ll ,PCK*10 ,11, 



OC 
TDM 
SF 
TFL 
CF 
87 
TOM 
SF 
TFL 
CF 
87 



14 
401 

NINE-44 
PCM-15 
NINE-45 
PCK* 10 
401 
CLR*1 
PCK>15 
•-18 
PCK* 10 



•CLR *2 



,6 
,6 
»6 



00350 00014 
00258 15 00401 0000 J 
00270 L2 00560 00000 
00282 00 0238- 00561 
00294 L3 00559 00000 
00306 49 0237N 00000 
00314 15 00401 00001 
00326 L2 00703 00000 
00338 00 0238- 00704 
00350 L3 0033K 00000 
00362 49 0237N 00000 



SHARED CONSTANTS 

DC 49 .1000000000000000000000000000000000000000000000000 

00417 00049 

OC 47 ,15707963267948966192313216916397514420985846996 

00464 00047 



SI'S 11*0 MONITOR 1 SUBROUTINE SET 03 



00470 


LOGE 


OC 


47 


t 43429*48 190 1251 82 765 11289 189 1660508 229439700580 










0051 1 00047 


00*80 


IN-: 10 


QC 


48 


t 2302585092994045684017 991454684364207601 10148862 










00559 00048 


00490 


NINE 


OC 


45 


,999999999999999999999999999999999999999999999 










00604 00045 


00500 




DC 


2 


,99 00606 00002 


00510 


CLR 


OS 


96 


t, 96 ZERQS 00702 00096 


00520 




OC 


48 


,0 ,• 007 02 00048 


00530 




DC 


49 


,0 ,»-47 00655 00049 


00540 




OC 


2 


,-99 007 04 00002 


00550 




DENO 


03001 


03001 



255 



SPS ,11-0' MONITOR I SUBROUTINE SET 03 



00010 


DSA 


oim 






00004 00005 -0000 


00020 


OORG 


EDGAR 






00000 


00030 0IVM1 


TR 


PCK+U 


,PCKt 10 


tilt 


MOVES DIV OPERANDS INTO PCK AREA 

00000 31 02376 0237N 


00040 


AM 


PCKtlO 


,21 




CALC RETURN ADR 00012 11 02375 -0021 


00050 


IF 


85 


,CL R-lO 




0002* 20 00085 00692 


00060 


10 


PCK*25 


,PCK*15 


,611 


00036 28 0239- 0238- 


00070 





PCR+30 


,PCK*20 


,611 


00048 29 0239N 0238N 


00080 


87 


PCK*10 


t 


f 6 


00060 49 0237N 00000 


00090 


DENO 


30 1 1 






03011 



SPS ll-D MONITOR I SUBROUTINE SET 03 

00010 OSA FS3 ,Fk} ,FM3 ,FD3 00004 00005 -0000 

00009 00005 -0020 

0001* 00005 -0040 

00019 00005 -0060 



00020 




OORG 


EDGAR 






00000 








00030 


FS3 


TDM 


FL0P*1 


i2 




00000 


J5 


00 1 1 7 


00002 


00040 




B7 


MOVE+12 






00012 


M9 


00084 


00000 


00050 


F A3 


TOM 


FLOP* 1 


, 1 




00020 


J5 


00 117 


0000 1 


00060 




B7 


M0VE*12 






00032 


M9 


00084 


00000 


00070 


FM3 


TOM 


FLOP+1 


, 3 




0004 


J 5 


00117 


000.0 3 


00080 




B7 


MOVE 






00052 


M9 


00072 


00000 


00090 




uc 


4,0005, 


3 50 




00350 


00004 




00100 


FD3 


TOM 


FLOP+1 


,9 




00060 


J5 


00117 


00009 


001 10 


MOVE 


TF 


79 


»CL R-17 




00072 


20 


00079 


00685 


00120 




TFM 


PCK*5 


tFLOP-12 




00084 


10 


02370 


-0104 


00130 




B7 


PCK 


i 


.6 


00096 


49 


02 36N 


ooooo 


00140 




bxv 


•♦12 






00104 


M6 


00116 


01500 


00150 


FLOP 


FAOD 


PCK*15 


,PCK*20 


,611 


00116 


01 


0238- 


0238N 


00 160 




BV 


2 AODI V 






00128 


M6 


00196 


01400 


001 70 




BNXV 


PO*10 




• 6 


00140 


47 


0237N 


01500 


00 180 




TDM 


40 1 


i-l 




00152 


15 


00401 


OOOOJ 


00190 




BNF 


PCK*10 


fPCK*15 


,611 


00 164 


4* 


0237N 


0238- 


00200 


UNFLO 


CF 


40 1 


tOOOO 


,810 


00176 


33 


00401 


0-0-0 


002 10 




B7 


PCK+10 




• 6 


00 188 


49 


0237N 


OOOOO 


00220 


ZROD I V 


TDM 


40 1 


• 


til 


00196 


15 


00401 


0000- 


00230 




FADD 


PCK*15 


,UNFL0*11 


,6 


00208 


OJ 


0238- 


00 187 


00240 




BNZ 


PCKMO 




i 6 


00220 


47 


0237N 


01200 


00250 




TFM 


PCK*15 


,99 


,61011 


00232 


16 


0238- 


OOORR 


00260 




B7 


PCK*10 




• 6 


00244 


49 


0237N 


OOOOO 


00270 




DEND 


03024 






03024 









SPS II-O MONITOR I SUBROUTINE SET 03 



000 10 




DSA 


FS0R3 








00004 00005 -0000 


00020 




DORG 


EOGAR 








OOOOO 




00030 


FS0R3 


TFM 


PCK + 5 




,♦•►20 


t 17 


OOOOO 10 02370 


-0020 


00040 




B7 


PCK 






» 6, 


BR TO PICK AND RETURN 


















00012 49 0236N 


OOOOO 


00050 




UC 


44 


,075050 0550000002 


0000000B05 040000560000000005* 350 
















00350 00044 




00060 




BD 


♦ ♦20 




, BET A- 1 


-P»0» 


,-L 00020 ML 00040 


00195 


00070 




til 


ZRE S 


-Pi 






BR IF RESULT ZERO 


















00032 M9 00326 


OOOOO 


00080 




MM 


BETA 


-P i 


,50 


, 10, 


DIV CHAR BY 2 


















00040 J3 00196 


OOONO 


00090 




BNF 


**36 




,BETA-2 


-PtO, 


BR FOR POSITIVE ARG 


















00052 MM 00088 


00194 


00100 




CF 


BETA-2 


-P 






00064 L3 00194 


OOOOO 


001 10 




TDM 


40 1 




,0 




SET NEG ARG INDICATOR 


















00076 15 00401 


OOOOO 


00120 




bD 


SQ3 




,98 


,0, 


BR IF CHAR ODD 


















00088 M3 00380 


00098 


00130 




TFM 


SQ2+42 




,97 


,010, 


,-L MOVE M ANT I SSA ADR 


















00100 J6 00166 


000R7 


00140 




BNF 


♦ ♦24 




.99 


,0, 


BR IF CHAR POSIT IVE 


















00112 M4 00136 


00099 


00150 


S02 


SF 


97 








00124 32 00097 


OOOOO 


00160 




TF 


SOEX+47 




t97 


• t 


STORE RESULT CHAR 


















00136 K6 0048 3 


0009 7 


00170 




TF 


99 




.CLR-92- 


p «• 


,2L 00 148 20 00099 


00610 


00180 




TF 






, BET A-2 




MOVE MANT INTO 97/98 MINUS 


L 
















00160 20 OOOOO 


00194 


00190 




TFM 


LSQ+18 




»97 


,010, 


,-2L INITIAL MANT ADR HI ORDER 


















00172 J6 00246 


000R7 


00200 




TF 


LSO+23 




, SO 3* 18 


tOl, 


INITIAL RESULT ADR 


















00184 KO 00251 


00398 


002 10 




TF 


LSQM-6 




, LSO* 18 


♦ t 


INITIAL MANT AOR 


















00196 KO 00330 


00246 


00220 




TF 


BETA-2 


-P 


.0NEZ-4 8-P,. 


,*L SET RESULT TO ONE L* 1 DIGITS 
















00208 KO 00194 


00369 


00230 




B7 


L SQM 






t0 f 


00220 M9 00336 


OOOOO 


00240 


LSO 


AM 


LSQ+23 




,2 


,0610, 


ADD 2 TO RESULT 


















00228 Jl 0025J 


000-2 


10250 




S 








1 1 


SUB RESULT FROM MANTISSA 


















00240 22 OOOOO 


OOOOO 


>02 60 




BNN 


LSQ 






,0, 


CONTINUE UNTIL MANT IS NEG 


















00252 M6 00228 


01300 


00270 




CH 


LSQ*23 




iBETA-2 


-Pi07 


00264 JM 00291 


-0194 


00280 




BNL 


SO EX 




t 


»0f 


BR IF TERMINAL RESULT AOR 


















00276 M6 00436 


01300 


00290 




A 


LSQ4-18 




,LSQ*23 


»ouu 


» RESTORE LAST SUB 


















00288 KJ 00240 


0025J 


OUJUO 




L> 


LiU*i8 






,06 


00300 13 00240 


OOOOO 


00310 




*M 


LiWn-6 




',01 


fOlO* 


REDUCE MANT FIELD LENGTH ONE 














00312 Jl 00330 


000-1 


00320 




SF 










00324 32 OOOOO 


OOOOO 



SPS 11-0 HON I TDR I 



SUBROUTINE SET 01 



00*30 


LSQM 


AM 


t SO ♦ 1 8 






.0 10, 




STEP MANT ISSA ADR, Hi 

003 36 J I 


OROER 
00246 


,♦2 

000-2 


U0 3V0 




AM 


I SQ + 2 3 




tU I 


• 010, 




STEP .RESUl t ADR *1 

00348 Jl 


00251 


000-1 


00 3 50 




SM 


150**3 




♦ 09 


.0610, 




STEP RESULT -9 

00360 J2 


0025J 


000-9 


00360 






LSGM2 






,0, 




CONT LOOP WITH NEXT 


2 DIGITS 


















00372 M9 


00240 


00000 


00370 




oc 


16 , 


707002000650 20,316 




00316 00016 




00 380 


S03 


AM 


99 




,50 


• 10, 




ADO .5 TO ChAR/2 

00380 11 


00099 


OOONO 


00390 




TDM 


BETA-2 


-P 


,0 


» 2 1 1 » 


-Li 


. LENGTHEN MANT FOR 000 CHAR 




















00392 J5 


-0194 


0000- 


00400 




CF 


BETA^l 


-P 






- 1 1 


00404 L3 


00195 


00000 


00410 




TFM 


$02*42 




.98 


!oio. 




,-L MOVE MANT ADR 

004 16 J6 


00166 


000R6 


00420 




&7 


SU2-12 






• 0, 




8R TO STORE CHAR ♦ 


IN I T LOOP 


















004 28 M9 


00112 


00000 


00430 


SQEX 


TF 


80 




iCLR 


-lOO-P,, 


i 


,*L 00436 20 


00080 


00602 


00440 




mm 


BE T A-2 


-P 


,50 


.10, 




RESULT 12 00448 J3 


00194 


OOONO 


00450 




SF 


98 








-L< 


, DEFINE FIELD 

00460 32 


00098 


ooooo 


004 60 




T F M 


99 






» » 




INSERTS CHAR 

00472 16 


00099 


-0000 


00470 




rF l 


PCK*15 




,99 


,6, 




STORE RESULT 

0048* 06 


0238- 


00099 


00480 




B7 


PCK* 10 






• 6, 




RETURN TO MAINLINE 
004 96 49 


0237N 


OOOOO 


00490 




UfcNO 


0306 1 










03061 







25 



iPi ii-d MONiiUH i subroutine set 03 



OUvJ 10 




D i» A 


H0S3 




• F SIN3 






00004 00005 -0000 


















00009 00005 -0032 


00020 




DO RG 


EDGAR 










OOOOO 




000 *iO 


K0S3 


TFM 


CLF + U 




• 010 


.0 9, 




IN IT FOR COS 




















OOOOO J6 00099 


00-10 


'ooo.* a 




T FM 


PCK*5 




,CLF 


.17 




00012 10 02370 


-0088 


00050 






PCK 






.6. 




GO TO PICK AND RETURN 




















00024 49 0236N 


OOOOO 


00060 


FSIN3 


TFM 


ClF+l 1 




.-Oil.' 


.09, 




INIT FOR POSITIVE SIN 




















000 32 J6 00099 


00-1J 


000 70 




TFM 


PCK* 5 




,•♦20 


.17 




00044 10 02370 


-0064 


00080 




67 


PCK 






.6, 




GO TO PICK AND RETURN 




















00056 49 0236N 


OOOOO 


00090 




OC 


46 ,0 500 50 7056 


5000 510007 


0507 005651 0070510000 505608, 


348 


















00348 00046 




00100 




&NF 


•♦36. 




♦BETA-2 


-P 




00064 MM 00100 


00194 


00 uo 




TDM 


ClF*10 




.0 


.0 » 




ADJUST FOR NEG SIN 




















00076 J5 00098 


OOOOO 


00120 


CIF 


CF 


BE f A- 2 


~P 








00088 L3 00194 


OOOOO 


OU I iO 




CF 


dfeTA-1 


-P 






-L 


00100 L3 00195 


OOOOO 


obiio 




TF 


SAVE 


-P 


,ClK-94 


-P "» 




.♦L MOVE 1*2 ZEROS TO SAVE 


















00112 KO 00100 


00608 


00150 




CM 


BETA 


-P 


.00 


.10 




00124 J4 00196 


000-0 


00160 




BNL 


POZCH 






.0. 




BR IF POSITIVE OR ZERO CHAR 


















00136 M6 00760 


01300 


00170 




CM 


BETA 


-P 


• 00 


.1011, 




,+L 00148 J4 00196 


000 — 


00180 




BL 


BRD 






.0, 




BR IF CHAR LESS THAN -L 




















00160 M7 00208 


01300 


00190 




TFM 


♦ ♦30 




.SAVE 


-P. 07. 




CHAR BETWEEN AND -L 




















00172 JO 00202 


-0100 


00200 




S 


*tl8 




»BE f A 


-P.0 




00184 KK 00202 


00196 


00210 




TR 






, BETA- 1 


-P.. 




,-L 00196 3 J OOOOO 


00195 


00220 


BRO 


BO 


* + 24 




»CLF*11 


.01. 




BR IF S IN ROUTINE 




















00208 ML 00232 


00099 


00230 




A 


SAVE-P 




♦PI0V2* 


45- P.. 




.♦ICONVEAT TO SIN 




















00220 Kj 00100 


00419 


00240 




S 


SAVE 


-P 


•TWOPl- 


49 .1. 




.♦I 00232 KK 00100 


00964 


00250 




BH 


♦ -12 






.0, 




SUB 2 PI FROM MANT UNTIL NEG 


















00244 M6 00232 


01100 


00260 




SF 


SAVE -1 


-P 






-I 


00256 12 00099 


OOOOO 


00270 




A 


SAVE 


-P 


'.Pl-45 


. . 




.♦I 00268 K J 00100 


00917 


00280 




BN 


• ♦36 






.0 




00280 M7 00316 


01300 


00290 




SM 


CtF*lO 




,01 


.010 




00292 J2 00098 


000-1 


00300 




SF 


SAVE 


-P 








00304 L2 00100 


OOOOO 


00310 




A 


SAVE 


-P 


.PI0V2- 


45-P«» 




.♦I 00316 Kj 00100 


004 It 


00320 




TF 


• 




.CLR-106-P,, 




,2L 0C32B 20 OOOBO 


005*6 


00330 




OC 


48,5552705600 0002202000 


5055000000 0008550000 00560050 , 


,348 


















00341 00046 




00340 




M 


SAVE 


-P 


t SAVE 


-P 




00340 KL 00100 


00100 


00350 




Tf 


SAVE 


~P 


• 96 


.10, 




i-L 00352 K6 00100 


OOORB 


00360 




SF 


SAVE-i 


-P 




» t 


-L 


00364 L2 00099 


OOOOO 


00370 




TF 


BETA 


-P 


,0NfcZ«4T-P.t 




.♦LSET BETA EQUAL 1 PLUS L*i ZERO 


















00376 KO 00196 


00370 



SPS II-D MONITOR I SUBROUTINE SET 03 



PAGE 8 



00 380 




TR 


AAB- 3 




(H 34- l 




• 1 




00388 


L J 


00907 


01010 


00390 


OVER 


T DM 


SUM* I 




, 2 




»0 1 1 1 


SET FOR SUBTRACTION 
























00400 


J 5 


0047 3 


0000 K 


00400 




TF 


99 




,98 




> 1 o» 


• "L 


004 12 


26 


00099 


000R8 


00410 




TFM 


97 




,0000 




• 58, 




00424 


16 


000R7 


0-000 


00420 




u 


98 




i AB 




► 15 i 




004 36 


2R 


000R8 


00914 


00430 




BZ 


DONE 








• , 


BR I F 


QUOTIENT ZERO 
























00448 




00586 


01200 


00440 




1 F 


ALPHA 


-P i 


>95 




• 10 




00460 


K6 


00050 


000R5 


00450 


SUM 


s 


BE TA 


-P i 


, ALPHA 


-P 






00472 


KK 


00196 


00050 


00460 




AM 


AAB 




,2 




• 10 




00484 


Jl 


009 10 


000-2 


00470 




AM 


AAB- 2 




, 2 




,010 




,004 96 


Jl 


009 08 


000-2 


00460 




M 


AAB 




» AAB- 2 




»0 1 » 


4DIGIT 


PRODUCT 

005 08 


KL 


009 1 


00908 


004 90 




j f. 


AB 




,99 




tO 




00520 


Kb 


009 1 4 


00099 






T f. 


80 






_ p 




• 2L 


005 32 


20 


UUuu U 










SAVE 


-P , 


rALPHA 


-P 






00544 


KL 


00100 










OVER 




»SUM*1 




,01 




00556 


MM 


00400 


0047 3 


00530 






SUM* I 




» 1 




• , 


SET TO ADO 00568 


J 5 


00473 


00001 
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•♦20 , 








.0 




00226 N9 00248 00000 


002 50 




TF 


BET A* 2 -P 


,101 






1 * 


♦ rL 


WOVE L+4 DIGITS 




















00236 K6 00194 00101 


00260 




CN 


BETA -P, 


,-00 






,1011 


♦ ♦L 


00248 J4 00196 000 — 


00270 




BNM 


GOBACK-12, 


t 






.0, 


BR 


IF CHAR LESS THAN -L 




















00260 N7 01016 01100 


00280 




CN 


BETA -P 








,10, 




00272 J4 00196 000-0 


00290 




BE 


CALC 








,0, 


BR 


IF CHAR ZERO 




















00284 N6 00466 01200 


00300 




BL 


CALC+68 








tO, 


BR 


IF CHAR BETWEEN -L AND ZERO 




















00296 N7 00536 01300 


003 10 




CN 


BETA -P 








,10 




00308 J4 00196 000-2 


00 320 




BH 


E 1 2 








.0, 


BR 


IF CHAR LARGER THAN 2 




















00320 N6 00436 01100 


C0330 




BL 


• ♦44 








iO» 


BR 


IF CHAR BETWEEN ANO +2 




















00332 N7 00376 01300 


00340 




DC 


46, 07770070 


7007770050 


5090007000 7000000505 76705070* 348 
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00348 00046 




00350 




A 


GOBACK- 


1 1 


iBETA-4 -P,, 


• 


-L 


CHAR EQUALS P2 




















00344 KJ 01027 


00192 


00360 




TR 


BETA-5 


-P. 


•BETA- 3 -P», 


-Li 


-I 


SHIFT LEFT 2 POSITIONS 


















00356 LJ 00191 


00193 


00370 




B7 


E 12- 1 2 










00368 N9 00424 


OOOOO 


00380 




TDM 


BETA-6 


-Pi 


• lit 


-L 




CHAR EQUALS ♦ ! 




















00376 J5 00190 


0000- 


00390 




CF 


BETA-5 


-Pi 




-L 




00388 L3 00191 


00000 


00400 




A 


GOBACK- 




!bETA-5 -p!! 




-L 


00400 KJ 01027 


00191 


00410 




TR 


BETA-5 


-Pi 


•BETA-4 -P., 


-Li 


-L 


SHIFT LEFT 1 POSITION 




















00412 LJ 00191 


00192 


00420 




BNV 


•♦32 


1 


1 iO t 




6R 


IF AOJ CHAR DOES NOT OVFLOW 


















00424 N7 00456 


01400 


00430 


E 12 


BNF 


OVPL 


-P 


,RECIP-1 tli 




8R 


IF NANT POSITIVE 




















00436 NN 00258 


00887 


00440 




B7 


UNFL 


-P 








00448 N9 00314 


OOOOO 


004 50 




SF 


BETA-5 


-P 


• 11 


-2L 


00456 L2 00191 


OOOOO 


00460 


CALC 


TFN 


• ♦9 




r ,0810 




INIT SIZE INO 




















00468 J6 00477 


0-0-0 


004 70 




CM 


BETA-4 


-P, 


•34 ,10, 


-L 




00480 J4 00192 


0O0L4 


00480 




BL 


GORO 




• 1O1 




BR 


IF BETA LESS THAN .34 ♦CHAR 


















00492 NT 00606 


01300 


00490 




SN 


BETA-4 


"*} 


i34 ,10, 


-L 


ADJ 


BETA BY -.34 




















00504 J2 00192 


000L4 


00500 




AN 


CALC+9 




• 1 .010, 




STEP SIZE INO 




















00516 Jl 00477 


000- 1 


00510 




B7 


CALCM2 




• tOi 




CONTINUE REDUCTION OF BETA 




















005 28 N9 00480 


OOOOO 


00520 




TFN 


• ♦59 


1 


,6ETA-4 -PiOTi 




PROCESS IF CHAR NEG 




















005 36 JO 00595 


-0192 


00330 




A 


*♦«♦/ 




•BETA -PiO 






00546 KJ 00595 


00196 


00t>40 




TF 


dkTM-6 


-P 


rCLR-96-P .1 


-Li 


♦ L 


L+4 DIGIT FIELD 




















00560 KO 00190 


00606 


00550 




CF 


BETA-5 


-Pi 


• 11 


-L 




00572 L3 00191 


OOOOO 


00960 




TF 


RETA-4 


-P 


1 n 




SHIFT RIGHT M R T CHAR SIZE 


















00584 K6 00192 


OOOOO 


00570 




SF 


BETA-5 


-P 


• 11 


-L 




00596 L2 00191 


OOOOO 


00580 




OC 


44,0 6 5 640 52 52 5 50 6 5 3 02 


2020005000 0000000651 4052 , 


,346 


















00346 00044 




00590 


GORO 


TF 


60 




»CLRM06-Pn 


♦ 


21 


00606 20 00060 


00996 


00600 




N 


BETA-4 


-P 


,LN10-46-P,, 


♦ 


♦ L 


2L+4 OIGIT PRODUCT 




















00620 KL 00192 


00913 


00610 




SF 


97 




• ii 


-2L 


00692 32 00097 


OOOOO 


00620 




TF 


SAVE 


-P 


.99 •» 


• 


-L 


L*4 OIGIT FIELDS 




















00644 K6 OOiOO 


000*9 


00630 




TF 


BETA-2 


-P 


iff »» 


• 


-L 


0065* K6 001*4 


000** 


00640 




TFN 


FACmi 




• 2 tOlO 






00666 JA O0T91 


000-2 


00650 




A 


ALPHA-2 


-P 


•SAVE -P 






00660 KJ 00046) 


00100 


00660 




TF 


60 




iCLR-106-Pn 


t 


21 


00692 20 00060 


009*6 


00670 




M 


SAVE 


-P 


tilTA-2 -Pti 






21+6 DIGIT PROOUCT 




















00704 KL 00100 


001*4 


00680 




TF 


** 




.9* it 


» 


-I 


I** OIGIT OIVIOENO 





2G& 
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007 16 26 00099 00096 



0O690 




TFM 


96 






, 10. 


- L 00728 16 


00096 


000-0 


00700 


FACT 


DM 


97 






i ♦ 


-L 2 OIGIT DIVISOR. 1*4 


QUOTIENT 
















00740 19 


00097 


-0000 


00 7 10 




til 


F ACT+56 






,0. 


BR WHEN TERM REDUCES 


TO ZERO 
















00752 M6 


00796 


01200 


00 720 




T F 


SAVE 


-P 


t97 


» » 


L*4 DIGIT FIELD 




















00764 K6 


00 100 


00097 


00 7 30 




AM 


FACT*1 I 




• 1 


• 10 


007 76 Jl 


00751 


000-1 


UO 740 




a 7 


F ACT -60 






,0 i 


CALC NEXT TERM 




















00788 M9 


00680 


00000 


00 750 




CM 


CALC*9 






,0 10 


00796 J4 


004 77 


000-0 


00760 




BE 


RECIP 






• 0, 


BR IF FURTHER AD J NOT REQUIRED 
















00808 M6 


00888 


01200 


00770 




T F 


80 




.CLR-106-P 




, 2LADJUST FOR REDUCTNS BY .34 


















00820 20 


00080 


00596 


00 780 




M 


ALPHA-4 


-P 


.TEN34-45 


,1 


,1 2L*4 DIGIT PRODUCT 




















00832 KL 


00046 


01048 


00790 




i>F 


97 








-2L 2L*3 DIGITS 00844 32 


00097 


00000 


00800 




TF 


ALPHA-* 


-P 


,98 




,-L L*2 DIGITS 




















00856 K6 


00046 


00098 


008 10 




SM 


CALC*9 




, 1 


tOlOi 


REDUCE INDICATOR 




















00868 J2 


00477 


000-1 


00820 




B7 


*-84 






fO 


00880 M9 


00796 


00000 


00830 




UC 


26, 0000084025 0000000200 


005005 ,350 00350 00026 




00840 


R EC IP 


BNF 


GOBACK- 


1 2 


fREC I P-l 


,0 1, 


BR IF MANT MAS POSITIVE 


















00888 MM 


01016 


00887 


00850 




SF 


GOBACK- 


1 






MAKE CHAR NEGAT I VE 




















00900 L2 


01027 


00000 


00860 




TF 


99 




»CL« -94-P 




,2LCALC RECIPROCAL IF NEG MANT 
















009 12 20 


00099 


00608 


00870 




TFM 


99 




, 10 


, 10, 


-2L, 2L*2 DIGIT DIVIDEND 




















00924 16 


00099 


OOOJO 


008H0 







100 




,ALPHA-4-P 




-L, 1*2 DIGIT DIVISOR 




















009 36 2R 


00100 


00046 


00890 




BV 


GOBACK- 


24 




,0, 


BR IF OR I G OPER 1 OR 


1/LOGE 
















00948 M6 


01004 


01400 


00900 




AM 


GOBACK- 


1 


,0 1 


,10 


00960 Jl 


01027 


000-1 


009 10 




T F 


"■♦23 




.G08ACK- I 


,6 


00972 KO 


0099N 


01027 


00920 




TFL 


PCK*15 




♦ 99 


,6, 


,-L STORE RESULT 




















00984 06 


0238- 


00099 


00930 




B7 


PCK-f 10 






,6, 


RETURN TO MAINLINE 




















00996 49 


0237N 


00000 


00940 




AM 


GQBACK- 


1 . 


2, 10 




01004 Jl 


01027 


000-2 


00950 




TFM 


ALPHA-4 


-P 






01016 J6 


00046 


-0000 


00960 


GOB ACK 


TFL 


PCK*15 




,ALPHA-4-P 


,6, 


STORE RESULT 




















01028 00 


0238- 


00046 


009 7 




B7 


PCK+ 10 






,6, 


RETURN TO MAINL INE 




















01O4O 49 


0237N 


00000 


00980 


TENJ4 


oc 


47 




,2187761623949552562 226114916384 187 3 167 1 18056246 
















01093 00047 




00990 




OEND 


03102 








03 102 
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OSA 


FL0G3 


,FLN3 


00004 00005 -0000 












00009 00005 -0020 


00020 




UORG 


EDGAR 




00000 




■) 30 


FL0G3 


TOM 


CORN-M , 


. 1 ,0 , 


SET FOR COMMON LOG 














00000 J 5 00597 


0000 1 


00040 




B7 


•♦20 


> ,0 


00012 M9 00032 


00000 


00050 


FLN3 


TUM 


CORN+1 


,9 ,0 , 


SET FOR NATURAL LOG 














00020 J5 00597 


00009 


00060 




TFM 


PCK + 5 


,•♦20 ,17 


00032 10 02370 


-0052 


00070 




B7 


PCK , 


> ,6, 


BR TO PICK AND RETURN 














00044 49 0236N 


00000 


00080 




DC 


28 ,0700 


60 50 500 50 0105 


7070700055 ,350 














00350 00028 




00090 




bl) 


• ♦44 


, BE T A- 1 -P,, 


,-L BR IF NON ZERO ARG 














00052 ML 00096 


00195 


00 100 




TDM 


40 1 


,0 ,11, 


SET IND FOR LOG OR LN OF ZERO. 












00064 15 00401 


0000- 


001 10 




SF 


NINE-45-P 




PL SET UP TO STROE NEG NINES 














00076 L2 00559 


ooooo 


00 1.^0 




67 


0VFL+12-P 




BR TO STORE AND RTN TO MAINLIN 












00088 M9 00270 


00000 


001 30 




BNF 


* + 36 , 


»BETA-2 -P»0, 


BR IF MANT POSITIVE 














00096 MM 00132 


00194 


00 140 




TOM 


40 I 


,0 , , 


SET INO FOR NEGATIVE 














00 108 15 00401 


00000 


00150 




CF 


BETA-2 -P, 




MAKE POSITIVE 














00120 L3 00194 


00000 


00 160 




TFM 


CORN-25 , 


,CZER0-45 ,017, 


♦I INITIALIZE 00132 JO 00571 


-0914 


00170 




TF 


GOAL-13 , 


r BETA -P,0, 


SAVE CHAR 00144 KO 00819 


00196 


00180 




CF 


BETA-1 -Pi 




-L. EXPAND FIELD TO L*l OIGITS 












00156 L3 00195 


00000 


00190 




TDM 


BETA-2 -P, 


,1 till 


-L, ADD 1.0 00168 J5 00194 


OOOOJ 


00200 




CM 


BETA-l -P, 


,15 ,10, 


-I, 00180 J4 00195 


000J5 


00210 




BNL 


* ♦ 44 , 


, ,o, 


BR IF MOD MANT NOT LESS 1, 


,5 












00192 M6 00236 


01300 


00220 




A 


BETA-2 -P 


» BETA-2 -P,, 


DOUBLE MANT. L+l OIGITS 














00204 KJ 00194 


00194 


00230 




AM 


CORN-25 , 


,48 ,010, 


ADJ FOR NEXT CONSTANT 














00216 Jl 00571 


000M8 


00240 




B7 


*-60 , 


» ,0 


00228 M9 00168 


00000 


00250 




DC 


42,56705508252552085552550103 5106202050 085552* 350 














003 50 00042 




00260 




TF 


ALPHA -P, 


,0NEZ-48-P,, 


,*L L+l DIGITS 














002 36 KO 00050 


00369 


00270 




TOM 


ALPHA -P, 


.2 ,11. 


-L, CONVERT TO TWOZ 














00248 J5 OOOSO 


OOOOK 


00280 




S 


ALPHA -P, 


(BETA-2 -Pit 


2.0 MINUS MOO MANT (2.0-2) 












00260 KK 00050 


00194 


00290 




TF 


99 , 


.CLR-9J-P , , 


,2L 00272 20 00099 


00609 


00300 




lD 


97 , 


> ALPHA -Pit 


-Lt 00284 2Q 00097 


00050 


00310 




D 


98 , 


,8ETA-2. -P,, 


-Lt <2.0-Z>/2 EQUALS V 














00296 2R 00098 


00194 


00320 




TF 


BETA -P, 


,98 , , 


,-L L*2 OIGITS 





2 70 
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00308 K6 00196 00098 



00 330 




TF 


80 




CLR-106-P, 






2L 00320 20 00080 00596 


00340 




M 


BETA 


-p| 


BETA -Pi 






2L+4 OIGITS 


















00332 KL 00196 00196 


00350 




T F 


SAVE 


-P , 


, 9 7 i 






,-L V*«2 L*2 OIGITS 


















00344 K6 00100 0009 7 


00 360 




A 


BETA 


-P , 


, BETA -Pi 






DOUBLE Y 00356 KJ 00196 00196 


00370 


COUN 


TFM 


• ♦ 9 




,99999 ( 


iO 1 0% 




♦LlNlTlALlft COUNT TO L - 1 TERMS 


















00368 J6 00377 999R9 


00380 




TFM 


C UN ♦ 7 I 




,99999 , 


>0 10% 




2L 00380 J6 00439 999R9 


00 390 




TF 


ALPHA 


-P i 


CZER0-46 < 






i*l L*2 OIGITS* ZERO ALPHA 


















00392 KO 00050 00913 


00^00 




T F 


99 




>CLR-92-P i 






(♦L 00404 20 00099 00610 


004 10 




TFN 


98 




i 10 i 


, jo, 


-Li 


OBTAIN RECIPROCAL TERM 


















00416 16 00098 000 JO 


00420 




DM 


98 








-L i 


, 004 28 19 00098 -0000 


004 30 




A 


ALPHA 


-P • 


,97 






L+2 OIGITS TO PREV TOTAL 


















00440 Kl 00050 0009 7 


00 44 




T F 


80 










,2L PROOUCT OP Y**2 ANO TOTAL OF 


















00452 20 00080 00596 






M 


ALPHA 


~P , 


.SAVE -P 






PREVIOUSLY L ALC TERMS 


















00464 KL 00050 00100 






T F 


ALPHA 


-9 . 


r97 


1 » 




,-L L*2 OIGITS STOREO TOTAL 


















00476 K6 00050 0009 7 






SM 


COUN+71 




>2 


,0 10, 




REDUCE DIVISOR 


















00488 J2 00439 000-2 


00 






C0UN*9 




.1 


,010, 




REDUCE NO OF UNCALC TERMS 


















00500 J2 00377 000-1 


00490 




»JN Z 


C0UN*36 






tO, 


BR 


IP L-l TERMS NOT CALC 


















00512 M7 00404 01200 


00 5 00 




DC 


46, 08552550 5052000865 


5250066005 5050605000 07770050,350 


















00350 00046 


005 10 




T F 


80 




iCLR-106^P 


t » 




,2L 00524 20 00080 00596 


00 520 




M 


ALPHA 


-P 


»BETA -P 


t , 




2V * SUM OF L-l TERMS 


















00536 KL 00050 00196 








97 




iBETA -P 




-L 


ADD 2Y TO ABOVE PRODUCT. L+2 


















00548 2J 00097 00196 








BETA 


-P 








SET WITH PROPER CONSTANT 1*3 


















00560 K6 00196 00000 






SF 


BETA 


-P 








00572 L2 00196 00000 


00560 






BETA 


~P 


t97 


, » 




,-L SUB ACCUM TOTAL FROM CONSTANT 


















00584 K2 00196 00097 


005 70 


CORN 


8 


NLG 






,0, 


BR 


IF FINDING NATURAL LOG 


















00596 M9 00876 00000 


00560 




T F 


80 




tCLR-106-P 






,2L 00608 20 00080 00596 


00 590 




M 


LOGE-45 


-P 


♦ BETA -P 




♦Li 


, 00620 KL 00466 00196 


00 600 




T F 


BETA 


-P 


,97 






,-L LO OIGITS 00632 K6 00196 00097 


00A U) 




■ if 


BETA 


-P 








00644 L2 00196 00000 


00620 




TF 


80 




♦CLR-100-P 






•♦L 00656 20 00080 00602 


00630 




X . 


ONEZ-46 


-P 


♦GOAL-13 


a, 


♦Li 


i ORIG CHAR * ONE. L*5 OIGITS 


















00668 KL 00371 00819 


00640 


PLUS 


A 


99 




«BETA -P 






00680 2J 00099 00196 


00650 




TH 


BETA 


-P 


,99 






PREPARE FOR NORMALIZATION 



27! 
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00692 K6 00196 00099 



00660 




CF 


BETA 


-P 






00704 L3 00196 


00000 


006 70 




C 


CLR>92 


-P 


,98 ,, 




♦L 00716 K4 00610 


00098 


00680 




BE 


ZRES 


-P< 




BR 


IF L*5 ZEROS 00728 M6 00326 


01200 


00690 




TFM 


GOAL-1 




,03 ,10, 




SET CHAR EQUAL 3 


















00740 J6 008 31 


000-3 


00700 




BD 


GOAL-24 




,BETA-4 -P,0, 




-L BR IF HI ORDER DIGIT NON-ZERO 
















00752 ML 00608 


00192 


00710 




TR 


BETA-4 


-Pi 


,6ETA-3 -P,, 




-L 00764 LJ 00192 


00193 


00 720 




SM 


GOAL-l 




,01 ,10, 




REDUCE CHAR 00776 J2 008 31 


000- 1 


00730 




TO 


BETA 


~p! 


,NOS DIG ti 




INSERT NOISE DIGIT 


















0078B K5 00196 


02401 


007*0 




B7 


*-48 




,0, 




CONTINUE NORMALIZATION 


















008 00 M9 00752 


00000 


00750 




QC 


16 




,70 5000 500 5000660 


,350 00350 00016 




00760 




SF 


BETA-4 


-p 




-L, 


SET FIELD DEFINITION 


















00808 L2 00192 


00000 


00770 




TFM 


BETA-3 








008 20 J6 0019 3 


-0000 


00 780 


GOAL 


8NF 


• ♦24 




,99 , , 


AFFIX SIGN ANO RTN TO MAINLINE 


















008 32 M4 006 56 


00099 


00790 




SF 


BETA- 5 


-? 






00844 L2 00191 


00000 


00800 




TFL 


PCK>15 




, BET A-3 -P,6 




00856 00 0238- 


00193 


00810 




B? 


PCK*10 




» »6 




00668 49 0237N 


00000 


00820 


NLG 


TF 


80 




,CLR-100-P,» 


i 


tL CONVERSION FOR LN 


















00876 20 00060 


00602 


00830 




M 


LN10-45 


-p 


,G0AL-13 , » 


♦ L, 


L+5 DIGITS 00686 KL 00514 


00819 


00840 




B 


PLUS 




, »0, 




RETURN TO COMMON SECTION 


















00900 M9 00660 


00000 


00850 


CZERC) 


UC 


48 




,0 




00959 00048 




00*60 




uc 


'.b, -6931 ^71805599453094172321214581765680755001 3436 


















01007 00048 




00870 




DC 


48,-138629436111989061883446424291635313615100026872 


















01055 00046 




00880 




DC 


4A,-?079441 541679I359282516963643745297042265OO40308 


















01103 00048 




00890 




OEND 


03122 








03122 
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00010 OSA FSRS ,FSLS ,TFLS ,BTFS 00004 00009 -0000 

00009 00005 -0020 

00014 00005 -0040 

00019 00005 -0094 



00020 




OOR G 


EDGAR 






00000 








00030 


F$KS 


TOM 


FLOAT*25 


*8 




net no a 


J' 


00077 


00008 


00040 




B7 


FLOAT 






000 1 2 






AAAAA 




c c 




FL0AT»25 


♦ 5 




00020 


J5 


00077 


00005 


00040 




B7 


FLOAT 






00032 


M9 


00052 


OAAAA 


00070 


tfls 


TOM 


FL0AT*25 


• 6 




00040 


J5 


00077 


00006 


00080 


FLOAT 


Tft 


PCK*11 


»PCK*10 


ill 


00052 


31 


02376 


0237N 


00090 




AM 


PCIU10 


ill 




00064 


11 


02375 


-0011 


00100 




FSR 


PCK*15 


»PCR*20 


.611 


00076 


01 


0238- 


0238N 


001 10 




B7 


PCK4 10 




,6* RETURN TO » 


IAINL INE 

oooei 


49 


0237N 


00000 


00120 


BTFS 


IR 


PCK*11,PCK*10. 11 




00096 


31 


02376 


0237N 


00130 




AM 


PCK*10, 11 






001 OB 


11 


02375 


-oou 


00140 




TF 


•♦30,PCK*10 




00120 


K6 


00150 


02375 


00150 




BTFL 


PCK*15,PCK*20,6ll 




00132 


07 


0238- 


0238N 


00160 




B7 








00144 


49 


00000 


ooooo 


00170 




UfcNO 


3144 






03144 
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00 100 
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OORG 022 1A 
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-0 U- 

OC 3,1,« 

-01 

OSC I 

2 

DC 2 
07 

OSC 6 
000008 
OS 
OS 
OS 



PHASE 1-A 



.2 



, PliRMSW 

» PGKM >to* 1 
,PGRMSW«2 
.PGRMSWM 
v Pr,RK>W«4 
2 , 



0J14C 

00 15C to 

00 160 ttfcCLG 



00 I 70 
03180 
00190 
00200 
00210 

0022O 

00230 

00240 



SAVSYM 

LENGTH 

KLNO 

KLNG 

PRCGST 

Cu*ADD 

USFOFS 

SURFCT 



DS 
DS 
DC 
-0 

DC 5 ,0 

-0000 

DC 2 ,0 
-0 

DC 3 tCOC 
-00 

OS 12 .RECLG 
OS 5 
OS 2 
OS 2 

DC 5 ,00000 
-0000 

OC 5 ,19999 
J99Y9 

OSC 30 ,0 
000000000000000000000000000000 



OC 



OS 
DS 
OS 
OS 
OS 



00250 PUSrSN OSC 


00260 MW 
00270 FP2 
00280 FfcND 
00290 LSIAD 
00 300 P2PTR 
00110 FCTFNO OS 
00 320 OS 
00 330 FNON 
00340 
00 350 
00360 
00170 
00180 JAY 



1 



• 



00390 NUOC 



TF 
TPN 
B 
B 

OORG • 
OSC 1 
2 

OC 5 
J599<* 
OS 5 



•♦42,FM0N-l , 
!0RT,««23 
I0GT,,7 
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CO TO EXECUTE CALLED ROUTINE 
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02218 
02222 



02226 

02226 

02227 

02228 

02229 C 

02230 
02233 2 

02238 5 

02240 2 

02243 3 

02243 12 

02248 5 

02250 2 

02252 2 

02257 5 

02262 5 

022*3 30 



02294 I 

02244 2 
02298 2 
02303 5 
02308 S 
02311 5 
02318 5 
02321 5 

02329 2* 023*6 02323 

0231* 1* 003*5 -2359 

02348 49 003** -0000 

023*0 99 OOOOO OOOOO 
023*7 

021*7 I 



021T2 
02377 
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FACE 














02382 




5 






U1SKSW 


DSC 


I , 






02383 




I 




00* JO 


MULQEF 


OC 


1,0 






0238* 




1 




0P**0 


INT0P1 


DSC 



l.C 






02385 




I 




00*50 




OC 


5,00600 






02390 




5 








-0600 














00*60 




OC 


1,001 






02393 




3 








-01 
















00 4 70 




1)5 A 


CARD 






02398 




5 


X 1 














02398 




J5036 




00*80 




OC 


I , • 






02399 




1 




00*90 


CALLP2 


TFM 


FMf)N*i5,BLK8 






02*00 


16 


02 359 


-2461 


00500 




8 T M 


FMUN,CALLP2 






02412 


1 7 


02324 


-2400 


00510 


INH1V 


OS 


1 






02*24 




I 


00 520 


• 




1 NO 1 V n FOR CARDS, 


1 FOR 


TYPEWRITER, 










0053O 


• 




FLAGGED 1 FOR 


PAPER TAPE 










005*0 


TUG NT 


OC 


5 ,00000 






02*29 




5 








-0 000 














00550 


E N T L N 


OS 


,KfCLG*5 






02248 




o 




00560 


AFTBL 


OS 


, 1*035 






15035 




o 




00570 


CHI 


OAS 


*1C ,151 39 






15139 




430 


X 2 


00580 


CHI5 


OS 


.CHJWOO 






15839 









00590 


CHIENO 


OS 


• CM 1*860 






15999 




g 




00600 


CARD 


OS 


.CHI-101 






15036 




Q 




00610 


1UCAL 


OS 


,716 






00716 




g 




00620 


iur,T 


OS 


,566 






00566 




o 




00610 


lURBC 


OS 


, 5<f0 






00520 




o 




006*0 


lUPT 


OS 


, b!2 






00532 




o 




00650 


lUSK 


OS 


,55* 






00554 




o 




00660 


LKRET 


OS 


,602 






00602 









00670 


luR T 


OS 


, 5b5 






00565 




o 




006(10 


MONCAL 


US 


, 7^6 






00796 




c 




00 690 


E86**0 


TfM 


FMON* 35, , ,OLK 7 






02430 


16 


02 359 


-0000 


00 7 00 




HTM 


FMUN ,t 86**0 






02*42 


17 


02324 


-2430 


i>0 7 1 


bL K 8 


OS 


,f H6**0» 1 1 






02461 









G07<!0 


PRSCAN 


TFM 


FMQN* 15 t PHD OA T 






02*5* 


16 


02359 


-2478 


C'O 7 10 




BTM 


FMuN ,l05lifit 


CALL 


IN PHASEB AND EXECUTE 


02*66 


17 


02324 


J0512 


00 7*0 


PHPDAT 


DSC 


2.22 






02*78 




2 


00 750 




22 
DSA 


PHrtOOA 






02*8* 




5 


X I 














02*84 




-2486 




00 760 




OC 


1 • ' 






02*85 




l 




00 17.) 


PHHODA 


OSC 




1,0 






02*86 




I 




00 78 




OC 


s,i/?oo 






02491 




5 








J7200 














JO 7^0 




OC 
-8* 


1,0H* , , , 


SECTOR COUNT QF PHASEB 


02*9* 




3 




00 8 00 




OSA 


E86**0 






02*99 




5 


X 1 
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02*99 




-243C 




OOH 10 




DC 


I i * 






02500 




1 




00820 




OS 


, 1 M*0 






1 7340 









00 8 30 


H 7SC r 


OS 


, 1 






00003 









008*0 


PKTAO 


00 A 


, I ,B80AD,H7SCT,Nll** 




02502 




1* 








i j n*o-o w.> »o 














00 8 50 




OC 


1 r ' 






02516 




I 




OOShT 


PR T HO 


OSC 
22 


2,22, , , 


READ 


PAGtf OFLC 


02517 




2 




00 B 7 




OSA 


PR T AO 






02523 




5 


X I 














02523 




-2502 




00880 




DC 


1 , ' 






02524 




1 




00890 


Nil 


BV 


• ♦12 






02526 


46 


02 538 


01400 


00900 




TOM 


OOOCO ,0 






02538 


15 


00000 


00000 


00910 




AM 


•♦l« ,20000 


,7, 


CALCULATE MEMORY SIZE 


02550 


u 


02568 


xoooo 


O0920 




TR 


1 , A LPHRM- 1 


• 26 




02562 


31 


-OOOJ 


05679 


00 910 




BNR 


•-2* ,0 






02574 


45 


02550 


00000 


009*0 




TF 


STHl ,»-l8 






02586 


26 


02377 


02568 


U0950 




TF 


INDDA»13 ,STHL 






02598 


26 


05746 


02377 


00960 




SM 


1NUDA*13 ,999 


• 9 




02610 


12 


05746 


00R99 


00970 




TFM 


1 OR T ,«*21 






02622 


16 


00565 


-2645 


00980 




B 


I OCT * I NO ATA 


• 7, 


INITIALIZE SYMBOL TABLE 


02634 


49 


00566 


-5725 


00990 




SM 


INDOAHO ,1 


• 10 




02646 


12 


05743 


000- 1 


01 000 




C 


INOOAMl ,NX10C 






02658 


24 


05746 


02372 


01010 




BNL 


• -*8 






02670 


46 


02622 


01300 


01020 




TOM 


8UFSCS*100,«-» 






02682 


is 


06318 


00000 


01030 


OK MK 


DGM 


• 






02693 




I 




010*0 




TO 


BUFEOT^BOO.GRMK 






02694 


25 


07120 


02693 


01050 




TO 


BUFDIM* 100.GRMK 






02706 


25 


07222 


0269) 


01060 




TF 


Till tSTUL 






02718 


26 


02913 


02377 


01070 




TF 


FCIENO , STPL 






02730 


26 


02318 


02377 


01080 




TFM 


I0RT ,.»21 






02742 


16 


00565 


-2765 


01090 




B 


1 OCT ,01 MOAT 


.7, 


GET FIRST 5 DIM ENTRIES 


0275* 


49 


00566 


-5748 


01 100 




TF 


01 MOD A* 5 ,BUF0IM**5 


t » 


IN EQUIVALENCE TABLE DIM ENTRY 


02766 


26 


05761 


07167 


01 110 




TO 


DIMOOA ,BUFD|M*40 






02771 


25 


OS 756 


07162 


01 120 




TFM 


DIM00A+8 ,00R 


.9 




02790 


16 


05764 


00-08 


01 1 30 




TFM 


DIMOOA* 13.BUFF0T 






02802 


16 


05769 


-6)20 


01 1*0 




TFM 


I OK T ••♦23 






02614 


16 


00565 


-28)7 


01150 




8 


I0GT ,01 MOAT 


.?• 


GET 8 SECTORS OF EQUIV. TABLE 


02626 


69 


00966 


-5768 


01 160 


.VI 1* 


AM 


•♦18 ,16 


• 10, 


LOAO SYM TABLE FROM EQUIV TABLE 


02818 


11 


02956 


000 J6 


01170 




C 


BIIFEQT-D ,12NINE 


,2, 


IS ENTRY ALL NINES 


02890 


24 


•6319 


06009 


01180 




BE 


RDONE , 


t » 


YES 


02662 


46 


0)258 


01200 


01 190 




TF 


• ♦30 ( N114H8 


• t 


WO 


02874 


26 


02904 


02896 


01200 




AM 


•♦18 ,0* 


• 10 




02888 


11 


02904 


000*4 


01210 




SM 


DUMMY ,09 


,10, 


DETERMINE SUBROUTINE ACORESS 


02898 


12 


99999 


000-9 


01220 




MM 


•-6 »05 


• 610 




02910 


13 


0290M 


000-5 


01230 




SF 


95 






02922 


32 


00095 


00000 


01240 


rut 


OS 


5 •• 


» 


SYMBOL TABLE POINTER 


0291) 




5 




01250 




AM 


99 , fcNTLN-5 






02914 


11 


00099 


-2241 


012*0 




TF 


mi ,99 


• 6. 


STORE SU8R. ADDRESS IN SVM TABLE 


02946 


26 


0293L 


00099 


01270 




SM 


Till »5 


• 10 




029SB 


12 


0291) 


000-9 


01290 




TF 


T 1 12 ,Nll*M8 


• • 


ELIMINATE BLANKS FROM NAME 


02970 


26 


0)065 


02896 
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SM 


T 1 1 2 • 


1 2 


* I 


02982 


12 


03065 


000J2 




LUflP4 1 




T 1 1 2 ( 


02 


* 10 


02994 


11 


03065 


000-2 


ni iin 
J 




jj 


T 1 I 2 t 


Nil ? 1 8 




03006 


24 


03065 


02856 


ft! 






N 1 1 42 






03018 


46 


03102 


01100 


1 J 30 






T I 1 3 , 


1112 




03030 


26 


03089 


03065 


ni iin 






T 1 1 3 t 




* 10 


03042 


12 


03089 


000-1 


ni \lr\ 




cc 


T I 1 3 t 




• 6 


03054 


32 


0308R 


00000 




I 1 1 2 


nc 


5 , 


* 




03065 




5 




ni iin 




r 


T I 1 2 * 


oo 


,610 


03066 


14 


0306N 


000-0 








T 1 1 3 , 




|6 


03078 


33 


0308R 


00000 




1113 










03089 




5 








BNE 


L00P4 1 






3090 


47 


02994 


01200 


ni i. i a 


N 1 1 42 


SM 


T 1 1 2 , 


02 


* 10 


03102 


12 


03065 


000-2 


01420 




TP 


T 1 1 3 , 


Nl 14* 18 




03114 


26 


03089 


02856 


014 30 




SM 


T 1 1 3 i 


1 1 


* 10 


03126 


12 


03089 


000J1 


01440 




SF 


T I 1 3 f 




»6 


03138 


32 


0308R 


00000 


01450 


T i 14 


DS 


5 , 






03149 




5 




U 1 460 




TF 


T 1 I 4 , 


T112 




03150 


26 


03149 


03065 


014 70 




S 


T I I 4 , 


T113 




03162 


22 


03149 


03089 


01480 




AH 


T 1 I 4 , 


01 


,10 


03174 


11 


03149 


000- 1 


01 490 




A 


NXltlC , 


Tl 14 




03186 


21 


02372 


03149 


01 500 




TF 


NX LUC , 


T112 


,611, STORE SUBR. NAME IN NAME TABLE 


03198 


26 


0237K 


0306N 


01 510 




TF 


Till , 


NXlOC 


,6, STORE POINTER IN SYM. TABLE 


03210 


26 


0293L 


02372 


01520 




SM 


Till , 


05 


,10 


03222 


12 


02933 


000-5 


01530 




TF 


FCTEND , 


Till 




03234 


26 


02318 


02933 


01 540 




AM 


THCNT , 


01 


,10, UPDATE TABLE COUNT 


03246 


11 


02429 


000-1 


01 550 


WOONE 


CM 


NU4*lfl , 


BUFFQT*795 


03258 


14 


02856 


-7115 


01 560 




BL 


NI 14 






03270 


47 


02838 


01300 


01 570 




SM 


FCTEND , 


05 


• 10 


03282 


12 


02318 


000-5 


01 5R0 




SM 


•♦18 , 


02 


,10, INITIALIZE RE AC IN AREA 


03294 


12 


03312 


000-2 


01 590 




TFM 


CMIENO , 


00 


,210 


03306 


16 


J5999 


000-0 


01600 




CM 


• -6 , 


CHI 




03318 


14 


03312 


J5139 


01610 




BNl 


• - 16 






03330 


46 


03294 


01300 


01620 




TF 


CH| END , 


ALPHRM 




03342 


26 


15999 


05680 


01630 




TFM 


IORT,**23, 




GET HEAD 


03354 


16 


00565 


-337 7 


01640 




B 


10GT.PRTHC 


», 7 




03366 


49 


00566 


-2517 


01 650 




TR 


Nil *4 .CH16N0-162 , , , 


BLANK HEADING SECTOR 


03378 


31 


02530 


15837 


ul 660 




TFM 


Nl 1*4*163, 




CLEAR RM 


03390 


16 


02693 


-0000 


01670 




TFM 


If)RT,»*2 3, 




PUT CLEARED HEADING 


03402 


16 


00565 


-3425 


01 680 




B 


10KBC » P R THU , 7 




03414 


4 J 


00520 


2517 


01690 




34 


.0971 , , 




SKIP TO I IMMEDIATE 


03426 


34 


00000 


o ^71 


01 700 




TO 


INPUTD , 


426 


,, DETERMINE INPUT OEVICE 


03438 


25 


0601 1 


00%. 


01710 




CF 


INPUTU 






03450 


33 


06011 


00000 


CI 720 




CM 


INPUTD , 


01 


* 10 


03462 


14 


06011 


000- 1 


01 730 




HE 


I P T Y 






03474 


46 


03574 


01200 


01 740 




CM 


INPUTD , 


03 


1 10 


03486 


14 


06011 


00O-3 


01 750 




BE 


1 PPT 






3498 


46 


03 542 


01200 


01 760 




TOM 


I NO IV , 





, , CARD 1 NPUT 


03510 


15 


02424 


00000 


01 770 




TFM 


N21KEY-1 t 


10 


,10 


03522 


16 


06018 


OOOJO 


01 780 




B 


Nl ? 






03534 


49 


03 598 


v 00000 


01 790 




00 RG 


• -4 






03541 








01 790 




00 RG 


• -4 






03541 














1N0IV , 


J 


,11, PAPER TAPE INPUT 




1 5 






018 10 




TFM 


N21KEY-1 , 


08 


• 10 


03554 


16 


06018 


cod- 8 


01 820 




B 


N12 






03566 


49 


03598 


00000 


01 8 30 




OORG 


• -4 






03573 








01 840 


IPTV 


TOM 


I NO IV , 


1 


,, TYPEWRITER INPUT 2 7 7 


03574 


15 


02424 


C0001 
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TFM 


N21KEY-1 , 


06 


,10 


03586 


16 


06018 


000-6 


01 860 


NI? 


TFM 


IORT , 


•♦23 




03598 


16 


00565 


-3621 


01870 




B 


I OCT i 


SCSOAT 


,7, GET SYSTEM COMMUNICATION SECTOR 


03610 


49 


00566 


-5771 


01 880 




TO 


C0MA0O-4 , 


BUFSCS*76 


,, MOVE OBJECT TIME MACHINE SIZE 


03622 


25 


02258 


06294 


01 890 




TF 


COPST , 


COMADO 




03634 


26 


02382 


02262 


01 900 




TR 


BUFSCS , 


INIT 


,, SET UP DIM IN SYS COMM SECTOR 


03646 


31 


06218 


05795 


01910 




TR 


00402 , 


INIT-1 


,, SET UP DIM IN SYS COMM AREA 


03658 


31 


00402 


05794 


01920 




TF 


FUNG , 


BUFSCS*46 


, , MOVE F 


03670 


26 


02250 


06264 


01930 




TF 


KLNG , 


BUFSCS*48 


,, MUVfc K 


03682 


26 


02252 


06266 


01940 




TO 


B IGPRT,BUFSCS*65, ,SET PRINTER SIZE 


03694 


25 


02230 


06283 


01 950 


N21 


CM 


INPUTO , 


01 


.10 


03706 


14 


06011 


OOO-l 


01 960 




BM E 


• ♦24 






03718 


47 


037*2 


01200 


01 970 




RCTY 








03730 


34 


00000 


00102 


01 980 




TFM 


IORT , 


• ♦23 


,, READ AN INPUT RECORD 


03742 


16 


00565 


-3765 


01 990 




B 


I OCT , 


N21KEV-7 


,7, USING IORT. 


03754 


49 


00566 


-6012 


02 000 




CM 


INPUTO , 


01 


tlO 


03766 


14 


0601 1 


000-1 


C2010 




BNE 


• ♦24 






03778 


47 


03802 


01200 


02020 




BC 4 


N21*24 , 




, , ALLOWS GOOF SWITCH 


03790 


46 


03730 


00400 


02030 




CM 


CHI , 


14 


,10, IS THIS A CONTROL STATEMENT 


03802 


14 


15139 


000J4 


02040 




BNE 


CALL PI , 




, , NO, CALL IN PASS I 


03814 


47 


04212 


01200 


02050 




CF 


C H | ♦ 3 






3826 


33 


15142 


00000 


02060 




CM 


CHI *4, 5762 


.8, IS 


THIS APSTSN STATEMENT 


03838 


14 


15143 


0N762 


02070 




BE 


WASS , 




,. YES 


03850 


46 


04424 


01200 


02080 




CM 


CHl*4,5756,8, IS 


THIS A POBJP ST. 


03862 


14 


15143 


0N756 


02090 




BE 


WAOBJP , 




YES 


03874 


46 


04584 


01200 


02100 




CM 


CHI*4,5344,8» IS 


THIS A LOIS* ST. 


03886 


14 


15143 


0N344 


02110 




BC 


WAOK , 




YES 


03898 


46 


04788 


01200 


02120 




CM 


CHI ♦4,4641 


, 8 , I S 


THIS A FAN05 ST. 


03910 


14 


15143 


0M641 


02130 




BE 


FKTEST , 




, , Yt 


0)922 


46 


05096 


01200 


02140 




CM 


CHI ♦4,4946,8* IF 


TRACE 


03934 


14 


15143 


0M946 


02 I 50 




BNE 


•♦24, , , 


NO 




3946 


47 


03970 


01200 


02160 




BTM 


CDCTL, IFTRC 




3958 


17 


04084 


-2226 


02170 




CM 


CHI ♦4,4153.8, ALL 


STATEMENT MAP 


3970 


14 


15143 


0M153 


02180 




BNE 


•♦24,,, 


NO 




03982 


47 


04006 


01200 


02190 




BTM 


CDCTL, PRST 




3994 


17 


04084 


-2229 


02200 




CM 


CHI *4, 4159, ft, ARITHMETIC TRACE 


04006 


14 


15143 


0M159 


02210 




BNE 


•♦24, , , 


NO 




04018 


47 


04042 


01200 


02 220 




BTM 


COCTL, FACTRC 




04030 


17 


04084 


-2227 


02230 




CM 


CHl*4,5349,8. LIST PRINTER 


04042 


14 


15143 


ON 349 


02240 




BNE 


CDCTL*24,, 


, NO 




04054 


47 


04108 


01200 


02250 




BTM 


CDCTL, LI ST 




04066 


17 


04084 


-2228 


02260 




DC 


5,0 






04082 




5 








-0000 














02270 


COCTL 


TOM 


•-1,1,611 






04084 


15 


0408L 


OOOOJ 


02 280 




BTM 


PGH02,N2l 






04096 


17 


05694 


-3706 


022«»0 




CM 


CHI»2, 14,10, 


TEST FOR •• 


04108 


14 


15141 


0OOJ4 


02 300 




BE 


PGHD, ,, 




VES PAGE HE AOING 


04 120 


46 


05508 


01200 


02310 




RCTY 






NO, INVALIO CTL. ST. 


04132 


14 


00000 


00102 


02 320 




TF 


CHI ♦ 32 ! 


i ALPHRM 




04144 


26 


15171 


05680 


02 330 




WA TV 


CMI 






04156 


39 


15139 


00 1 00 


02 340 




RCTY 








04168 


34 


00000 


00102 


02350 




WATV 


ERMESl , 




,, ERROR, INVALIO CONTROL STATEMENT 


041SO 


39 


05819 


001 00 


02 360 




H 








04192 


48 


00000 


00000 


02 370 




B 


N21 , 




BR. TO READ NEXT STATEMENT 


04204 


49 


03706 


00000 


02 380 




DORG 


• -4 






04211 








02 390 


CALL PI 


SF 


CH1*3 






04212 


32 


15142 


00000 



1620-1**3 MQNI TO* | VERSION 2 FORTRAN 11-0 PHASE 



PAGE 



6 









C w | ♦ s 










06226 


12 


1 5 1*4 


A A AAA 
00000 


02*10 




SF 


CM I ♦ 7 










06216 


32 


15146 


00000 






SF 


CM| »9 










06268 


32 


15148 


00000 






BO 


• ♦*8 


» 1 NOI V 


» i 


CARO INPUT 




06260 


43 


04308 


02626 






TF 


Chi ♦ 160 


, ALPHRM 


t , 


YES. MOVE INPUT RECORO 




0*272 


26 


15299 


05680 






TR 


CH| 5- I 


iCH|-l 


, < 


TO CHI5 




06286 


31 


15818 


15118 






TF M 


Chi ♦ 160 


,00 


,10, 


ERASE RECORD MARK 




06296 


16 


15299 


000-0 






TF 


F P2 


i>LSG 






0*108 


26 


02298 


02250 


02 *80 




A* 


F P 2 


• 02 


.10, 


CALCULATE F PLUS TWO 




06320 


11 


02298 


000-2 


02*90 




TF 


* 


.KLNG 








06332 


26 


02240 


02252 






C 


FP2 


. * L NG 








0*366 


26 


02298 


02252 


02 510 




BNM 


• ♦2* 










06356 


67 


04180 


on oo 


0? 520 




TF 


M 


iFP2 




CALCULATE W, WORO SIZE FOR DISK 10 


06368 


26 


02240 


02298 


0? 5 3Q 




TF 


WW 


ttt 








06180 


26 


0229* 


02260 


0? 5*0 




TF M 


IOMT 


,•♦21 








06392 


16 


00565 


-4415 


02 550 




B 


IOPT 


•SCSDAT 


,7 , 


PUT SYSTEM COMMUNICATION SECTOR 


06606 


69 


00532 


-5771 


02 560 




B 


PRSCAN 










06616 


69 


02654 


00000 


0? 570 




DORG 


• -* 










0**23 








02 580 


WASS 


f F 


CH| ♦ 1* 


* ALPHRM 








06626 


26 


15153 


05680 


« % *!?^ 




BTM 


PGH02 


.•♦12 


• » 


GO TO PRINT PSTSN 




06616 


17 


05696 


-6668 


02 600 




CM 


C h l ♦ 1 2 


. 72 


,10. 


IS DEVICE CCOE PAPER TAPE 




06*68 


16 


15151 


000P2 


02610 




BE 


WAS S2 


. 




YES 




06660 


66 


06566 


01200 


02620 




CM 


Cm I ♦ l 2 


. 7* 


,10, 


NO, IS DEVICE CODE CARDS 




06672 


16 


15151 


000P6 


02630 




BE 


WASS2 




» . 


YES 




06*8* 


66 


06566 


01200 


026*0 




KC TY 












06*96 


34 


ooooc 


00102 


02650 




MA TV 


CH| 










06508 


39 


15139 


00100 


02 660 




RCTY 






* t 


ERROR, INVALID OUTPUT DEVICE 


CODE 


06520 


34 


00000 


00102 


02670 




MATY 


ERMES3 










06512 


39 


05935 


00100 


02660 




H 












0656* 


46 


00000 


00000 


02690 




B 


N21 




» • 


BR. TO READ NEXT STATEMENT 




06556 


49 


03706 


00000 


02 700 




DORG 


• -* 








06561 








02 710 


WASS2 


TO 


PUSTSN 


.CHU12 








06566 


25 


02294 


15151 


02 720 




H 


N21 










06576 


49 


03706 


00000 


u2 730 




DOUG 


•-* 










06581 








02 7*0 


WAOB JP 


TDM 


JAY 


. 1 




nni) irrtny ocrtn iac r 

UUr »t 1 IU1 KCUUIKCl 




06586 


15 


02367 


00001 


02 750 




TF 


CHUU 


.ALPHRM 








06596 


26 


15153 


05660 


02 760 




BTM 


PGH0?i*»12.. . 


GO TO 


PRINT POBJP 




06608 


17 


05694 


-4620 


0? 770 




CM 


CHIH2 


.72 


,10, 


IS DEVICE CODE PAPER TAPE 




0*620 


14 


15151 


000P2 


0? 780 




HNE 


•♦32 






NO 




0*612 


47 


04666 


01200 


02 790 




TOM 


8UFSCS*23 


, I 


.11, 


YES 




0*666 


15 


06261 


OOOOJ 


02800 




B 


N21 










0*656 


49 


03706 


00000 


02 8 10 




DORG 


• -* 










06663 








02 820 




CM 


CHI ♦ 12 


t 74 


,10, 


IS DEVICE CODE CARCS 




0*666 


14 


15151 


000P4 


02830 




BNfc 


• ♦32 






NO 




06676 


47 


04708 


01200 


02 8*0 




TOM 


BUFSCS*23 


• 


• lit 


YES 




0*688 


15 


06241 


0000- 


02850 




B 


H2 I 










06700 


49 


03706 


00000 


02 860 




DORG 


• -* 










06707 








02870 




TOM 


BUFSCS^23 


.0 


• 1 1 






06 708 


is 


06241 


0000- 


02880 




RCTY 












06720 


34 


00000 


00102 


02890 




WATY 


CHI 










06732 


39 


15139 


00100 


02900 




RCTY 








ERROR, INVALID OUTPUT DEVICE 


CODE 


0676* 


34 


00000 


00102 






WA T Y 


ERMFS3 








06756 


39 


05935 


00100 


02 920 




H 












06768 


48 


00000 


00000 


02930 




B 


N2t 






BR. TO RE AC NEXT STATEMENT 




06780 


49 


03706 


00000 


02 9*0 




00 RG 


• -* 








0*78 7 








02950 


MADK 


TOM 


BUF SCS^22 


, I 


.11. 


SET UP TO LOAD OBJECT PROG. 


ON OK. 


0*788 


1* 


0624 C 


OOOOJ 














2 7!J 


















1620-1**3 


*tini ro« 


I VERSION 2' FORTRAN 11-13 PHASE I 


-A 








PAGE 


02960 




TOM 


JAY 


, l 




UUP ACTION RfcQUIREC 




06800 


15 


02367 


00001 


02 970 




TF 


CHI ♦ J2 


.ALPHKM 








0*812 


26 


15171 


05680 


02980 




BTM 


PGM02,«» 12. . 


GO TO 


PRINT LOISK 




0*82* 


17 


05694 


-4836 


02990 




BNR 


• ♦2* 


»CH|*12 


.7, 


ELIMINATE RECURD MIRKS 




0*836 


45 


04860 


J5151 


03000 




TFM 


•-1 


,00 


• 610 






048*8 


16 


0484P 


000-0 


03010 




AM 


• -13 


,2 


.10 






06860 


11 


04847 


000-2 


0302O 




CM 


• -25 


»CH|»}0 








06872 


14 


04847 


J5169 


03 30. 




BNH 


• -*8 










06886 


47 


04836 


01100 


030*0 




CF 


CH|*13 










06896 


33 


15152 


00000 


03050 




CF 


CH 1 ♦ I 5 










0*908 


33 


15154 


00000 


01060 




CF 


CHI ♦ 1 7 










O6920 


33 


15156 


00000 


03070 




CF 


CH I ♦ 1 9 










06932 


33 


15158 


00000 


03080 




CF 


CH| *2l 










06966 


33 


15160 


00000 


03090 




TF 


BUF SCSM6 


tCH|»22 








04956 


26 


06253 


15161 


03 100 




SF 


CHIM3 










06968 


32 


15152 


00000 


3110 




SF 


CHl»l!> 










06980 


32 


15156 


00000 


3120 




SF 


CH| ♦ I 7 










06992 


32 


15156 


00000 


03130 




SF 


C H I • I 9 










05006 


32 


15158 


00000 


031*0 




SF 


CH|*21 










05016 


32 


15160 


00000 


03150 




TO 


BUFSCS*36 


»CHU2* 








05028 


25 


06254 


15163 


03 160 




ro 


BUF SCS07 


»CH|«26 








05060 


25 


06255 


15165 


03170 




TO 


BUF SCS*3B 


tCH|*2B' 








05052 


25 


06256 


15167 


03180 




TO 


8UFSCSM9 


»CM|*|0 








05066 


25 


06257 


15169 


03 190 




SF 


BUFSCS*J6 










05076 


32 


06256 


00000 


0320O 




B 


N21 










05088 


69 


03706 


00000 


03 210 




UORG 


• -* 










05095 








03220 


FKTEST 


TF 


CM | ♦ 20 


.ALPMR* 








05096 


26 


15159 


05680 


03230 




BTM 


PGHQ2,»*12. , 


GO TO 


PRINT FANOK 




05108 


17 


05696 


-5120 


032*0 




TO 


FWORK-l 


tCHUU 








05120 


25 


05814 


15150 


03250 




TO 


F WORK 


,CHI»1 3 








05112 


25 


05815 


15152 


03260 




CF 


F WORK 










05166 


33 


05815 


00000 


03270 




CM 


F WORK 


i77 


,10, 


IS F NUMERIC 




05156 


16 


05815 


0OOP7 


03280 




BNE 


N31 


t 


, * 


NU. ERROR 




05168 


67 


05440 


01200 


03290 




TO 


FWORK-l 


tCHUU 


. . 


YES. LOAO F 




05180 


25 


05814 


15151 


03300 




SF 


FWORK-l 










05192 


12 


05814 


00000 


OHIO 




TO 


F WORK 


• CH|»h 








05206 


25 


05815 


15151 


03320 




CM 


F WORK 


.02 


,10. 


F IN RANGE 




05216 


16 


05815 


000-2 


03330 




BL 


Nil 


t 


• t 


NO. ERROR 




05228 


67 


05660 


01100 


031*0 




CM 


FWORK 


,28 


.10 






0S260 


16 


05*15 


0OOK8 


03150 




BH 


N31 




It 


NO. ERROR 




05252 


6* 


05660 


01100 


01160 




TF 


FLNG 


, FWORK 


• • 


YES. MOVE F TO FORTRAN COP. 


AREA 


05266 


26 


02250 


05*15 


01170 




TO 


K WORK- I 


.CHU15 








05276 


25 


05*1* 


15154 


01180 




TO 


KWORK 


.CMU17 








05288 


25 


05*17 


1515* 


01190 




CF 


KWORK 










05100 


11 


05*17 


00000 


03600 




CM 


KWORK 


.77 


.10. 


IS K NUMERIC 




05112 


14 


05*17 


0OOP7 


03610 




BNE 


Nil 


» 




NO. ERROR 




05126 


*7 


05660 


01200 


01620 




TO 


KWORK-l 


.CHI* 16 


t ft 


YES. LOAO K 




0531* 


25 


05*1* 


15155 


01630 




SF 


KWORK- 1 










05168 


12 


05816 


00000 


01660 




TO 


KWORK 


,CMi*ia 








051*0 


25 


05*17 


15157 


01650 




CM 


KWORK 


,0* 


.10, 


K IN RANGE 




05172 


14 


05*17 


000-6 


01660 




at 


Nil 


f 


1 1 


NOt ERROR 




05116 


67 


09660 


01100 


01670 




c« 


KWORK 


.to 


tlO 






05196 


14 


05*17 


OOOJO 


03*80 




*M 


Nil 




1 * 


NO. ERROR 




05408 


6* 


09660 


01100 


03*90 




TIF 


KING 


i KWORK 


t ft 


YES, MOVE K TO FORTRAN COM. 


AREA 


05620 


26 


02252 


05*17 


01900 




8 


N21 


» 


t • 


•R. TQ REAO NEXT STATEMENT 




05*12 


69 


0170* 


00000 


01910 




DORG 


• -6 










05639 









280 



1620-1443 MONITOR I VERMUN 2 FORTRAN I I - PHASE l-A 



PACE 



J 520 


Nil 


RC TV 




*« ERROR. F OR K OUTSIDE RANGE 


05440 




AA AAA 

00000 


00102 


3 5 30 




MA TY 


CHI 




05452 


39 


15139 


001 00 


OB 540 




RC TV 






5464 


14 


AA AAA 
00000 


00102 


05 550 




MATY 


ERMES2 




54 76 




058T9 


00100 


01 560 




M 








T 


AA AA A 

00000 


00000 


U3 5 70 




B 


N21 , 


BR. TC REAO NEXT STATEMENT 


05t>00 


49 


03 706 


00000 


03580 




DO KG 


• -4 




05507 








05 590 


• • ROUTINE 


TO PRINT AND STORE 


THE PAGE HEADING 










05600 


PQHQ 


TF 


CHI ♦<,♦ 160» AlPHRM 




05508 


26 


15303 


05680 


03610 


• • THt 


: CEAftED RECURO IS STUt 


IN CORE 










03620 




TR 


N I I »CH | - I , , 


LOAD HEADER 


05520 


3 I 


02526 


15138 


03630 




TFM 


IORT,«f23, , 


PRINT HEADER 


05532 


16 


00565 


-5555 


03640 




6 


I DP T i HE AD-4 . 7 




05544 


49 


00532 


- 5671 


03650 






L M l ♦«♦♦ 1 OU • U i 19, 


CLEAR RM 


05556 


16 


15)03 


ooo-o 


03660 


RfcVSCN 


TF M 


•♦b9.Nl l»4» 16). , 


CLEAR RM 


05568 


16 


05627 


-2693 


03670 




SM 


•♦47,2, 10 




05580 


12 


05627 


C00-2 


03680 




CM 


•♦ 35.Nl 1*5 




05592 


14 


05627 


-2529 


03690 




BL 


PUT 




05604 


♦ 7 


05640 


01300 


03700 




BNR 


•-36, •-• 




05616 


45 


05980 


00000 


03710 




TFM 


•-1,0,610 




05628 


16 


0562P 


OOO-O 


03720 


PUT 


TF M 


IORT,**23 t , 


WRITE BACK TO OISK 


05640 


16 


00565 


-5663 


03730 




B 


I OR BC » PR THD , 7 




05652 


49 


00520 


-2517 


03740 




H7 


N21 




05664 


49 


03706 




03750 


HfcAO 


OS A 


Nl 1* I 




05675 




5 


X I 












05675 




-2527 




03 760 




DC 


3,18',.. 


DEFINER TO PRINT HE AO 1 NO 


05678 




3 




03 770 


ALPMRM 


J8* 

DC 


2 .0' 




05680 




2 




03 780 


PGHQ3 


DSA 


CH| 




05685 




5 


X 1 












05685 




J5 139 




03790 




DC 


3,18',, 


CONTROL RECORD PRINT DEFINER 


05688 




3 




03 800 




JR« 

OC 


5, 12345 




05693 




5 








J2 34 5 












03810 


PGH02 


TFM 


IORT ,•♦23, ,. 


NORMAL CONTROL RECORD PRINT ROUTINE 


05694 


16 


00565 


-5717 


03820 




B 


IOPT.PGH03-4.7, 




05706 


49 


00532 


-5681 


03830 




B7 


PGH02- 1 . .6 




05718 


49 


0569L 




03840 


InDA TA 


DSC 


2 ,22 




05725 




2 




03850 




22 

DSA 


1 NOD A 




05731 




5 


X 1 












5 7 31 




- 5 7 3 3 




03860 




OC 


1 , ' 




05732 




1 




03870 


INDOA 


DSC 


I .0 




05 733 




1 




03880 






')C 


5 ,17330 




05738 




5 








J7 3 JO 












3 890 




OC 


3 ,010 




05741 




3 








-10 














03900 




DS 






05746 




5 




03910 




DC 




? ft 1 


05747 




I 





1620-1443 MONITOR I VERSION 2 FORTRAN I I - C PHASE l-A PAGE 



03920 


U I MOAT 


DSC 2 


,20 




05748 


2 






20 










03930 




DSA D I KDDA 






05754 


5 












05754 


-5756 


03940 




DC I 






05755 


1 


03950 


1 MOD A 


DSC 1 


• 




05756 


1 


03960 






DC 5 


,04800 




05761 


5 






-4800 










03970 




DC 3 


,001 




05764 


3 






-01 










03980 




OSA BUFDIK 






05769 


5 












05769 


-7122 


03990 




DC I 






05770 


1 


04000 


SCSPAT 


OSC 2 


,20 




05771 


2 


04010 




20 

DSA SCSDOA 






05777 


5 












05777 


-5779 


04020 




DC I 






05778 


I 


04030 


SCSODA 


DSC I 


,0 




05779 


I 


04040 






DC 5 


,19663 




05784 


5 






J9663 










04050 




OC 3 


,001 




05787 


3 






-01 










04060 




DSA RUFSCS 






05792 


5 












05792 


-6218 


04070 




OC I 






05793 


1 


04080 




DSC I 


, 1 




05794 




04 090 




I 

OC 5 


,00000 




05799 


5 






-0000 










04100 


INI T 


DS 


,•-4 




05795 





04110 




DC 3 


,999 




09802 


3 






R99 










04120 




OC 5 


,-99999 




05807 


9 






R999R 










04130 




OC 6 


,00000* 




05813 


6 






-0000* 










04140 


fmdrk 


OS 2 






09815 


2 


04150 


KMOftK 


OS 2 






09817 


2 


04160 


ERMES1 


OAC 30, ERROR, 


INVALID CONTROL RECORD' 




09819 


30 






ERROR, INVALID 


CONTROL RECORD* 






28 


04 1 70 


ERMES2 


OAC 28, ERROR* 


F OR K OUTSIDE RANGE* 




05879 






ERROR, F OR K 


OUTSIOE RANGE* 








04180 


ERMES3 


OAC 32, ERROR, 


INVALID OUTPUT UNIT CQOE* 




05935 


32 






ERROR, INVALID 


OUTPUT UNIT CODE* 






12 


04190 


12N1NE 


DC 12 


,999999999999 


282 


06009 






R99999999999 
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PAGE 10 



0*200 


1NPUTD 


oc 

-0 


2 


,00 




060 I 1 


0*210 




f)S A 


Cm I 






06L16 














06016 


0*220 


\2lKfcY 


oc 

-0 • 


3 


,00' 




06019 


0*230 




00 KG 


06218 






06218 


0*2*0 


bOFSCS 


DSS 


100 






06218 


0*250 




OS 


2 






06319 


0*260 


OuFEUT 


OS s 


800 








0*270 




OS 


2 






07121 


0*280 


bUFDIM 


DSS 


100 






07122 


0*290 




OS 


2 






07223 


0*100 




OS 




,91999 




99999 


0*310 




OOKG 


46O00 






1 6000 


0* 920 


PHADDA 


DSC 




ltO 






1 6000 


0*3 30 




oc 


5, 1 7290 












J7290 








0* 3*0 




DC 


3,050 






1 6C08 






-50 










0*350 




DC 


5,02218 






1 60 1 9 






-2218 








0* 960 




DC 


I 








0* 3 70 




DC 


I 






16015 


0* 180 




DC 


I 






16016 


0* 390 




DC 


I 






16017 


0**00 




OC 


I 


, • 




16018 


0** lo 




use 


* 


,0000 




16019 






OOOu 










0**20 


,<tCMKS 


DSC 



I 


, o 




16023 


0**30 


LU.PHA 


SF 


1ECMKS- 






1602* 


0***0 




TDM 


GRMK 






16036 


0**50 




DGM 








160*7 


0**60 




TFM 


• ♦18 


,BUf SCb*999 




160*8 


0**70 




TF 


DU M M Y 


.RfCMKS ,, 


Slf SYMBOL TAbt.6 fC RECORD MARKS 


16060 


0**80 




SM 


t-6 


,10 ,10 




16072 


0* *90 




CM 


• -18 


,13UFSCS-1 




1 608* 


0*500 




ONE 


• -36 






16 096 


0*510 




< 


PHAOOA, 


701 




16108 


0*520 




WN 


PHAOOA, 


702 




16120 


0*530 




TR A 








16132 














161** 


0*5*0 




TCO 


IDPMA 






1602* 



100 
800 



32 


1601* 


00000 


15 


02693 


00000 


16 


16066 


-7217 


26 


99999 




1? 


16066 


00040 


1* 


16066 


-6217 


* 7 


16060 


01200 


3* 


16000 


00 701 


38 


1600C 


00702 


36 


00000 


00500 


*9 


OOOOC 


00000 



2 8 \ 







1620- 1**3 TIN I FC* 


1 VC RSI UN 2 


FORT HAN 


11 -C PHASE 


1-A 






PAGE 


1 1 


l2N!Nt 


0600* 


LFNGTH 


022*8 


DUMMY 


9999V 




KWORK 


05817 


R6CLG 


022*3 


ALPHRM 


05680 


LCUP*1 


02)9* 


ENUN 


022*8 




LDPHA 


1602* 


STflL 


02377 


h 1 a*"* T 


022 3o 


MCNCAL 


00796 


FRRET 


00602 




LIST 


02228 


Till 


02933 


HUFL IM 


7122 


HJLDfcF 


02 38* 


F L M» 


02250 




LSTAO 


02308 


U12 


03065 


CUFLOT 


0632g 


N21KE Y 


06019 


F VON 


02 32* 




n 1 1 * 2 


03102 


Ml 3 


03089 


MUF SCS 


062 1 d 


PGKMSh 


02226 


FP? 


02298 




Hi ih 


23 3b 


TIU 


031*9 


CAcLP I 


0*2 1<? 


PHAOOA 


16000 


FdORK 


058 15 




Nil 


02526 


reXNT 


02*29 


CALLP2 


02*00 


PHKOAT 


02*78 


'"jRMK 


02693 




Ml? 


03598 


VEND 


02 303 


CHI END 


1 59 -n 


PHPDOA 


02*86 


MEAD 


5675 




Nl 


0223 * 


*AQK 


0*788 


COMAPD 


C2262 


PRLGST 


02257 


IFTRC 


Q2226 




H21 


03706 


WASS2 


0*56* 


'.>l»U\1 


057*0 


PRSQAN 


02*5* 


INDOA 


05733 




N 2 


02238 


WASS 


0*42* 


OlMUPA 


05756 


PUSTSN 


0229* 


I NO IV 


02*2* 




Hil 


05**0 


W 


022*0 


01 b*SW 


02383 


KECMKS 


16023 


IM T 


05795 




NXLUC 


02 372 




02296 


t 8 6**0 


02*30 


REVSCN 


05568 


1 OC AL 


00716 




P2P>TR 


2 31 3 


SAVSYM 


022*3 


E'lMfcSl 


58 I'i 


AFTUL 


15035 


I OCT 


0U566 




PGHD2 


0569* 


SCSOAT 


05771 




0587W 


H7SCT 


00003 


IUPT 


00532 




PGHO 3 


05685 


SC. SODA 


05779 


LWMLS3 


05935 


BftOAD 


1 73*0 


ICRBC 


00520 




PGHD 


055C8 


SU8FCT 


02293 


F AC UC 


02227 


0LK8 


02*61 


IORT 


00565 




PGNUM 


02222 


USEDFS 


0226 3 


FCTLNU 


0<?3l« 


CA*l) 


1 50 36 


ICSK 


0C55* 




P*ST 


02229 


WAOBJP 


0*58* 


FK TL C T 


05096 


CDC T L 


0*08* 


I PP T 


035*2 




PR TAD 


2 502 






1NDATA 


05721 


CHI5 


15839 


1PTY 


0357* 




PR THD 


02517 






INPUTD 


060 11 


CH| 


15139 


JAY 


02367 




put 


056*0 






INTUPl 


02385 


COM i T 


02382 


KLNG 


02252 




RDQNf 


03258 







F. NO OF ONfc ASSfcMilLY, 
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PAGE 



uOO 10 




1620 


FORTRAN I 1 - D 


PHASE 1 


-B 














00020 




OORG 


02?1« 










02218 








00010 




oc 


5 


,-100 










02222 




5 








-01L- 






















000*0 


PCNUH 


oc 


3, 


1 »• 










02222 




3 








-01 






















00050 




oc 


1 


*2 










02223 




1 




00060 




K 

OC 


2 


#67 










02225 




2 








07 






















00070 




OC 


6 


,987898 










02231 




6 








R87B98 




















00080 


Nl 


DC 


I 


iO 










02233 




2 




00090 




-0 
DC 


5 


,0 










02238 




5 








-0000 




















00100 


to 


DC 


2 


,0 










022*0 




2 




00110 


RfcCLG 


-0 
DC 


3 


,000 










022*3 




3 








-00 






















00120 


SAVS YM 


OS 


12 


,RECLG 










022*3 




12 




00130 


LENGTH 


OS 


5 












022*8 




5 




001*0 


fin; 


OS 


2 












02250 




2 




00150 


KLNG 


OS 


2 












02252 




2 




00 160 


PRDGST 


DC 


5 


,00000 










02257 




5 








-0000 




















00170 


COMAOD 


DS 


5 












02262 




5 




00 180 


UbEOFS 


OSC 


30 


,0 










02263 




30 








ooooooooooocoooooooooooooooooo 
















00190 


SuHFCT 


oc 


1 


,0 










02291 




1 




00200 


PUSTSN 


OS 


1 












0229* 




1 




00210 




ns 


2 












02296 




2 




00220 


FP2 


OS 


2 












02298 




2 




00 230 


T fcNO 


OS 


5 












02303 




5 




002*0 


LSTAD 


OS 


5 












02308 




5 




002 50 




OS 


5 












02313 




5 




00260 


FCTEND 


DS 


5 












02318 




5 




00270 




DS 


5 












02323 




5 




00280 


FMON 


TF 




*2,Ff*0N-l , , 


SETUP 


ROUT 1 NE 


ENTRY 




0232* 


26 


02 366 


02323 


00290 




TFM 


IORT, **23 










02336 


16 


00565 


-235'? 


00 100 




B 


IUGT, ,7 










023*8 


*9 


00566 


-0000 


00 310 




8 






GO TO 


EXECUTE 


C AILED 


ROUT INE 


02360 


*9 


00000 


00000 


00 320 




DQRG 


• - 


* 










02367 








00330 


JAY 


OS 


1 












02367 




1 




00 3*0 


NALOC 


DS 














02372 




5 




00 350 


S TOL 


DS 














02377 




5 




00 360 


CUMST 


DS 


5 












02382 




5 




00370 


UI SKSta 


DC 


I , 













02383 




1 




00380 


MUl OEF 


DC 


1 , 













0238* 




1 




00 390 


INTUP 1 


OSC 


1 , 













02385 




I 




00*00 






DC 


5, 


00600 










02390 




5 








-0600 










2&ri 
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00*10 




DC 


3,001 






-01 




00*20 




DS A 


CARD 


00*30 




DC 


1 , • 


00**0 


CALLP2 


TFM 


FMON*35,BLK8 


00*50 




BTM 


FM0N.CALLP2 


qo*60 


INPIV 


DS 


1 


00*70 




1 


MDIV - FOR CARDS, 1 FOR TYPEWRITER, 


00*80 






FLAGGED 3 FOR PAPER TAPE 


00*90 


TbCNT 


DS 


5 


00500 


ENTLOG 


DS 


,RECLG*5 


00510 


AFTBL 


DS 


,15035 


00520 


CHI 


DAS 


430,15139 


00530 


CHI5 


DS 


,CH1*700 


005*0 


CARD 


OS 


,CH|-103 


00550 


luCAL 


OS 


,716 


00560 


I OCT 


OS 


, 566 


00570 


IUR8C 


OS 


,520 


00580 


10PT 


DS 


,532 


00 590 


IL.SK 


OS 


,55* 


00600 


tKREI 


OS 


,602 


00610 


luRT 


DS 


,565 


00620 


LIST 


DS 


.2228 


00630 


BIGPRT 


OS 


,2230 


006*0 


MQNCAL 


DS 


, 796 


00650 


fc*6**0 


TFM 


FMON*35 ,BLK7 


00660 




BTM 


FHON ,£86**0 


00670 


BLK8 


OS 


,E86**0*3l 


00680 


FLIP1 


OS 


,171*0,,, FLIP DISK ADORESS 


00690 


FLOPl 


OS 


,17200*7,,, FLOP (RESTORE DISK 


00 700 


FLIP2 


OS 


,E864*0*700,,, FLIP CORE ADDRESS 


00710 


FLIP 


TFM 


BLK9A*5,FLIPl 


00720 


FLOP 


TFM 


IORT, •♦23,, BRING IN GENERAL 1 


00730 




B 


IOGT,BLK9,7 


007*0 


RE TR 


B7 


• -• 


00750 


• • TO 1 


FLIP 


TFM RETRN-5 tPRI NT ROUT INE- TFM RETRNi 


00760 


• • TO 1 


RESTORE TFM BLK9A4-5, PARTI AL DISK AODRESS-TI 


00770 


BLK9 


OSC 


2.22 






22 




00780 




OSA 


BLK9A 


00790 




OC 


lt« 


00800 


BLK9A 


OSC 


l.G 


00810 






OSA 


FLIPl 


00820 




oc 


3,011 






-11 




00830 




OSA 


FLIP2 



-5, RETRN B7FL0P 



280 



02393 




3 




02398 




5 


X 1 


02398 




J5036 




02399 




1 




02*00 


16 


02359 


^2*61 


02*12 


17 


0232* 


-2*00 


02*2* 




I 




02*29 




5 




022*8 









15035 









15139 




430 


X 2 


15839 









15036 









00716 









00566 









00520 









00532 









0055* 









00602 









00565 









02228 









02230 




c 




00796 









02*30 


16 


02359 


-9760 


02**2 


17 


0232* 


^2430 


02*61 









173*0 









17207 









03130 









02*5* 


16 


02510 


J 7 340 


02*66 


16 


00965 


-2489 


02*78 


*9 


00966 


-2497 


02*90 


*9 


00000 




02*97 




2 




02503 




5 


X 1 


02503 




^2905 




0290* 




1 




02505 




1 




02510 




5 


X 1 


02510 




J 7 3*0 




02513 




3 




02518 




9 


X 1 
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DC 



1 , 



02518 
02519 



-3HO 



00850 
00860 
U0870 



00880 PRTCHI 
00890 
00900 
00910 
00920 
0Q9SQ 

009*0 Ufc^CHI 



P« I N r CHJ UK CHI 1 ) 
CALL TU PR INT IS 

DC 5,123*5 

J2'34* 

TFM |CMT,»*23 



TFM UfFCMl.CHl (OR CH15), 



b 

BN ] 

TFM 

bT 

07 

OSA 



IOPT,DEFCH|-*, 
•♦ 32, Q)*00 

R e r r ♦6,couFin 

FLIP , , , 
PRTCHI -I , ,6, 
CHI 



00950 




DC 


3 , 


18« , , , 






J8 • 






00960 


kSNOPL 


DC 


* , 









-000 






00970 




DC 


1 . 




00980 


CtNO 


DC 


2 , 









-0 






00990 


HLOC 


DC 


5 , 









-0000 




01 000 


TK INO 


DSC 


1 . 


u 


otoio 


NU ini; 




JSC 


1 , 





01020 


MS* 




DSC 


1 . 


J 


01 030 


CKENO 




OSC 


1 , 





J I 0*0 


PARC-NT 




DC 


3, 









-00 






oi 050 


T LHP 


DC 


5 , 









-ooco 




01 060 


rtH»>5 


DC 


5, 









-0000 




I 070 


ft t r. i n 


bTM 


PUT, 0132,811, 


i. 1 OHO 


utr, ina 


TFM 


PARCNT , 0,9 


01 090 




BD 


MOO AFT, SINGS I 


ci too 




TF 


SUbS*,ZERl 3*2 


01 I 10 




BD 


B A 


, I NO I V 


01 l?0 




TDM 


CHI •>♦!** 


01130 




DC 


1 , 




01 1*0 




!R 


CHI- I , CHI 1- 1 


01 150 




[1 


READl*2* 


01 160 




DORG 






01 170 


UA 


RC T Y 






Dl IftO 


I iNO 


US 






C 1 190 




DC 


1 , 





CALL TC OVERFLOW ROUT INF 
WFTURN TO PRIM CALLt» 



CHI PRINT OFFINER 



SEMI COLON 



TFM IURT,»*23 



0252* 




5 




02526 


16 


00565 


-25*9 


02538 


* V 


00532 


-2589 


02550 


* 7 


C2582 


3*00 


02562 


16 


02*96 


- 3 78* 


0257* 


*9 


02*5* 




02582 


*9 


0252N 




02593 




5 


X t 


02593 




J51 39 




02 596 




3 




02600 








2 601 




I 




2 60 3 




2 




















02610 




1 




02611 




1 




02b 12 




I 












02620 




5 




02625 




5 




C2626 


i 7 


0905C 


C- I 3K 


26 38 


1 6 


0261 5 


00-00 


02650 


* 3 


09808 


C9998 


02662 


2e> 


100 12 


09997 


2 6 7 4 


* i 


C ? 1 \ A 


C«:*24 


'0 2 6 83 




15^*3 


00000 


02 1 9 ? 




1 




02698 


31 


151 38 


15838 


02 no 


*^ 


C2902 


00000 


027k/ 








02 7 18 




OOOOC 


CC102 


0272* 




c 




02/25 




1 




27 30 


16 


00565 


-2 7 5 3 



01 21o 




fi 


10GT,UK0ATA~*,7 


, R£ AD SIATCMENTS FKOM TYPt-WklTEM 


02 7*2 


*9 


00566 


-9783 


ul 220 




BC* 


•-36,,, 


ALLOHS GOUF SWI T CH 


0275* 


*6 


02 718 


00*00 


i- 1 2 30 


CALL 


p/r 


TYPE PRINT ROUTINE FROM DlbK-RtTURN lb TO LNGPRT 










ul 2*0 




BNF 


LNGPRT.L I ST, , 


TOTAL LISTING 


2 766 


** 


02 798 


02228 


01 250 




TFM 


RtTR ♦6.SCM 




02 776 


16 


C2*96 


-3828 


Oi 260 




R7 


FLIP 




02790 


49 


C2*5«. 




01270 


L Nf.PW 1 


CM 


CHl,*3,10, 


TEST FOR COMMbNI 


2 793 


1*' 


151 39 


CG0*5 


1 280 




BNF 


t E AOS L 




o t ft i ■ 




3 098 


01200 


01 290 




CM 


CHI ♦2,0, 10, 




2 8 1 2 


I* 


1 5 J * I 


000-0 


CI 100 




BNfc 


LEAOBL 




0283* 


* 7 


03 09B 


CI 200 


013 10 




CM 


CHI ♦*,0, 10, 




028*6 


1* 


151*3 


000-0 


01 320 




BF 


BFGINA 




02658 


*6 


02638 


01200 


1 330 




H 


LFAOBL 




02870 


*9 


03098 


oooco 


01 3*0 




OORG 


• -3 




02878 








1 150 


R £ A i ■) I 


TFM 


I()ff T ,»»23 




C2H7* 


16 


00565 


-2901 


01 360 




b 


I0GT,CD0ATA-*,7 


, READ FIRST CA«D 


2 890 


*9 


00566 


-9791 


01 370 




TFM 


• ♦15, CHI ♦!** 




2 902 


16 


02 937 


J5283 


01 380 




SM 


•♦23,2, 10 




291* 


12 


02937 


000-2 


01 390 




TF 


CKFNU 




02926 


26 


02612 


OCOCO 


01 *00 




BO 


• ♦56 .CKEND, , 


SCAN RACK 10 PLACE RECORD MARK 


02938 


43 


0299* 


02612 


01*10 




RO 


• ♦** » QK£ ND- 1 




02990 


*3 


0299* 


026* 1 


01*20 




CM 


CKRM-l,CHI 




2962 


I* 


02937 


J5139 


01 * JO 




BH 


CKRM-2*,,, 


CHECK FOR BLANK CARC 


0297* 


*6 


0291* 


on no 


01 **0 




B 


READ1,,, 




02986 


*9 


02878 


00000 


01 *50 




DO KG 


• -3 




0299* 








01 *6o 




AM 


CKRM-l ( 2 




0299* 


1 1 


02937 


-0002 


01 *70 




TDM 


CKKM-l ,,t> 




03006 


15 


0293P 


00000 


01*80 




DC 


I , ' t • 




03017 




i 




01*90 




BNF 


• ♦** ♦LIST,, 


TOTAL LISTING 


3C18 


** 


03062 


02228 


01 500 




H«lNf CARDS F R(jM 


CHI 










01510 




TFM 


DEFCHI ,CHI , , 


MODIFY PRINT DEFINE* 


30 30 


16 


02593 


J5139 


01520 




TFM 


PRTCH|-l,«>20 




030*2 


16 


02525 


-3062 


01 530 




b7 


PRTCHI 




0305* 


*9 


02526 




01 5*0 




CM 


CH!,*3,10 




03062 


1* 


15139 


000M3 


01550 




BE 


REA01 




0307* 


*6 


02878 


01200 


01 560 




TDM 


CH|*9«0 V 11 




03086 


15 


151*8 


0000- 


01 570 


LtADBL 


BO 


•♦32.CHI 




3098 


*3 


03130 


15139 


0158C 




TR 


CH|-l,CH!*l 




03110 


31 


15138 


151*0 


U1590 




B 


• -2* 




03122 


*9 


03 098 


00000 


01600 




DOK& 


•-3 




03130 








01610 




AM 


ESNOPL, 1 ,10 




03130 


11 


02600 


000-1 


01620 




CM 


CM! ,69,10 




031*2 


14 


15139 


00009 


01630 




8NH 


CSPVA-12,,, 


BRANCH IF NO Sf#TE«6NT NUMBER 


315* 


47 


03622 


01100 


016*0 




SF 


OUTSW 




03166 


32 


0703* 


00000 


01650 




OTM 


CSTNQ,*M2 f , 


OUTPUT STATEMENT NUMBER 


03178 


17 


05*12 


-3190 


01660 




BTM 


PUT, 13*, 8, 


COLON 


03190 


17 


09050 


0-134 


01670 




TF 


ESNO.SYM 




03202 


26 


0272* 


09979 


01680 




TFM 


ESNOPLtO«8 




0321* 


16 


02600 


0-000 


01690 




TDM 


NOinn, i ,U 




03226 


15 


02610 


OOOOJ 


01 700 




AM 


S**D0.5,IG 




03238 


11 


07208 


000-5 


01710 




80 


'Sr*fc*tS*ADQ»ll» 


TEST IF STATEMENT NO. MAS USED BEFORE 


03250 


4 3 


03410 


07200 


01 720 




TDK 


SMAOOt 1*6, 


SET INDICATOR THAT ST A. NO. APPEARED 


03262 


15 


0720Q 


00001 


01 730 




S« 






032?* 


12 


07208 


000*2 


017*0 




BO 


»*20 f SM0D,U 




03286 


43 


03306 


0720Q 


01750 




t? 


* +** 




03298 


*9 


03342 


00000 
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5 



01 760 




UORG 


• - 3 


03306 








01770 




BTM 


PUT, 140, 8, DUMMY 


03306 


I 1 


09050 


0-140 


01 780 




TOM 


SMAOD.0,6 


03318 


15 


0720Q 


00000 


01 790 




TOM 


DO TR AN, I 


03330 


15 


09999 


00001 


01800 




AM 


SMAD0.1.10 


03342 


11 


07208 


000-1 


01810 




BD 


FORM, SMADDt 1 1 


03354 


43 


03510 


07200 


01820 


LEAO* 


CM 


CHI ,0,10, 


03366 


14 


15139 


000-0 


018)0 




BNE 


STNER»20 


03378 


47 


0343C 


01200 


01840 




TR 


CM|-l,CMI*l 


3 390 


31 


15138 


15140 


01850 




B 


•-36 


0B402 


49 


0)366 


00000 


01860 




DORG 


• -3 


03410 








01870 


STNER 


TFM 


SPGSM 1 ,076,9 


03410 


16 


09339 


00-76 


01880 




B 


SPERRU2,,, 


STATEMENT NO* PREVIOUSLY USED 03422 


49 


09256 


00000 


01890 




DORG 


• -3 


03430 








01900 




CM 


CHI ,46, 10 


03430 


14 


15139 


000M6 


01910 




BNE 


CSPVA 


03442 


47 


03634 


01200 


01920 




BTM 


C0LNAM.6, 10 


03454 


17 


04662 


000-6 


01930 




C 


SVM.FMTCST 


03466 


24 


09979 


09929 


01 940 




BV 


CSPVA 


03478 


46 


03634 


01400 


01950 




BE 


FORMAT 


03490 


46 


10392 


01200 


01960 




B 


CSPVA 


03502 


49 


03634 


00000 


01970 




OORG 


• - 3 


03510 








01980 


FORM 


CM 


CHI ,00, 10, 


SHIFT UFF BLANKS 03510 


14 


15139 


000-0 


01 990 




BNE 


• ♦32 


03522 


47 


03554 


01200 


02000 




TR 


CH1-1 V CHI*1 


03534 


31 


151 38 


15140 


02010 




B 


• - 36 


03546 


49 


03510 


00000 


02020 




OORG 


• -3 


03554 








02030 




BTM 


C0LNAM,6,10 


03554 


17 


04662 


000-6 


02040 




C 


SVM.FMTCST, , 


MUST BE FQRMANT STATEMENT 03566 


24 


09979 


09929 


02050 




BV 


• ♦24 


03578 


46 


03602 


01400 


02 060 




BE 


FORMAT 


03590 


46 


10392 


01200 


02070 




TFM 


SPGS*l I ,277,9 


03602 


16 


09339 


00K77 


02080 




U 


SPPRRM2, , , 


ELSE ERROR 27 03614 


49 


09256 


00000 


02090 




OORG 


• -3 


03622 








02 100 




TOM 


NO 1 NO , 


03622 


15 


02610 


00000 


02110 


CSPVA 


TFM 


X*ll,CH| , 


03634 


16 


08149 


J5139 


02120 




AM 


XM 1,2, LO 


03646 


11 


08149 


000-2 


02130 




BNR 


•♦44,X*ll, 1 1 


03658 


45 


03702 


0814* 


02140 




TFM 


X+ll ,37,610 


03670 


16 


0814R 


OOOLT 


02150 




TR 


X+Ll .AVOID, 6, 


AVOIO * FLAG 3*7, FLAGOtRECMARK 03682 


31 


0814R 


06032 


02160 




b 


DECOOE 


03694 


49 


03794 


00000 


02170 




DORG 


•-3 


03702 








U2180 




CM 


X ♦ 1 1 ,0,61Q 


03702 


14 


0814R 


000-0 


02190 




BNE 


CSPVAM2 


03714 


47 


03646 


01200 


02200 




TF 


•♦54,X*ll 


03726 


26 


03780 


08149 


02210 




TF 


•♦47, »*42 


03738 


26 


03785 


03780 


02 220 




AM 


*♦ 35, 1 t 10 


03 750 


1 1 


03785 


000- 1 


02230 




SM 


•♦18,1,10 


03762 


12 


03780 


000- 1 


02240 




TR 




ELIMINATE BLANKS 03774 


31 


00000 


00000 


02250 




B 


CSPVA+24 


03786 


49 


03658 


00000 


02260 




DORG 


• -3 


03794 








02270 


UfcCOOE 


TFM 


•♦35.CMI-2 


3 794 


16 


03829 


J5137 


02280 




AM 


•♦23,2,10 


03806 


u 


03829 


000-2 


02290 




BNR 


• ♦<»0 


03818 


45 


03838 


00000 


02 300 




8 


• ♦80 


03830 


49 


03910 


00000 


02310 




DORG 


• -3 


03838 














1620-1443 MONITOR 1 


VERSION 2 FORTRAN I I -0 PHASE 1-8 






PAGE 


02 320 




CM 


DECODE* 35,40,610 


03838 


14 


0382R 


OOOMO 


02 330 




BH 


DECUDE^12 


03850 


46 


03806 


01 100 


02)40 




CM 


DECODE ♦ 35, 3 ), 610 


03862 


14 


0382R 


000L3 


02 350 




BNE 


• ♦b6 


03874 


47 


03930 


01200 


02 360 




CM 


PARCNT, 0* 10 


03886 


14 


02615 


000-0 


02 370 




BE 


DECOOA 


03898 


46 


04018 


01200 


02 380 




TFM 


PARCNT,0,9 


03910 


16 


02615 


00-00 


02 390 







NONARI 


03922 


49 


04144 


00000 


02400 




DORG 


• -3 


03930 








024 10 




CM 


OECODE* 35,24,610 


03930 


14 


0382R 


000K4 


02 420 




BNE 


• ♦32 


03942 


47 


03974 


01200 


02430 




AM 


PARCNT , 1,10 


03954 


u 


02615 


000-1 


02 440 




B 


DECODE^ 12 


03966 


49 


03806 


00000 


02450 




DORG 


• - 3 


03974 








02460 




CM 


OECOOE^ 35,4,610 


03974 


14 


0382R 


000-4 


02470 




BNE 


DECODE^ 12 


03986 


47 


03806 


01200 


02480 




SM 


PARCNT, 1*10 


03998 


12 


02615 


000-1 


02490 




B 


DECODE+12 


04010 


49 


03806 


00000 


02500 




OORG 


•-3 


04018 








02510 


DtCOOA 


AM 


DECOOE* 35,2 , 10 


04018 


11 


03829 


000-2 


02520 




BNR 


• ♦20,DECODE + 35» 1 1 


04030 


45 


04050 


0382R 


02530 




B 


CKCTAK 


04042 


49 


04098 


ooooo 


02 540 




DORG 


• -3 


04050 








02550 




CM 


DECODE* 35,2 3,610 


04050 


14 


0382R 


000K3 


02560 




BE 


DOO 


04062 


46 


10416 


01200 


02 570 




CM 


DECODE* 35,24,610 


04074 


14 


0382R 


00OK4 


02 580 




BNE 


OECUDA 


04086 


47 


04018 


01200 


02 590 


CKCTAR 


BD 


A SCAN, 1N0I V 


04098 


43 


10440 


02424 


02600 




BTM 


CKCNTU, 0,10 


04110 


17 


04842 


ooo-o 


02610 




B 


A SCAN 


04122 


49 


10440 


ooooo 


02620 




DORG 


• -3 


04130 








02630 




DS 


14,,, NONARI MUST 


BE AT LEAST -04144- 04143 




14 




02640 


NUNAR I 


TFM 


LU6,THST 


04144 


16 


04234 


-4658 


02650 




CF 


CHl + 1 


04156 


33 


15140 


ooooo 


02660 




CF 


CHIO 


04168 


33 


15142 


ooooo 


02670 




c 


CHI ♦4,ENDCT*4 


04180 


24 


1514) 


09939 


02680 




BE 


END 


04192 


46 


09474 


01200 


02690 




BD 


•♦24,INDIV 


04204 


43 


04228 


02424 


02 700 




BTM 


CKCNTU, 0,10 


04216 


17 


04842 


000-0 


02710 


LI 


C 


TBST,CH|*4 


04228 


24 


04*58 


1514) 


02 720 




BE 


L2 


04240 


46 


04)00 


01200 


027.30 




SM 


L 1+6, 1 1 t 10 


04292 


12 


042)4 


OOOJl 


02 740 




BNR 


Ll.Ll*6tll 


042*4 


45 


04228 


0423M 


02750 




TR 


CH1-I.CHU5 


0427* 


11 


191)8 


15144 


02760 


ERR01 


BTM 


ERROR, 071, 9 


04288 


17 


09)50 


00-71 


02 770 


12 


CM 


LU6.TBCM 


04)00 


14 


042)4 


-4504 


02 78Q 




BNH 


• ♦72 


04312 


47 


04384 


01100 


02790 




TOM 


STSN,0,, 


SET SINGLE STATEMENT SWITCH OFF 04324 


15 


09*41 


OOOOO 


02800 




BNF 


•♦48.TRIND 


04)1* 


44 


04)84 


02*09 


02810 




TOM 


TRINOtO 


04348 


15 


02*09 


OOOOO 


02820 




BO 


•♦24,N0IND 


04)*0 


43 


04)84 


02*10 


028)0 




BTM 


ERROR2,572,9, 


MISSING STATEMENT NUMBER AFTER TRANSFER 04)72 


17 


0940* 


00N72 


02840 




SM 


Ll****tl0 


04384 


U 


042)4 


000-6 


02850 




TR 


CM1-I.CMU5 


04396 


31 


191)8 


19144 


028*0 




SF 


LU*tAFTBL*5.7 


04408 


32 


042)4 


J9040 


02870 


STAFT 


OS 


5 *• 


04419 




9 





1 1I il 



1620-1443 MONITOR I VERSION 2 FORTRAN Il-C PHASE l-B 



PAGE 



02880 
02890 
02900 



02920 
02930 

02940 
02950 

02960 
02970 



tt Ll*6,,6 
DORG »-4 
OC 1 , * 

OS A NONARA 



OC 6,466455, 

M66455 

OSA NONARA 



OC 6,626442,, 

026442 

OSA NONARA 



OC 6.44**46,, DEFINE 

M44546 

OS A NONARA 



04420 49 

04427 

04427 



04432 
04438 



04443 
04449 



04454 
04460 



J0224 
6 



042 3* 00000 
I 

5 X I 

J0224 
6 



J0224 
6 



03000 
03010 

03020 
03030 

0*040 TbCM 



OC 6*455864, 

M55864 

OSA COMMON 



OC 6,435654, 

M35654 

OSA 01* 



OC 6,444954,, 

M44954 

OS A RETURN 



OC 6,594563, 

N94563 

OSA NONARA 



EQUIVALENCE 



1 PENS ION 



04465 
04471 



04476 
04482 



04487 
04493 



04498 
04504 



J0224 
6 



5 X 
J0272 



J0248 
6 



5 x 
J0368 



03060 
03070 



OC 6,626356, 

026J56 

OS A NONARA 



04509 
04515 



J0224 
6 



03080 
03090 

03100 
03110 



OC 6,574164, 

N74164 

OSA DKIO 



OC 6,464955, 

M64955 

OSA DKIO 



04520 
04526 



04531 



04531 
04537 



J0224 
6 



J0488 
6 



03120 
01130 



1620-1443 MONITOR I VERSION 2 FORTRAN II-C PHASE l-B 



OC 6,464563, 
M64563 

OS A DKIO 



04542 
04548. 



J0488 

6 



03140 
& J I 50 

03160 
03170 



DC 6,594543* 

N94t>43 
OS A I0UT 



OC 6,414343, 

M14343 

OSA IOUT 



DC 6,576455, 

N76455 

OSA i OUT 



04553 
04 559 



04564 
04570 



04575 
04581 



J0488 
6 

5 X 

J0200 
6 

5 X 
J0200 



03200 
03210 

03220 
03230 

03240 
03250 



OC 6,636857, 

036857 

OS A I OUT 



DC 6,575949, 

N75949 

OSA IOUT 



OC 6,594541, 

N94541 

USA NONARA 



04586 
04592 



04597 
04603 



04608 
04614 



J0200 
6 



J0200 
6 



5 X 
J0200 



03260 
03270 

03280 
03290 



OC 6,435655,, CONTINUE 

M35655 

OSA CALL 



DC 6,434153,, 

M34153 

OSA GOTO 



OC 6,475663,, GOTO 

M75663 

OSA IF 



03 320 TBST OC 6,494624,, 
M94624 

03330 OS 2 

03340 CQINAM TFN •♦42, S**-26, 

03350 TF* •♦35,CMl 



COLLECT NAMES TO DETERMINE TYPE OF STMNT 



04619 
04625 



04630 
04636 



04641 
04647 



04652 
04658 

04660 
04662 
04674 



J0224 
6 



5 X 
J0344 



J0320 
6 



5 X 

J0296 



16 04704 -995) 
16 04704 J5139 



2U2 



1620-1**1 MONITOR I VERSION 2 FORTRAN 11-0 PHASE 1-6 



PAGE 



01 S60 




AM 


•♦18.2.10 




0*686 


11 


0*70* 


000-2 


01170 




TF 


.CH| t 7 




0*698 


26 


00000 


J5139 


011B0 




AM 


•-1,2,10 




0*710 


11 


0*709 


000-2 


03190 




BNR 


•♦20,«-l3, 11 




0*722 


*5 


0*7*2 


0*70R 


01*00 




R 


•♦32 




0*73* 


*9 


0*766 


OOOOO 


01*10 




OORG 


• -3 




0*7*2 








01*20 




SM 


COlNAM-l, 1,10 




0*7*2 


12 


0*661 


000-1 


01*10 




8NZ 


C01NAM«2* 




0*75* 


*7 


0*686 


01200 


01**0 




TF M 


•♦30.SYM-25 




0*766 


16 


0*796 


-995* 


01*50 




AM 


•♦18,2, 10 




0*778 


11 


0*796 


000-2 


01*60 




CF 






0*790 


31 


00000 


OOOOO 


01*70 


OUTSCE 


OS 


5 




0*801 




5 




01*80 




c 


•-6,C0LNAM**2 




0*802 


2* 


0*796 


0*70* 


01*90 




BNH 


• -36 




0*81* 


*7 


0*778 


01100 


01 500 




TF 


SVM,CULNAM**2, I i 




0*826 


26 


09979 


C*70M 


01510 




88 






0*838 


*2 


00000 


OOOOO 


01520 




DOUG 


• -9 




0*8*0 








01510 


• ••• 


CHECK F OR CONTINUATIUN CARDS •••• 












015*0 




US 


2 




0*8*1 




2 




01550 


CKCNTy 


TF M 






0*8*2 


16 


00565 


-*865 


01 560 




R 


I OG T , C 5DA T A-* , 7 




0*85* 


*9 


00566 


-9799 


01570 




BD 


CKCNI ,CH|5*10 




0*866 


* 3 


0*928 


1 58*9 


01580 




TF M 


CCNO.O, 10 




0*878 


16 


02603 


000-0 


01590 




CM 


CHI5,*3, 10 




0*890 


14 


15839 


000M3 


01600 




BE 


• ♦2* 




0*902 


*6 


0*926 


01200 


01610 




TOM 


CH|5*9, 0,11 




0*91* 


1 5 


1 58*8 


0000- 


03620 




BB 






0*926 


*2 


ooooo 


00000 


01630 




DOR G 


•-10 




0*92 7 








016*0 


c * r. n i 


CM 


CCN0,04,IQ, TEST FUR MGRE THAN 


* CONTINUATION CAKOS 


0*928 


1* 


02603 


0Q0-* 


03 650 




B.Nfc 


• ♦68 




0*9*0 


4 7 


05008 


01200 


03 660 




CM 


CH15,*3, 10 




0*952 


I* 


15839 


00OM3 


03670 




BE 


• ♦** 




0*96* 


*6 


05008 


01200 


03 680 




TF M 


CCNO.0,10 




0*976 


16 


02603 


000-0 


03690 




TF M 


SPGSUl.273,9 




0*988 


16 


09339 


00*73 


03 700 




B 


SPfcRRM2 




05000 


*9 


09256 


OOOOO 


03710 




OORG 


• -3 




05008 








03 720 




TFM 


•♦*7,CM15*l** 




05008 


16 


05055 


J598 3 


03730 




BD 


CKCN2^68,FMSW 




05020 


*3 


0512* 


10002 


037*0 




SM 


•♦23,2,10 




05032 


12 


05055 


ooo ■? 


03 750 




TF 


CKEND 




50** 


26 


02612 


OOOOO 


3 760 


CKC.N2 


BD 


• ♦*>6,CKEND 




05056 


* 3 


05112 


02612 


03 7 70 




BD 


•♦**,CKEN0-l 




5068 


43 


05112 


0261 1 


3 780 




CM 


CKCN2-1 ,CH|5*12 




50 80 


1* 


05055 


J585 1 


03 790 




BH 


CKCN2-2* 




5092 


*6 


05032 


01 100 


J800 




B 


CKCNTU 




510* 


49 


0*8*2 


OOOOO 


03810 




DORG 


• -3 




05112 








03820 




AM 


CKCN2-1 ,2.10 




05112 


1 1 


C5055 


000-2 


03830 




TOM 


CKCN2-1 ,,6 




0512* 


15 


0505N 


OOOOO 


038*0 




DC 


1 , ' t • 




05135 




1 




03850 




BNF 


•♦A*, LIST,, TOTAL LISTING 




05136 


** 


05180 


0222* 


03860 


• • 


PRIST CARDS FROM CHI5 












03870 




TFM 


DE F CM 1 , CM | 5 




051*8 


16 


02593 


J5839 


03880 




TFM 


PRTCHI-1,«»20 




05160 


16 


02525 


-5180 


01890 




H7 


PRTCHl 


2 !) J 


05172 


*9 


02526 




01900 




CM 


CHI 5,*3, 10, 


05180 


1* 


15839 


000M3 



1620-1**3 MONITOR I VERS I ON 2 FORTRAN JI-C PHASE IrB PAGE 



03910 




BE 


CKCNTU 




05192 


*6 


0*8*2 


01200 


03920 




AM 


CCNO, I, 10 




0520* 


11 


02603 


000-1 


03930 




BD 


CKCN* ,FMSW 




05216 


*3 


05352 


10002 


039*0 




TFM 


•♦35,CH|5*10 




05228 


16 


05263 


J5840 


03950 




AM 


•♦23,2, 10 




052*0 


11 


05263 


000-2 


03960 


CKCNI 


BNR 


• ♦** , 




05252 


*5 


05296 


OOOOO 


03970 




TFM 


X ♦ 1 L ,37,610 




0526* 


16 


08l*R 


000L7 


03980 




TR 


X ♦ I 1 ,AVCID,6 




05276 


31 


081*R 


06032 


03990 




B 


CKCNTU 




05288 


*9 


0*8*2 


OOOOO 


0*000 




DORG 


• -3 




05296 








0*010 




CM 


CKCN3M 1 ,0,610 , 


CHECK FOR BLANKS AND MOVE NON BLANK 


05296 


1* 


0526L 


000-0 


0*020 




BE 


CKCN3-12, , , 


TO SCAN AREA 


05308 


*6 


052*0 


01200 


0*030 




TF 


X ♦ 1 1 ,CKCNlMli 


,611 


05320 


26 


081*R 


0526L 


0*0*0 




AM 


X ♦ i L ,2,10 




05112 


11 


081*9 


000-2 


0*050 




B 


CKCN1-1 2 




05 3** 


*9 


05240 


OOOOO 


0*060 




DORG 


• -3 




05352 








0*070 


CKCN* 


TF 


• ♦30.XUI 




C5352 


26 


05382 


081*9 


0*080 




SM 


•♦18,1,10 




0536* 


12 


05382 


000-1 


0*090 




TR 


.CH15+1 1 




05376 


31 


OOOOO 


15850 


0* 100 




AM 


X*ll ,132,9 




05388 


11 


081*9 


00J32 


0*110 




B 


CKCNTU 




05*00 


*9 


0*8*2 


OOOOO 


0*120 




THE FOLLOWING IS USED TO COLLECT STATEMENT NUMBERS ••••• 










0*130 


CSTNO 


TF 


CSORN-1 , 


SET UP RETURN ADDRESS 


05*12 


26 


05703 


05*11 


0* 1*0 




BO 


•♦32, CHI 




05*2* 


*3 


05456 


15139 


0*150 




TR 


CHI-LCMIM,, 


SHIFT OFF LEADING i EROS 


05*36 


31 


15138 


151*0 


0* 160 




B 


• -2* 




05**8 


*9 


05424 


OOOOO 


0*170 




DORG 


• -3 




05*56 








0* 180 




TFM 


SVM-l*, 0000,8 




05*56 


16 


09965 


0-000 


0*190 




TFM 


CSTN01*6t SVM-14 




05*68 


16 


05522 


-9965 


0*200 




CM 


CHI ,69, 10 




05*80 


1* 


15139 


00009 


0*210 




BNH 


CSTNOIMO* 




05*92 


*7 


05620 


CllOO 


0*220 




AM 


•♦18,1,10 




0550* 


11 


05522 


000-1 


0*230 


CSTNOl 


TO 


,CH! 




05516 


25 


OOOOC 


15139 


0*2*0 




TR 


CHI-1,CHU1 




05528 


31 


15138 


151*0 


0*250 




BNR 


•♦20»CHI^2 




055*0 


*5 


05560 


151*1 


0*260 




B 


• ♦32 




05552 


*9 


05584 


OOOOO 


0*270 




DORG 


• -3 




05560 








0*280 




CM 


CHI ,69, 10 




05560 


I* 


15139 


00009 


0*290 




BH 


CSTNOl-12 




05572 


46 


05504 


01100 


0*300 




CM 


CSTN0U6.SVM-10 




0558* 


14 


05522 


-9969 


0*310 




BNH 


• ♦2* 




05596 


47 


05620 


01100 


0*320 




BTM 


ERR0R2, 576,9, 


STATEMENT NO GREATER THAN * DIGITS 


05608 


17 


09406 


00N76 


0*330 




TF 


SYM,CSTN0l*6,U 




05620 


26 


09979 


0552K 


0*3*0 




SF 


SVM-3 




05632 


32 


09976 


OOOOO 


0*350 


RTSM 


OS 


1 ,•-* 




056 39 




I 




0*360 


fcKSW 


OS 


l f — i 




056*0 




1 




0*370 


STSN 


DC 


l tit •-2 




056*1 




I 




0*380 


STC 


J 

DC 


2 ,00,* 




056*3 




2 




0*390 




-0 
BD 


CSTNO-l ,DIMSW,6, 


EXIT IF IN DIMENSION STATEMENT 


056*4 


43 


054U 


10004 


0**00 




TOW 


FXORFL , 2 




05656 


15 


06419 


00002 


0**10 




TOM 


VARSW.l,, 


EXIT TO LOOK UP STATEMENT NUMBER 


05668 


15 


07581 


0000 1 


0**20 




TOM 


STNOSW, 1 




05680 


15 


10003 


00001 


04*30 




B 


SMTIU 




05692 


49 


06954 


OOOOO 


0***0 


CSORN 


BO 


•♦24,EQU$W 


2 a •'• 


05704 


43 


05728 


10008 
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In* 


SCHI , CH I f | 


INITIALIZE IF NOT IN EQUIVALENCE 


05716 


16 


0601 5 


J5 1 19 


n22rn 








INITIALIZE FIX OR FLOAT SWITCH 


05 728 


1 5 


06419 


00000 






CM 


SCH I , 1*610* 




05740 


14 


0601N 


000- 1 






BE 


NU*8ER 




05752 


46 


061 16 


01200 


0*490 




CM 


SCHI t69*610t 




05764 


14 


0601N 


00009 


04 500 




BH 


NUMBER 




05776 


46 


061 16 


01 100 


04510 




CM 


SCHI ,48*610, 


TEST FOR F|X VAR 


05788 


14 


0601N 


00OM8 


04 520 




BNM 


CS 




5800 


47 


05848 


01 100 


04 510 




CM 


SCH| ,55*610 




05812 


14 


0601N 


000N5 


04 540 




BH 


CS 




05824 


46 


05848 


CI 100 


04550 




TOM 


FX0RFL,2«* 


SET F XORFL TO FIX VAR 


05816 


15 


06419 


00002 


04 560 


CS 


TFM 


SMLNG,0«10* 


INITIALIZE SYMBOL LENGTH COUNT 


05848 


16 


05911 


000-0 


04 5 70 




TFM 


SAL T*6, SVM- 12 




05860 


16 


05914 


-9967 


04 5S0 




TFM 


SAL T* 18, SVM- 1 1 




05872 


16 


05926 


-9966 


04 590 




AM 


SALT»o,2,10 




05B84 


1 1 


05914 


000-2 


04600 




AM 


SAL T* 18, 2, 10 




05896 


11 


05926 


000-2 


04610 


SAL T 


TF 


* Sf. H | , 1 1 , 




05908 


26 


00000 


0601N 


04620 




CF 






05920 


33 


00000 


COOOO 


04610 


bMLNG 


OS 


, • 




05931 









04640 




AM 


SMLNG,2*10 




05912 


I I 


05911 


000-2 


04650 




AM 


SCHI ,2*10 




05944 


11 


06015 


000-2 


04 660 




CM 


SCHI ,40,610 




05956 


14 


0601N 


OOOMO 


04670 




BNM 


• ♦56 




05968 


47 


06024 


01100 


04680 




CM 


SMLNG, 12,10 




05980 


1* 


05911 


000J2 


04690 




BL 


SALT-24 




05992 


47 


05884 


01100 


04 700 




SF 


SVM- I 1 




06004 


32 


09968 


COOOO 


04710 


SCHI 


OS 


, * 




06015 









04 720 




B 


SC2 




06016 


49 


06 1 04 


00000 


04 7 JO 




DORG 


• -3 




06024 








04 740 




SF 


SVM- 1 I 




06024 


32 


09968 


00000 


04 750 


AVOIO 


DC 
17 


2, 17, 3 




06032 




2 




04 760 




nc 
- ' 


2, • 




06014 




2 




04 770 




TF 


SVM, SAL T »6 , 1 1 , 




06036 


26 


09979 


0591M 


04 780 




TOM 


VAMSM,0 




06048 


15 


07581 


00000 


04 790 




BO 


SMTLU, EQUSfc, , 


TEST TO SEE IF 


06060 


41 


06954 


10008 


04800 




SM 


SCH 1,1,10, 


SYMBOL IS TO BE 


06072 


12 


06015 


000-1 


04810 




TR 


CHI- 1 ,SCH| ,11, 


shifted off 


06084 


11 


15118 


060 IN 


04820 




B 


SMTLU 




06096 


49 


06954 


00000 


04 810 




DORG 


• - J 




06104 








04840 


SC2 


BT M 


ERROR ,78,9 


NAME GREATER THAN 6 CHARACTERS 


06104 


I 7 


0915C 


00-78 


04 850 


NUMBER 


TOP 


VARSW , 1 , , 


SfcT VARIABLE SW. TU INDICATE LITERAL 


061 16 


15 


07581 


00001 


04 860 




TF 


SVM , Z LH S YM+ I 




06128 


26 


09979 


06954 


04 870 




TFM 


NUMB 1 »6 , S VM-29 




06140 


16 


06274 


-9950 


0* 880 




CM 


CH I , 70, 10 , 


TEST FOR LEADING ZEROS 


06 152 


14 


15119 


OOOPO 


04 890 




BNE 


• ♦ 32 




06164 


47 


06196 


01200 


04 100 




TR 


CH|- 1 , CHI ♦ | 




061 76 


31 


15138 


15140 


04910 




B 


• -36 




06188 


49 


06152 


00000 


04920 




DORG 


• -3 




06196 








04910 


NUMB 


CM 


CHI ,3, 10 




06 196 


14 


151 19 


000-3 


04940 




BE 


FLNUMH 




06208 


46 


06428 


01200 


04950 




CM 


CHI ,69, 10 




06220 


14 


15119 


00009 


04 960 




BNH 


FXNUMB 




06232 


47 


06324 


CllOO 


04970 




CM 


NUM8l»6,<iYK*l 




06244 


|4 


06274 


-9980 


04980 




BNL 


•♦24 




06256 


46 


06280 


01300 
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04 990 


NUMBl 


TO 


»CHI , , 


COLLECT MANTISSA 


06268 


25 


00000 


15139 


05000 




TR 


CHI-UCHIM 




06280 


31 


15138 


15140 


05010 




AM 


NUMBU6,1,10 




06292 


11 


06274 


000-1 


05020 


NUMB5 


AM 


SYHV10,l,10 




06304 


11 


09949 


000-1 


05010 




B 


NUMB 




06316 


49 


06196 


00000 


05040 




DORG 


• -3 




06324 








05050 


FXNUMB 


TDM 


FX0RFL,2, . 


SET FIX OR FLOAT SW TO FIX CONST 


06324 


15 


06419 


00002 


05060 




SM 


SYM-30, 1, 10 




06 336 


12 


09949 


COO- I 


05070 




C 


KLNG, SYM-10, , 


TEST IF FIX NUMBER EXCEEDS K 


06348 


24 


02252 


09949 


05080 




HNL 


• ♦24 




06360 


46 


C6 384 


01 300 


05090 




BTM 


ERROR, 177, 


FIXED POINT NUMBER GREATER THAN K 


06172 


17 


09350 


00J77 


05100 




TF 


SY«-10,TENZ 




06384 


26 


09949 


09991 


05110 




TF 


SYMM,NUM81*6,ll, 


RIGHT JUSTIFY VALUE 


06196 


26 


09980 


0627M 


05120 




SF 


SYM*l ,,2 




06408 


12 


-9980 


00000 


05 110 


MODE 


DC 


2,0,*>-? 




064 17 




2 




05140 


fxorfl 


-0 
OC 


2.0,» 




06419 




2 




05150 




-0 
B 


SMTLU 




06420 


49 


06954 


00000 


05160 




OORG 


• -3 




0642« 








05170 


FLNUMB 


TFM 


VARBR^6,NUMB1 




06428 


16 


06518 


-64 76 


05180 




CM 


SYM-lo, I, 10 




06440 


14 


09949 


000-1 


05190 




BE 


• ♦24 




06452 


46 


06476 


01200 


05200 




TFM 


VARBR^6,NUM82M2 




06464 


16 


06518 


-6584 


05210 


NU»B1 


SM 


SVM-30. It 10 




06476 


12 


09949 


000-1 


05220 




TR 


chi-i,chui 




06488 


11 


15118 


15140 


05210 




CM 


CHI ,70, 10 




06500 


14 


15119 


OOOPO 


05240 


VARBK 


HE 


ti* 


BRANCH BACK TO SHIFT OFF LEADING ZEROS 


06512 


46 


00000 


01200 


05250 




BNH 


CMP AR 




06524 


47 


06604 


01100 


05260 




TFM 


VARBK*6,NUMR2*12 




06536 


16 


06518 


-6584 


05270 




CM 


NUMBU6.SVMM 




06548 


14 


062 74 


-9980 


05280 




BNL 


• ♦24 




06560 


46 


06584 


01100 


05290 


NUMB2 


TO 


NUMBU6.CHI ,6, 


COLLECT NUMBER 


06572 


25 


0627M 


15139 


05100 




AM 


NUMBl ♦6*1*10 




06584 


11 


06274 


000-1 


05110 




B 


NUMB3M2 




06596 


49 


06488 


COOOO 


05120 




OORG 






06604 








05110 


CMPAR 


CM 


CHI, 45, 10, 


TEST FOR E TYPE 


06604 


14 


15119 


000M5 


05140 




BNE 


PLUSM2 




06616 


47 


06844 


01200 


05150 




TFM 


PLU$*ll»0,10 




06628 


16 


06843 


000-0 


05160 




TOM 


PLUS*1, I 




06640 


15 


06833 


00001 


05170 




CM 


CHI«2,20t 10 




06652 


14 


15141 


OOOKO 


05180 




BL 


• ♦36 




06664 


47 


06700 


01300 


05190 




BNE 


♦ ♦16 




06676 


47 


06712 


01200 


05400 




TOM 


PLUSM,2 




06688 


IS 


06833 


00002 


05410 




TR 


CMI-l,CMUl 




06700 


31 


15138 


15140 


05420 




CM 


CH1*2,69, 10 




06712 


14 


15141 


00009 


054)0 




BH 


• ♦24 




06724 


46 


06748 


01 100 


05440 


EXCESS* 


BTM 


ERROR, 178,9, 


INVALID EXPONENT 


06716 


17 


09350 


00J78 


05450 




TO 


Bi nc 4 I l rut A ) 






25 


06843 


15141 


05460 




TR 


CMI-I.CMI41 




06760 


31 


15138 


15142 


05470 




CM 


CHI, 69, 10 




06772 


14 


15139 


00009 


05480 




BNH 


PLUS 




06784 


47 


04832 


01100 


05490 




S 


PLUS*10»PLUS*U 




06796 


22 


06842 


06843 


05 500 




TO 


PLUSttl,CH! 




06808 


25 


04843 


15139 


05510 




TR 


CHI-1,CHI*1 


2J)6 


06820 


31 


15138 


15140 


05520 


PLUS 


AM 




06832 


11 


09949 


-oooo 
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J5530 




TF 


SYM.SVM-30 


06844 


26 


09979 


Q9949 


05540 




SF 


SVM-29 


06856 


32 


09950 


00000 






FF 


SYM-2.SYM-30, 7 


06868 


26 


09977 


-9949 


U5560 




BV 


EXCESS 


06880 


46 


06736 


01400 


05570 




BD 


SMTLUiSYM-29 








09950 


05 580 




TFM 


SYM,99, 1011 


06904 


1 6 


09979 


OOORR 






8 


SMTLU 


06916 


49 


06954 


00000 


05 600 




OORG 


• - 1 










05610 




OC 


30,0 


0695 3 




30 








-OOOOOOOOOOOOOOOOOOOOOOOOOOOOO 










05 6?0 




OC 


3.010.ZERSYM-28 


06 




• 




05630 




SYMBOL TABLE LOOK UP •••••• 










05640 


* 




• 










05650 


SNTLU 


TFM 


MODAD.STBL-4 




J 


07885 


-2373 


05660 




TF M 


SMAOO 




: 


07208 


-0000 


05670 




TFM 


SMCNT, STBL-6 


0697 


16 


0726 1 


-2 371 


05680 




MODAO IS USED 10 TEST FOR FIX OR FLOAT 










05690 




SMAOO WILL CONTAIN THE AOORESS CF IMF. $YMf»OL ENTRY AT EXIT 










05700 


• • 


SMCNT IS USED fO FIND VARIABLE OR LITERAL 










05 710 




TF 


L STEN, TBCNT 


06990 


26 


07025 




05720 




AM 


LSTFN,1,10 


700? 


1 1 


07025 


000- I 


P5 710 




CF 


DMVAR 


7014 


33 


06090 


00000 


05 740 


LSTEN 


OS 


( • 


7025 









05750 




B 


SML00PO6 


07026 


49 


07070 


AAA A A 

00000 


05760 




OORG 


• -3 


07034 








05 770 


SMLOOP 


SM 


SMC NT, 10t 10 


7034 


12 


07261 


000 JO 


05 780 


OUTSW 


OS 


t SMLOOP 


07034 









05 790 




SM 


MOOAD ,10, 10 


7046 


12 


07885 


000 JO 


05800 




AM 


SMAOO, 10, 10 


07058 


1 1 


07206 


000 JO 


05 810 




SM 


LSTEN,1,10 


7070 


12 


07025 


000— 1 


05820 




RH 


JOE 


7082 


46 


07 1 70 


01 100 


05830 




TF 


•♦35, SMCNT 


07094 


26 


07129 


07261 


05840 




SM 


•♦23,50, 10 


7106 


12 


07129 


OOONO 


05850 




BNR 


TBLFUL 


07118 


45 


07 1 50 


00000 


05860 




AM 


TBCNT, 1 , 10 


7130 


1 1 


02429 


000- 1 


05870 




B 


AOVAR 


07142 


49 


0809C 


AA AAA 
00000 


05880 




OORG 


• - 3 


07 150 








05890 


IBIPUL 


BTM 


ERH0R2, 74,9, 


07150 


1 7 


09406 


00- 74 


0^900 




H 


MONCAL... ABORT JOB CAN NOT CO ON 


7162 


49 


00796 


00c 1 


05910 




OORG 


• - 3 


7170 








05920 


JUF 


BO 


L 1 TFRL, VARSW,, BRANCH IF SYMBOL IS A CONSTANT 


7170 








05910 




BNF 


•♦20, SMCNT, 11 , FLAG AT SMCNT IMPLIES CONSTANT 


7182 




07202 


0726J 


059*0 




B 


SMLOOP 


7 194 


49 


07034 


AAA A A 

00000 


05950 




OORG 


• -3 


07202 








05960 




C 


, SVM 


07202 


24 


00000 


09079 


05970 


SM AOD 


OS 


.•-5 


07208 









05980 




BV 


SMLCOP 


07214 


46 


07034 


01400 


05990 




BNE 


SMLOOP 


07226 


47 


07034 


01200 


06000 




TDM 


INSw.l,, SET DIGIT IN INSW IF VARIABLE FOUNO 


07238 


15 


02611 


00001 


06010 




CF 


SMADD 


07250 


33 


07208 


00000 


06020 


SMCNT 


OS 


f • 


07261 









06030 




c 


SMADD, FOUND, , TEST (F SYMBOL WA' LIBRARY FUNCT 


07262 


24 


07208 


02318 


06040 




RH 


FC TEST, , , 




46 






06050 




AM 


SMCNT, 3, 10 


7286 


1 1 


07261 




06060 




BO 


C SORN- I ,DIMSta,6, RETURN IF IN D 1Mb flu I ON STATEMENT 

2!) 7 


7298 


4 3 


0570L 


10004 
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06070 




BD 


•♦32,EQUSW 


07110 


43 


07342 


10008 


06080 




CM 


CHI ,24, 10 


7 32? 


14 


15139 




06090 




B 


• ♦20 


7 334 


49 


07354 


00000 


06 100 




OORG 


• - i 


07342 








06 I 10 




CM 


SCHI ,24,610 


1 342 


14 


0601N 


000X4 


06 120 




BNR 


•♦20, SMCNT, 11 


07 354 


45 


07374 


0726J 


06 I 30 




B 


FCTST 


7 366 


49 


07946 


00000 


06 140 




OORG 


•-3 


07374 








06 150 




BE 


D I MERR ♦ 1 2 


7 374 


46 


07478 


01200 


06 160 




BO 


•♦^0. SMCNT, 11 , TEST FOR DIM VARIABLE 


7386 


43 


07406 


0726J 


06170 




B 


LUXIT 


07398 


49 


07522 


00000 


06 180 




OORG 


• -4 


07405 








06 190 


FNTSW2 


DSC 


1,0 


07405 




1 




06200 






HO 


LUXIT, I OS W,, DIM VAR USEO W/0 DIM IN I/O STATEMENT 


07406 


41 


07522 


1001 1 


06210 




80 


LUXIT, FNTSW2 


07410 


43 


07522 


07405 


06220 




HD 


LUXIT ,CALLSW,, DIM VAR USED W/0 l M IN CALL 


074 30 


4 3 


07522 


10009 


06 2 30 




BD 


CPMF.COMSW,, SAME FOR COMMON 


07442 


43 


1 1968 


10010 


06240 




BD 


L UX I T- 1 2, EOUSW 


07454 


43 


0751C 


10008 


06250 


DIMERR 


BTM 


ERROR, 73, 9, DIMENSIONED VAR USED WITH OUT SUBSCRIPT 


7466 


17 


09350 


00-73 


06260 




BD 


COME R2 , COMS W 


0747R 


4 3 


09462 


100L0 


06270 




BD 


•♦20, SMCNT, 11 


07490 


43 


07510 


0726J 


06280 




B 


D I MERR 


07502 


49 


07466 


00000 


06290 




OORG 


• -3 


07510 








06300 




SF 


DMVAR,,, SET DIMENSION VARIABLE SWITCH 


07510 


32 


08090 


00000 


06310 




EXIT FROM TABLE LOCK UP •••••• 










06 320 


LUXIT 


BNF 


CSORN-l ,0UTSW,6, EXIT IF OUTSW NOT bFT 


07522 


44 


0570L 


07034 


06330 




CF 


OUTSW 


07534 


33 


07034 


00000 


06 340 




BT 


PUT.SMAOO-l 


07546 


27 


09050 


07207 


06350 




BNF 


•♦44 , DMVAR 


07S58 


44 


07602 


08090 


06360 




CF 


DMVAR 


07570 


33 


06090 


00000 


06370 


VARSW 


OS 


»• 


07581 









06380 




TF 


OUTSCE, CSORN-l 


07582 


26 


04801 


05703 


06 390 




B 


OUTSC 


07594 


49 


10464 


00000 


06400 




OORG 


• -3 


07602 








06410 




BNF 


•♦32 ,FNTSW,, TEST IF SYMBOL WAS A FUNCTION NAME 


07602 


4* 


07634 


10000 


06420 




BTM 


PUT ,0154,8, ARITH STATEMENT CAl L 


07614 


17 


09050 


0- 1 54 


06430 




B 


CSORN-l, ,6 


07626 


49 


0570L 


00000 


06440 




DORG 


• -3 


07634 








06450 




BO 


•♦20.FNTSW,, DIGIT ANO NO FLAG IMPLIES SUBPROGRAM 


07634 


43 


07654 


10030 


06460 




B • 


CSORN-l , .6 


07646 


49 


0570L 


00000 


06470 




DORG 


• -3 


07654 








06480 




BO 


AERR 1 ,OMM, , STATEMENT FUNCTION PREV OEFINED 


07654 


43 


09450 


10007 


06490 




BTM 


PUT ,015 3,8, FUNCTION OPERATOR CALL 


07666 


17 


09050 


0-153 


06500 




B 


CSORN-l , ,6 


07678 


69 


0570L 


#IA AAA 
00000 


06510 




OORG 


• -3 


07686 








06920 


•••••• 


SEARCH SYMBOL TABLE FOR CONSTANTS •••••« 










06530 


LITFRl 


BNF 


SMLOOP, SMCNT, 11, CONSTS HAVE FLAG 


0768* 


44 


07034 


0726J 


06540 




80 


LUSTNO.STNOSW,, BRANCH IF LOOK ING-UP STATEMENT NUMBER 


07698 


43 


0B710 


10003 


06550 




BO 


FXLIT.FXORFL,, BR IF SEARCH IMG FOR FIXED CONST 


07710 


43 


06024 


0*419 


06560 




60 


SMLOOP, MOOAD, 11, 


07722 


43 


07034 


0788N 


06570 


LITF 


C 


SMA0D.SVM.6. COMPARE CHARACTERISTICS 


07714 


24 


0720Q 


0«?979 


06580 




BNE 


SMLOOP 


07746 


47 


07014 


01200 


06590 




TF 


AOS AVE. SMAOO 


0775B 


24 


0B4BS 


07208 


06600 




CF 


AOSAVE 


07770 


33 


0B4B5 


00000 


06610 




CF 


SMCNT i t 6 


07782 


13 


0726J 


00000 
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06620 




SM 


AOS AVE, 2 t 6l0 




0779* 


12 


O040N 


000*2 


066)0 




c 


SMAOO iSYM-2,6t 


COMPARE MANTISSA 


07806 


2* 


07200 


09977 


066*0 




Bf 


• ♦** 




07H18 


*6 


07062 


01200 


066)0 




AM 


AOSAVE •2*610 




078)0 


1 1 


O040N 


000*2 


06660 




SF 


SMCNT,, 6 




078*2 


32 


0726J 


00000 


06670 




8 


SMLOOP 




785* 


*9 


07034 


00000 


06600 




DOUG 


»- 3 




07862 








06690 




AM 


AOSAVE, 2,610 




7862 


1 1 


0848N 


000-2 


06 700 




SF 


SMCNT,,6 




0787* 


32 


0726J 


00000 


06 710 


MUPAO 


PS 


f • 




7885 




o 




06 720 




TOM 


IN&Wt } 




07886 


1 5 


0261 1 


00001 


06 7)0 


E J706 1 


CF 


SMAOO 




7098 


j j 


07200 


vVUVU 


06 7*0 




CM 


CH|,2*,Lp 




7910 


|4 


15139 


00OK4 


06 750 




BSE 


LUXIT 




7922 


47 


07522 


1 200 


06 760 




BT M 


ERROR, 378,9 




793* 


I J 


09350 


OOL 70 


06 7 70 


••»»•« 


1EST FOR SINGLE STATEMENT PUNC T I CN OR FUNCTION SUBROUTINE 










06 780 


FCT S T 


BE 


• ♦36 




79*6 


*6 


07902 


01200 


06790 




HO 


• »2*, CALLS* 




7958 


4 3 


07902 


1 0009 


06800 


EHR09 


BTM 


ERROR, 079, 9, 


INCORRECT USE OF SUBPROGRAM NAME 


7970 


| 7 


09)50 


00-79 


068 10 




TOM 


FNT SW , 1 , , 


FUNCTION SUBROUT 1 NL 


7982 


I 5 


10000 


0000 1 


06820 




BNF 


LUXI T , SMC NT , 1 1 




799* 




07522 


0726 J 


06830 




5F 


FNTSW,,, 




n Ann#» 


12 


10000 


UUUVV 


068*0 




B 


LUXIT 




nani!! 


♦ 9 


07522 


nnnnn 


06850 




00 RG 


• -3 














. . . . 


HO 


•♦20,MODAO,ll, 


DIGIT IN01CATES FIX VAR 


08026 


* 3 


080*6 


0788N 


06870 




B 


SMLOOP 




08038 


*9 


0703* 


yuuuo 


06 880 




OORG 


• -) 




080*6 








06890 




BNF 


SMLOOP, MOOAO, 1 1 , 


TF S T FOR STATEMFNT NO. 


na^Ka 




0703* 


O780N 


n£<!?n 




C 


SMAOO » S YM 1 6 
















BNfc 


SMLOOP 




nanrn 






1200 


n _ 




ft 


E 37061 




nana? 
08082 


*9 


07898 


00000 


n »n 




OORG 


»- i 




8C90 










****** 


ENTRY TO ADO A NEW 












_ 


"J 


CF 


SMAOO 




8090 




07208 


OOOQO 


06960 




OS 


, AO VAX 




na?n 5 








06 970 




TOM 


INSW.O 




no i i f 




ii 


UUUUU 


06980 




AM 


SMCNT,3, 10 






ii 


nt>A i 








TO 


M00A0,FX0RFL,6, 




n a i ji 


^* 


ftTa AM 


06*19 


07 000 


g 


SF 


MOOAO, ,6 




Oft 1 


32 


0788W 


nnnnn 


070 10 




BO 


ADL1T,VARSW,, 


ORANCH TO AOO CONSTANT 


_ _ . ,._ 




_ _ r 




U7020 




A 


NXLOC .SMLNG, , 


MOD SYMBOL STCRAGE BY NUMBER OF CHAR 


08 162 


21 


02372 


05931 


070)0 




TF 


NXLOC, SYM,6, 


MOVE SYMBOL INTO SYM STCRAGE 


0817* 


26 


0237K 


09979 


07 0*0 


AUVLQP 


IF 


SMAOO, NXLOC, 6, 


MOVE ACO OF SYM INTO SYMBOL TABLE 


OB 1 86 


26 


072 OQ 




07 050 




BO 


AOVARl ,OIMSW, , 


TEST IF IN .DIMENSION STATEMENT 








1000* 


07060 




H 


ADVAR2 




08210 


*9 


ftlOAA 




07070 




oo«r, 


• -3 




082 1 R 








07080 


AUV AK I 


SM 


SMAOO, 10, 10 




082 1 H 


1 2 


07206 


OOOJO 


07090 




AM 


TBCNT, 1 , 10 




OB230 


11 


02*29 


000-1 


07 100 




T F 


SMADO , NXLOC ,6, 


PLACE DOUBLE ENTRY FOR CIMENSION VAR 


082*2 


26 


07200 


02372 


07 1 IC 




AM 


SMAOO.IO, IQ 




0825* 


11 


07208 


OOOJO 


07 120 


AUVAM2 


BO 


AOSURP, SUBSW,, 


TEST IF IN SUBROUTINE .STATEMENT 


08266 


*i 


08*62 


10012 


07 1 30 




00 


CSORN-l , DIMS*, 6, 


GOTO COLLECT DIMFNSIONS IF IN DIM 


08278 


*3 


0570L 


1000* 


07 1*0 


SETINC 


BNF 


•♦2*,C0MSM, , 


TEST IF IN CCfMON 


08290 


** 


08)1* 


10010 


ti 7 I 50 




SF 


SMCNT, ,6, 


SET FLAG ON INDICATOR IF COMMON VARIABLE 


08 302 


)2 


0726J 


00000 


07 160 


SUPTST 


BO 


•♦32 ,EQUSw,, 




0831* 


*3 


08346 


10008 


07 170 




CM 


CH| ,2*, 10 




OH 326 


1 * 


151)9 


OOOK* 
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7 180 




B 


•♦20 




08 3 38 


*9 


08)58 


UUUUU 


07 190 




OORG 


• - J 




083*6 








07200 




CM 


bCHI ,2*, 610 




083*6 


1* 


0601N 


OOOK* 


(7210 




BNE 


LUXIT 










1 200 


07 220 




RO 


SUBTR.tQUSW, , 




na 


* 3 


I: 


1 0008 


7 2 30 




BO 


LUXIT, SUtySk,, 


00 NOT SfcT SW1FCH IF IN DECLARATION STMT 


8 382 


* ) 


7522 


100 1 2 


7 2*0 




BO 


C0"FR2»C0M$W 






t c 






U 7 2 50 




TOM 


FN r S- , 1 , , 


SET SWITCH FQK FUNCTION NAME lA» 


? « 


1 5 


10000 








TDM 


SMCNT, ,6 




08*18 


1 5 


0726 J 


00000 


7 270 




OC 






08*2*? 




1 




07280 




BO 


ASC21 ,OMM 




08*30 


*3 


13282 


10007 






H 


LUX I T, 




08**2 


*9 


07522 


00000 


07 300 




OORG 


• - i 












0/310 


SUfl T K 


HTM 


ERROR, I 70,9, 


DIM VAR IN EUUIV W/G PREVIUUS DIMENSIONS 


r>a*fcT 


1 


0935C 


OOJ 70 


07 3 20 




ENTRY TO PLACE VARIABLE IN SUBROUTINE DEFINITION IN TABLE 










07 3)0 




THESE VARIABLE ARE 


PLACID IN TWICE BECAUSE OF POSSIBLE 














DIMENSIONING LATFR 












07 350 


AUSU8P 


BNF 


•♦A*,SUBSW 




a 

na if 




i ftrti t 


1001 2 


07 360 




CF 


SUBSW 








10012 


UUUUU 




^ _ 


OS 


»• 




08*85 







07 380 




AM 


SMAOO, 10, 10 




08*86 


1 1 


07208 


COOJO 


07 390 




B 


SETINO 




natnA 


*9 


0829C 


UUUUU 






OORG 


• -3 




na«n!i! 












SF 


SUBSW 




natli a 






nnnnn 
UUUUU 


07470 




SM 


SMADO, 10, 10 






12 










AM 


TBCNT, 1,10 




nacin 


1 1 




ooo J i 


07**0 




B 


AOVLOP, , , 


BRANCH TO PLACE SYMBOL IN SECOND TIME 


nail? 


*9 


nai a 
081 86 


UUUUU 


07*50 




DORG 






na*«n 












ENTRY TO PLACE CONSTANTS IN FABLE ••••• 












AOl I T 


BD 


ADSTN,STNQSW, , 


BRANCH TO AOO STATEMENT NUMBER 


na^I? 


A3 


nalia 




07*80 




BO 


AOXL I T , F XORFL , , 


BRANCH TO AOC FIX CONST 


na^if 


*j 






07*90 




A 


NXLOC f FLNG 










n??in 


07 500 




TF 


NXL0C,SVM-2,6, 


MOVE IN FLOATING MANTISSA 




*L 


n?^7K 
n^*77 


AQOT7 


075 10 




AM 


NXLOC, 2, 10 




na^oa 


i i 




nrm » 


07520 




TF 


SMAOO, NXLOC ,6, 


SET SVM AOO INTO TABLE 


08610 


94 


07200 


02372 


07 5 30 


AOL 1 T 1 


TF 


NXLOC t S YMf 6 , 


MOVE CHARACTERISTIC OR FIX CONST 


00622 




02 37K 


09979 


07 5*0 




SM 


SMAOO, I, 10 












07 550 




SP 


SMAOO, ,6 




086*6 




07^00 


nnnnn 


07560 




AM 


SMAOO, I, 10 




08658 


11 


07200 


COO— 1 


07570 




6 


€37061*12 




00670 


4Q 


07910 


QOAfiA 
WUWv 


07580 




OORG 


• -3 












07590 


AOXL I T 


A 


NXLOC, KLNG 




00670 


2 1 


02372 


02252 


07600 




TF 


SMADO, NXLOC, 6 






26 




02372 


076 1Q 




B 


AOL IT! 




00702 


49 


08622 


QOOOO 
UvUVW 


07620 




OORG 


•-3 




00710 








076)0 




ENTER WHEN LOOKING 












076*0 


LUSTNO 


BNF 


•♦20, MOOAO, It, 




00710 


** 


0873Q 


O780N 


07650 




B 


SMLOOP 




08722 


49 


0703* 


00000 


07660 




OORG 






00730 








07670 




C 


SMADO, SYM,6 




00730 


24 


0720Q 


09979 


07680 




BNE 


SMLOOP 




087*2 


47 


0703* 


01200 


07690 




TOM 


SfNOSW,Q 




0075* 


15 


10003 


00000 


07 700 




6 


137061-12, ,» 


BRANCH TO SET INSW AND GO TO LUXIT 


08766 


49 


07006 


00000 


07710 




OORG 


• -3 




0077* 









07720 •••••• ENTER TO AOO STATEMENT NUMBER 



3 
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PAGE 





ADST>i 




kj i nr i» in 
■N XI Ul» t *» • 1 




08 774 




02 372 




rt7 7AA 






bMADi) f N XLUC , 6 , 


malic € v iukif kin innictc tn riti c 
MOVE STAMNi N0» •DDHtaa 1U lADlc 




26 




02 3 72 








MOO AD , 1 6 • 


n (it ct AC CM Cf AfCMCHIf killMMCa 

ILcA* rLAu rim SIAlcwfcNI NUHoCB 


08798 


j I 


0788N 


nonnn 






■mi* 


c nunc u n 






| £ 


1 0003 


uu uuu 


7 Jin 






ADLIT1 




n if 




06622 


nnonn 
uuuuu 








fc RKOR i 3 74 t 9 » 


ILLEGAL U5t Or rUNLMUN N»Mt 










A77QH 




«n 


m _ 1 ■) rnyfu 

•"Iti LUnsM t » 








06834 


1 00 1 








• - 24 i EQUS H t » 


c i t uiyl ■ ii c ni i f li 
rUNCf WAPC |i» tUUIV 






06834 


10008 


07810 




n 




1 


n«A7n 

JJJ " 




08834 


10004 


07 820 




an 


• -48, 1 U SW 












07 8)0 




an 
BO 


cr fee r. i 9 nun 
rClcjl-l c »DMP 








08834 


1 0007 


07840 




CM 


CHI, 24 1 1 






14 


mil' 




07 850 




BNE 


FCTEST-12 




naat m 








07 860 




Tf 


• ♦35, SM AOO 




naaan 


26 






07870 




AM 


•♦23,5,10 




naa j 


1 1 




000 5 


07880 




Tf 


TFMP , , , 






26 


0262C 


AnnAn 
UUOUU 


07 890 




!>M 


TEMP , EN TL0G-5 




08966 


12 


02620 


-2243 


07900 




MM 


TEMP 10 




08978 


1 3 


02620 


000-2 


07 91 




SF 


9 7 






32 


00097 


AnnnA 
UUUUu 


07920 


RfcF 


DS 


' * 




0900 1 




C 




07 930 




TFM 


• ♦ )0,USEDF S- I 




09002 


16 


09032 


-2262 


07 940 




A 


•♦18,^8 




0901 4 


21 


09032 


00098 


07 950 




TOM 


t 1 t 10 • 


SET INDICATOR FOR FUNCTION USED 


09026 


15 


t\ *\ i\ n r\ 
00000 


000-1 


07960 




6 


L UX I T 




09038 


49 


07522 


00000 


07970 


PUT 


BO 


E XI T »ERSW 




09050 


43 


09228 


05640 


07980 




TF 


PUTOUT, PUT- 1 




09062 


26 


09344 


09049 


07990 




B 


E94270 




09074 


49 


09094 


00000 


08 000 




OORC 


• - » 




09082 








08010 




TF 


PUTOUT % PUT-2 




09082 


26 


09344 


09048 


08020 


1*4270 


TR 


C ARD»PUTOUT-3,2 




09094 


31 


J5036 


09341 


08030 




AM 


• -6,4 1 1 




09106 


11 


09100 


000-4 


08040 




CM 


1 8,CARD*100 




09118 


14 


0910C 


J51 36 


08050 




BE 


• ♦14 




09130 


46 


09144 


01200 


08060 




B8 






09142 


42 


00000 


00000 


08070 




OORG 


• -9 




09144 








08080 




TFM 


I0RT,»*23 




09144 


16 


00565 


-9167 


08090 




B 


I0PT, INT0P.7 




09156 


49 


00532 


-9235 


08100 




AM 


INTOP 1*5* 1 1 10 




09168 


11 


02390 


000- 1 


08110 




B 


•♦16,00200, , 


C9T7 ST ON S« 2 


09180 


49 


09216 


00200 


08 120 




RC TY 






09 192 


34 


00000 


00102 


UR130 




WNTY 


CAKD 




09204 


38 


15036 


OOlv. 


08140 




TFM 


E94270^6,CAR0 




09216 


16 


09100 


J5036 


08 150 


fc* 1 T 


AB 


E flfc44 




09228 


42 


02430 


coooo 


08 160 




OORG 


• -4 




09235 








08 170 


INTOP 


OSC 


2 , 02 




09235 




2 




08 180 




02 
OS A 


1 NTCP 1 




0924 1 






X I 












09241 




-2385 








DC 














08200 


iPCRR 


TFM 


SPGS*ll ,071 ,9 




09244 


16 


09339 


00-71 


08210 




80 


SPGS, INDIV 




09256 


43 


09328 


02424 


08220 




TFM 


IORT, »*23 




09268 


16 


00565 


-9291 


08230 




B 


lOGT ,C5DATA-4,7 , 


CHECK FOR CONTINUATION CAROS 


09260 


49 


00566 


-9799 


08240 




CM 


CMl 5,43,10 




09292 


14 


15839 


000M? 










3 V I 
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PAGE 


08250 




BE 


• ♦24 




09304 


46 


09328 


01200 


08260 




BO 


SPERR*24,CHI5*10 




09316 


43 


09268 


15849 


08270 


SPRS 


BTM 


ERROR, 071, 9 




09328 


17 


09350 


00-71 


08280 


PUTOUT 


DC 


5,0 




09344 




5 








-0000 












08290 




OC 


t . • 




09345 




1 




08 100 




OS 


4 




09349 




4 




08 110 


ERROR 


TOM 


ERSW, 1 




09350 


15 


05640 


00001 


08120 




TOM 


E 94620+1, 9 




09362 


15 


09395 


00009 


08 130 


• CALL 


ERROR PRINT OUT OF OISK 


-RETURN IS TO E94620 










08140 




TFM 


RE TR ♦b.ERl t, 


SET BRANCH TC ERROR MESSAGE 


09374 


16 


02496 


-3486 


08 350 




B7 


FLIP 




09386 


49 


02454 




08 360 


E94620 


B 


BEG I NA 




09394 


49 


02638 


00000 


08370 


ERR0R2 


TOM 


E94620+l,2 




09406 


15 


09395 


00002 


08380 




TOM 


JAY, 4 




09418 


15 


02367 


00004 


08 390 




TF 


ERR0R-1,ERR0R2-1,, 


TRANSMIT THE ERROR NUMBER 


09430 


26 


09349 


09405 


08400 




B 


ERROR+24 




09442 


49 


09374 


00000 


08410 




OORG 


• -3 




09450 








08420 


AERK1 


BTM 


ERROR, 376,9 




09450 


17 


09350 


00L76 


08430 


COMER 


BTM 


ERROR, 372, 9, 


INCORRECT COMMON STATEMENT 


09462 


17 


09350 


00L72 


08440 


C0MER2 


DS 


, COMER 




09462 









08450 


END 


BD 


•♦20.SUBFCT 




09474 


43 


09494 


02293 


08460 




B 


•♦32 




09486 


49 


09518 


00000 


08470 




DORG 


• -1 




09494 








08480 




BO 


•♦24,RTSW 




09494 


43 


09518 


05639 


08490 




BTM 


ERR0R2, 578,9 




09506 


17 


09406 


00N78 


08 500 




BV 


•♦12 




09518 


46 


09530 


01400 


08510 




BO 


MONCAL .ERSW,, 


SKIP STORAGE ALLOCATION IF PROG HAO ERR 


09530 


43 


00796 


05640 


08 520 




BTM 


PUT, 141, 8, END 




09542 


17 


09050 


0-141 


08530 




BTM 


PUT, 140, 8, DUMMY 


09554 


17 


09090 


0-140 


08540 




BTM 


PUT, 0132, 81 1 , 


SEMI COLON 


09566 


17 


09050 


0-13K 


08550 




CM 


E94270+6.CAR0 




09578 


14 


09100 


J5036 


08560 




BE 


E86440,,, EXIT TO 


STORAGE ALLOCATION 


09590 


46 


02430 


01200 


08570 




TOM 


EXlt*l,9 




09602 


15 


09229 


00009 


08580 




B 


E942T0*50 




09614 


49 


09144 


00000 


08590 




OORG 


• -3 




09622 








08600 


BLK I 


DSC 


2,22 




09622 




2 




08610 




22 
OS A 


BLKIA 




09628 




5 


X 1 












09628 




-9630 




08620 




OC 
• 


It* 




09629 




I 




08630 


BLKIA 


OSC 


1*0 




09630 




1 




08640 






OC 


5,17600 




09635 




5 








J7600 












08650 




OC 


3 .043 




09638 




3 




08660 




-43 
OSA 


IOUT 




09643 




5 


X I 












09643 




J020C 




08670 




OC 
• 


It' 




09644 




I 




08680 


BLK 2 


OSC 


2.22 


302 


0964S 




2 








22 
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08690 




USA 


BLK2A 


09651 










09651 


08 700 




oc 


l,» 


0965? 


u« 710 


BlK 2 A 


U5C 


1,0 


0965 3 













08 720 




OC 


5,17400 


09658 






J74C0 




08 7 30 




DC 


3,046 








-46 






OH 740 






10UT 


09666 










09666 


08 75C 




OC 


I . • 


09667 


_ 




DSC 


2*12 


09668 






22 






08 7 70 




OS A 


bl* JA 


09674 










09674 


08780 




DC 
T 


\>* 


09675 


(■H 790 




osc 


1.0 


09676 













08800 




OC 


5,1 74-jO 


09681 






J7450 




i 8 8 1 




DC 


1,046 


09684 






-46 






08820 




OSA 


Idut 


09689 










09689 


088 *0 




DC 


I . • 


09690 


08840 


HIK4 


OSC 


2,22 


09691 






2? 






088b0 




ns a 


BIK4A 


09697 










09697 


08860 




OC 


1 , • 


09698 


U8870 


BLK4A 


u*> c 


1 , 


09699 


0H880 






OC 


5, 17500 


09704 






J75C 







OH 8 90 




DC 


3,046 


9 707 






-46 






08901 




USA 


mui 


09712 










09712 


1)8 9 I j 




DC 


i , • 


09711 




IK* r > 


use 


2,?2 


09714 






2? 






0»9M> 




i;sa 


»t*5A 


3 II J 09720 
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09720 


<M940 




oc 


I , * 


09721 


08 9VJ 


ULK5A 


osc 


1,0 


09722 


O8'*<>0 






oc 


5, I 76 50 


09727 










08 9 70 




oc 


3, 04 6 


00730 






-46 






0H98O 




OS A 


IOt)l 


09735 










09735 


08990 




DC 




09736 


09000 


HLK6 


DSC 


2,22 


09737 






22 






09010 




OS A 


Bl«6A 


09743 










09743 


09 020 




nc 


1 , » 


09744 


09030 


HLK6A 


osc 


1,0 


09745 


09040 






oc 


5 t I 75*0 


09750 






J71*0 




09050 




DC 


3,046 


09753 






-46 






09060 




dsa 


luur 


09758 










09758 


09070 




oc 


i , • 


09759 


09080 


ML K 7, 


DSC 


2,22 


09760 




22 






09090 




OSA 


BLK7A 


09766 










09766 


09100 




OC 


1 , • 


09767 


09110 


HLK7A 


OSC 


1,0 


09768 













09120 




OC 


5,17700 


09771 






J7700 




09130 




OC 


3 , 100 


Q9776 






JOO 






09140 




DSA 


E86440 


097il 










09781 


09150 




DC 


l,« 


09782 


09160 


UROAT A 


OSA 


CM1 


09717 










09717 


09170 




OC 
~6« 


J f 06* 




09110 


COOATA 


OSA 


CHI 


09795 



PACE 

5 X 

-9651 
1 

1 

5 

1 

5 X 

J020C 
1 

2 

5 X 

-9676 
I 

1 

5 

3 

5 X 

J0200 
1 

2 

5 X 

-9699 
I 

1 

5 

3 

5 X 

J020C 
I 

2 

5 X 

PAGE 

-9722 
I 

1 

5 

3 

5 X 

J0200 
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2 

5 X 

-9745 

1 

I 
5 
1 

5 X 
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I 

2 

5 X 
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1 

1 

5 
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5 X 
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I 
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1 
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09 200 
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OS A 
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09806 
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TFM 


• ♦ 35, AF TBL + 5 


09808 


16 


0984 3 


J5040 






SH 


•♦23.5, 10 


09820 


12 


09863 


000*5 


09240 




TF 


• ♦ 1 8 » , 


098 32 


26 


09850 


MA AAA 
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09250 




AM 


.2,10 


09844 


11 


00000 
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09260 




C 


•-13 v siafi 


09856 


24 


09843 


04419 






BH 


• -48 


09868 


46 


09820 


01 100 






TFM 
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16 


044 19 


J5040 
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n 
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09892 


49 
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ERROR OO 1 
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12,465659544163 


9 9 «? 9 
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09330 


PlUSS 
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09031 




2 


X 2 


09340 


ENOCT 


OAC 


3.EN0 


09935 




3 


X 2 






ENO 












09350 


svm 


DS 


40 


09979 




40 




09 360 




OS 


2 


09981 




2 
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DC 


16,0 
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09380 
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OS 


.•-2 


09995 









09390 


TtNZ 


OS 
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SINGS! 


DC 
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1 
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DSC 


U 
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09420 
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osc 
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osc 
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osc 
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osc 
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osc 
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1 




09480 


CGTG 




osc 


1,0 
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09490 
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J 

DSC 
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1 
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DSC 
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1 
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DSC 
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1 
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09520 
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09540 
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OSC 



1,0 






10012 
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0955<: 




00*G 


10200 






10200 








09560 


lOtlT 


TFM 


FMON* 35.BLK4 






10200 


16 


02359 


-9691 


09570 




BTM 


FMON , IUUT 






I Oil 2 


17 


02 324 


J0200 


09580 


NQNARA 


TFM 


FMON* 35,BlK2 






10224 


16 


02359 


-9645 


09590 




BTM 


FMON . NONAR A 






1 Hi- 36 


17 


02 324 


J0224 


09600 


DIM 


TFM 


FM0N*i5,0lKl 






10248 


16 


02359 


-9622 


09610 




BTM 


FMON.OIM 






10260 


17 


02324 


J0248 


09620 


COMMON 


TFM 


fmon*35,blk| 






10272 


16 


02359 


-9622 


09630 




BTM 


FMON, COMMON 






10284 


17 


02324 


J0272 


09640 


IF 


TFM 


FMON*35,BLK6 






10^96 


16 


02359 


-9737 


09650 




BTM 


FMON, IF 






10 JOB 


17 


02324 


J0296 


09660 


GUTO 


TFM 


FMON* 3r>,BL*6 






10J2Q 


16 


02359 


-9737 


09670 




BTM 


FMON, GOTO 






10332 


1? 


02324 


J0320 


09680 


CAIL 


TFM 


FM0N*35 t 8LK6 






10344 


16 


02359 


-9737 


09690 




BTM 


FMON, CALL 






10356 


17 


02324 


J0344 


09700 


Rfc TURN 


TFM 


FM(1N*J5,BLK6 






10368 


16 


02 359 


-9737 


09710 




BTM 


FMON, RE TURN 






10380 


17 


02324 


J0368 


09720 


FORMAT 


TFM 


FMON* i5,BLM 






10392 


16 


02359 


-9622 


09730 




BTM 


FMON, FORMAT 






10404 


17 


02324 


J0392 


09740 


UCO 


TFM 


FMON* 45 i BLK4 






10416 


16 


02359 


-9691 


09750 




BTM 


FMON, 000 






10428 


17 


02324 


J0416 


09760 


ASCAN 


TFM 


FMON*35,BLK3 






10440 


16 


02359 


-9668 


09770 




BTM 


FMON, ASCAN 






10452 


17 


02324 


J044Q 


09780 


LUTSC 


TFM 


FMON*35,BLK3 






10464 


16 


02359 


-9668 


09790 




BTM 


FMON.OUTSC 






10476 


17 


02324 


J0464 


09800 


OKIO 


TFM 


FM0N*35,6LK5 






10488 


16 


02559 


-9714 


09810 




BTM 


FMON, OK |0 






10500 


17 


02 324 


J0488 


09820 


• • INI 


ITIALI2ATI0N PHASE l- 


B 












098 30 


PRSCAN 


BNF 


PRSCN1,LIST«, 


TQT At 11 


bTlNG 


10512 


44 


10544 


02228 


09840 




TFM 


RE IR ♦tttNITAL, 


, PRINT 


OUT THE HEAD 


10524 


16 


02496 


-4098 


09850 




B7 


FLIP 






10536 


49 


02454 




09860 


PRSCN1 


SF 


00457 






10544 


32 


00457 


00000 


09870 




TOM 


00475,2,,, SET 


SiYSCAt 




10554 


15 


00475 


00002 


09880 




BO 


•♦20, 1N0IV 






10568 


43 


10588 


02424 


09890 




B 


• ♦56 






10580 


49 


10636 


00000 


09900 




OORG 


• -3 






10588 








09910 




BNF 


•♦48, INpIV 






10588 


44 


10696 


02424 


09920 




TFM 


B A* 1,41, 10 






10600 


16 


02719 


000M1 


09930 




TFM 


BA07.41, 10 






10612 


16 


02755 


OOOMl 


09940 




TFM 


UR0ATA*2,08, 10 






10624 


16 


09789 


000-8 


09950 




TF 


SMTLU*1 1 1 STBL 






10636 


26 


06965 


02377 


0996C 




SM 


SMTLU*ll,4,lO 






10648 


12 


06965 


000-4 


09970 




S 


SMTLU*23t STBl 






10660 


22 


06977 


02)77 


09980 




AM 


SMTLU*23,05,I0 






10672 


11 


06977 


000-5 


09990 




IF 


SMTLU*35,STBL 






10684 


26 


06989 


02*77 


10000 




S« 


SMTLU*35,6, 10 






10696 


12 


06989 


000-6 


10010 




S 


FX0RFL-5.KLNG 






10708 


22 


06414 


02252 


10020 




A 


PLUS*47,FLNG 






10720 


21 


06879 


02250 


10030 




80 


BA*48,IN0IM 






10732 


63 


02744 


02424 


10040 




• 


8EGINA 






10744 


69 


02410' 


ooooo 


10050 




OORG 


• -J 




30* 


10752 








10060 




OORG 


16000 




16000 









1620- 144) tfONMOft I VERSION 2 FORTRAN M-C PHASE 1-H PAGE 



10070 


PHPOA T 


use 

2? 


2t?2 




1 6000 




2 




10010 




OS A 


PH60DA 




16006 




5 


X 1 












16006 




J6008 




10090 




DC 


L« 




16007 




1 




10100 


PHPOOA 


DSC 


1,0 




16008 




1 




10 1 10 





UC 


5. 17200 




16013 




5 








J72C0 












10 120 




OC 


3,H4 




16016 




3 








-84 














10130 




OS A 


ft 864*0 




1602 1 




5 


x I 












16021 




-24)0 




10 MO 




OC 


l» ' 




16022 




I 




10150 


LUPHH 


TFM 


in«T,»»23 




16024 


16 


00565 


J6047 


10 160 




H 


IOPT , PHBOAT , 7 




1 6036 


49 


005)2 


J6000 


IQITO 




TRA 






16048 


36 


00000 


00500 












16060 


49 


OOOOC 


00000 


10 UO 




TCO 


IDPHH 




16024 








10190 


• 


UUT OF CORF BLOCK I 


CONTAINS THE FOLLOWING 










10200 


• 


DIMENSION 












10210 


• 


COMMON 












10220 


• 


FOKMAT 












102. 30 




OORG 


10UT 




1 0200 








10240 




TFM, 


FMIIN* 35 |BLK4 


t 1 1 OUT 


10200 


16 


02 359 


-9691 


10250 




BTM 


FMON, 10UT 




102 12 


I j 


02 324 


J0200 


10260 




IFM 


FMON*35 t BLK2 




10224 


16 


02 359 


-9645 


1027Q 






FMON, NONARA 




1 02 36 


j 7 


02 324 




10280 




CF 


STSN 


, , ,OIM 


10248 




0564 1 


uuuvw 


10290 




H 


OIMFN 




10260 


49 


10512 


vUUVU 


10 300 




CF 


STSN 


, , , COMMON 


10272 






nnnnn 


10 310 




B 


COMMfN 




10284 


49 


1 1576 


V V v V w 


10 320 




tfm 


FMUN*35,BLK6 


, ,IF 


10296 


16 


02359 


-9737 


10330 




BTM 


FMON, IF 




1 308 


1 7 


02324 


J0296 


10340 




TFM 


FMUN*35,BU6 


M r »OTO 


10320 


16 


02359 


-9737 


10350 




ATM 


FMON.GUTD 




10332 


I 7 


02324 


J0320 


10360 




TFM 


FMUN^i5,0LK6 


, ,CALL 


1 344 


1 6 


02359 


-97)7 


10370 




BTM 


FMON, CALL 




10356 


1 7 


02)24 


J0344 


10 380 




IFM 


FMON»35,BL*6 


t i RC TURN 


10368 


16 


02359 


-9737 


10 390 




BTM 


FMQN.RE f URN 




10380 


1 7 


02324 


J0366 


10400 




CF 


FRCQSM 


, , ,FORMAT 


10392 


3 3 


14218 


00000 


10410 




B 


FOMAT 




10404 


49 


12146 


00000 


10420 




IFM 


FM0Nti5,BtK4 


. iOOO 


10416 


16 


02)59 


-9691 


10430 




BTM 


FMCN,000 




10428 


17 


02)24 


J0416 


1044O 




TFM 


FMl)N*35,BLK3, , 


ASCAN 


10440 


16 


02)59 


-9668 


10450 




BTM 


FMON, ASCAN 




10452 


17 


02324 


J0440 


10460 




TFM 


FMON*35,RLKl, f 


OUTSC 


10464 


16 


02)59 


-9668 


10*70 




HTM 


FMQN.CUTSC 




10476 


17 


02324 


J0464 


10480 




TFM 


fM(»N* Jt»,BtK«i 


i.OKIO 


10488 


16 


02359 


-9714 


10490 




BTM 


FMON , 10 




10500 


17 


02)24 


J0488 


10500 


• 


ENTRY TO OECPMPOSE 




















3 7 
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10510 


C1»EN 


BTM 


C0LNAM,6, 10 




10512 


17 


04662 


000-6 


10520 




C 


SVM,FNS10N*10 




1 0524 


24 


09979 


1 1575 


10530 




BV 


EKR01 




1 0536 


46 


04286 


1400 


10540 




BNE 


ERKOl 




1 0548 


47 


04288 


01200 


1055Q 




T* 


CH|-1,CH|»11 




10560 


3 1 


15136 


15150 


10560 




TOM 


OlMSW.l 




1 0572 


1 5 


1 0004 




10570 




BN* 


•♦36,CM|*2 




1 0584 


45 


10620 


15141 


10580 


01*1 


BTM 


ERR0R»072,9, 




10596 


I 7 


0935C 


00-72 


10590 




BTM 


ERROR, 2 70.9 




1 0608 


1 7 


0935C 


OOK 70 


10600 




CM 


CH( ( 4U*10 




1 0620 


14 


15139 


OOOMO 


10610 




HNH 


• -24 




1 0632 


4 7 


10608 


01 100 


10620 




CM 


CHI,6S),10 




1 0644 


14 


15139 


00009 


10630 




8H 


01*1*12 




10656 


46 


10608 


1 100 


1064C 




BTM 


CS<)RN.»*12 




1066ft 


I 7 


05704 


J0680 


10650 


St TOM 


HO 


DIM2, INSM, , 


BRANCH IF SYM WAS AIREACY IN TABLE 


1 0680 


43 


11464 


0261 1 


10660 




TOM 


SMCNT.l ,6, 




1 0692 


I 5 


0726 J 


00001 


10670 




T F 


40S4VE,$NA00,tl« 




10704 


26 


08485 


07200 


10680 




SM 


SMAD0.05, 10 




10 716 


12 


07208 


000-5 


10690 




f F M 


SMAOD ,1,67 




1 728 


16 


07200 


-0001 


10700 




CM 


CHI, 24, 10 




1 0740 


14 


15139 


000K4 


10710 




BNE 


01*1 




10752 


47 


10596 


01200 


10 720 




SF 


DIM! 




10764 


32 


10596 


00000 


10 730 




SF 


SE TOM 




10776 


32 


10660 


00000 


10740 


SO 


TR 


CM|-1,CMIM , , 


SHIFT OFF LEFT PARN OR COMMA 


1 0788 


3 1 


15136 


15140 


10 750 




CM 


CH| ,69, IP, 


TEST FOR ABSOLUTE 


10H00 


14 


15139 


00009 


10 760 




BNH 


SET0M2t24 




10812 


47 


10660 


01 100 


10770 




BTM 


CSTN0,*tl2 




10824 


1 7 


05412 


J0636 


10780 


SfcTi)M2 


CM 


SYM,Q,10 




1 08 36 


14 


09979 


000-0 


10790 


BNE 


• ♦24 




1 0848 


4 7 


10872 


01200 


10800 




BTM 


ERROR ,179,9 




1 0860 


|7 


0935Q 


00J79 


10810 




AM 


ADSAVEt §t!0 




10872 


1 1 


06465 


000-5 


10820 




TOM 


SVM-4,0,11 




1 0814 


15 


09979 


0000* 


10830 




CF 


SVM-l 




10896 


33 


09976 


00000 


10840 




TF 


ADSAVE.SYM.6 




10908 


26 


0648N 


09979 


10850 




AM 


NXLQC»5,|0 




10920 


1 1 


02372 


000*5 


10860 




TF 


TEMP.SVM 




109)2 


26 


02620 


09979 


10870 




CM 


CHI, 04, 10 




10944 


|4 


191 39 


000*4 


10880 




BE 


MOVO|M 




10996 


46 


11116 


01200 


10890 




CM 


CH|,?3,10 




10968 


14 


191)9 


OOOK) 


10900 




8N6 


QIM1 




10910 


47 


10996 


01200 


10910 




BMF 


fENOIM.DIMl,, 


TEST FOR SECOND DIMENSION 


10992 


44 


11072 


10996 


10920 




TOM 


SMCNT.2,4 




1 1004 


|% 


0726J 


00002 


109)0 


StTDHl 


M 


$MA00,T|M*,6 




11016 


23 


0720Q 


02620 


10940 




SF 


96 




11028 


32 


00099 


00000 


10950 




IF 


SMAOO.99,6, 




1 1040 


26 


0720Q 


00099 


10960 




CF 


DIMI 




1 1012 


33 


10996 


00000 


10970 




B 


SO 




H064 


49 


10766 


00000 


10980 
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••1 




11072 
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GENDIM 




SET0M2»24 ( SCT0Mi» 


TEST FOR TMIRO OlMfNSION 


11072 


44 


10660 
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11000 




TOM 


SMCNT.3,4 
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IS 


0726J 


00003 


11010 




CF 


SEfOM 




llUT- 


s% 


10660 


00000 


11020 




• 


SET0M3 




11 108 


** 


11016 


00000 


11030 




OORC 


•~3 




11116 








11040 


MGVOlM 


M 


$M 400, TEMP, 6 




11116 


23 


07209 


02620 


11010 




SF 


95 


3<»5 
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00069 


OOOOO 
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TF 
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I DIMENSION 
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11 396 
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OORG 
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jf 


TEMP t ADSAVE 
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02620 


000-5 
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|f 
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26 
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1 1268 


49 
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1 1 200 




OORG 


• -4 




1 1275 








11210 


SE T0M4 


If 


TEMP, ADSAVE 




1 1276 


26 


02620 


06485 


1 1 220 




SM 


ADSAVE , 5# 10 




1 1268 


12 


06485 


000-5 


1 1 230 




SM 


TEMPt 10t 10 




1 1 300 


12 


02620 


OOOJO 


1 1 240 




H 


TEMP, AO SAVE, 611 




11312 


2) 
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5P 
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32 
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TF 
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26 


0237K 
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26 
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TP 
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1 1408 


26 


0237K 
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45 
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g 
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1 1 4 32 


49 
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00000 
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CM 


CHI 23 10 
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000K3 
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D IM 1 




1 1 452 


4 7 


10596 


01200 






TR 






1 1 464 


3 1 


15138 


15140 


1 1 390 




Q 


DI H 1 *24 




1 1476 


49 


10620 


00000 


1 1 400 




OORG 






1 1 464 








11410 


U 1M2 




MODAD t i t 10 




1 1464 


1 j 


07865 


000-2 


1 1 420 




BNR 


D I M3 1 MODAD t lit 


TEST IF DIM VAR WAS PLACED IN TABLE BY 


1 1 496 


45 


1 1 552 


0786N 


1 1 430 




A 


NXLOC tSMLNGt t 


SUBROUTINE OR FUNCTION STATEMENT 


1 1 508 


2 1 


02 372 


0593 1 


} J 




TF 


NXL0C.SYM,6 




1 1 520 


26 


0237K 


09979 


1 1450 




TF 


SMADO tNXLOC 1 6 




i i s2f 




07200 




i ! *tn 




B 


SET0M*12 






4Q 


10692 


000'. i 






OORG 


• -3 




l «) 








ii tan 




BTM 


ERROR, 271, 9 




i i 


J J 


09350 


OOK 7 1 


1 1 490 


ENS IQN 


DAC 


6.INSI0N 




1 1 






X 2 






ENS 1 1 


IN 
















DECODE COMMON STATEMENT S •••••• 










ii !in 


COMMEN 


BTM 


COLNAM.3,10 




I I 576 


J 7 


04662 


000- 3 


1 1 520 




C 


SYM,M0N«4 




1 1 568 


24 


09979 


12 165 


11530 




HV 


ERR01 




I 1600 


46 


04288 


01400 


11540 




BNE 


ERKOl 




1 1612 


47 


04288 


01200 


11550 




TR 


CHI-1 ,CH|**> 




I 1624 


31 


15138 


15144 


11560 




TOM 


COMf.Mtltll 




1 1636 


15 


10010 


OOCOJ 


11570 




CM 


CHI ,40, 10 




1 1648 


14 


15139 


OOOMO 


11580 




BNH 


COMER 




1 1660 


47 


09462 


01100 


11590 




CM 


CHI, 69, 10 




11672 


14 


15139 


00009 


11600 




BH 


COMER 




1 1684 


46 


09462 


01100 


11610 




BTM 


CS0RN,**12 


^ II '1 


1 1 696 


\ 7 


05 704 


J I 703 








1620-1443 MONITOR 


1 VERSION 2 FORTRAN i I — C PHASE 1-8 








PAGE 


J , f ® 




CM 


CH(, 24, 10 




1 1 708 


14 


151 39 


000K4 


1 1 630 




BE 


COMER 




1 1720 




09462 


1200 


1 1 640 




BO 


COMIN, INSHi • 


BRANCH IF VARIARlfc «AS PREVIOUSLY USED 


11/32 


4 3 


1 1 876 


0261 1 


1 1 650 


****** 


IF VARIABLE WAS NOT 


DEFINED THEN IT MiJST BF SIMPLE VARIABLF 










1 1 660 


CUM A 


AM 


NXLOC, 5, 10 




I 1 744 


1 1 


02372 


000-5 


11670 




TF 


NXL0C,C0MADD,6, 


MOVE OBJ TIME COMMON ADCRESS TO SYM ARE* 


1 1 756 


26 


02 37K 


02262 


1 1 680 




BD 


• ♦ 32 » FXORFL 




1 1 780 




1 1 800 


064 19 


1 1 690 




S 


C0MA0D,FP2, , 


AOJ COMMON AOORESS ^OR FLOAT VARIABLE 




22 


02262 


02294 


1 1 700 




B 


• ♦20 




1 1 792 


49 


11612 


00000 


11710 




OORG 


•-3 




1 1 800 








1 1 720 




S 


COMADO, KLNG , , 


ADJ COMMON ADDRESS FOR FIX VARIABLE 


1 1 800 


22 


02262 


02252 


117 30 


CQMAB 


BNR 


•♦20tCMI»2 






45 


11832 


15141 


\ \ It ~ 




B 


BEG I NA 




1 1824 


49 


02638 


00000 


1 1 750 




OORG 


• -3 




1 1832 








11 760 




CM 


CHI ,23,10, 


TEST FOR MCRE LIST ELEMENTS 


l t aif 


14 


15 1 39 


000K3 


11 770 




BNE 


COMER 




1 fast 


4 7 


09462 


01200 


1 1 780 




TR 


CH|-1,CH|*1 






1 1 


151 38 


15140 


11 790 




B 


COMMEN^72 




I 1868 


49 


1 1 648 


00000 


1 1 800 




DORG 






I 1 676 








11810 


**** 


COME HERE IF SIMPLE 












! * 


IN 


BNF 


•♦24, SMCNT, 11 




1 1876 


44 


11900 


0726J 


t i 830 




BTM 


ERROR , 373,9, 


VARIABLE WAS PREVIOUSLY PLACEO IN COMMON 


1 1888 


17 


09350 


00173 


1 1 840 




BNF 


• ~12,MO0A0,U, 


WAS IT PREVIOUSLY EQUIVAL ENCEO 


1 1900 


44 


11888 


0788N 


1 1 850 




SF 


SMCNT,, 6, 




11912 


32 


0726 J 


ooooo 


1 1 860 


CUM INA 


A 


NXLOC, SMLNG 




1 1924 


21 


02372 


05931 


11870 




TF 


SMADn,NXL0Ct6, 


MOVE NEW SYMBOL ADDRESS INTO TABLE 




26 


0720Q 


02)72 


11 880 




TF 


NXL0C,SYM,6 




1 1948 


26 


0237K 


09979 


11690 




B 


COMA, ,, 


BRANCH TO PLACE COMMON ADDRESS IN I ABLE 


1 1960 


49 


11 744 


OOOOO 


11900 




OORG 


• -3 




1 1968 








11910 


•••••• 


RETURN FROM SYM TABLE LOOK UP WHEN VARIABLE MAS DIMENSIONED 










1 1920 


COME 


BNF 


•♦20, SMCNT, 11 




1 1968 


44 


11988 


0726J 


1 1 930 




6 


C0MIN*12,,, 


VARIABLE PREVIOUSLY PLACED IN COMMON 


1 1960 


49 


11686 


OOOOO 


11940 




OORG 


•-3 




1 1 968 






0768N 


11950 




BNF 


COMIN»l2,MO0AO,ll 


, TEST IF VAR WAS PREVIOUSLY EQUIVAL ENCED 


! Innn 




11688 


11960 




SF 


SMCNT, ,6, 






32 




uuuuu 


11970 




SM 


SMCNT, 07, 10 




1 Ortl > 
i jn»f 


12 


07261 


000—7 


11980 


CUMC 


BO 


•♦32, FXORFL 








12056 


06419 


11 990 




TF 


C0MMMI.FP2 


SET UP TO MULTIPLY NUMBER 


12036 


26 


I207C 


02296 


12000 




B 


COMM 




1 2048 


49 


12068 


OOOOO 


12010 




OORG 


•-3 




1 2056 








12020 




TF 


•♦23, KLNG 




12056 


26 


12079 


02252 


12030 


COMN 


MM 


SMCNT , ,6, 


GEN. NO. OF LOCATIONS FOK ARRAY 


12068 


1 j 


0726J 


ooooo 




SF 


95 


12010 


32 


00095 


OOOOO 


1 JAM 




S 


C0MADD,99,, 


UPQATA COMMON ADDRESS 


12092 


22 


02262 


00099 


12060 




BN 


COMER) 




12104 


47 


12146 


01300 


12070 




TF 


SMCNT, COMADO ,6 




12116 


26 


0726J 


02262 


12060 




A 


SMCNT, COMM^ 11,6 




12126 


2i 


0726J 


12079 


12090 




B 


CQMAB, t * 


THIS ADDRESS IS THE LOW OROER DIGIT OF 


12140 


49 


11612 


OOOOO 


12100 




OORG 


•-4,,, 


FIRST ELEMENT. 


12147 




09350 


00M74 


12110 


COMER) 


BTM 


ERROR, 474, 9, 


COMMON EXCEEOS CORE SI2E 


12146 


17 


12120 


HON 


OAC 


3, MON 




12161 




3 


X 2 






MON 














12130 


• ••• 


UNIT RECORD FORMAT 


OUTPUT •••• 










12140 


FOMAT 


BO 


•♦32,INSW 




12166 


43 


12196 


02611 


12190 




TOM 


SMA0D,1,6 




12176 


15 


0720Q 


00001 


12160 




B 


FOMAT I 


3 1 « 


12190 


49 


12210 


OOOOO 



1620-1*%! MONITOR I VERSION 2 FORTRAN M-C PHASE 1-8 



PACE 



U 170 




OORG 


• - J 




12198 








12 1*0 




80 


fom"ati t smaoo, 


11 


12198 


*) 


12230 


7200 


12 190 




TFM 


SPf,S*lt. 277,9 




12210 


16 


09339 


00K77 


1220Q 




8 


SPERRM2.,. 


ERRCR 27 


12222 


69 


09256 


ooooo 


12210 




OORG 


• -) 




122)0 








12220 




TFM 


tCH|- 


2 ■ : 


12230 


16 


08169 


J5137 


12230 




AM 


X*U ,2.10 




12262 


11 


08169 


000-2 


122*0 




HNR 


•-12,Xtll 


,11, SCAN AHEAD FOR RECORD MARK 


1225* 


65 


12262 


08168 


122*0 




60 


F0RM99, I NO 1 V 


12266 


6) 


12370 


02626 


12260 




AN 


CKR»-l,CM|*l*6,7tl 


12278 


11 


02937 


J528N 


122TO 




AM 


CKRM-l,2,|0 




12290 


11 


02917 


000-2 


12280 




BE 


• ♦** 




12)02 


66 


12366 


01200 


12290 




TFM 


X ♦ 1 1 .0,610 


1231* 


16 


08168. 


000-0 


12)00 




AM 


XUl ,2 f 10 




12326 


11 


06169 


000-2 


12310 




8 


• -*8 




123)8 


*9 


12290 


00000 


12)20 




01) KG 


• -3 




I ? 3*6 








12))0 




TDM 


FMSw, I 




12 3*6 


15 


10002 


00001 


12340 




BTM 


CKCNIU.O, |Q 




12)58 


17 


06862 


ooo-o 


12**0 


FURN99 


TFM 


OH ,17,610 


12)70 


16 


0B16R 


000L7 


12)60 




TR 


X»ll .AVOID, 6 


12)82 


31 


08168 


06032 


12 370 




TR 


rill 1 f yl > 1 1 




1239* 


31 


151)8 


15150 


12)80 




CM 






12*06 


1* 


15139 


000-0 


12)90 




6NE 


t ♦ )2^' ^ 




12*18 


67 


12650 


01200 


12*00 




TR 


rui.i ruiii 




12*30 


31 


15136 


15160 


12*10 




fl 


t- I 6 




12**2 


*9 


12*06 


00000 


12*20 




OORG 






12*50 








12*)0 




CM 


ry| . J*. in 
f 1 , , I U 




12*50 


1* 


15139 


00OK* 


12**0 




BE 


• ♦?* 




12*62 


66 


12*86 


01200 


12*50 




BTM 


ERROR, 375,9, 


LEFT PAREN DOES NOT FOLLOW FORMAT 


12*7* 


17 


09350 


0OL75 


12*60 




BTM 


PUT , 128, 


8, FORMAT 


12*86 


17 


09050 


0-128 


12*70 




HTM 


PUI, 12*, 


R • L E F T PAREN 


12*9R 


17 


09050 


0-126 


12**0 




AM 


PARCNT, 1,10 




12510 


11 


02615 


000-1 


12*90 




TFM 


MIOTH, 1*5,8, 


INI TAllZE HIQTH CHECK 


12522 


16 


1*289 


0-165 


12500 




BO 


•♦?*,UIQPR7 




125)* 


*3 


12556 


02230 


12510 




SM 


MI0TH,2*, 10 




125*6 


12 


1*289 


000K6 


12520 


FoRfU 


TR 


CHI-l,CHl*l 




12558 


31 


15138 


15160 


125)0 




CM 


CHI, 0,10 




12570 


1* 


151)9 


000-0 


125*0 




BE 


• -2* 




12582 


66 


12550 


01200 


12550 




CM 


CH| ,*l, 10, 




1259* 


1* 


15139 


OOOMl 


12560 




MH 


FCRM2 




12606 


*6 


12898 


01100 


12570 




8L 






12618 


*7 


12662 


01300 


12580 




HTM 


pur, i**, 


8, A TYPE 


126)0 


17 


09050 


0-1*6 


12590 




TOM 


UlVPfc, i 




126*2 


15 


1*225 


00001 


12600 




U 


FORM) 




1265* 


*9 


13070 


OOOOO 


12610 




OORf- 


• - 4 




1266? 








12620 


HASH 


CM 


cm, 2i, io. 


TEST FUR SLASH 


12662 


1* 


15139 


00OK1 


126)0 




BE 


FORM 7 




1267* 


66 


13686 


01200 


126*0 




CM 


CHI , 2* , 10 




12686 


1* 


15139 


OOOK* 


12650 




BE 


FORM* 




1269R 


**, 


139*6 


01200 


12660 




CM 


CH| ,20, 10, 


TEST FUR SCALE FACTOR 


12710 


1* 


15139 


OOOKO 


12670 




BE 


FORME R* I 2 




12722 


*6 


12770 


01200 


12680 




CM 


CHI.10,10 




127)* 


I* 


15139 


OOOJO 


12690 




HE 


•♦2*.,, 


INVALID FORMAT SPEC 1 F IC AT IUN 


127*6 


*6 


12770 


01200 


12700 


FuRMfcR 


UTM 


ERRiJR,)75,9, 




12758 


17 


09)50 


00L75 


12710 




TR 


CH|-l,CH|*l 




12770 


31 


151)6 


151*0 


12720 




CM 


CH|, 0,10 




12782 


1* 


151)9 


000-0 



3 i i 









1620- 1**3 MONI TCR 


1 VERSION 2 FORTRAN I 1 


-C 


PHASE l-B 








PAGE 


127)0 




BE 


»-2* 








1279* 


*6 


12770 


01200 


127*0 




CM 


CHI ,61,10, 


SHIFT £F SCALE FACTCR 






12806 


1* 


15139 


00009 


12 750 




BH 


• -*8 








12818 


*6 


12770 


01100 


12760 




CM 


CHl,57,l0i 


TEST FUR P 






128)0 


I* 


15139 


000N7 


12 770 




BNE 


FORM^K 








128*2 


*7 


12758 


01200 


U 780 


MTVPE 


TR 


CH|-l,CH|*l 








1285* 


31 


15138 


151*0 


12790 




CM 


CHI, 0,10 








12866 


1* 


151)9 


000-Q 


12800 




BNE 


FTYPE 








12878 


*7 


12978 


01200 


12810 







• -36 








12890 


*9 


1285* 


OOOOO 


12820 




OORG 


• -) 








12898 








128)0 


► URM2 


CM 


CHJ, 69,10 








12898 


1* 


151)9 


00009 


12 8*0 




BH 


FURMfl 








12910 


*6 


1)818 


01100 


12850 




CM 


CH|,*9.10, 


TEST FOR 1 TYPE 






12922 


I* 


151)9 


000M9 


12**0 




MNE 


• ♦66 








129)* 


*7 


12978 


01200 


12870 




BTM 


PUT, 1*9,8,1 


TYPE 






129*6 


17 


09050 


0-169 


t? 880 




TOM 


I A T YPfc , 1 








12958 


15 


1*225 


00001 


12890 




B 


FORM) 








12970 


*9 


13070 


OOOOO 


12900 




00 K Q 


• - 3 








12978 








12910 


FTYPE 


CM 


CH| ,*6, 10, 


TEST FOR F TYPE 






12978 


1* 


151)9 


000M6 


12920 




BNE 


• ♦32 








12990 


*7 


1)022 


01200 


129)0 




BTM 


PUT, 1*6, 8, F 


TYPE 






13002 


17 


09050 


0-166 


129*0 




B 


F0RM)-12 








1301* 


69 


1)058 


OOOOO 


12950 




OQRG. 


• -) 








13022 








12960 


fclVPt 


CM 


CHI ,*•>, 10, 


TEST FUR E TYPE 






13022 


1* 


151)9 


000M5 


12970 




BNE 


FORMER 








1303* 


*7 


12758 


01200 


12980 




BTM 


PUT, 1*5,8,6 


TYPE 






130*6 


17 


09050 


0-165 


12990 




TOM 


1ATYPE.0 








13058 


15 


1*225 


OOOOO 


1)000 


FuRM ) 


IR 


CHI-I ,CH|*1 








13070 


31 


151)8 


15160 


1)010 




CM 


CHJ, 0,10 








13062 


16 


151)9 


000-0 


1)020 




BE 


• -2* 








1309* 


66 


13070 


01200 


1)0)0 




CM 


CHI.69, 10 








13106 


16 


15139 


00009 


1)0*0 




BNH 


FORMER 








13116 


67 


12758 


01100 


1)050 




TOM 


OlMSWrl,, 


SET SW4TCH TO RETURN FROM 


LSTNO 


13130 


15 


10006 


00001 


1)060 




BTM 


CSTN0,»*12,, 


COLLECT NUMBER 






13162 


17 


05612 


J3156 


1)070 




CM 


SVM.0,10 








13156 


16 


09979 


000-0 


1)060 




H 


FORMER 








13166 


66 


12756 


01200 


1)090 




BT 


PUT.SVM,, 


OUTPUT w 






13176 


27 


09050 


09979 


1)100 




BNF 


•♦60,FREQ$W, . 


TEST IF SPEC WAS MULT 


SPECIFICATION 


13190 


66 


13250 


16216 


1)110 




CF 


FREOiW 








13202 


33 


16216 


OOOOO 


1)120 






SVM,SETFRO*li 








13216 


23 


09979 


16229 


1)130 




%f 


96, 








13226 


32 


00096 


OOOOO 


1)1*0 




TF 


SVM,99 








13236 


26 


09979 


00099 


13150 




BTM 


MIOCK.0,10 








13250 


17 


16300 


000-0 


1)160 




op 


F0RM5, I ATVPE ■ • 


TEST |F IN I OR A TYPE 






13262 


63 


13636 


16225 


1)170 




C* 


CHI, 0,10 








13276 


16 


15139 


000*0 


1)160 




BNE 


• ♦32 








13286 


67 


13316 


01200 


1)190 




TR 


CMi-l.CMfH 








13296 


11 


15136 


15160 


13200 




6 


• -36 








13310 


69 


13276 


OOOOO 


13210 




OORG 


• -3 








13316 








13220 




CM 


CH|,),10 








13)18 


16 


15139 


000-3 


132)0 




BNE 


FORMER 








13310 


67 


12756 


01200 


13260 




BTM 


PUT, 10), 8, 








13362 


17 


09050 


0-101 


13250 




FR 


CH1-1,CM1*1 








13356 


31 


15139 


151*0 


13260 




CM 


CHI, 0,10 








13366 


16 


15139 


000-0 


13270 




BE 


•-26 




31 




13378 


66 


11156 


01200 


13280 




CM 


CMl,69,lO 








13390 


16 


15119 


00009 



1620-144) MCNITOR I VERSION 2 FOUIKAI 1 I -C PHASE 1-B 



PAGE 



13290 




BNH 


FORMER 


1 3402 


♦ 7 


12758 


01100 


13)00 




BTM 


CSTN0,»*12 


13414 


17 


05412 


J3426 


13110 




BT 


PUT.SVN 


13426 


27 


09050 


09979 


1)120 


FU«M5 


CM 


CH| ,0,10 


13438 


14 


151)9 


000-0 


1)310 




BNE 


•♦)2 


13450 


47 


1)482 


01200 


1))40 




tr 


CH|-l,CH|*l 


1 3462 


31 


15138 


15140 


1)350 




B 


F0RM5 


13474 


49 


13438 


00000 


1)360 




00 RG 


• 


1)482 








13370 


FQRHbl 


CM 


CH|,4,10t 


13482 


14 


15139 


000-4 


13390 




RNE 


FCMA 


1 3494 


47 


13618 


01200 


13 390 




BTM 


PUT , 104,t,tl6HT PAREN 

CM|-1,CH|*I 


13506 


17 


09050 


0-104 


13400 




TR 


13518 


31 


15138 


15140 


13410 




SM 


PARCNT, It 10 


1 3530 


12 


02615 


000-1 


1)420 




BNZ 


F0RM5 


13542 


47 


1)438 


01200 


1)4)0 




CM 


CH| , 0, 10 


1 JS54 


u 


15139 


000- Q 


1 )440 




BE 


• ♦12 


1 3566 


46 


13598 


01200 


1)450 




BNR 


FORMER, CHI*2 


♦ 13S7R 


45 


12758 


15141 


1 3460 




M 


BEGIN 


1 )590 


49 


02626 


00000 


13470 




OORG 


• -3 


1 3598 








1)480 




TR 


CH|~1,CHIM 


1 3598 


)1 


15138 


15140 


1)490 




ts 


• -56 


1 3610 


49 


13554 


00000 


13500 




00 RG 


• ~ ) 


13618 








13510 


FCMA 


CM 


CH|,2),10 


1 3618 


14 


15L39 


000K3 


13520 




BNE 


• ♦32 


1 3630 


47 


13662 


01200 


13530 




BTM 


PUT, t2|»8fC0Mf*A 


1 3642 


17 


09050 


0-123 


13540 




g 


F0RM1 


1 3654 


49 


12558 


00000 


1 3550 




OORG 


m- i 


13662 








13560 




CM 


CHI ,21,10 


13662 


14 


15139 


0OOK1 


13570 




BNE 


F0RM1 *)6 


1 36 74 


47 


12594 


01200 


13560 


FURM7 


BTM 


PUT. ltl.BaDIVIDE 


1 3686 


I 7. 


09050 


0-121 


13 590 




TFM 


WIDTH, 145,8, 


1 3698 


16 


14289 


0-145 


1 3600 




BO 


•♦24, B1GPRT 


1 3710 


43 


13734 


02230 


13610 




SM 


MI0TH,24t 10 


I 3722 


12 


14289 


0OOK4 


13620 




TR 


CHI- 1 ,CH| ♦ 1 


1 37)4 


11 


151 38 


15140 


13630 




CM 


cm , 0, 10 


1 3746 


14 


15139 


000-0 


13640 




BE 


• -24 


1 )758 


46 


13734 


01200 


1 3650 




CM 


CH| , 24, 10 


1 3770 


|4 


15139 


0OOK4 


13660 




BE 


F0RM4 


I 3782 


46 


13946 


01200 


13670 




CM 


CHI ,69, 10 


1 3794 


14 


15139 


00009 


1 3680 




BNH 


FDRM51 


1 3806 


47 


13482 


01 k ' 1 


1)690 


FORMS 


TDM 


0|MSW,1 


13818 


is 


10004 


OOOOt 


1)700 




BTM 


CSTN0,»*12 


1 3830 


17 


05412 


J3842 


1)710 




CM 


CHI ,0,10 


1 3842 


14 


15139 


000-0 


1)720 




BNE 


• ♦32 


1 3854 


47 


13886 


01200 


1)730 




TR 


C H 1 -» 1 , C H I ♦ 1 


13866 


3| 


15138 


15140 


1)740 




B 


• -16 


1 3878 


49 


13842 


00000 


1)750 




DQRG 


• -i 


1 3886 








1)760 




CM 


CHI, 57, 10, TEST FOR SCALE FA( 11* 


1 3886 


14 


15139 


000N7 


1)770 




BE 


P TYPE 


1 3898 


46 


12854 


01200 


1)780 




CM 


CHI, 24, 10 


1)910 


14 


15139 


O0OK4 


1)790 




BNE 


FORMX 


1)922 


47 


13978 


01200 


1)800 




BT 


PUT,SVM 


1)9)4 


27 


09050 


09979 


1)810 


FORMA 


AM 


PARCNT,1,10 


I 3946 


11 


02615 


000- 1 


1)820 




BTM 


PUT. 124, I, LEFT PAREN 


1 )958 


17 


09050 


0-124 


1)8)0 




B 




1)970 


49 


12558 


00000 


13840 




DORG 




1)978 









1620-144) MONITOR 1 VERSION 2 FORTRAN ! I -C PHASE 1-B PAGE 



13850 


FORMX 


CM 


CHI ,67,10, 


TEST FOR X SPECIFIC Al Ii N 


1 3978 


14 


15139 


00007 


13860 




BNE 


HOLL 




13V90 


47 


14046 


01200 


13870 




BTM 


WIDCK, Of 10 




14002 


17 


14300 


000-0 


13880 




BT 


PUT.SVM 




1*014 


27 


09050 


09979 


13890 




BTM 


PUT, 147,8, 


>M TVPE 


14026 


17 


09050 


0-147 


13900 




B 


F0RM5*24 




14G38 


49 


13462 


00000 


13910 




OORG 


•-3 




14046 








13920 


HULL, 


CM 


CH| ,48.10, 




14046 


14 


15139 


000M8 


13930 




BNE 


SETFRQ 




14C5R 


47 


14218 


01200 


13940 




BTM 


WIDCK, 0, 10 




14070 


17 


14300 


000-0 


13950 




BT 


PUT , SYM 




14082 


27 


09050 


09979 


13960 




BTM 


PUT, 148,8, 


>N TTFf 


14094 


17 


09050 


0-148 


13970 


HUIL 1 


TR 


CHI-l.CHUl 




14106 


31 


15138 


15140 


13980 




BNR 


•*20,CHI*2 




14118 


45 


14138 


15141 


13990 




B 


FORMER 




14130 


49 


12758 


00000 


14000 




OORG 


• -3 




141 3« 








14010 




TF 


•♦35, CHI 




14138 


26 


14173 


15139 


14020 




CF 


•♦22 




14150 


33 


14172 


00000 


14030 




BTM 


PUT, ,8, 


.OUTPUT HOLL 


14162 


17 


09050 


0-000 


14040 




S.M 


SYM, 1,10 




14174 


12 


09979 


000-1 


14050 




BNZ 


HOLL 1 




14186 


47 


14106 


01200 


14060 




BNR 


F0RM5*24,CH|t2 




14198 


45 


13462 


15141 


14070 




B 


FORMER 




14210 


49 


12758 


00000 


14080 




OORG 


• -3 




14218 








14090 


SETFRO 


SF 


FREOSW 




14218 . 


32 


14218 


00000 


14100 


FREQSW 


OS 


, SETFRQ 




14218 









14110 


IATVPE 


OS 


t»-4 




14225 









14120 




BT 


PUT,SVM 




14230 


27. 


09050 


09979 


14130 




TF 


SETFRQ* I If SVM 




14242 


26 


14229 


09979 


14140 




CM 


CHI ,24,10, 




14254 


14 


15139 


000K4 


14150 




BNE 


F0RMUJ6 




14266 


47 


12594 


01200 


14160 




CF 


FREOSW 




14278 


33 


14218 


00000 


14170 


WIDTH 


OS 


t» 




14289 









14180 




6 


F0RM4 




14290 


49 


13946 


00000 


14190 




OORG 


• -) 




14298 








14200 




OS 


2. 




14299 




2 




14210 


WIDCK 


S 


WIDTH, SVM 




14300 


22 


14289 


09979 


14220 




8N 


FORMER 




14312 


47 


12758 


01300 


14230 




SB 






14324 


42 


00000 


00000 


14240 




OORG 


•-9 




14326 








14250 




OORG 


16000 




16000 








14260 




TFM 


I0RT,«»2) 




16000 


16 


00565 


J6023 


14270 




B 


IOPT.BLKl,? 




16012 


49 


00532 


-9622 


14280 




TRA 






16024 
160)6 


36 
49 


00000 
00000 


00500 
00000 


14290 




TCO 


16000 




16000 









14 300 


• 


OUT OF CORE BLOCK I CONTAINS THE FOLLOWING 


14310 


• 


EQUIVALENCE 


14)20 


• 


SUBROUTINE 


14330 


• 


FUNCTION 


14340 


• 


CONTINUE 


14)90 


t 


PAUSE 


14)60 


• 


STOP 


14370 


• 


OEFINE 


14360 




OORG IOUT 



1620-1441 MONITOR I VERSION 2 FORTRAN 1 1 I, > n; PAGE 



14190 




TFM 


FMUNt35 t 8lK4,, 


(OUT 


J0200' 


16 


02199 


-9491 


1*400 




OTM 


FMON.IOUT 




I CM 2 


17 


02124 


J0200 


14410 




CM 


CHI, 5 7, 10, 


CHECK FOR P IN STOP 


10224 


14 


19119 


000N7 


14420 




H 


NNARAA 




10234 


49 


10512 


00000 


1*430 




TFM 


FMUN»3*,BU! 


DIM 


10248 


16 


02199 


-9422 


14440 




BTM 


FNON,OIN 




10240 


17 


02124 


J0246 


14490 




TFM 


FM0N*3S,BIK1,, 


COMMON 


10Z72 


14 


02199 


-9622 


14440 




BTM 


F MO N, COMMQN 




10284 


I? 


02124 


J0272 


14470 




TFM 


FMf!NO*,BlK6», 


IF 


10294 


14 


02199 


-9717 


14410 




BTM 


FMONt IF 




10308 


17 


02124 


J0296 


14490 




TFM 


FHQNM5.61M., 


GOTO 


10320 


14 


02954 


-9717 


14900 




BTM 


FMONt GO TO 




10332 


17 


02124 


J0120 


14*10 




TFM 


FMON*3*iBLK6, , 


CAU 


*• 10344 


14 


02199 


-9717 


1**20 




BTM 


fMON.CAtL 




103*6 


17 


02124 


J0144 


14930 




TFM, 


FMCNtl9,BLK6,, 


RCIURN 


10 368 


14 


02199 


-9717 


14540 




BTM 


FMONt RE TURN 




10380 


17 


02124 


J016B 


14*90 




TFM 


FM0Nt)5,BlKl,t 


FORMAT 


10392 


14 


02199 


-9422 


14960 




BTM 


FMONt FORMAT 




10404 


17 


02124 


J0392 


14*70 




TFM 


FMONt 14, 61K4., 


000 


10416 


14 


02199 


-9491 


14980 




BTM 


FMON, 000 




10428 


17 


02124 


JO* 16 


14590 




TFM 


FMON* J*,8LK3, , 


ISC AN 


10440 


14 


02159 


-9646 


14400 




BTM 


FMONt AtC AN, 




10492 


17 


02124 


J0440 


14410 




TFM 


FN0N*19,6LK1», 


OUTSC 


10444 


14 


02159 


-9446 


14*20 




BTM 


FMON.OUTSC 




10476 


17 


02124 


J0444 


14630 




TFM 


FMUNM9,6LK9,, 


QK 10 


10488 


14 


02159 


-9714 


14440 




BTM 


FMON,0X|O 




10500 


17 


02124 


J0488 


14490 


NNARAA 


BE 


STOPEN 




' 10912 


44 


13998 


01200 


14440 




BTM 


COL NAM, 2. 10 




10*24 


17 


04462 


000-2 


14670 




CM 


SVM, 6245,8 




10*36 


14 


09979 


00245 


14680 




BV 


ERR01 




10548 


46 


04288 


01400 


14490 




BE 


PAUSEN 




10560 


46 


1379C 


01200 


14700 




BTM 


COLNAM, * , 10 




10572 


17 


04662 


000-9 


14710 




C 


SVM,T|NUE*H 




10584 


24 


09979 


13789 


14720 




BV 


EKR01 




10596 


46 


04288 


01400 


14730 




BE 


CONTEN 




106QB 


46 


11724 


01200 


14740 




C 


SYM,CTIQN*A 




10620 


24 


09979 


11723 


147*f> 




BE 


FUNCTA 




10632 


46 


11698 


01200 


14760 




BTM 


C01NAM,7,10 




10644 


17 


04662 


000-7 


14770 




C 


SVM.R0UTNM2 




10656 


24 


09979 


11457 


147A0 




BV 


ERROl 




10668 


46 


04288 


01400 


14790 




BE 


SURRA 




10680 


46 


11124 


01200 


14000 




C 


SVM.0&FCTM2 




10692 


24 


09979 


14*19 


14*10 




BE 


OEF INE 




10704 


46 


13990 


01200 


14820 




ENTER TO DECOMPOSE 














£ wU I VN 


BTM 


rni U&H A ill 

V.UL N** , B , I U 




10716 


17 


04662 


000-8 


14840 






>'"i i i.c m 




1072B 


24 


09979 


13123 


148*0 




BV 






10740 


46 


04288 


01400 


14860 




TO ^ 


ERROl 




10752 


47 


04288 


01200 


14870 










10764 


31 


15118 


1*154 








S T SN 




10 776 


33 


0564 1 


00000 


14890 


fcUR. 






SET SWITCH INDICATING ECU1V STATEMENT 


10788 


I* 


10008 


OOOOJ 


14900 






PR » » • 


INITIALIZE PR 


loaoo 


19 


12581 


00000 


14910 




nr 
♦ 


1 1 t • 




10811 




I 




14920 




CM 


CHI , 24, 10 




10812 


14 


15139 


O0OK4 


14930 




BE 


• ♦24, 


2 I 5- 


10824 


46 


10848 


01200 








1620-1*43 MONITOR 


1 VERSION 2 FORTRAN I 1-0 PHASE 1^8 








PAGF 


14940 




BTM 


SKKUK , 7 2,9, 




10816 


17 


09150 


00- •". 


14990 




TPM 






10B48 


16 


06015 


J5; 


14960 




AM 


SCH t,2,10 




10860 


11 


06015 


ooo- : 


14970 


CM 


SCHI ,4Ct6lO 




10872 


14 


0601N 


OOOMO 


149RQ 




BH 


• ♦24 




10884 


46 


10908 


ouoo 


14990 




BTM 


ERROR, 170,9, 


INVALID VAR 


10896 


17 


09150 


00J70 


1*000 




CM 


SCHI ,69,610 




1090* 


14 


0601N 


00009 


1*010 




•H 


• -24 




10920 


46 


10896 


01100 


1*020 




BTM 


CSORN,*M2, , 


GU TO COLLECT NAME 


10932 


17 


05704 


JC9*4 


1*030 




BO 


•♦32,|NSW,, 


TEST IF S*» PREVIOUSLY DEFINED 


10944 


43 


10976 


02611 


1*040 


M1230 


AM 


NRLUC5, 10, 


IF SVM NOT PREV OEFINEO, SAVE ROOM FOR 


10956 


11 


02172 


000-5 


1*050 


B 


E021,., 


OFFSET VALUE 


10968 


49 


11076 


00000 


1*060 




OORG 






10976 








1*070 




BO 


E021,SMCNT,11, 


TEST FOR DIM VAR 


10976 


43 


11076 


0726J 


1*040 




BNF 


EQ21 ,MQ0A0 y llt 


TEST IF SVM MAS PREVIOUSLY E0U1V 


2 0988 


44 


11076 


0788N 


15090 




BNF 


• ♦20 tSMCNT.U, 


TEST IF VAR MAS IN COMMON 


1 1000 


44 


11020 


0726J 


1*100 




B 


EQ21 




11012 


49 


11076 


00000 


IS 1 10 




OORG 


• -3 




11020 








15120 




A 


N*LOC , SMLNG 




11020 


21 


02172 


05911 


1*130 




TF 


NlL0C,StM,6, 


MOVE SYM NAME INTO TABLE 


11012 


26 


0217R 


09979 


1*140 




TF 


SMA00tNXLOC,6t 


MOVE NEW SVM ADO INTO TABLE 


11044 


26 


07 2 OQ 


02172 


15190 




B 


E83230 




11056 


49 


10956 


00000 


19160 




OORG 


• -1 




11064 








1*170 




BTM 


ERROR, 171,9, 


INVALID NAME USEO IN FUNCTION 


11044 


17 


09150 


00J71 


1*180 


uu2l 


BD 


*-l2,FNTSM,, 


TEST FOR FUNCTION NAME IN EQUIVALENCE 


11076 


43 


11064 


1 0000 


15190 




AM 


SMCNT, 1, IQ 




11088 


11 


07261 


000-1 


15200 




BNR 


• ♦20, SMCNT, U, 


TEST FOR DUMMY PARAMETERS OF SUBPROGRAM 


11100 


49 


11120 


0726J 


1*210 




B 


EQ21*12 




11112 


49 


11064 


ooooo 


15220 




OORG 


• -3 




11120 








1*230 




AM 


SMCNT, 01, 10 




11120 


11 


07241 


000- 1 


15240 




BNR 


•♦20, SMCNT, 11, 


TEST FOR SUBPROGRAM NAME IN SUBPROGRAM 


11112 


49 


11192 


0724J 


15250 




B 


E021-12 




11144 


49 


11044 


ooooo 


15260 




OORG 


•-3 




11152 








15270 




$M 


SMCNT, 02,10 




11152 


12 


0T241 


000-2 


15280 




BNR 


•♦20, PR , , 


TEST FOR FIRST NAME ON LIST 


11164 


49 


11184 


12561 


15290 




B 






11176 


49 


11754 


ooooo 


15100 




OORG 


•-1 




11184 








19310 




C 


MODE »FXORFl » , 


TEST FOR MIXEO I w ; I V 


11184 


24 


04417 


06419 


19320 




BE 


• ♦48 




11196 


44 


112.4 


01200 


15390 




C 


FP2 ,KLNGt t 


TEST FOR K EQUAL .0 F^2 IN MIXED EQUlV 


11208 


24 


02298 


02252 


19140 




BE 


• ♦24 


11220 


44 


11244 


01200 


15190 




BTM 


ERROR, 172,9, 




11212 


17 


09150 


00J72 


19160 




BNF 


E022,M00A0,11, 


TEST IF SYM HAO BEEN PREVIOUSLY EQUIV 


11244 


44 


12204 


0788M 


19170 




BNF 


•♦56, SMCNT, 11, 


BRANCH IF SVM IS NOT |N COMMON 


11254 


44 


11312 


0724J 


19160 




BNF 


•♦24,PR,» 


TEST IF PREVIOUS SVM MAS IN COMMON 


11248 


44 


11242 


12961 


15190 




BTM 


ERROR. 173,9, 


ILLEGAL EQUIVALENCE 


11280 


IT 


09190 


00J73 


19400 




BNF 


•~12.P««l,, 


TEST IF PREV SVM MAS EQUIV 


11292 


44 


11260 


12980 


19410 




B 


EOT 


11104 


49 


117*6 


OOOOO 


19420 




OORG 


— 9 




11112 








19430 


EQ24 


BNF 


EQ4.0MVAA,, 


TEST FOR DIM VAR, BRANCH IF MOT 


11112 


44 


11700 


08090 


15440 




CM 


SCHI, 24,610 




11124 


14 


0401N 


000X4 


19490 




BNE 






11114 


47 


11994 


01200 


15440 




AM 


SCHI, 2,10 




11148 


11 


04819 


080-2 


194 TO 




TFM 


f0BR*4»f8BR**Q 




11140 


14 


11994 


J 1406 


19480 




CM 


SCHI ,49,410 




nm 


I* 
44 


0401 N 


00009 


19490 




BH 


• ♦24 


316 


11184 


11406 


01100 









1620-144) MONITOR 1 


VERSION 1 FORTRAN UrC 


PHASE 1-6 








PAGE 


15500 




BTM 


ERROR • 75,9, 


INCORRECT SUBSCRIPTING 






1 1 396 


I 7 


09350 


00-75 


15510 




TF M 


SVM-i,Ot 7 








1 1408 


16 


099T6 


-0000 


15520 




TFM 


• *30» SVN-4 








1 1420 


16 


11450 


-9975 


15530 




AM 


•♦IB, 1, 10 








1 1432 


U 


11450 


000- I 


15540 


EU2) 


TO 


iSCHItllt 


COLLfCT IM0E1 






1 1444 


25 


00000 


0601N 


15550 




AM 


SCH|,2,10 






1 1456 


11 


04015 


000-2 


15560 




CM 


SQM| ,69,610 








1 1468 


14 


0601N 


00009 


15570 




BNH 


• ♦48 








1 1480 


47 


11528 


01100 


15580 




CM 


EQ23*6,SVM 








1 1492 


14 


11450 


-9979 


15590 




BNE 


E023-12 








1 1504 


A7 


11412 


01200 


15600 




BTM 


ERROR, 75, 9 








1 1516 


1 7 


09350 


00-75 


15610 




f f 










1 1 528 


26 


09979 


1 145- 


15620 




%f 


SVN-4 








1 1 540 


)2 


09975 


00000 


156)0 


SAVE 1 


DS 










1 1551 









15640 




CM 


£CMl .4.61 A. 


ffSf FOR RICH? PAREN 






1 1 552 


14 


0601N 


000-4 


15650 




BNE 


• «48 








1 1564 


47 


11516 


01200 


15660 




AM 


SCHI t 2t 10 








1 1 576 


1 1 


06015 


000-2 


15670 


fcQBR 




• ♦20 








1 1 588 


49 


1 1608 


00000 


15680 




OORG 


• - ) 








1 1596 








15690 




TFM 


JVM, 1 , 








1 1596 


16 


09979 


-0001 


15 700 




BO 


EQ4,PR, t 


TSif If PREVIOUS &VM yA£ 


0! 


IM VAR 


1 1608 


43 


1 1 700 


12581 


15 710 




BNF 


♦t20»PR 








1 1620 


44 


1 1 640 


12581 


15 720 




g 


EQ4 








11632 


49 


1 1 700 


00000 


15 710 




OORG 


%- } 








1 1640 








1 5 740 




BNF 


C t ill 


fBCT IB BBBUIAIIt <vm yic 


EQUIV 




44 


1 1 700 


12580 


15 750 




TF 










1 1652 


26 


09001 


07208 


1 5 760 




TO 


Pft - tMTMf . 11. 
r* * jnui Milt 








1 1664 


25 


12581 


0726 J 


15 770 




TO 


PR- i . mciaaa. ii. 

r * I t "MU»H (III 


<aub iMAirifnac 






1 1 676 


25 


125*0 


0788N 


1 5 780 




ff 




}■? C Urr III 






1 1688 


26 


02620 


09979 


15 790 


E04 


CM 










1 1 700 


14. 


0601N 


000-4 


15800 




BE 


fqi nno ... 


• MA AP 1 i & r 






11712 


46 


122)6 


01200 


15810 




CM 


t£MI .21.41A 








11724 


14 


0601N 


00OK3 


1 5 820 




BE 


E01 








1 1 736 


46 


10060 


01200 


15830 




Q 


E01 -24 








1 1 748 


49 


108)6 


00000 


1 5 840 






i. | 








1 1 756 








15850 


6U7 


TD 


mdas . mhaaa . l i . 

puui ^ nuuMw flit 


est ni m ci nn 






1 1 756 


25 


0641 7 


07S8N 


15860 




CF 


MODE 








1 1 768 


3) ' 


0641 7 


00000 


15870 


SAVE 3 


OS 










1 1 779 









15 880 






RFF . £MAAD. 








1 1 780 


26 


09001 


07208 


1 5 890 




TO 










1 1 792 


25 


12580 


0788N 


f cq?2 






ua . cur kiv .11 










25 


12581 


0726 J 






BO 


• ♦ 32 t PR , • 


TBtT BAB AIM WAB 






1 18^6 




1 1 848 


1258 1 


1 tojn 




TFM 








1 1828 


16 


02620 


-0001 


15930 






E 84 130 








1 1 840 


49 


1 1 940 


00000 


15940 




OORG 


• - 3 








1 1848 








1 5950 




CM 


HI. 74. 41ft 








1 1848 


14 


0601N 


00OK4 








• -3/ 








I 1 860 


47 


1 1 §28 


01200 


15970 




AM 


SCM I , 2 1 10 








11872 


1 1 


06015 


000-2 


15980 




CM 


SCHI ,69,610 








I 1884 


14 


0601N 


00009 


15990 




BNH 


EQ23-48 








1 1896 


47 


11)96 


01100 


16000 




TFM 


EOBR*6,t»20 








11908 


16 


11594 


J1928 


16010 




6 


EQ23-J6, 


60 TO COLLECT SUBSCRIPTING 




1 1920 


49 


11408 


00000 


16020 




OORG 


• -3 








11928 








16030 




TF 


TEMP t SYM 








11928 


26 


02620 


09979 


16040 


fcB*l30 


BNF 


•♦20.MOOAO. 11, 


TEST IF VAR PREVIOUSLY EQU 


IVALENCED 


11940 


44 


U96C 


0788* 


16050 




B 


E04 








11952 


49 


11700 


00000 



317 



1620-144) MOM |f OR | VERSION 2 FORTRAN II-D PHASE 



16060 




OORG 


• -3 




16070 




TF 


•*30,SMCNT 




16080 




AM 


•♦18,3,10 




16090 


EH4180 


CM 


.0,9, 


TEST If PREVIOUSLY EOUIV SYM MAS A BASE 


1610Q 




BE 


E04 




16110 




BO 


E84 3)0«SMCMT»ll» 


TEST FOR DIP VAR 


16120 




TF 


•*35,SMAOO f 11 




16 130 




AM 


•♦23,5.10 




16140 




A 


TF*P,, t 


GENERATE OFFSET TO PREVIOUS BASE 


16150 


E84240 


TF 


ADSAVE.STBL 




16160 




S 


4DSAVfi-l,E64!«0**t 


11, GEN AOORESS OF BASE 


16170 




AM 


AOSAVE-1,1,10 




16180 




Tf 


REF.AOSAVE 




16190 




SM 


A OS AVE, 04, 10 




16200 




TO 


PR-l,A0SAV§ «|i 9 


SAVf FU OR FLOAT 


16210 




AM 


A0SAVE,1«10 




16220 




TO 


pR,A0SAvf,ttf 


SAVE OIM INOICATOR 


16230 




B 


E04 




16240 




OORG 


• -) 




16250 


£843)0 


SM 


SMA00«0*tl0 




16260 




TF 


• ♦2),S*A4M> 




16270 




A 


TEMP,,, 


OEM NEW OFFSET 


16280 




B 


ER4240 




16290 




OORG 


•-) 




16)00 


EQ22 


BNF 


EQ24-)2,#t~ft 9 f 


ENTER FROM E69500, BR TO ERROR IF PREV 


16)10 




BNF 


EOT, PR,* 


SYM MAS EOUI VALENCEQ OR IN COMMON 


16)20 




B 


EQ24-32 


16330 




OORG 


•-) 




16)40 


EULOOP 


TFM 


SCHf,C«| 99 


ENTER HERE AFTER EOUIV STATEMENT HAS 


16)50 




TF 


EBASf.trti 




16)60 




S 


E8AS£«RfF 




16)70 




AM 


EB*SE-ta#l9 




16)80 




SF 


EBASE- ) 




16)90 


EBASE 


OS 


• ♦ 




16400 




AM 


SCHI. 2, 10, 


BEEN SCANNED ONCE TO DETERMINE BASE 


16410 




BTM 


C$0R*»#*lf, 




16420 




BNf 


E846O4,MO0)AO,1L, 


IF SYM WAS PREV EQUIV IT MUST BE THE 


164)0 




C 


SMAO0,Rf*t « 


•ASf OF THE PRESENT EOUIV 


16440 




BE 


€8469* 




16450 




BO 


E 84**6, MCAJfUl« 


TEST FOR OIM VAR 


16460 




TF 


ADSAV£.f«*08),U, 




16470 




AM, 


AOSAV€,*,10* 




16480 




TFM 


AOSAV€,l.*7tl* 




16490 




A 


ADSAVE.TfJtP,*, 


PLACE 0*F SET INTO TABLE 


16500 




AM 


SM AO©, fat 




16510 




TF 


$MA0D,E*4Sf-i,* 




16S20 




BNF 


E64TtO»M 




165)0 




SF 


S*€NT,,« 




16540 




6 


E 84 740 




16550 




OORG 


•-§ 




16560 


E 84560 


CM 


SCHI ,24,414 




16S70 




BE 


• ♦32 




16560 




TFM 


SYM,1,?U 




16590 




1 


• ♦51 




16*00 




OORG 


•-) 


316 


16610 




AM 


SCHI, 2, 10 



1 1960 








11960 


26 


11990 


07261 


11972 


11 


11990 


000-) 


11984 


14 


00000 


00-00 


11996 


46 


11700 


01200 


12008 


4-3 


12160 


0726J 


U020 


26 


12055 


07200 


120)2 


11 


12055 


000-5 


12044 


21 


02620 


00000 


12056 


26 


08485 


02)77 


12068 


22 


08484 


1199- 


12080 


11 


08484 


000-1 


12092 


26 


04001 


06485 


12104 


12 


08485 


000-4 


12116 


25 


12580 


0848N 


12128 


11 


08485 


000- 1 


12140 


25 


12581 


0648N 


12152 


49 


11700 


00000 


12160 








12160 


12 


07208 


000-5 


12172 


26 


12195 


07208 


12184 


21. 


02620 


00000 


12196 


49 


12056 


00000 


12204 








12204 


44 


11280 


12560 


12216 


44 


11756 


12581 


12228 


.49 


11280 


00000 


122)6 








122)6 


16 


06015 


J5139 


12248 


26 


12295 


02)77 


12260 


22 


12295 


09001 


12272 


11 


12294 


000-1 


12284 


)2 


12292 


00000 


12295 







12296 


11 


06015 


000-2 


12)06 


17 


05704 


J2320 


12)20 


44 . 


1)026 


0786N 


123)2 


24 


07208 


09001 


12344 


44* 


.12616 


01200 


12)56 


4) 


12472 


0726J 


12368 


26 


08485 


07200 


12380 


11 


06465 


000-5 


12392 


14 


0646* 


-OOOJ 


12404 


21 


0446M 


02*20 


12416 


11 


07208 


000-5 


12420 


26 


07200 


12294 


12440 


44 


1289* 


12561 


12452 


)2 


0726J 


00000 


12464 


49 


1269* 


00000 


12472 








12472 


14 


0601N 


000*4 


12484 


46 


1291* 


01200 


12494 


1* 


09979 


-OOOJ 


12508 


49 


129*0 


00000 


12916 








12516 


11 


0*019 


000-2 



1620- 144) *onj tor 



I 



VERSION 2 FORTRAN ll-C PHASE l-B 



PAGE 



16620 




TFM 


€0BR*6,#*20 






1252H 


16 


11594 


J254S 


166)0 




B 


E02 3-I6 






12540 


49 


11408 


00000 


16640 




OORC 


•-3 






12548 








16650 




SF 


SVM 






12548 


12 


09979 


00000 


16660 




A 


S YM , TEMP , , 




GEN OFFSET 


12560 


21 


09979 


02620 


16670 




SM 


SMAOO, 05, 10 






12572 


12 


07208 


000-5 


16680 


PR 


OS 


.•-2 






12581 









16690 




TF 


SMAD0,SVM,6, 




MOVE OFFSET INTO TABLE 


12584 


26 


07200 


09979 


16700 




AH 


SMAOO, 10.10 






12596 


11 


07208 


OOOJO 


16710 




B 


EB4660-44 






12608 


49 


12428 


00000 


16720 




OORG 


♦ -3 






12616 








16730 


£84695 


BNF 


•♦2Q.SMCHT,tl 






12616 


44 


1*636 


0726J 


16740 




B 


HERE 






12628 


49 


• 12692 


00000 


16750 




DORG 


• -3 






12636. 








16760 




80 


HERE,S*CNT,ll 






12636 


43 


126*92 


0726J 


16770 




IF 


AOSAVEt SMAOO, 1 1 






12648 


26 


08485 


07200 


16780 




AM 


ADSAVE.5,10 






12660 


11 


08485 


000-5 


16740 




TF 


AOSA VE * TEMP , 6 






12672 


26 


0848N 


02620 


16800 




B 


E84710- 36 






126R4 


49 


1282C 


00000 


16810 




OORG 


• -3 






12692 








16820 


HfcRfc 


CM 


SCH| ,24,610 






12692 


14 


0601N 


000K4 


16830 




HNE 


• ♦60 






12704 


47 


12764 


01200 


16840 




AM 


SCH|,2,10 






12716 


11 


06015 


000-2 


16850 




CM 


SCHI ,4,610 






12728 


14 


0601N 


000<*4 


16860 




BNE 


•-24 






12740 


47 


12716 


01200 


16870 




AM 


SCHI, 2, 10 






12752 


11 


06015 


000-2 


16880 




BNF 


•♦20.SPCNT, 11 






12764 


44 


12784 


0726J 


16890 




H 


E 84 7 10- 36 






12776 


49 


12820 


00000 


16900 




OORG 


• -3 






12784 








16910 




KM 


SMAOO, 5, 10 






12784 


12 


07208 


000-5 


16920 




TF 


SMAOO, TEMP, 6 






12 796 


26 


07200 


02620 


16930 




AM 


SMAOO 1 5 * 1 






12808 


1 1 


07208 


000-5 


16940 




AM 


SMAOO, 5, 10 






12820 


U 


07208 


000-5 


16950 




TFM 


SMAOO, 0,69 






12832 


16 


07200 


00-00 


16960 




SM 


SMAOO, 5, 10 






12644 


12 


07208 


000-5 


16970 


1:8*710 


CF 


M0pA0*»6, 




CLEAR FLAG INDICATING EQUtV VARIABLE 


12856 


33 


0768N 


00000 


16980 


SAVE*! 


OS 


, « 






12867 









16990 




CM 


SCHI, 4, 610 






12868 


14 


0601N 


000-4 


17000 




BNE 


E0L00Pt60 






12880 


47 


12296 


01200 


17010 




AM 


SCHI, 2. 10 






12892 


11 


06015 


000-2 


17020 




CM 


SCHI ,21,610 






12904 


14 


0601N 


000*3 


17030 




BN 6 


• ♦'j6 






12916 


47 


12972 


01200 


17040 




TF 


• ♦35, SCHI 






12928 


26 


12963 


06015 


17050 




AM 


•♦23,1,10 






12940 


11 


12963 


000-1 


17 060 




TR 


CHI-l 






12952 


31 


15138 


00000 


17070 




B 


EQR 






12964 


49 


10788 


00000 


17080 




OORG 


• - * 






12972 








17090 




TF 


• ♦35, SCHI 






12972 


26 


13007 


06015 


1 7 1 00 












1 2984 


1 1 


1 3007 


000—2 


17 110 




BNR 


• ♦20 






12996 


45 


13016 


00000 


17120 




B 


BEGINA 






13008 


49 


02638 


00000 


17 130 




OORG 








13016 








17140 




BT M 


ERROR, 72, 9, 






1 3016 


17 


09350 


00-72 


17 150 


EB4804 


CM 


SCHI, 24, 610 






1302R 


14 


0601N 


0OOK4 


17160 




BXE 


EA4710 




3 J !) 


1 3040 


47 


12856 


01200 


17170 




AM 


SCHI ,?, 10 




I 3052 


11 


06015 


000-2 








1620- 1443 MDN 1 TOR 1 


VERSION 2 FCRTHAN N-C PHASE l-B 








PAGE 


17180 




CM 


SCHI ,4,610 






1 3064 


14 


0601N 


000-4 


17190 




BNE 


•-24 






1 3076 


47 


13052 


01200 


17200 




AM 


SCHI ,2, 10 






1 3088 


11 


06015 


000-2 


17210 




B 


F84710 






13100 


49 


12856 


OCOOO 


17220 




DORG 


• -3 






13108 








17230 


1 VALEN 


OAC 


8, (VALENCE 






1 3109 




8 


X 2 






IVAUNCE 














17240 


••»••• 


OUTPUT SUBROUTINE 












17250 


SUPPA 


TFM 


SUDPUT*ll,0l35, 


8 




1 3124 


16 


13291 


0-135 


17260 




TR 


CH(-l t CH|^l3 






1 U 36 


31 


15138 


15152 


17270 




BO 


•♦36, SUBFC T 






1 3148 


43 


13184 


0229) 


17280 




TOM 


SUBFCT, I 






1 3160 


15 


02293 


00001 


17290 




BO 


•♦24,STSN 






13172 


43 


13196 


05641 


17 300 




BT M 


ERROR, 370, 9 






13184 


17 


09350 


00L70 


17310 




BNF 


•-12.STSN 






I 3196 


44 


13184 


05641 


17320 


SUPPF 


TDM 


SUBSm,! 






13208 


15 


10012 


00001 


1 7330 




CM 


CM|,40,10 






1 3220 


14 


15139 


OOOMO 


1 7 340 




BH 


• ♦24 






1 3232 


46 


13256 


01 100 


17350 


SURP1 


BTM 


ERROR, 270,9, 




SUB DECLARATION FRRCR 


1 3244 


17 


09350 


00K70 


17 360 




CM 


CHI, 69, 10 






1 3256 


14 


15119 


00009 


17J70 




BH 


• -24 






1 3268 


46 


13244 


01100 


17380 


SUBPUT 


BTM 


PUT, 0135, 8, 




OUTPUT SUBROUTINE SYMBOL 


13280 


17 


09050 


0-135 


17 390 




SF 


OUTSM 






1 3292 


12 


07034 


00000 


17400 




BTM 


CSURN,«*12 






13304 


17 


05704 


J3316 


17410 




AM 


SMAOO, 04, IC 






13316 


11 


07208 


000-4 


17420 




TDM 


SMAOO, ,6 






13328 


15 


0720Q 


00000 


17430 




DC 


!,•»• 






13J39 




I 




17440 




TP 


SAVSVM.SVM 






13340 


26 


02243 


09979 


17450 




BNR 


•*36,CH|^2 






1 3352 


45 


13188 


15141 


17460 




BNF 


BEGIN, SUBFCT 






13 364 


44 


02626 


02291 


17470 




BTM 


ERROR ,371,9 






13376 


17 


09150 


00L71 


17480 




CM 


CHI , 24, 10 






13188 


14 


15119 


000K4 


17490 




BE 


• ♦24 






13400 


46 


11424 


01200 


17500 




BTM 


ERROR, 371,9 






13412 


17 


09150 


0OL71 


17510 




BTM 


PUT, 124,8, 


IEFT 


PAREN 


1 3424 


17 


09050 


0-124 


17520 




TR 


CHI-l,CH|M 






13416 


11 


15118 


15140 


17530 


SUBP2 


CM 


CHf, 40, 10 






1 3448 


14 


15119 


OOOMO 


17540 






SUBP2-J6 






13460 


47 


11412 


01100 


17550 




sr 


CH| ,69, 10 






13472 


14 


11119 


00009 


17560 




BH 


5UBP2-36,,, 




TEST FUR SYMBOLIC ARGUEPENTS 


13484 


46 


13412 


01100 


17570 




SF 


OUTSW, 






13496 


12 


07014 


00000 


17580 




BTM 


CSOBN,"!?,, 




OUTPUT ARGUEMENT 


13508 


IT 


09704 


J3520 


17590 




BO 


SliBP2-36,tNSM,, 




ERROR IF ARGUEMENT WAS IN 


13520 


41 


11412 


02611 


17600 




AM 


SMA0Q,3,10 






13512 


11 


07208 


000-3 


17610 




TDM 


SMAOO,, 6 






13544 


15 


07200 


00000 


17620 




DC 


1 » * »• 






13555 




I 




17630 




CM 


CHI, 23, 10 






13556 


14 


15119 


0O0K3 


17640 




BNE 


• ♦32 






13568 


47 


11600 


01200 


17650 




BTM 


PUT, 123,8, 


COMMA 


1 3580 


17 


09050 


0-121 


17660 




B 


SUBP2-12 






11592 


41 


11416 


00000 


17670 




DORG 


•-3 






13600 








17680 




CM 


CHI, 4, 10 






1 »600 


14 


15119 


000-6 


17690 




BNE 


SUBP2-36 






11612 


4? 


13412 


01200 


17700 




BTM 


PUT, tQt.Bt 


RIGHT 


PAREN 3 20 


11624 


17 


09090 


0-104 



1620-144) MONITOR I VERSION 2 FORTRAN 1 1-0 PHASE 1-6 



PAGE 



17710 




B 


BEGIN 


136 36 


49 


02626 


00000 


17720 




OORG 


•-3 


13644 








17730 


ROUTN 


OAC 


7, ROUTINE 


13645 




7 


X 2 






ROUTINE 










17740 




OUTPUT FUNCTION DECLARATION STATEMENTS •••••• 










17750 


FUNCTA 


TP, 


CHI-I.CHU9 


13658 


31 


151)8 


15148 


17760 




TFM 


SUBPUT+11,1)6 V 8 


1)670 


16 


1)291 


0-1)6 


17770 




BO 


SUBPF-24 t SUBFCT 


1)682 


43 


1)184 


0229) 


17780 




TON 


SUBFCT,l,ll 


1)694 


15 


0229) 


OOOOJ 


17 7*0 




8 


SUBPF-36 


1)706 


49 


1)172 


00000 


17 tOO 




OORG 


•-3 


13714 








17810 


CI ION 


OAC 


5, CTION 


13715 




5 


X 2 






CTION 










17820 




OUTPUT CONTINUE STATEMENT #••••• 










17890 


CQNTEN 


60 


•♦24.N0IND 


13724 


4) 


1)748 


02610 


17 840 




ATM 


ERR0R2.574, 9, UNNUMBERED CONTINUE STATEMENT 


1)7)6 


17 


09406 


00N74 


17850 




BTM 


PUT, 127, 8, CONTINUE 


1)748 


17 


09050 


0-127 


17860 




BTM 


PUT, 140, 8, DUMMY 


1)760 


17 


09090 


0-140 


17870 




B 


BEGIN 


1)772 


49 


02626 


00000 


17880 




OORG 


•-3 


1)780 








17890 


riNUE 


OAC 


5, TINUE 


1)781 




5 


X 2 






TINUE 










17 900 


• ••• 


UUTPUT PAUSE STATEMENT • ••• 










17910 


PAUSEN 


TR 


CHI-1 ,CM|»| 


1)790 


31 


151)8 


15142 


17920 




DTN 


PUT, 126, 8, PAUSE 


1)802 


17 


09050 


0-126 


179)0 




BTM 


PUT, 140,B,0UMMV 


1)814 


17 


09050 


0-140 


17940 




BNR 


•♦20,CMI*2 


1)826 


45 


13846 


15141 


17950 




B 


BEGIN 


1)8)8 


49 


02626 


00000 


17960 




OORG 


• -) 


1)846 








17970 


PAUS 


CM 


CHI, 69, 10 


1)846 


14 


151)9 


00009 


17980 




BH 


•♦32 


1)858 


46 


1)890 


01100 


17 990 




BTM 


ERR0R2, 573,9, CHARACTER "TEA PAUSE NOT NUMERIC 


1)870 


17 


09406 


00N7) 


18000 




B 


BEGIN 


1)882 


49 


02626 


00000 


18010 




OORG 


• -) 


1)890 








18020 




BTM 


PUT, 140,8 ( 0UMMY 


1)890 


17 


09050 


0-140 


18030 




TO 


•♦23, CHI 


1)902 


25 


1)925 


151)9 


18040 




BTN 


PUT, 0,8 


1)914 


17 


09050 


0-000 


18050 




TR 


CHI-l.CHIM 


1)926 


31 


151)8 


15140 


18060 




BNR 


•-36.CHU2 


1)9)8 


45 


1)902 


15141 


18070 




B 


BEGIN 


1)950 


49 


02626 


00000 


18080 




OORG 


• -3 


1)958 








18090 


• ••• 


OUTPUT STOP STATEMENT •••• 










18100 


STOPEN 


TR 


CH|-l ( CHl*l 


1)958 


31 


151)8 


1514w 


18110 




HTM 


PUT, 125,1, STOP 


1)970 


17 


09050 


0-125 


18120 




B 


PAUSEN^24 


1)982 


49 


1)814 


ooooo 


18130 




OORG 


• -4 


1)989 








18140 


OEF INE 


TR 


CHI- I ,CHI ♦ 13,t SHIFT OFF INEOISK 


1 )990 


31 


151)8 


15152 


18150 




CF 


STSN 


14002 


)) 


05641 


00000 


18160 




BO 


ERR60H2.SUBFCT 


14014 


43 


144)2 


0229) 


18170 




BO 


ERR60^12,NUL0EF 


14026 


4) 


144)2 


02)84 


18180 




TOM 


MULOEF, 1 


140)8 


15 


02)84 


00001 


18190 




CM 


CHI, 24, 10, CHECK FOR LEFT PAREN 


14050 


14 


151)9 


00OK4 


18200 




BNE 


ERR44 


14062 


47 


14420 


01200 


18210 




TR 


CHI-l ,CHI*1 , , SHIFT OFF LEFT PAREN 


14074 


31 


151)8 


15140 


18220 




CM 


CHI ,69, 10 


14086 


14 


151)9 


00009 


182)0 




BNM 


ERR44 


14098 


47 


14420 


01100 
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18240 
182*0 
18260 
18270 
1A2A0 
18290 
18 300 
18310 
18320 
18330 
18340 
18350 
18360 
18370 
18380 
18 390 
18400 
18410 
18420 
18430 
18440 
18450 
18460 
18470 
18480 
18490 
18500 

18510 
18520 
18530 
18 540 
18550 
18560 
18570 
18580 
18590 
18600 
18610 
18620 
18630 
16640 
18650 
18660 
18670 
18660 
18690 
18700 
18710 
18720 
18730 
18740 
18750 
18760 
11770 
18780 



BTM 

SF 

CM 



CM 
BNE 
TR 
M 

CM 

TOM 

BH 

TOM 

CM 

BH 

CM 

RNH 

BTM 

SF 

TF 

CM 

BH 

CM 

BNE 

B 



TO 

BTM 

TDM 



CLDGT.03,10, 
SYM-l 
SYM,50,10 
ERR44 , , , 
Nl.SYM 
CHI, 23, 10 
ERR44 

CHI-l,CHI+l 
W,N1 

99,0100,8 
RECLG,2 
•♦24 
RECLG , 1 
99,0200,8 
ERR44 , , , 
CHI, 69, 10 
ERH44 

CL0GT,06,10, 
SVM-4 
N2.SYM 
SYM, 20000 
ERR44 
CHI, 04, 10 
ERR44 
BEGINA 
OORG »-3 
OAC 7, INEOISK 
INEOISK 

TFM RECLG, 000,9 
•♦35, JAY 
ERR0R2,670,9 
JAY,»-» 
BEGINA 



COLLECT Nl 



Nl GREATER THAN 50 



EXCEEDS TWO SECTORS 



OORG 
OS 



• -4 



•ERR60 

COLLECT DIGITS SUBROUTINE 



BTM CLDGT.XX.10, 



XX - NO. OF DIGITS TQ COLLECT ♦ 1 





OS 


2 


CLOGT 


BO 


•♦32, CHI 




TR 


CMl-l.CMUl 




B 


•-24 




OORG 


•-3 




TFM 


SYM-12,0 




TFM 


CLDGT2^6,SVM-12 


CLOGTl 


SM 


CLOGT-1,1,10 




BZ 


XCLOGT 




CM 


CHI, 69, 10 




BNH 


XCLOGT 




AM 


•♦18,1,10 


CLDGT2 


TO 


.CHI 




TR 


CHl-l.CHUl 




BNR 


CLDGT1.CHU2 




6 


ERR44 




OORG 


•-) 



322 



14110 


17 


14478 


000-3 


14122 


32 


09978 


OOOOO 


14134 


14 


09979 


OOONO 


14146 


46 


14420 


01100 


14158 


26 


022)) 


09979 


14170 


14 


151)9 


0OOK3 


14182 


47 


14420 


01200 


14194 


31 


151)8 


15140 


14206 


23 


02240 


02233 


14218 


14 


00099 


0-100 


14230 


15 


0224) 


00002 


14242 


46 


14266 


01100 


14254 


15 


0224) 


00001 


14266 


14 


00099 


0-200 


14278 


46 


14420 


01100 


14290 


14 


151)9 


00009 


14302 


47 


14420 


01100 


14314 


17 


14478 


000-6 


14326 


32 


09975 


OOOOO 


14338 


26 


02236 


09979 


14350 


14 


09979 


KOOOO 


14)62 


46 


14420 


01100 


14)74 


14 


151)9 


000-4 


14366 


47 


14420 


01200 


14)98 


49 


026)8 


OOOOO 


14406 








14407 




7 


X 2 


14420 


16 


0224) 


00-00 


144)2 


25 


14467 


02367 


14444 


17 


09404 


00070 


14456 


15 


02367 


OOOOO 


14466 


49 


02638 


OOOOO 


14475 








14420 









14476 




2 




14478 


43 


14310 


15139 


14490 


31 


1513* 


15140 


14502 


49 


14471 


OOOOO 


14510 








14510 


1* 


09**7 


-0000 


14522 


1* 


1**00 


-99*7 


145)4 


12 


1**77 


000-1 


14546 


4* 


1**11 


01200 


1*590 


14 


19134 


00009 


14570 


4T 


14*36 


01100 


14562 


11 


1**00 


000-1 


14594 


25 


OOOOO 


15139 


14*0* 


11 


H136 


151*0 


14416 


49 


14134 


191*1 


144)0 


49 


14420 


OOOOO 


144)6 
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PACE 



1R790 XCLOGT 


TP 


SVM,CL0GT2+6,ll 




1 4638 


26 


09979 


1460* 


18800 


BB 






14650 


42 


00000 


00000 


18810 


DORG 


• -9 




14652 








18820 • 


DENO 


• 










18810 


OORG 


16000 




16000 








18840 


TFM 


irm,»^23 




16000 


16 


00565 


J6021 


18850 


B 


I DPT t HL K2 t 7 




16012 


49 


00532 


-9645 


18860 


TRA 






16024 


36 


00000 


00500 










16036 


49 


00000 


00000 


18870 


TCO 


16000 




16000 









48880 
18 890 

18900 
18910 
18920 
18930 
18940 
18950 
18 960 
18970 
18980 
18990 
19000 
19010 
19020 
19030 
19040 
19050 
19060 
19070 
19080 
19090 
19100 
19110 
19120 
19130 
19140 
1^150 
19160 
19170 
191R0 
19190 
19200 
19210 
19220 
19230 
19240 
19250 
19260 
19270 
19280 
19290 
19300 
19310 
19320 



OUT OF CORE BLOCK 3 CONTAINS THE FOLLOWING 

0U7SC 
ASCAN 

DORC I OUT 

TFM FMQN^35,8LK4,, IOUT 
FMON, IOUT 
F*ON*35,QLK2 
FMON ,NONARA 
FMON^35,BLKl, 
FMON,UIM 
FMIJN* 35 i BLK 1 1 1 
FMON, COMMON 
FMON* 35 , BLK6 « 
FMON. |F 
FM0NO5,RLK6, 
FMON ( GOTO 
FM0N*35,BLK6, 
FMON, CALL 
FMON* 35 ,BLK6,, 
FMON, RE TURN 
FMON*35,BLKl, 
FMON, FORMA T 
FM0N*35,RLK4, 
FMON, 000 

ASCU , TR I NO , , 

ASCAN1 

SCI ,SINGST,, 

OUT SCI 

FM0N*35,BLK5,, 
FMON, OK |Q 



BTM 
TFM 
BTM 
TFM 
BTM 
TFM 
BTM 
TFM 
BTM 
TFM 
BTM 
TFM 
BTM 
TFM 
BTM 
TFM 
BTM 
TFM 
BTM 
BNF 
B 



TFM 
HTM 



•••• OUTPUT SUBSCRIPTING CODE 

0UTSC1 TF TEMP .SMAOO ,11 

TO DIMNO.SMCNT.il 

CF DIMNO 

DIMNOT OS 2,»-2 

TF OIMNOT, DIMNO 

CF SC22 

n A I - 3 , MA bK , , 

TFM PAl.Al-4 

TFM PA2,A^-4 

TFM PI, 1-12 

bC22 AM PAL, 4, 10 

AM PA2,4,10 

AM PI, 12,10 

T« CHI-l,CHI*l 



SET UP WORK AREA 



3 2a 



10200 








10200 


16 


02359 


-9691 


10212 


17 


02324 


J0200 


10224 


16 


02359 


-9645 


10236 


17 


02324 


J0224 


10248 


16 


02159 


-9622 


10260 


17 


02326 


J0248 


10272 


16 


02359 


-9622 


10284 


17 


02 324 


J0272 


10296 


16 


02359 


-9717 


10308 


17 


02 324 


J0296 


10320 


16 


02359 


-9717 


10332 


17 


02324 


J0120 


10344 


16 


02359 


-9717 


10356 


17 


02 324 


J0144 


10368 


16 


02 359 


-9717 


10380 


17 


02 324 


J0368 


10392 


16 


02359 


-9622 


10404 


17 


02324 


J0192 


10416 


16 


02359 


-9691 


10428 


17 


02324 


J0416 


10440 


44 


12094 


02609 


10452 


49 


12058 


00000 


10464 


43 


10884 


09998 


10476 


49 


10512 


00000 


10488 


16 


02359 


-9714 


10500 


17 


02324 


J0488 


10*12 


26 


02620 


07200 


10524 


25 


10677 


0726J 


10*36 


33 


10677 


00000 


10*45 




2 




10548 


26 


10545 


10677 


10560 


33 


10620 


COOOO 


10572 


31 


11920 


11989 


10584 


16 


10934 


J1919 


10596 


16 


10782 


J1931 


10608 


16 


11038 


J1943 


10620 


11 


10934 


000-4 


10632 


11 


10782 


000-4 


10644 


11 


11038 


00OJ2 


10656 


31 


15138 


15140 
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19330 




SM 


DIMNO, 0001, RIO 


19 340 


QIMNU 


OS 


2,*-? 


193*0 




CM 


CHI ,69, 10 


19160 




BNH 


ALFAT 


l«*3 70 




TOM 


D1MSW, I 


19 380 




BTM 


CSTNQ,»*12 


19190 




TOM 


OIMSW.O 


19400 




CM 


CHI , 14, 10 


19410 




RE 


SC3 


19420 


SC4 


TOM 


OIMSM.O 


l<<430 




TF 


PA2,SVM 


19440 


PA2 


OS 


♦ *-5 


194*0 




BNF 


•♦36, SC22 


19460 




CF 


SC22 


19470 




SF 


PA2, ,6 


19480 


SC5 


CM 


CHI ,23, 10 


19490 




BE 


SC22 


19500 




CM 


CHI ,4,10 


19510 




BE 


• ♦36 


19520 




BTM 


ERROR ,75,9 


19530 


SCI 


BTM 


ERROR, 272*9 


19540 




TR 


CH|-l,CHl*l 


195*0 




BD 


SC1-12, DIMNO 


19560 




B 


SC9 


19570 




OORG 


• -J 


19580 


SCI 


TF 


PAl ,SVM 


19590 


PAl 


OS 


,•-5 


19600 




TR 


CH1-1,CHI*1 


19610 




CM 


CHI ,69, 10 


19620 




BH 


SCl-12 


19630 


ALFAT 


CM 


CHI ,40, 10 


19640 




BNH 


SCl-12 


19650 




BTM 


CS0RN,«*12 


19660 




BD 


•♦20, FKQRFL 


19670 




B 


SCl-12, , 


19680 




OOHG 


• -4 


19690 




TF 


PI , SMADD- 1 


19700 


PI 


OS 


,•-5 


19710 




CM 


CHI , 10, 10 


19720 




BE 


• ♦48 


19730 




CM 


CHI, 20, 10 


19740 




BNE 


SC5 


19750 




SF 


SC22 


19760 




TR 


CH|-1,CMI*1 


19770 




CM 


CHI ,69*10 


19780 




BNH 


SCl-12 


19790 




TDM 


OlMSM.l 


19800 




BTM 


CSTN0.SC4 


19810 


SC9 


TFM 


M0VEIT*6, 01-12 


19820 


CALC 


MM 


OIMNOT, 05*10 


19830 




A 


TEMP, 99 


19840 




MM 


OIMNOT, 12, 10 


19850 




A 


M0VEIT*6,99 


19860 


MOVE I T 


A 


•TEMP, 11 


19870 




SM 


OIMNOT, 1,10 


19880 




BZ 


• ♦44 



FLOATING VARIABLE USEO IN SUBSCRIP 



3 2 4 



10668 


12 


10677 


0-0- I 


10677 




2 




10680 


14 


15119 


00009 


10692 


47 


10976 


01 100 


10704 


15 


10004 


00001 


10716 


17 


05412 


J0726 


10728 


15 


10004 


00000 


10740 


14 


15139 


000J4 


10752 


46 


10928 


01200 


10764 


15 


10004 


00000 


10776 


26 


10782 


09979 


10782 









10788 


44 


10824 


10620 


10800 


33 


10620 


ooooo 


10812 


32 


1078K 


00000 


10824 


14 


15119 


000K3 


10836 


46 


10620 


01200 


10848 


14 


15139 


000-4 


10860 


46 


10896 


01200 


10872 


17 


09350 


00-75 


10884 


17 


09350 


OOK72 


10896 


31 


15138 


15140 


10908 


43 


10872 


10677 


10920 


49 


11164 


OOOOO 


10928 








10928 


26 


10934 


09979 


10934 









10940 


31 


15138 


15140 


10952 


14 


15139 


00009 


10964 


46 


10872 


01100 


10976 


14 


151)9 


OOOMO 


10988 


47 


10672 


01100 


11000 


17 


05704 


J1012 


11012 


43 


11032 


06419 


11024 


49 


10872 


OOOOO 


11031 








11012 


26 


11016 


07207 


11018 









11044 


14 


HIM 


OOOJO 


11056 


46 


11104 


01200 


11068 


14 


15139 


OOOKO 


11080 


47 


10824 


01200 


11092 


12 


10620 


OOOOO 


11104 


11 


15118 


15140 


11116 


14 


1511* 


0000* 


11128 


47 


10172 


01100 


11140 


15 


10004 


00001 


11152 


17 


05412 


JO 764 


11164 


16 


11210 


419)9 


11176 


11 


10549 


000-9 


11188 


21 


02420 


000*9 


11200 


U 


10549 


000J2 


11212 


21 


11210 


0009* 


11224 


21 


00000 


0262- 


1123* 


12 


10949 


000-1 


11248 


46 


11292 


01200 
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PAGE 


19890 




S* 


TEMP, 05, 10 


11260 


12 


02620 


000-5 


19900 




SM 


MOVE 1 T*6, 12,10 


1 1272 


12 


11230 


000J2 


19910 




B 


MOVE 1 T 


11284 


49 


11224 


00000 


19920 




DORG 


• -4 


11291 








19910 




S 


04,01 


11292 


22 


11987 


11991 


19940 




M 


03, C2 


11304 


23 


11975 


11943 


19950 




SF 


92 


11316 


32 


00092 


00000 


19960 




A 


D4, 99 


1 1328 


21 


11987 


00099 


19970 




N 


02,62 


1 1340 


23 


11963 


11919 


19980 




SF 


92 


1 1152 


32 


00092 


00000 


19990 




A 


04,99 


11364 


21 


1198? 


00099 


20000 




A 


04, A2 


1 1376 


21 


11987 


11939 


20010 




m 


03, CI 


11188 


21 


11975 


11931 


20020 




SF 


92 


11400 


12 


00092 


00000 


20030 




IF 


03,99 


11412 


26 


11975 


00099 


20040 




M 


02, 81 


11424 


21 


11963 


11927 


20050 




SF 


92 


1 1436 


)2 


00092 


00000 


20060 




TF 


02,99 


1 1448 


26 


11963 


00099 


20070 




MM 


Al, 00001, A 


11460 


U 


11921 


0-00 1 


20080 




TF 


01,99 


11472 


26 


11951 


00099 


20090 




TF* 


IND1,04 


1 1484 


16 


11919 


J1987 


20100 




TFM 


IN02,D4-7 


11496 


16 


11938 


J1980 


20110 


TONV 


BNF 


•♦36,IND1 


1 1S08 


44 


11944 


11919 


20120 


IN01 


OS 




1 1519 









20130 




CF 


1N01,,6 


1 1520 


33 


1191R 


00000 


20140 




TOM 


IND2,9, 1 1 


1 1532 


IS 


11518 


OOOOR 


20150 


INP2 


OS 


,•-5 


1 1518 









20160 




SM 


IN01, 12, 10 


1 1544 


12 


11519 


000J2 


20170 




SM 


IN02, 12,10 


1 1556 


12 


11938 


000J2 


20180 




CM 


INDl ,01 ,67 


1 1568 


14 


1151R 


J 1991 


20190 




BNL 


TONY 


1 1580 


46 


11908 


01300 


20200 




TFM 


PI , 1-12 


1 1592 


16 


11038 


J1941 


20210 


MVl 


AM 


P I ,9, 10 


1 1604 


(I 


11018 


000-9 


20220 




BNR 


•♦20, PI , 1 1 


1 1616 


49 


11616 


1101Q 


20230 




B 


CONT,,, GO TO OUTPUT STRING 


1 1628 


49 


11772 


00000 


20240 




DORG 


• -3 


1 1616 








20250 




AM 


P I , 3, 10 


1 1616 


11 


11038 


000-3 


20260 




CM 


PI, 0,68 


1 1648 


14 


11010 


0-000 


20270 




BE 


MV2 


1 1660 


46 


11692 


01200 


20280 




AM 


01 KNOT, 01, 10 


1 1672 


U 


10945 


000-1 


20290 




B 


MVl 


1 1684 


49 


11604 


00000 


20300 




DORG 


• -3 


1 1692 








20 310 


N V2 


TF 


MV3*6,Pl», SHIFT OFF SUBSC NOT NEEDED 


1 1692 


26 


11746 


o 1 018 


20 320 




TF 


MV3*ll,PI 


1 1704 


26 


11751 


1 I w< 1 


20330 




AM 


MV3*ll,l,lO 


1 1716 


1 1 


11751 


000-1 


20 340 




SM 


MV3*6,ll,lO 


1 1728 


12 


11746 


000J1 


20350 


HV3 


TR 


0,0 


1 1740 


11 


00000 


00000 


20 360 




SM 


PI, 03, 10 


1 1752 


12 


11038 


000-3 


2037O 




a 


MV 1 ♦ 1 2 


1 1764 


49 


11616 


00000 


20 380 




DORG 


• -3 


1 1 772 








20 390 




SO • 148 LITERAL SUBSCRIPT, SI « 149 ONE SUBSCRIPT 










20400 


• • 


i2 * 150 TWO SUBSCRIPTS* S3 • 151 THREE SUBSCRIPTS 










20410 


CUNT 


TFM 


L4*l 1,0148, 8, BASE FOR SUBSCRIPT OPERATORS 


11772 


16 


11807 


0-148 


20420 




A 


L4«U,DIMN0T 


11784 


21 


11807 


10545 


20430 


L4 


BTM 


PUT,0 


11796 


17 


09050 


-0000 


20440 




BTM 


PUT, 124,8 


11808 


17 


09050 


0-124 








325 
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PAGE 


20450 




BTM 


PUT, 140,8 


1 1820 


17 


09050 


0-140 


20460 


L > 


BNR 


L6.DI-7 


1 1812 


45 


11876 


11944 


20470 




BTM 


PUT, 104, 8 


1 1844 


17 


09050 


0-104 


?04ft0 




TFM 


SMCNT.2219 


1 1856 


16 


07261 


-2219 


20490 




B 


OUTSCE.,6 


1 1868 


49 


0480J 


00000 


20500 




DORG 


• -3 


1 1876 








205 10 


L6 


SF 


Dl-7 


1 1876 


12 


11944 


00000 


20520 




BT 


PUT,0l-4 


1 1888 


27 


09050 


11947 


20530 




TR 


Dl-7,01-3 


1 1900 


31 


11944 


11948 


20 540 




B 


L5 


11912 


49 


11832 


00000 


20550 




OORG 


• -3 


1 1920 








20560 


A 1 


DS 


4 


1 1923 




4 




20570 


Bl 


OS 


4 


1 1927 




4 




20580 


CI 


OS 


4 


1 1931 








20590 


A2 


OS 


4 


1 1935 




4 




20600 


H2 


OS 


4 


1 1939 




4 




20610 


C2 


OS 


4 


1 194 3 




4 




20620 


01 


OS 


8 


1 1951 









20630 


I 


OS 


4 


1 1955 




4 




20640 


02 


DS 


8 


1 1963 




g 




20650 


j 


OS 


4 


1 1967 




4 




20660 


03 


OS 


8 


1 1975 




g 




20670 


K 


OS 


4 


1 1979 




4 




20680 


04 


DS 


8 


1 1987 




8 




20690 




OS 


1 


1 1988 




1 




20700 




OC 


4,0001 


1 1992 




4 








-001 












20710 


MASK 


OS 


,•-3 


1 1989 




o 




20720 




DC 


4,1 


1 1996 




4 








-001 












20730 




DC 


4,1 


12000 




4 








-001 












20740 




OC 


4,0 


12004 




4 








-000 












20750 




OC 


4,0 


12008 




4 








-000 












20760 




OC 


4,0 


12012 




4 








-000 












20770 




OC 


8,0 


12020 




8 








-0000000 










20780 




OC 


4,0 


12024 




4 








-000 












20790 




OC 


8,0 


12032 




8 








-0000000 










20800 




DC 


4,0 


12036 




4 








-000 












20810 




OC 


8.0 


12044 




• 








-0000000 










20820 




OC 


4.0 


12048 




4 








-000 












20830 




DC 


8,0 


12056 












-0000000 










20840 




OC 


1,» 


1209? 




1 




20850 


• ••• 


A SCAN COOE 










20860 


ASCAN1 


CP 


TR1N0 


12091 


33 


02409 


00000 



1620- 1443 MONITOR I VERSION? FORTRAN ll-O PHASE l"B 



PAGE 







BD 


• ♦ 24 . NO I NO 










1 2070 


4 3 


12094 


0261 


!! 




BTM 


ERR0R2. 572.9. 










1 2082 


17 


09406 


00N72 


20890 


ASC1A 


TOM 


OMM , 1 










12094 


15 


10007 


00001 


20900 




CM 


CHI , 40* 10 










12106 


14 


15139 


OOOMO 


20910 




BNH 


AERR 










12118 


47 


12214 


01 100 


20920 




CM 


CHI ,70. 10 










12130 


14 


15139 


OOOPO 


20930 




BNL 


AERR 










12142 


46 


12214 


01 300 


20940 




SF 


OUTSW 










12154 


32 


07034 


00000 


20950 




BTM 


CS0RN,»M2 










12166 


17 


05704 


J2176 


20960 




TDM 


STSN 










12178 


15 


05641 


00000 


20970 




CM 


CHI ,33,10 










12190 


14 


151)9 


000L3 


209R0 




BE 


• ♦24 










12202 


46 


12226 


01200 


20990 


A|RR 


BTM 


ERROR * 376,9 










12214 


17 


09350 


00L76 


21 000 




TOM 


OMM,0 










12226 


15 


10007 


00000 


21010 


ASC22 


BTM 


PUT, 133»8»trQUAL 










122 38 


1 7 


09050 


0-133 


21 020 




TFM 


NOPARM, 00, 10 










12250 


16 


1470C 


000-0 


21010 




TFM 


ASC14*18,FM ST-9 










12262 


16 


14644 


J4697 


21 040 


1FSCAN 


TR 


CMI-l t CH|*l 










12274 


31 


1513* 


15140 


21 050 




BNR 


•♦24,CHl*2 










12286 


45 


1231C 


15141 


21060 




BTM 


ERROR, 378,9, 


MISSING 


OPERAND 






12298 


17 


09350 


00L78 


21070 




CM 


CHI ,40, 10 










12310 


14 


15139 


OOOMO 


210R0 




BH 


ASC 3 










12322 


46 


12550 


01100 


21 090 




CM 


CHI , 20, 10 










12134 


14 


15139 


OOORO 


21 100 




BNE 


• ♦44 










12346 


47 


12390 


01200 


21110 




BTM 


PUT, 129, 8, UNARY 


MINUS 








12358 


17 


09050 


0-129 


21 120 




TR 


CH|.-1,CH|»1 










12370 


31 


15138 


15140 


21 130 




R 


IFSCANM2 










12382 


49 


12286 


00000 


21 140 




DORG 


• -3 










12390 








21 150 




CM 


CHI , 10, 10 










12 390 


14 


151 39 


OOOJO 


21 160 




BE 


IFSCAN 










12402 


46 


12274 


01200 


21 170 


ASC4 


CM 


CHI, 24, 10 










12414 


14 


15139 


000K4 


21 180 




BNE 


ASC6-24 










12426 


47 


12502 


01200 


21 190 


ASC23 


BO 


•♦44,FNTSWl 










12438 


43 


12482 


10001 


21 200 




AM 


PARCNT, 1,10 










12450 


11 


02615 


000- 1 


21210 




BTM 


PUT, 124, 8, LEFT 


PAREN 








12462 


17 


09050 


0-124 


21220 







I F SCAN 










12474 


49 


12274 


00000 


21230 




DORG 


• -3 










12482 








21240 




AM 


T P ARC T , 1,10 










12482 


11 


14698 


000-1 


21 250 




B 


ASC23^24 










12494 


49 


12462 


00000 


21260 




DORG 


• -3 










12502 








21 270 




CM 


CHI , 3,10 










12502 


14 


15139 


000-3 


21 2*0 




BNfc 


IFSCAN*24 










12514 


47 


12298 


C1200 


21 290 


ASC6 


CM 


CHI ♦2*69, 10 










12526 


14 


15141 


00009 


21 300 




BNH 


I FSCAN+24 










12538 


47 


12298 


01100 


21 310 


ASC3 


SF 


OUTSW 










12550 


32 


07034 


00000 


21 320 




BTM 


CS0RN,«M2 










12562 


17 


05704 


J2574 


21 330 




BO 


ASC9.FNTSWI » , 


BRANCH 


IF COLLECTING 


FUNCTION PARAMETERS 


12574 


43 


14586 


10001 


21 340 




80 


ASCR.FNTSW, , 


BRANCH 


IF SYMBOL MAS 


FUNCTION NAME 


12566 


43 


13754 


10000 


21 350 


ASC7 


BO 


RTCALL.CALLSb*. 


RETURN 


TO CALL ROUTINE 




1259R 


43 


13242 


10009 


21 360 




HMR 


ASC 1 ,CH 1 ♦2-* 










12610 


45 


12658 


15141 


21 370 




CM 


PARCNT, 0, 10 










12622 


14 


02615 


000-0 


21 380 




BE 


BEGIN 










12634 


46 


02626 


01200 


21 190 




BTM 


ERROR , 3 79,9, 


UNBALENCEO PARENTHESIS 




1 2646 


17 


09350 


OCL 79 


21400 


ASCI 


CM 


CHI, 30,10 










12658 


14 


15139 


OOOLO 


21410 




BL 


• ♦24 










12670 


47 


12694 


01300 


21420 




BTM 


ERROR, 178.9, 


INVALID 


OPERATOR 




'l 'I "* 
* < 


12682 


17 


09350 


00L78 








1620-1443 MONITOR I 


VERSION 2 FORTRAN 


II-O 










PAGE 


21430 




CM 


CHI ,24, 10 










12694 


14 


15139 


000K4 


21440 




BE 


ASC 2 3 










12706 


46 


12438 


01200 


21450 




CM 


CHI, 10. 10 










12718 


14 


15139 


OOOJO 


21460 




BNE 


• ♦32 










12730 


47 


12762 


01200 


21470 




BTM 


PUT, 110, 8, ADO 










12742 


17 


09050 


o-uo 


21480 




B 


ASC24 










12754 


49 


12942 


00000 


21490 




DORG 


• -3 










12762 








21500 




CM 


CHI, 20, 10 










12762 


14 


15139 


OOOKO 


21510 




BNE 


• ♦32 










12774 


47 


12806 


01200 


21520 




BTM 


PUT, 120,8, SUBTRACT 








12786 


17 


09050 


0-120 


21530 




R 


ASC 2 4 










12798 


49 


12942 


00000 


21540 




DORG 


• - J 










12R06 








21550 




CM 


CHI ,21, 10 










12806 


14 


15139 


OOOKl 


21560 




BNE 


•♦32 










12818 


47 


12850 


01200 


21570 




BTM 


PUT, 121.8. DIVIDE 








12810 


17 


09050 


0-121 


21580 




B 


ASC24 










12842 


49 


12942 


00000 


21590 




DORG 


• -) 










12850 








21600 




CM 


CHI ,14.10 










12850 


14 


15139 


003 J4 


21610 




BNE 


ASC 2 5 










12862 


47 


12986 


01200 


21620 




CM 


CHU2.l4.10 










12874 


14 


15141 


000J4 


21630 




BNE 


ASC24-12 










12886 


47 


12930 


01200 


21640 




BTM 


PUT. 115. 8. EXPONENTIAL 








12898 


17 


09050 


0-115 


21650 




TR 


CHI-l.CHIM 










12910 


31 


15138 


15140 


21660 




B 


• ♦20 










12922 


49 


12942 


00000 


21670 




DORG 


• -3 










12930 








21680 




HTM 


PUT, 114.8.PULTIPLV 








12930 


17 


09050 


0-114 


21690 


ASC24 


TR 


CHI-l.CHI*! 










12942 


31 


15138 


15140 


21 700 




CM 


CHI ,40, 10 










12954 


14 


15139 


OOOMO 


21710 




BH 


ASC 3 










12966 


46 


12550 


01100 


21720 




B 


ASC4 










12978 


49 


12414 


00000 


21730 




DORG 


• -3 










12986 








21740 


ASC25 


CM 


CHI, 4,10 










12986 


14 


15139 


000-4 


21750 




RE 


• ♦36 










12998 


46 


130)4 


01200 


21760 




BO 


ASC281.FNTSM1 










13010 


43 


14422 


10001 


21770 




BTM 


ERROR, 378,9, 


INVALID 


OPERATOR 






13022 


17 


09350 


00L78 


21780 




BTM 


PUT, 104, 8, RIGHT 


PAREN 








13034 


17 


09050 


0-104 


21790 




BO 


• *32. FNTSWl 










13046 


43 


1307* 


10001 


21800 




SM 


PARCNT* 1.10 










13038 


12 


02615 


000-1 


21810 




B 


• ♦20 










13070 


49 


13040 


00000 


21820 




DORG 


•-3 










13078 








218)0 




SM 


TPARCT. 1.10 










1)078 


12 


14*9* 


000- 1 


71840 




TR 


CHI-l.CMl*! 










13090 


31 


1513* 


15140 


21850 




BN 


ASCi-12 










1)102 


47 


12*46 


01300 


21860 




BNH 


• ♦48 










13114 


47 


131*2 


01 100 


21870 




CM 


CHI, 24, 10 










1312* 


14 


15139 




21880 




BNE 


ASC7-24 










13138 


47 


12574 


01200 


21890 




BTM 


ERROR. 378*9 










1)190 


17 


09350 


00L78 


21900 




CM 


PARCNT, 0*10 










1)162 


14 


02*15 


000-0 


21910 




BNE 


• ♦24 










1)176 


47 


1)19* 


01200 


21920 




BO 


0UTS12.1FSW 










1)1*4 


4) 


1)2*2 


1 00153 


21930 




CM 


CHI, 24* 10 










1319* 


14 


151)9 


000*4 


21940 




BE 


•-60 










13210 


4* 


1)150 


01200 


21950 




BO 


ASC3l-12,FNTSWl 










1)222 


4) 


144** 


10001 


21960 




B 


ASC 7 










1)2)4 


if 


12548 


00000 


21970 




DORG 


• -) 










1)242 








21980 


RTCALL 


TFM 


CALL*23»C*LL2 








325 


1)242 


u 


10)47 


J24*4 



1620-144) MONITOR 1 VERSION 2 FORTRAN II-C PHASE 



PACE 







B 


CALL 


1 3254 


49 


10344 


AAAAA 


22000 




□ORG 




1 )262 










OUTS 12 


TFM 


!F«2).OUTSN*12 


1 »3»f 


1* 




J3672 






B 


IF 




49 


10296 


UUUUU 


220)0 




OORG 


• -4 


: 

1 3281 












ENTER HERE TO OUTPUT SINGLE STATEMENT FUNCTIONS •••••• 


























22060 


ASC2 1 


80 


•♦24, STSN 


1 )2B2 




l))06 


05641 


22070 




BTM 


ERROR, 377,9, SINGLE STATEMENT PHECEEOED BY OTHER STMT 


1 )294 




09)50 


00L77 






CF 


STSN 






05*4 1 


AAAAA 
uuuuu 


■>\ i tin 




SF 


SMCNT.,6 


1 3318 


32 


0726 J 


aaaaa 

uuuuu 


\ ?!! 




TDM 


OMM.O 




15 


10007 


aaaaa 


22 1 10 




TF 


TEMP5f SMAOOt t SAVE SYMBOL AOORESS TO MOVE IN NO* OF PAR 


1 3342 


2* 


02*25 


0^1 37 


22 120 




BTM 


PUT, 1)7,8, ARITH STATEMENT FUNCTION 


1 3354 


1 7 






22 1 30 




BT 


PUT , TEMPS- I , , OUTPUT STMNT NAME 


1 3)66 


27 


09050 


02624 


22 140 




TFM 


PCNT, 0,10, INITIAL PARAMETER COUNT 


I ))7B 


16 






22 I 50 




BTM 


PUT, 124, 8, LEFT PAREN 


1 ))90 


17 


09050 


0-124 


22 160 




TR 


CHI-l.CHUL 


I )402 


31 


15138 


1 5 140 


22 170 




BNR 


•♦24,CH|*2 


1)414 


45 


1)4)8 


15141 


22 1 AO 


ASC26 


BTM 


ERROR, 376,9, INCOMPLETE STATEMENT FUNCTION 


1 )426 


17 




nnnln 


22 190 




CM 


CH|, 40, 10 


I )4)B 


14 


151)9 


!!??!!!! 


22200 




BNH 


• -24 


I )450 


47 


1)426 


01 100 


22210 




TOM 


FNTSN,0 


1 3462 


15 


10000 


OOOOO 


22220 




CM 


CHI ,69, 10 


1 )474 


14 


151)9 


00009 


222)0 




BM 


ASC26 


1 )486 


46 


1)426 


01 100 


222*0 




SF 


OUTSH 


I )498 


32 


070)4 


OOOOO 


22250 




BTM 


CS0RN,**12 


I 3510 


17 


05704 


J3522 


22 260 




BO 


ASC26,INSH 


1)522 


43 


1)426 


0261 1 


22270 




AM 


PCNT, 1,10 


1 )5)4 


1 1 


1409) 


000-1 


22280 




TFM 


SYM*2, 14,10 


I )546 


16 


09981 


000J4 


22290 




CF 


SVM*l 


I )558 


33 


09980 


OOOOO 


22)00 




AM 


NXL0C,2,10 


1)570 


1 1 


02)72 


000-2 


22)10 




TF 


NXLOC ,SYM*2 »6 


1)582 


26 


0237K 


09981 


22)20 




SM 


STAFT,5,10 


1)594 


12 


04419 


000-5 


22))0 




TF 


STAFT,SNA00,6 


1)606 


26 


0441R 


07208 


22)40 




CM 


CHI ,04, 10 


1 3618 


14 


151)9 


000-4 


22 )50 




BE 


• ♦56 


136)0 


46 


1)686 


01200 


22)60 




CM 


CHI ,23, 10 


1)642 


14 


151)9 


OOOK) 


22 )70 




BNE 


ASC26 


I 3654 


47 


1)426 


01200 


2?)t0 




BTM 


PUT , 123, 8, COMMA 


1 3666 


1 7 


09050 


0-123 


22)90 




B 


ASC26-24 


1 3678 


49 


1)402 


OOOOO 


22400 




OORG 


• -3 


I 3686 








22410 




BTM 


PUT, 104,8, RIGHT PAREN 


1 3686 


1 7 


09050 


«. * 04 


22420 




TR 


CHl-l,CHl*l 


1 3698 


31 


151)8 


15*40 


224)0 




AM 


TEMP5.4, 10 


13710 


1 1 


02625 


000-4 


22440 




TF 


TFMP5 ,PCNT , 6 


1 )722 


26 


0262N 


1409) 


22450 




TDM 


SINGST,l,ll, SET SINGLE STAMT SNITCH, SWITCH TESTEO 


I 37)4 


15 


09998 


OOOOJ 


22460 




B 


AERR-24 , , , IN PUTTING OUT SUBSCRIPTING 


13 746 


49 


12190 


OOOOO 


22470 




OORG 


• -3 


13754 








224AO 




ENTER TO OUTPUT SINGLE STATEMENT FUNCTION CALL ANO •••••• 










22490 




FUNCTION SUBPROGRAM CALL •••••• 










22500 


ASC8 


BNF 


A SC 1 1 ,F N TSW * , NO FLAG INDICATE FUNCTION SUBPROGRAM 


13754 


44 


14606 


10000 


22510 








13766 


11 


07261 


000-2 


22520 




jf 


NOP ARM, SMC NT , I 1 , MOVE NO* OF PARAMETERS TO COUNTER 


1)778 


26 


14700 


0726J 


225)0 


ASCI 5 


CM 


f hi -P4. in 


1)790 


14 


151)9 


000K4 


22540 




BE 




1)802 


46 


1)826 


01200 






** 24 1 2 ( l 

«j ** j 
















1620-144) MONITOR I VERSION 2 FORTRAN 1 1-0 PHASE l-B 








PAGE 


22550 




BTM 


ERROR ,079,9, FUNCT NAME NOT FOLLOWED BY LPAREN 


1)814 


17 


09)50 


00—79 


22560 




BTM 


PUT, 124,8, LEFT PAREN 


1)826 


17 


09050 


0-124 


22570 




TFM 


TPAACT,l,10, SET UP TEMPCRARVPAREN COUNT 


1)B)8 


16 


14698 


000-1 


22580 




TR 


CHI-1,CHI*1 


1 3850 


31 


15138 


15 140 


22590 




TDM 


FNTSW.O 


1 3862 


15 


10000 


OOOOO 


22600 


ASC12 


CM 


CHI, 20, 10 


1 3874 


14 


151)9 


OOOKO 


22610 




BNE 


• ♦32 


1)886 


47 


1)918 


1200 


22620 




BTM 


PUT, 129, 8, UNARY MINUS 


1 3898 


17 


09050 


0-129 


226)0 




B 


• ♦32 


13910 


49 


1)942 


OOOOO 


22640 




OORG 


• -3 


1)918 








22650 




CM 


CHI, 10, 10 


1 3918 


14 


151)9 


OOOJO 


22660 




BNE 


• ♦24 


139)0 


47 


1)954 


01200 


22670 




TR 


CHI-l.CHUl 


1)942 


)1 


191)8 


15140 


22680 




CM 


CHI ,40, 10 


1 )954 


14 


151)9 


OOOMO 


22690 




BH 


ASC27 


1)966 


46 


14082 


01100 


22 700 




CM 


CHI, 3, 10, 


1)978 


14 


151)9 


000-*) 


22 710 




BE 


ASC27 


1)990 


46 


14082 


01200 


22720 




CM 


CHI ,24,10 


14002 


14 


151)9 


000K4 


227)0 




BE 


• ♦24 


14014 


46 


140)6 


01200 


22740 


ASCER 


BTM 


ERROR, 470, 9, INVALID FUNCTION PARAMETER LIST 


14026 


17 


09)30 


00M70 


22750 


BTM 


PUT , 124, 8, LEFT PAREN 


140)8 


17 


09050 


0-124 


22 760 




TR 


CHI-l.CHIM 


14050 


)1 


15138 


15140 


22770 




AM 


TPARCT.1,10 


14062 


11 


14698 


000—1 


22780 




B 


A SCI 2 


14074 


49 


13874 


OOOOO 


22790 




OORG 


• -3 


14082 








22 800 


ASC27 


SF 


OUTSW 


14082 


32 


07034 


OOOOO 


22810 


PCNT 


OC 


2,0,* 


14093 




2 




22820 




-0 
BNF 


ASC27A.N0PARM 


14094 


44 


14150 


14700 


228)0 




TDM 


FNTSW2* 1 


14106 


15 


07405 


00001 


22 840 




BTM 


CS0RN,«M2 


14118 


17 


05704 


J41 )0 


22850 




TOM 


FNTSW2, 


14130 


15 


07405 


A A A A A 
OOOOO 


22860 




B 


ASC29-12 


14142 


49 


14186 


OOOOO 


22870 




OORG 


•-3 


14150 








22 880 


ASC27A 


BTM 


CS0RN,»*12 


141 SO 


17 


05704 


J4162 


22890 




SM 


NOPARM.1,10 


14162 


12 


14700 




22900 




BN 


ASCER 


1*174 


47 


14026 


01)00 


22910 




BO 


ASC14,FNTSWtt TEST FOR NESTED FUNCTIONS 


14186 


43 


14*26 


10000 


22920 


ASC29 


BNR 


• ♦20.CHU2 


14198 


4$ 


14218 




229)0 


B 


ASCER 


14210 


49 


14026 


OOOOO 


22940 




□ORG 


• -) 


14210 








22950 




CM 


CHI, 23, 10 


14218 


14 


13139 


OOOK 3 


22960 




BNE 


ASC28 


14230 




14318 


01200 


22970 


ASC30 


BTM 


PUT, 12), 8, COMMA 


14242 


17 


09030 


?<ifn 


22980 




TR 


CHI-L,CHI*1 


14234 


31 


19138 




22990 




BNF 


•♦20.NOPARM 


142*4 


** 


1*28* 


14700 


2)000 




B 


ASC12 


14271 


*9 


1187* 


AAAAA 
UUUUU 


2)010 




OORG 


•-3 


1421* 








2)020 




CM 


N0PARM,0,10 


1428* 


14 


1*700 


ooo-o 


2)030 




BE 


ASCER 


14298 


** 


1*02* 


01200 


2)040 




B 


ASC12 


14310 


49 


1107* 


OOOOO 


23030 




OORG 


•-) 


14318 








2)0*0 


ASC28 


CM 


CHI, 4, 10 


14318 


1* 


19119 


000-4 


23070 




•E 


•♦32 


1*330 


** 


1*1*2 


01200 


2)080 




TOM 


FNTSWi.l 


1*1*2 


is 


10001 


00001 


23090 




B 


ASCI «'»»" 


14334 


49 


12*98 


OOOOO 



1620-14*3 MONITOR I VERSION 2 FORTRAN I l-D PHASE 1-8 



PAGE 



23 100 




DOUG 


• - 3 


2 1110 




BTM 


PUT . t 04 . II 


23120 




SH 


TPARC T 1 1 f 10 


23110 




TR 


CHI - 1 . f H 1 * 1 


23 1*0 




BN 


ASCER 


23 ISO 




BE 


• ♦56 


23 160 


ASC 28 1 


CM 


f ut . j l. in 
i»n i * £ it i u 


23170 








23180 




am a 




23 190 




B 


ASCER 








• "3 


232^0 




UUK 


■ >t ▼ i< t NUr #im 


23220 


f 




ICT lii l i ci itf. 


23230 




UMC 








TDM 


FNTSMl 


23250 






R TC ALL-44 


23260 




nnar 




23270 




•0 


TinrT. i itrii 
lrAKll - l,A)(,l4 


21280 




CM 

j; 


a <r nil t * in 


2)290 








>\»?n 




nnar 








CM 


uni asm a in 






BZ 


ASCII 






R 


ASCER 






00 RC 


• -1 


23 350 


A>C9 


TDM 


FNTSWl.Ott 


^> 




B 


ASC29-U 


21370 




OORG 


• -1 


21 180 


A SC 1 1 


TFM 


NOP ARM, 0,1011 


23 390 




B 


ASC 15 


2 1400 




OORG 


• -3 


21410 




fcNTEK MfcRE TO SMi 


21420 


ASC 14 


AM 


•♦18,5,10 






TR 


FL 1 ST-9, TPARCT- 


23440 




B 


ASC 8 


23450 




OORG 


• -4 


23460 


IFASEN 


TFM 


ASC14^1 R.FL 1ST 






B 


IFSCAN* 12 


j? :° 




OORG 


• -4 






TFM 


NOPARM.00,1011 


21500 




B 


IFSCAN-12 


23510 




OORG 


• -4 


21520 


TPAKCT 


OS 


2 


23510 


NOPARM 


OS 


2 


23540 




DC 


I # • 


23550 


FL I S T 


OSB 


5,20 


23560 




OORG 


16000 


23570 




TFM 


10RT,«^23 


235*0 




B 


IOPT.HLK3.7 


23590 




T*A 




23600 




TCD 


16000 


23610 


• 1 


OUT OF CORE BLOCK 4 


23620 


• 


UUTSC 





RIGHT PAREN 



TEST IF NEST LIST IS EMPTY 



1616)2 








16162 


17 


09050 


0* 106 


16176 


12 


16696 


000-1 


1 6186 


)l 


15118 


15160 


16198 


47 


16026 


01 100 


14610 


66 


14466 


01200 


16622 


14 


IS 1 19 


000K1 


16616 


it 


16262 


01200 




la 






14458 




14026 


OOwOv 


16666 










** 


J 7 7*2 




16678 ' 


16 


■ " * 




16690 


67 


14522 


01200 


f 






aaaaa 

UUUUU 


16516 


69 


11196 


OOOOO 


14522 








16522 














000-5 




4 a 


14198 


nnnnn 

UUUUU 


16556 








16556 


16 


16700 


000-0 


14566 


66 


16676 


01200 


16576 


69 


16026 


A A AAA 

00000 


16586 








16586 


15 


10001 


00000 


14596 


69 


16186 


00000 


16606 








16606 


16 


16700 


000— 


14618 


69 


11790 


00000 


16626 








14626 


1 1 


16644 


000—5 


14616 


1 1 


J469T 


14697 


1 4650 


69 


11754 


00000 


16657 








14658 


16 


14664 


J4697 




49 


12286 


UUUUU 










! a on 


la 




000 


i !!ot 




12262 


UUUUU 










14698 








14700 




2 




14701 




1 




14706 




5 


X 20 


16000 








16000 


16 


00565 


J6021 


16012 


49 


00512 


-9668 


16024 


16 


00000 


00500 


16016 


49 


00000 


00000 


16000 









CONTAINS THE FOLLOWING 



3 3 I 



1620-1443 MONITOR 



VERSION 2 FORTRAN II-C PHASE 1-8 



23630 
23640 
23650 
23660 
23670 
23680 
23690 
23700 
23710 
23720 
23710 
23740 
23750 
23760 
23770 
23780 
23790 
23ROO 
23810 
23820 
23810 
23840 
21850 
23R60 
23870 
21880 
23890 
23900 
23910 
23920 
23910 
23940 



10 OTMEA THAN DISK 



OORG 


IOUT 




10200 








CM 


CH| ,44, 10, 


I our, NONOISK I/C 


10200 


14 


15139 


000M4 


B 


I0UTEN 




10212 


49 


13172 


00000 


TFM 


FMONM5,BLK2 




10224 


16 


02359 


-9645 


BTM 


FMON, NONARA 




10236 


17 


02324 


J0224 


TFM 


FM0NM5,BLK1,, 


DIM 


10248 


16 


02359 


-9622 


BTM 


FMON, .DIM 




10260 


17 


02324 


J0248 


TFM 


FM0NO5,BLKl 


COMMON 


10272 


16 


02359 


-9622 


BTM 


FMON, COMMON 




10284 


17 


02324 


J0272 


TFM 


FM0NO5.BLK6,, 


IF STMNT 


10296 


16 


02359 


-9737 


BTM 


FMON, IF 




10308 


17 


02324 


J0296 


TFM 


FM0NO5.BLK6,, 


GOTC 


10320 


16 


02359 


-9717 


BTM 


FMON, GOTO 




10332 


17 


02324 


J0120 


TFM 


FMON^15,6LK6,, 


CALL 


10344 


16 


02359 


-9737 


BTM 


FMON, CALL 




10356 


17 


02124 


J0164 


TFM 


FM0NO5,6LK6,, 


RETURN 


10168 


16 


02159 


-9717 


BTM 


FMON, RETURN 




10180 


17 


02124 


J0168 


TFM 


FM0NM5,BLKl,, 


FORMAT 


10192 


16 


02159 


-9622 


BTM 


FMON , FORMAT 




10406 


17 


02124 


J0192 


BNF 


D0L00PO6,TR!N0,, 


00 STATEMENT 


10616 


66 


12094 


02609 


B 


00LO0P 




10428 


69 


12058 


00000 


TFM 


FMON«15,BLK3, , 


ASCAN 


10440 


16 


02159 


-9668 


BTM 


FMON, ASCAN 




10452 


17 


02124 


J0660 


BO 


SCUSINGST,, 


OUTSC 


10466 


41 


10884 


09998 


B 


O'lTSCl 




10476 


49 


10512 


00000 


TFM 


FMONO*.BLK5, , 


DISK INPUT/OUTPUT 


10488 


16 


02159 


-9716 


BTM 


FMON.DKIu 




10500 


17 


02124 


J0668 


UUTSC CODE IS HE*.. 












OORG 


ASCAN1 




12058 









OUTPUT 00 STATEMENTS 



21950 


OOLOOP 


TOM 


TRINO»0 






12058 


15 


02609 


00000 


21960 




60 


•♦2*,NOIND 






12070 


61 


12096 


02610 


21970 




BTM 


ERROR2, 572,9 








17 


09606 


00N72 


23960 




CM 


CHI, 66*10 










15139 


000M4 


21990 




6NE 


iPERR 










09264 


01200 


26000 




CM 


CK!*2,56,10 






12116 


16 


15161 


000N6 


26010 




8ME 


SPERR 






12110 


67 


09766 


01200 


26020 




60 


•♦26.IN01V 






»m2 


41 


12166 


02626 


26010 




6TM 


CKCNTU.0.10 






*.:?»%■ 




26662 


000-0 


26060 




TDM 


STSN 






12!66 


15 


C5661 


OCOOO 


26050 




TR 


CHI-LCHI*! 






12178 


31 


ISii* 


15162 


26060 


00 


CM 


CHI, 69, 10 






12190 


16 


15139 


00009 


26070 




AM 


• ♦26 






12202 


66 


12226 


01100 


26080 




BTM 


ERROR, 275. 9, 


IHCORRECT 00 STATEMENT 




12216 


17 


09350 


OORTS 


26090 




BTM 


PUT, 108,6,00 






12226 


17 


09050 


0-108 


26100 




SF 


OUTStt 






12236 


32 


07036 


00000 


26110 




BTM 


CSTN0»**12 






122SO 


17 


05612 


J2262 


26120 




AM 


SMAOC, 5*10 






12262 


11 


07206 


000-5 


24130 




8 


DOCK 






12274 


69 


12190 


00000 


26160 




OORG 


•-•3 






12262 




07200 




26 ISO 




TOM 


S*At>0,l,6, 


SET IV 10, 1* HOT SET OQ 


ftEf IN TA6LE 


12212 


19 


00001 


26160 


ooc 


CM 


CHI, 60. 10 






12296 


16 


15119 


ooono 


26170 




BflH 


DOCK- 12 






12S06 


67 


12176 


01100 


26180 




CM 


CHI, 69, 10 




33 2 


12116 


16 


15119 


00009 









i (. ) n. u i. i until f ni i utoc inn •» cnitaiu i i.n suite i_a 
10£U**l*t43 flUNI 1 UK 1 VcRSIuN 2 rQRIRAN I 1 — CMIJC I B 










2* 1 90 






DOCK- 12 


12330 




12378 








ATM 


LiUKN t l/, t COLLECT DO INDcX STUBUL 


123*2 


. _ 
1 1 






2*210 




AT 


diit cuinn. i 
rUl | aWAUU— 1 




*J 


non*n 
i 7*2*! 


c\7?m 


24 220 




«n 


nnr i c « no c i 








064 9 


2* 2 30 




BTM 


CKKUKfC i rLUATINu rOINI VAKIABLC rUK IUUEa 




1 7 




_ 






ttfl 


r»nr i — i 7 tutnn it 


1 7100 

i W ni 




17*** 




7t 9«n 




CM 




1 J4I f 




nTTnn 




24260 




an 








12294 


7 2 PC 


24270 












1 77H? 




24 280 




i__ 


#- 3~ ^ 


12*3* 








?i! inn 




BTM 


tKHUK,?r4,9, RcrcRcNCINb ILLcuAL SIARNI NO 


12*3* 


1 7 


09 350 


00K 74 




DOC 1 


CM 


LMl,3i t lU t TEST FOR EQUAL SIGN NcXl 


! V*Va 




151 39 


OPOL 3 


2*110 






00*2* 






12 214 


01200 


2*320 




avm 


RUT, 133, 8, EQUAL 


124 70 


1 7 


09050 


3-133 


7* »^n 




TO 


r u 1 _ 1 r u 1 i 1 
UM 1 - 1 1 1 M I ♦ 1 


1 24fl? 




15138 


O^GCO 






CF 


nni i lji ti ii lie tui rrucf 
DUA , , , INITIALIZE SHIILHcS 


1 2 4^4 


' * 


1 2 5 I • 




??? ? 




CF 


DOB 


1 2506 


3 3 


126 70 


oooou 




QUA 


CM 


LM| ,40, 10 


12518 


1 * 


15139 


000M0 


7 tin 




BNH 


nnr _ i 7 tcctc nn nuc irucn uai lice 
HULR-Umi TEST ruR UNaluNtD VALUES 


125 30 


* 7 


12378 


Oil 00 






CM 


r LA I A. (1 I #\ 

LH| ,o9, 10 


1 25*2 


1* 


151 39 


00009 


2* 390 




BNM 


•♦2*» » , 


1255* 


*7 


12578 


01 1 00 


2**00 




SF 


D0A 


1 2566 


32 


12518 


00000 


2* * 1 




SF 


0UTSW 


12578 


32 


07034 


00000 


2**20 




BTM 


CS0RN»»«12tt COLLECT ANO CUTPUT FIRST INOEX 


12590 


17 


0570* 


J2602 


2**30 




BO 


•♦20,FX0RFL 


12602 


*3 


12622 


06*19 


2***0 




B 


DOCK- 12 


1261* 


*9 


12378 


00000 


2**50 




OORG 


• -3 


12622 








2**60 




BNF 


DOB , DUA 


12622 


** 


12470 


12518 


2**70 




TF 


DOTEST , SYM 


1263* 


26 


13171 


09979 


2**110 




CM 


SYM, 0,10, TEST IF FIRST INDEX WAS HERO 


126*6 


1* 


09979 


000-0 


2**90 




BE 


DOCK- 12 


12658 


*6 


12378 


01200 


2* 500 


OUR 


CM 


CMI , 23, 10 


12670 


1* 


15139 


000K3 


2*510 




BNE 


00*2* 


12682 


*7 


1221* 


01200 


2* 520 




BT M 


PUT, 123, 8, COMMA 


1269* 


1 7 


09050 


0-12 3 


2*530 




TR 


CHI- I ,CH| *1 


12706 


31 


15138 


151*0 


2*5*0 




CM 


CHI , 40, 10 


12718 


1* 


15139 


000M0 


2*550 




BNH 


DOCK- 12 


12730 


*7 


12378 


01 100 


2*560 




CM 


CHI ,69, 10 


127*2 


1* 


151 39 


00009 


2* 570 




BNM 


• ♦24 


1275* 


*7 


12778 


01 100 


2*580 




SF 


DOR 


12766 


32 


12670 


00000 


2*590 




BTM 


CS0RN,«*12 


12778 


17 


0570* 


J279f 


2*600 




BT 


PUT , SMADD- 1 


I 2790 


27 


09050 


07207 


2*610 




BO 


•♦20.FXQRFL 


12802 


*3 


12822 


06419 


2*620 




B 


DOCK- 12 


1281* 


*9 


12378 


00000 


2*6*0 




OORG 


• -3 


12822 








2*6*0 




BNF 


• ♦ 72 1 DOB 


12822 


** 


1289* 


12670 


2* 650 




BNF 


• ♦ 36 , DOA 


1283* 


44 


12870 


12518 


2*660 




C 


SYM,DCTEST»» TEST IF SECOND INDEX IS GREATER OR 


1 28*6 


2* 


09979 


13171 


2*670 




81 


00CK-12,,, EUUAL TO THE FIRST IF BOTH ARE CONSTS 


12858 


*7 


12378 


01300 


2*680 




CM 


SYM, 0,10 


12870 


1* 


09979 


000-0 


2*690 




BE 


DOCK- 12 


12882 


46 


12378 


01200 


?*700 




BNR 


D0F,CHI*2 


1289* 


45 


12926 


15141 


2*710 




BO 


0n«24,10SW t , I/O CANNOT END HERE 


12906 


43 


1221* 


10011 


2*720 




R 


BEGIN 


12918 


49 


02626 


00000 


2*730 




OORG 


• -3 


12926 








2*740 




CM 


CHI, 23, 10 « ,j .j 


12926 


1* 


15139 


00OK3 








1620-1443 MONITOR 1 VERSION 2 FORTRAN 1 I — PHASE 1-6 








PAGE 


2*750 




BE 


•♦32 


12938 


*6 


12970 


01200 


2*760 




BO 


I0F,IUSW,, RETURN TO I/O SCAN 


1 2950 


*3 


14260 


1001 1 


2* 770 




B 


00*24 


1 2962 


*9 


1221* 


00000 


2*780 




OORG 


• - 3 


12970 








2*790 




BTM 


PUT, 123, 8, COMMA 


1 2970 


17 


09050 


0-123 


2*800 




TR 


CMI-l.CMUl 


12982 


31 


15138 


15140 


2*810 




CM 


CMI ,40, 10 


1299* 


I* 


15139 


000M0 


2*820 




BNH 


DOCK- 12 


13006 


*7 


12378 


01 100 


2*830 




SF 


OUTSW 


13018 


32 


0703* 


00000 


2*8*0 




BTM 


CS0RN,»M2 


13030 


17 


0570* 


J3042 


2*850 




CM 


SMCNT.2219 


130*2 


1* 


07261 


-2219 


2*860 




BE 


00*24, ,, SUBSCRIPTED VARIABLE IN DO 


1305* 


*6 


1221* 


01200 


2*870 




BO 


•♦20»FX0RFL 


1 3066 


43 


13086 


06419 


2*880 




B 


DOCK- 12 


13078 


49 


12378 


coooo 


2*890 




OORG 


• -3 


13086 








2*900 




CM 


SYM, 0,10 


13086 


1* 


09979 


000-0 


2*910 




BE 


DOCK- 12 


13098 


46 


12378 


01200 


2*920 


OCFE 


AD 


I0F , 10SW, , 


13110 


43 


14280 


1001 1 


2*930 




BNR 


•♦20 ,CHI*2 


13122 


*5 


13142 


15141 


2*9*0 




B 


BEGIN 


1313* 


49 


02626 


00000 


2*950 




OORG 


• -3 


131*2 








?*96Q 




BTM 


ERROR2,573,9 


131*2 


17 


09406 


0ON73 


2*970 




B 


BEGIN 


1315* 


49 


02626 


00000 


2*980 




OORG 


• -3 


13162 








2*990 


OOTEST 


OS 


10 


13171 




10 




25000 


• •■• 


ENTER HERE TO OECOMPQSE I/O STATEMENTS OTHER THAN DISK •••• 










25010 


I0UTEN 


BNE 


• ♦44 


13172 


47 


13216 


01200 


25020 




TFM 


I0UTU11, 112,9, OUTPUT READ SYMBOL 


1318* 


16 


13567 


0-112 


25030 




TR 


CMI-l.CHUl 


13196 


31 


15138 


151*0 


250*0 




8 


IOUTI 


13208 


49 


13556 


00000 


25050 




OORG 


• -3 


13216 








25060 




CM 


CMI, 55, 10 


13216 


1* 


15139 


000N5 


25070 




BNE 


IOUT2 


13228 


47 


13308 


01200 


25080 




CM 


CHU2.63.10 


13240 


14 


15141 


00003 


25090 




BE 


•♦24 


13252 


46 


11276 


01200 


25100 


IUUTER 


BTM 


ERROR, 71, 9 


1326* 


17 


09190 


00-71 


25110 




TFM 


lOUTl^l 1,111,8, OUTPUT PRINT SYMBOL 


13276 


14 


11587 


O-lll 


25120 




TR 


CHI-I.CHU3 


13288 


31 


19118 


15142 


25130 




B 


I0UT1 


13300 


49 


11594 


00000 


251*0 




OORG 


•-3 


13308 








25 1 50 


10UT2 


CM 


CH|, 45,10 


13308 


14 


19119 


000M5 


25160 




BNE 


I OUT 3 


13320 


47 


11188 


01200 


25170 




TR 


CHI-l,CHI*l v , SHIFT OFF E 


13332 


31 


19118 


15140 


25180 




CM 


CHI, 69, 10 


1 33*4 


14 


19119 


00009 


25190 




BNH 


I0UT3 


133S6 


47 


11188 


01 100 


25200 




TFM 


IOUTmi.0111,6, OUTPUT TYPE SYMBOL 


1 3348 


14 


11987 


0— 113 


2S210 




B 


I OUT I 


1 3310 


4% 


11998 


nnnnn 


25220 




OORG 


• -3 


1 3388 








25230 


10UT3 


BTM 


C0LNAM,2,10 


13188 


IT 


04442 


000-2 


252*0 




CM 


SYM, 43*8, 8 


13400 


14 


09)879 


0M348 


25250 




IV 


10UTER 


13412 


44 


112*4 


01400 


25260 




BNE 


I OUT* 


11414 


4? 


1197* 


01200 


25270 




TFM 


IOUTUU, 118,8, OUTPUT PUNCH SYMBOL 


1141* 


14 


119*7 


0-118 


25280 


I0UT5 


TR 


CH|-1,CHI*1 


11448 


31 


19118 


19142 


25 290 




CM 


CHI, 63, 10 


11480 


14 


19118 


00003 


25)00 




BNE 


louti >JA 


13*72 


47 


1199* 


01200 



1620-1443 MONITOR I VERSION 2 FORTRAN 1 1 -0 PHASE 1-6 



PAGE 



25310 




BTM 


COL NAM, 4, 10 
















13484 


17 


04662 


000-4 


25)20 




C 


SYM.TPCST 
















1)496 


24 


09979 


136)9 


25330 




BV 


1 OUTER 
















1)508 


46 


1)264 


01400 


25140 




BNE 


1 OUTER 
















1)520 


47 


11264 


01200 


25150 




TR 


CH|-l,CH|*r 
















1)532 


31 


151)8 


15146 


25160 




AM 


IOUUM 1 , 1, 10 
















1)544 


11 


1)567 


000-1 


25370 


I OUT I 


BTM 


PUT, , , 


OUTPUT 


I/O SYMBOL 










1)556 


17 


09050 


-0000 


25380 




B 


INOUT 
















1)568 


49 


1)640 


00000 


25 390 




OORG 


• -3 
















1)576 








25400 


IUUT4 


CM 


SVM, 5761,8 
















1)576 


14 


09979 


0N763 


25410 




AV 


10UTEM 
















1)568 


46 


13264 


01400 


25420 




BNE 


IOUTER 
















13600 


47 


1)264 


01200 


25410 




TFM 


I0UT1U1, 0116.1 


B, OUTPUT 


ACCEPT 


SYMBOL 










1)612 


16 


13567 


0-116 


25440 




B 


I0UT5 
















1)624 


49 


1)448 


00000 


25450 




OORG 


• -3 
















1)632 








25460 


TPCST 


OC 


8,63415745,, 


TAPE 














1)6)9 




8 








03415745 
























254T0 




OUTPUT INPUT-OUTPUT LISTS 






















25480 


1N0UT 


CM 


CHI ,69, 10 
















1)640 


14 


151)9 


00009 


25490 




BM 


•♦24 
















1)652 


46 


1)676 


01100 


25500 




BTM 




STATEMENT NUMBER MISSING 








1 3664 


17 


09)50 


00K76 


25510 






















1)676 


32 


070)4 


00000 


25520 






I OSW, 1 
















1)688 


15 


10011 


00001 


25530 




BTM 


r (fun i 
















1)700 


17 


05412 


J3712 


25540 




AM 


















1)712 


U 


07208 


000-4 


25550 






•♦32 INSH 
















13724 


43 


13756 


02611 


25560 




TOM 


SMAOO, 1 ,6, 


SET DIGIT FOR 


FORMAT STAMNT 


NUMBER 


1 3736 


15 


0720Q 


00001 


25570 




B 


•♦32 
















13 748 


49 


1)780 


00000 


25580 




OORG 


• - 3 
















13756 








25590 




BO 


•♦24, SMAOO, 11, 


TEST. IF 


STAMNT 


NUMBER 


CORRESPONDS 


TO FMT 


13756 


43 


13780 


0720Q 


25600 




BTM 


ERKUR.277,9, 


I/O STATEMENT 


NO. NCT 


A 


FORMAT NUMBER 


13768 


17 


09350 


00K77 


25610 


10A 


BNR 


• ♦20.CHU2 
















13780 


45 


13800 


15141 


25620 




B 


BEGIN 
















13792 


49 


02626 


00000 


25630 




OORG 


• -3 
















13800 








25640 






CH| ,23,10 
















13800 


14 


15139 


00OK3 


25650 




BE 


• ♦24 
















13812 


46 


13836 


01200 


25660 


IDLER 


BT M 


ERROR, 278, 9, 


MISSING 


COPMA 


OR INVALID 


LIST ELEMENT 


13824 


17 


09350 


00*78 


25670 




BTM 


PUT, 123,8 


•COMMA 














13836 


17 


09050 


0-12 3 


25680 




TR 


CHI-l.CHIU 
















13848 


31 


15138 


15140 


25690 






CHI ,40, 10 
















13860 


14 


15139 


OOOMO 


25700 




AMM 


I OB 
















13872 


47 


13932 


01100 


25710 




CM 


CHI ,69, 10 
















13884 


14 


15139 


00009 


25720 




AM 


IDLER 
















13896 


46 


13824 


ouoo 


25 7 30 






OUTSW 
















13908 


32 


07034 


00000 


25740 




»tm 


CSORN, IOA 
















13920 


17 


05704 


J3780 


25750 


iOfl 




I0L00»»,0, 10 
















13932 


16 


14099 


000-0 


25760 




r« 


CHI ,24, 10 
















13944 


14 


15139 


00OK4 


25 770 




a c 


IDLER 
















1 3956 


47 


1 3824 


01200 


25780 




AM 


PARCNr, 1,10 
















13968 


11 


02615 


000- I 


25790 




BTM 


PUT, 124,8 


•LEFT PAREN 














13980 


17 


09050 


0-124 


<!580O 




TR 


CHI-l.CHUl 
















13992 


31 


15138 


15140 


25 810 




AM 


IOLOOP, 1,10 
















14004 


1 1 


14099 


000- 1 


25820 




CM 


CHI ,24, 10 
















14016 


14 


151 39 


0OOK4 


25830 




BE 


IOG 
















14028 


46 


14464 


01200 


2S840 


IUO 


CM 


CHI ,40, 10 
















14040 


14 


15139 


OOOMO 


25850 




BNH 


I0RM2 
















14052 


47 


13944 


OUOO 
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-C 


PHASE l- 


B 








PAGE 


25860 




CM 


CHI ,69, 10 
















14064 


14 


15139 


00009 


25870 




BM 


IOLER 
















14076 


46 


13824 


OUOO 


25880 




SF 


OUTSW 
















14088 


32 


07034 


00000 


25890 


IUIOOP 


OC 


2,0,» 
















14099 




2 




25900 




-0 
BTM 


CSORN, 12, , 


COLLECT 


LIST ELEMENT 










14100 


17 


05704 


J4U2 


25910 




BNR 


•♦20, SMCNT, I I 
















14112 


45 


14132 


0726J 


25920 




B7 


IDLER,, .FUNCIION NAME 














14124 


49 


13824 




25930 




CM 


CHI ,23, 10 
















14132 


14 


15139 


000K3 


25940 




BNE 


IOE 
















14144 


47 


14200 


01200 


25950 




BTM 


PUT, 123,8, 


.COMMA 














14156 


17 


09050 


0-123 


25960 




SF 


IOSH 
















14168 


32 


10011 


00000 


25970 




TR 


CHl-l,CHIM 
















14180 


31 


15136 


15140 


25980 




B 


100 
















14192 


49 


14040 


00000 


25990 




OORG 


• -3 
















14200 








26000 


IUF- 


BNF 


IOLER, IOSW 
















14200 


44 


13824 


10011 


26010 




CF 


IOSW 
















14212 


33 


10011 


00000 


26020 




CM 


CHI, 33, 10 
















14224 


14 


15139 


000L3 


26030 




BNE 


I0M*12 
















14236 


47 


13944 


01200 


26040 




BTM 


PUT, 1)3,8 


•EQUAL 














14248 


17 


09050 


0-131 


26050 




BO 


D0A-36,FX0RFL,, BRANCH 


TO COLLECT IN0IC8 


OF 


ARRAY 


LOOP 


14260 


43 


12482 


06419 


26060 




B 


IOLER 
















14272 


49 


13824 


00000 


26070 




OORG 


• -3 
















14280 








26080 


•••••• 


RETURN HERE FROM 


DC COOEING 






















26090 


lUF 


CM 


CH|, 4,10 
















14280 


14 


15139 


000-4 


26100 




BNE 


IOLER 
















14292 


47 


1)824 


01200 


26110 




BTM 


PUT, 104,8 


•RIGHT PAREN 














14304 


17 


09050 


0-104 


26120 




TR 


CHI-l,CMl*l 
















14316 


31 


15138 


15140 


26130 




SM 


PARCNT.l.lO 
















14328 


12 


02615 


000-1 


26140 




AN 


IOLER 
















14340 


47 


13824 


01300 


26150 




SM 


IOLOOP, 1,10 
















14352 


12 


14099 


000-1 


26160 




BNZ 


• ♦32 
















14364 


47 


14396 


01200 


26170 




BNR 


IOLER-24,CH|*2 
















14376 


45 


13800 


15141 


26180 




B 


BEGIN 
















14388 


49 


02626 


00000 


26190 




OORG 


• -3 
















14396 








26200 




CM 


CHI, 2), 10 
















1439* 


14 


19139 


OOOK) 


26210 




BrflE 


IOLER 
















14408 


47 


13624 


01200 


26220 




BTM 


PUT , 123,8 


•COMMA 














14420 


17 


09090 


0-123 


26230 




TR 


eHI-l.CMIU 
















14432 


31 


19198 


15140 


26240 




SF 


IOStf 
















14444 


32 


10011 


00000 


26 2 SO 




B 


100 
















1445* 


49 


14040 


00000 


26260 




OORG 


•-) 
















144*4 








26270 


IUG 


BTM 


PUT, 124, • 


f LEFT PAREN 














144*4 


1? 


09090 


0-124 


26280 




AM 


PARCNT, 1,10 
















1447* 


11 


02*19 


000- 1 


26290 




TR 


CHI-l.CHIM 
















14486 


31 


19131 


15140 


26100 




AN 


IOLOOP, I, 10 
















14300 


11 


14099 


000- 1 


2*110 




CM 


CHI ,24, 10 
















14512 


14 


19139 


000K4 


26120 




BNE 


100 
















14924 


4T 


14040 


01200 


26130 




BTM 


PUT, 124,1 


»LEFT PAREN 














1493* 


17 


09090 


0-124 


26)60 




AN 


PARCNT, 1,10 
















14941 


11 


02*19 


000-1 


26350 




TR 


CHI-l.CMUl 
















149*0 


31 


15138 


19140 


26)60 




AN 


IOLOOP, 1,10 
















14972 


11 


14099 


000-1 


26)70 




• 


100 
















14914 


49 


14040 


00000 


26380 




OORG 


•-3 
















14992 








26390 




OORG 


16000 














16000 








26400 




TFN 


!0RT,»*2) 










3 3«i 




1*000 


1* 


009*9 


J* 02 3 
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26410 




B 


IOPT,BLK4,7 




16012 


49 


00532 


-9691 


26420 




TRA 






16024 


3* 


00000 


00900 












16036 


49 


00000 


00000 


264)0 




TCD 


16000 




16000 








26440 


• 


OUT OF CORE BLOCK 5 CONTAINS THE FOLLOW 1 NO 










26450 


• 


OUTSC 














26460 


• 


00 














26470 


• 


OKI 














26480 




OORO 


IOUT 




10200 








26490 




TFH 


FM0N*35,BLK4 , , 


I OUT 


10200 


1* 


02339 


-9691 


26500 




BTM 


FMON, IOUT 




10212 


17 


02324 


J0200 


26510 




TFM 


FMf)N+ 35*BLK2 




10224 


1* 


02359 


-9645 


26520 




BTM 


FMON»NONARA 




10236 


17 


02324 


J0224 


26530 




TFM 


FMON+35 ,BLK1 , , 


DIM 


10248 


1* 


02359 


-9622 


26540 




BTM 


FMONtOIM 




10260 


17 


02324 


J0246 


26550 




TF M 


c MOM* IS . Al t 1 


COMMON 


10272 


1* 


02359 


-9622 


26560 




BTM 


r nun * uun^un 




10284 


17 


02324 


J0272 


26570 




TFM 


FMON* 35 , BLK6 




10296 


1* 


02359 


-9737 


26580 




BTM 


FMON, IF 




10308 


17 


02 324 


J0296 


26590 




TFM 




rnro 


10320 


16 


02359 


-9737 


26600 




BTM 


FMON, GOTO 




10332 


17 


02324 


J0320 


26610 




TFM 


FMON*35,BLK6,, 


CALL 


10344 


16 


02359 


-9737 


26620 




BTM 


FMON, CALL 




10356 


17 


02324 


J0344 


266)0 




TFM 


FM0NO5.6LK6* , 


RET UR N 


10368 


16 


02359 


-9737 


26640 




BTM 


FMON, RE TURN 




10380 


17 


02324 


J0368 


26650 




TFM 


FMON»35,BLKl,, 


FORMAT 


10392 


16 


02339 


-9622 


26660 




BTM 


FMON, FORMAT 




10404 


17 


02324 


J0392 


26670 




BNF 


DOLOOP*36,TRIND, , 


00 STATEMENT 


10416 


44 


12094 


02609 


26680 




B 


OOLOOP 


10428 


49 


12058 


00000 


26690 




TFM 


FMON*35,BLK3., 


ASCAN 


10440 


16 


02359 


-9666 


26700 




BTM 


FMON, ASCAN 




10452 


17 


02324 


J0440 


26710 




BO 


SC1,SINGST,* 


OUTSC 


10464 


43 


10B84 


09998 


26720 




B 


OUTSCl 




10476 


49 


10512 


00000 


267)0 




TDM 


USEDFS*5*1,* 


DISK I/O 


104B8 


15 


022*8 


00001 


26740 




B 


DKIOEN 




10500 


49 


13172 


00000 


26750 




GUTSC CODE IS HERE 












26760 




OORG 


ASCAN1 




12058 








26770 


• • 


OUTPUT DO STATEMENT 


CODE IS HERE 










26780 




OORG 


D0E*24 




12950 








26790 




THE FOLLOWING INSTRUCTION IS A CHANGE TO 00 STATEMENT COOE 










26800 




BO 


OKF , IOSW, , 


RETURN TO I/O SCAN 


12950 


43 


14396 


10011 


26810 




OORG 


DOEE 




13110 








26820 




BO 


DKF, IOSW 




13110 


43 


14396 


10011 


26830 




DOKG 


IOUTEN 




13172 








26840 


• ••• 


ENTER HfcRE TO DECCDE 


DISK I/O STATEMENTS ••• 












DKIOEN SF 


DK10. , , 


FLAG FOR FETCH AND RECORD 


13172 


32 


10486 


00000 


26860 




CM 


CHI ,43, 10 




13184 


14 


15139 


000*3 


2687Q 




BNE 


DKIOl 




13196 


47 


13264 


01200 


26880 




TFM 


DKPUT«-1 1 ,0142*8, 


FETCH SYMBOL 


13208 


16 


13535 


0-142 


26890 




CM 


CMU2.48, 10, 


CHECK FOR H 


13220 


14 


15141 


00OM8 


26900 




BNE 


ERR 1 




13232 


47 


04286 


01200 


26910 




TR 


CHI-l ,CHU3, , 


SHIFT OFF TWO CHARACTERS 


13244 


31 


15138 


15142 


26920 




B 


DKLIST 




13256 


49 


13404 


00000 


26930 




OORG 


• - 1 




13264 








26940 


DKI01 


CM 


CHI ,44, 10 


3 37 


13264 


14 


15139 


000M4 
























1620-1443 MONITOR 


I VERSION 2 FORTRAN U-D PHASE l-B 








PAGE 


26950 




BNE 


DK 102 




13276 


47 


13332 


01200 


26960 




CF 


OKIO, ,, 


NO FLAG FOR FINO 


13288 


33 


10488 


00000 


26970 




TFM 


DKPUT*U,0144,8, 


FINO SYMBOL 


13300 


16 


13535 


0-144 


26980 




TR 


CHI-l,CHI»l 


SHIFT OFF ONE CHARACTER 


13312 


31 


15138 


15140 


26 990 




B 


DKLIST 




13324 


49 


13404 


00000 


27000 




OORG 


• -3 




13332 








27010 


0KI02 


BTM 


C0LNAM,03,10 




13332 


17 


04662 


000-3 


27020 




C 


SYM,0R0CT*4 




13344 


24 


09979 


14677 


27030 




BV 


ERR01 




13356 


46 


04286 


01400 


2 7040 




BNE 


ERR 01 




13368 


47 


04288 


01200 


27050 




TR 


CHI-I.CHU5,, 


SHIFT OFF THREE CHARACTERS 


13380 


31 


15138 


15144 


27 060 




TFM 


DKPUT*ll,0l46,8, 


RECORO SYMBOL 


13392 


16 


135)5 


0-146 


27070 


DKL 1ST TON 


DISKS*, I, 11, 


SET SW TO INDICATE DISK I/O 


13404 


15 


02363 


OOOOJ 


27080 




CM 


CHI, 24, 10, 


CHECK FOR LEFT PAREN 


13416 


14 


15139 


000K4 


27090 




BNE 


DKER 




13428 


47 


13752 


01200 


27 100 




TOM 


IOSW, I 




13440 


15 


10011 


00001 


27 1 10 




TR 


CH|-l*CHl*l* v 


SHIFT OFF LEFT PAREN 


13452 


31 


15138 


15140 


27 120 




CM 


CHI, 69, 10 




13464 


14 


15139 


00009 


27130 




BL 


• ♦24 




13476 


47 


13500 


01300 


27 140 




AM 


0KPUT*ll,l,10. 


AOO ONE FOR LITERAL 


13488 


11 


13939 


000- 1 


27 150 




CM 


CHI ,40, 10 




13500 


14 


19139 


OOOMO 


27 160 




BL 


OKER 




13512 


47 


13792 


01300 


27 170 


DKPUT 


BTM 


PUT,,, 


OUTPUT 01 SK I/O SYMBOL 


13524 


17 


09090 


-0000 


27180 




BTM 


PUT, 0124,8, 


OUTPUT LEFT PAREN 


13536 


17 


09090 


0-124 


27190 




SF 


OUTSW 




13548 


32 


07094 


00000 


27200 




BTM 


CS0RN,«*12 




135*0 


17 


09704 


J3572 


27210 




BO 


•♦20,FXORFL 




13572 


43 


13992 


0*419 


27220 




B 


OKER 




13584 


49 


13792 


00000 


27230 




OORG 


• -4 




13591 








27240 




CM 


CHI, 04, 10, 


CHECK FOR RT PAREN 


13592 


14 


19139 


000-4 


27250 




BNE 


DKER 




13604 


47 


13792 


01200 


27260 




BTM 


PUT, 0104, 8, 


OUTPUT RT PAREN 


13616 


17 


09090 


0-104 


27270 




BNF 


BEGIN, DKIO, , 


BRANCH TO BEGIN IF FINO STMNT 


13628 


44 


02*2* 


10468 


27280 




BTM 


PUT, 0123, 8, 


OUTPUT COMMA 


13640 


17 


09090 


0-123 


27290 




TR ' 


CHl-l,CHI*l». 


SHIFT OFF RT PAREN 


13652 


31 


1913* 


15140 


27300 


OKL 


BNR 


• ♦24,CHU2 




13664 


49 


13466 


15141 


27310 




BTM 


ERROR, 472, 9, 


DISK 1/0 STMNTS *UST HAVE LISTS 


13*76 


17 


09390 


00M72 


27320 




TR 


DKSW1-L , SWSET-4,, 


INIT SWITCHES 


13688 


31 


14303 


14*78 


27330 




B 


DKB 




13700 


49 


13766 


00000 


27340 




OORG 


•-3 




13708 








27 350 


OKA 


BNR 


•♦20,CHl*2 




13708 


45 


13726 


15141 


27360 




B 


BEGIN 




13720 


♦9 


02*2* 


00000 


27370 




OORG 


•-3 




13728 








27380 




CM 


CHI, 23, 10 




13728 


14 


19139 


000R3 


27390 




BE 


• ♦24 




1)740 


4* 


137*4 


01200 


27400 


OKER 


BTM 


ERROR, 471, 9 




13792 


17 


09990 


00M71 


27410 




BTM 


PUT, 0123, 8, 


OUTPUT COMMA 


137*4 


17 


09090 


0-123 


27420 




TR 


CHI-1,CHI*1 , , 


SHIFT OFF ONE CHARACTER 


1)77* 


11 


19190 


19140 


27430 


OKR 


CM 


CHI, 40*10 




13788 


14 


191)9 


OOOMO 


27440 




BNH 


OKC 




13800 


*? 


1*000 


01100 


27450 




CM 


CH|, 69, 10 




13*12 


14 


191)9 


00009 


27460 




BH 


OKER,,. 


LITERAL ITEM ON LIST 


13824 


4* 


1)792 


01100 


27470 




SF 


OUTSW 




1383* 


32 


070)4 


00000 


27480 




BTM 


CS0RN,»*12 




13848 


IT 


0970* 


J3**0 


27490 




BNR 


•♦20,SMCNT,ll 


FUNCTION NAME 33 S 


13840 


49 


1)000 


072*J 


27900 




• 


DKER* * * 


13872 


49 


1)792 


00000 
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PAGE 



2 7510 




OORC 


• -3 


2? 520 




BO 


• ♦ 17 . <^Mf* NT .11. 


27530 




TOM 


0KSM2 , 2 


275*0 




B 


• ♦20 


27550 








275fco 




TOM 


DKS W2 , 1 


27570 




BO 


•♦20.DKSWI 


2 7580 




8 


DKBI*12 


? 7590 




OORG 


• -* 


2 7600 




C 


0KSW1.0KSM2 


2? 610 




BE 


OKA 


27620 




6TM 


ERROR,*?), 9, 


276)0 




TO 


0KSM1,0KSm2 


27 6*0 




B 


OKA 


27 650 




00 KG 


• -3 


27660 




THE FOLLOWING HANDLES 


2 7 670 




TFM 


OKLOOP, 0,10 


2 76S0 




CM 


CHI, 2*, 10 


27690 




BNE 


OKFR 






AM 


PARCNT,l*lO 


27 MO 




HTM 


PUT, 0124, 8, 


27720 




TR 


CHl-l,CH|*l,, 


277^ 




AM 


0KL00P,1,10 






CM 


CHI, 2*, 10 


2 7 750 




BE 


OKG 


27 760 


DKO 


CM 


CHI ,*0, 10 


27 770 




8NH 


DKCM2 


2 7 780 




CM 


CHI ,69, 10 


2 7 790 




BH 


DKER 


27 800 




SF 


OUTSW 


27 810 


UKL UUP 


OC 
-0 


2,0,* 


2 7 820 




BTM 


CS0RN,»M2 






BNR 


• ♦20, SMCNT , 1 1 


27 8*0 




B7 


DKER,,, FUNC 






BO 


•♦16.DKSWI 


5711 




C 


OK SM 1 , OK SW2 


5 7 !!■ n 




HNE 


OKB I 






TO 


0KSW1 .0KSM2 


ji man 




CM 


CHI ,2), 10 


I 7900 




HNE 


OKfc 


27 910 




HTM 


PUT, 0123,8, 1 






TR 


CHI-UCHU1 


27 910 




SF 


OKE 


27 9*0 




OS 


2, •-I 


27 950 


DKSW2 


OS 


2,»-l 


27 960 




B 


OKD 


27970 




OORG 


• -3 


27980 


OKC 


BNF 


OKER.OKE 


27990 




CF 


OKE 


28000 




CM 


CHI, 3), 10 


28010 




RNE 


0KCM2 


28020 




BTM 


PUT, 0133, 8, 


28010 




BO 


DOA- )6, F XORFL , , 


280*0 




B 


OKFR 


28050 




OORG 


• -3 



OIGIT IMPLIES AN ARRAY NAME 



ARRAYS ANO SIMPLE VARIABLES ON SAME I/O 



OUTPUT LEFT PAREN 
SHIFT OFF ONE CHARACTER 



OUTPUT COMMA 



OUTPUT EQUAL SYMBOL 

GO TO 00 CCOING FOR IMPLIED 00 LOOP 

a <i u 



1 38f 








1 3880 




13912 


0726J 


1 3892 




14306 


00002 


1 390* 


49 


1 3924 


u w 


13912 








13912 


IS 


14306 


00001 


1392* 


43 


13944 


1*30* 




49 


13980 


UUUUu 


l 39*3 








1 39** 


24 


14304 


1*306 


1 3914 


46 


13708 


01200 


1 3968 


1 7 


09)50 


00M73 


1 3980 


• 25 


14 304 


14306 


1 3992 


49 


13708 


A A A A A 
00000 


1*000 








1*000 


16 


14167 


000—0 


1*012 


14 


15139 




1 *02* 


47 


13752 


01200 


1 *036 


1 1 


0261 5 


000— I 


1 *0*8 


17 


09050 


0-124 


1*060 


31 


15138 


15140 


1*072 


11 


14167 


000- 1 


1*08* 


14 


15139 


000K4 


1*094 


46 


14544 


01200 


14108 


14 


15139 


OOOMO 


1*120 


47 


14012 


01100 


1*132 


14 


15139 


00009 


1*1*4 


46 


13752 


01100 


1*156 


32 


070)4 


00000 


1*167 




2 




1*168 


17 


05704 


J*1B0 


1* 180 


45 


14200 


0726J 


1* 192 


49 


13752 




1*200 


43 


14236 


1*30* 


1*212 


24 


14304 


1*306 


1*22* 


47 


13968 


01200 


1*236 


25 


14304 


1*306 


1*2*8 


14 


15139 


000K3 


1*260 


4 7 


14316 


01200 


1*272 


1 7 


09050 


0-123 


1*28* 


3 1 


15138 


151*0 


I *296 


32 


14316 


00000 


1 * 30* 




2 




I * 306 




2 




1*308 


49 


14108 




14316 








1*314 


44 


13752 


1*316 


14328 


33 


14316 


00000 


1*3*0 


14 


15139 


000L3 


1*352 


47 


1*012 


01200 


1*36* 


17 


09050 


0-133 


1*376 


*3 


12*82 


06*19 


1*388 


*9 


1)752 


00000 


1*396 









28060 • 
28070 DKF 
✓ 8080 
28090 
28 100 
28 110 
28 120 
28 110 
28 1*0 
28 150 
?R 160 
28 170 
2H 180 
28 190 
28200 
28210 
28220 UKG 
28230 
282*0 
28250 
28260 
28270 
28280 
28290 
28)00 
28310 
28 320 
28)10 

281*0 OROCT 
28)50 

28360 bWSET 

28)70 
28180 
28 390 
28*00 

28*10 



1620-1**) MONITOR I VERSION 2 FORTRAN I I -C PHASE 1-8 

RETURN HERE F"*0M 00 CODING 



CM 


CH| ,0*, 10 






1*396 


1* 


15139 


000-4 


HNE 


OKE R 






1**08 


*7 


13752 


01200 


BTM 


PUT ,010*, H, 


OUTPUT 


RT PAREN 


1**20 


17 


0905C 


0-10* 


TR 


CMI-LCHIM 






1**32 


31 


15138 


151*0 


SM 


PArtCMT, 1 V IC- 






1**** 


12 


02615 


000-1 


BN 


OKER 






1**56 


*7 


1)752 


01300 


SM 


OKLOOP, 1, 10 






1**68 


12 


14167 


000- 1 


BN I 


• ♦32 






1**80 


*7 


14512 


01200 


BNR 


DKFR-2*,CHU2 






1**92 


*5 


13728 


151*1 


B 


BEGIN 






1*504 


*9 


02626 


00000 


OORG 


• -3 






1*512 








CM 


CHI ,23, 10 






1*512 


1* 


15139 


0OOK3 


BNE 


DKfcR 






1*52* 


*7 


1)752 


01200 


R 


DKOl 






1*536 


*9 


1*2*8 


00000 


DORG 


• -) 






1*5** 








BTM 


PUT, 012*, 8, 


OUTPUT 


LEPT PAREN 


1*5** 


17 


09050 


0-12* 


AM 


PARCNT, 1,10 






1*556 


11 


02615 


OOO-l 


TR 


CHl-l,CHI*l 






1*568 


31 


15138 


15140 


AM 


DKLOOP, 1,10 






1*580 


11 


1*167 


OOO-l 


CM 


CHI ,2*, 10 






1*592 


I* 


151)9 


0O0K4 


BNE 


OKD 






1*60* 


47 


1*108 


01200 


BTM 


PUT ,012**8, 


OUTPUT 


LEFT PAREN 


1*616 


17 


09050 


0-12* 


AM 


PARCNT, 1,10 






1*628 


11 


02615 


OOO-l 


TR 


CHI-1.CHIM 






1*640 


31 


15138 


15140 


AM 


OKLOOP, 1*10 






14652 


11 


14167 


OOO-l 


H 


OKO 






14664 


49 


14108 


00000 


OORG 


• -) 






14672 








OAC 


3*OR0 






14673 




3 


X 2 


ORD 
















OC 
-0 


2,00 






14679 




2 




OC 


),00* 






14682 




3 




-0« 
















OORG 


16000 






16000 








TFM 


IORT,**23 






16000 


16 


00565 


J6023 


B /• 


I0PT,8LK5,7 






16012 


49 


00532 


-9714 


TRA 








16024 


36 


00000 


00500 










16036 


49 


00000 


00000 


TCO 


16000 






16000 









28420 • OUT OF CURE BLOCK 6 CONTAINS THE FOLLOWING 

28430 • OUTSC 

28440 • CALL 

28450 • RETURN 

28460 • IF 

28470 • IFSENSESMITCN 

28480 • GOTO 

28490 OORG IOUT 

28500 TFM FM0NO5 ,BLK* , , IOUT 

28510 BTM FMONtlOUT 

28520 TFM FNON* )5,BLK2 

28530 BTM FMON.NCNARA 

28540 TFM FN0NO5 ,»LK I , , DIM 

28550 8TM FMON.OIM 

28540 TFM FMON*35.»LKi» t COMMON 



3 41) 



10200 








10200 


14 


02359 


-9491 


10212 


17 


02324 


J0200 


10224 


14 


02359 


-9445 


10234 


17 


02324 


J0224 


10248 


14 


02359 


-9422 


102*0 


IT 


02324 


J0248 


10272 


1* 


02359 


-9422 



28570 

28580 

2*590 

28600 

28610 

28620 

28630 

28640 

28650 

28660 

28670 

28680 

28690 

28700 

28710 

28720 

28750 

287*0 

28 750 

28760 

28770 

28780 ••• 

28790 CALL EN 

28800 

28810 

28820 

288)0 

28840 

28850 

28660 

28870 

28880 

28890 

28900 

28910 CALLER 

28920 

28930 

28940 

28950 

28960 

28970 

28980 

28990 

29000 

29010 
29020 

29030 CALL A 

29040 

29050 

29060 CALL 8 

29070 

29080 

29090 

29100 

29110 





1620-1443 MONITOR I 


VERSION 2 FORTRAN 1 1 — PHASE 1-8 








PAGE 


BTM 


FMONtCOMMON 




10264 


17 


02324 


J0272 


AM 


PARCNT,Ol, 10. 


IF 


10296 


1 1 


02615 


000-1 


B 


I F I 




10308 


49 


13264 


00000 


CM 


CHI ,56, 10t 


GOTO 


10320 


14 


15139 


00ON6 


R 


GOTOEN 




10332 


49 


14120 


00000 


CM 


CHI ,5), 10, 


CALL 


10344 


14 


15139 


000N1 


B 


CALLEN 




10356 


49 


12056 


00000 


BTM 


CQLNAM,03i 10, 


RETURN 


10366 


17 


04662 


000-3 


B 


RETRN 




10380 


49 


13166 


00000 


TFM 


FMON*35«BLKl«t 


FORMAT 


10392 


16 


02159 


-9622 


BTM 


FMON, FORMAT 




10404 


17 


02124 


J0392 


TFM 


FMON* 35,6LK4, , 


000 


10416 


16 


02159 


-9691 


BTM 


FMON «000 




10428 


17 


02124 


J0416 


TFM 


FMON*35,BLK3t , 


ASCAN 


10440 


16 


02159 


-9668 


BTM 


FMONf ASCAN 




10452 


17 


02124 


J0440 


BD 


SC1.SINGST,, 


OUTSC 


10464 


43 


10864 


09998 


B 


0UTSC1 




10476 


49 


10512 


00000 


TFM 


FMON* 35 «BLK5 1 1 


DISK INPUT/OUTPUT 


10488 


16 


02159 


-9714 


BTM 


FMON, DK 10 




10500 


17 


02124 


J0488 


UUTSC CODE IS HERE 












DORG 


ASCAN1 




12058 








ENTER MERE TO DECOMPOSE CALL STATEMENT ••• 










BNE 


ERR01 




12058 


47 


04268 


01200 


TR 


CHl-UCHI + 1 




12070 


31 


15116 


15140 


BTM 


COLNAM* 04 # 10 




12082 


17 


04662 


000-4 


C 


SYM,EXITCT*6 




12094 


24 


09979 


13129 


BV 


C AL LER-48 




12106 


46 


12154 


01400 


RE 


E X I TCD 




12118 


46 


12662 


01200 


C 


SYM,LINKCT*6 




12130 


24 


09979 


13137 


BE 


L 1NKCD 




12142 


46 


12718 


01200 


TDM 


CALLS*. 1 




12154 


15 


10009 


0000 1 


BTM 


PUT » 138. 8, CALL 




12166 


17 


09050 


0-136 


CM 


CHI .40, 10 




12178 


14 


15119 


OOOMO 


BH 


• ♦24 




12190 


46 


12214 


01100 


BTM 


ERROR, 279, 9, 


INCORRECT CALL NAME OR LIST 


12202 


17 


09150 


00X79 


CM 


CHI, 69, 10 




12214 


14 


15139 


00009 


BH 


CALLER 




12226 


46 


12202 


01100 


SF 


OUTSW 




12238 


32 


07034 


00000 


BTM 


CS0RN,«*12 




12250 


17 


05704 


J2262 


BNR 


CALLB,CH|»2 




12262 


45 


12338 


15141 


BD 


CALLA.INSW 




12274 


43 


12318 


02611 


BTM 


PUT, 0153,8, 


FUNCTION OPERATOR CALL 


12286 


17 


09050 


0-153 


TDM 


SMCNT,,6 




12298 


15 


0726J 


00000 


DC 


l.«.» 




12309 




1 




B 


BEGIN 




12310 


49 


02626 


00000 


DORG 


• -3 




12318 








BNR 


ERR09.SMCNT, 11 




12316 


45 


07970 


0726J 


B 


BEGIN 




12330 


49 


02626 


00000 


DORG 


• 




12336 








BO 


•♦24.FNTSW 




12336 


43 


12362 


10000 


BTM 


ERROR ,2 79,9, 


SYM PREVIOUSLY USED NOT AS CALL NAME 


12350 


17 


09150 


0OK79 


BNF 


•♦20.FNTSW 




12362 


44 


12182 


10000 


B 


•-24,,, 


TRYING TO CALL SINGLE STATMNT FUNCT 


12374 


49 


12150 


00000 


DORG 


• -3 




12382 








TDM 


FNTSW.O 




12382 


15 


10000 


00000 






341 












1620-1443 MONITOR I 


VERSION 2 FORTRAN II-O PHASE 1-8 








PAGE 



29120 
29 130 
29140 
29 150 
29160 
29170 
29180 
29190 
29200 
29210 
29220 
29230 
29?4Q 
29250 
29260 
29270 
29280 
29290 
29300 
29310 
29320 
29330 
29340 
29350 
29360 
29 370 
29380 
29 390 
29400 
29410 
29420 
294)0 
29440 
29450 
29460 
29470 
29480 
29490 
29500 
29510 
29 520 
29530 
29540 
29550 
29560 
29570 
29560 
29590 
29600 
29610 
29620 
29610 
29640 
29650 
29460 
29670 



CM 

BNE 

BTM 

AM 

CM 

BE 

CALL I TFM 
B 

DORG 
CALL 2 CM 
BNE 
BTM 
B 

DORG 

CM 

BE 

TFM 

B 

DORG 

BTM 

SM 

TR 

BZ 

BNR 

B 

DORG 

BNR 

B 

DORG 
EX1TCD BNR 
TDM 
BTM 
BTM 
R 

DORG' 
L1NKC0 CM 
BE 
BNR 
B 

DORG 
TOM 
BTM 
BTM 
BTM 
TR 
CM 
BNH 
CM 
BH 
TR 
TF 
TR 
TFM 
LKC01 CM 
BNH 
BNR 



CHI ,24, 10 
CALLER 

PUT, 124, 8, LEFT PAREN 

PARCNT,1,10 
CHI+2,4,10, 
CALLER 

ASCAN*23,CLASEN 
ASCAN, , , 

• -3 

CHI, 23, 10, 

• ♦32 

PUT, 123, 8, COMMA 

CALL I 

• -3 

CHI ,4,10 

• ♦32 

ASCAN^23,ASC1 
ASCAN,, , 

• -3 

PUT, 104,8, RIGHT PAREN 

PARCNT,l,10 

CHI-l.CHIM 

• ♦32 

CALL2,CHI*2 
CALLER 

• -3 

CALLER, CHI ^2 
BEGIN 

• -3 

CALLER-48,CHI*10 
TRIND.1,11 



TEST FOR NO FUNCTION ARGUEMENTS 



GO TO ARITHMETIC SCAN 
TEST FOR MCRE ARGUEMENTS 



GO TO SCAN ARITH EXPRESSION OPERATOR 



PUT, 0131, 8, 
PUT, 0140,8, 
BEGIN 

• -3 

CHI*8, 24,10 

• ♦32 

CALLEK-48 V CH1*8 

ERR 01 

•-3 

TRINO.I.U 
PUT, 0152. 8, 
PUT, 0140,6 
PUT, 0140,6 
CHI-l,CMl*9 
CHI, 40, 10 
CALLER 
CHI ,69, 10 
CALLER 

OUTAR,MASKLK 

OUTAR*ltCH| 

CHI-l.CHUl 

LKCD3«6tOUTAftO 

CHI, 40, 10 

LKCD4 

LKCD3,LKCD3^6,ll 



CALL EXIT SYMBOL 



OUMMV 



CALL LINK SYMBOL 



3 42 



12394 


14 


15139 


000K4 


12406 


47 


12202 


01200 


12418 


17 


09050 


0-124 


12430 


11 


02615 


000-1 


12442 


14 


1.141 


000-4 


12454 


46 


12202 


01200 


12466 


16 


10463 


J4678 


12478 


49 


10440 


00000 


12486 








12466 


14 


15139 


000K3 


12498 


47 


12510 


01200 


12510 


17 


09050 


0-123 


12522 


49 


12466 


00000 


12530 








12510 


14 


15119 


000-4 


12542 


46 


12574 


01200 


12554 


16 


10463 


J2658 


12566 


49 


10440 


00000 


12574 








12574 


17 


09050 


0-104 


12586 


12 


02615 


000- 1 


12598 


11 


15116 


15140 


12610 


46 


12642 


01200 


12622 


45 


12484 


15141 


12614 


49 


12202 


00000 


12642 








12642 


45 


12202 


15141 


12654 


49 


02626 


00000 


12662 








12662 


45 


12154 


15149 


12674 


15 


02609 


OOOOJ 


12666 


17 


09050 


O-lll 


12698 


17 


09050 


0-140 


12710 


49 


02626 


00000 


12718 








12718 


14 


15147 


000X4 


12710 


46 


12762 


01200 


12742 


45 


12154 


15147 


12754 


49 


04268 


00000 


127*2 








12762 


15 


02*09 


OOOOJ 


12774 


IT 


09050 


0-152 


1276* 


17 


09050 


0-140 


127ft 


17 


09050 


0-140 


12610 


SI 


1513* 


15146 


12822 


14 


15139 


OOOMO 


12116 


4T 


12202 


01100 


1264* 


14 


1S1S9 


00009 


12656 


4* 


12202 


01100 


12870 


31 


1313* 


13192 


12162 


2* 


13139 


15139 


12694 


SI 


15136 


15140 


12904 


14 


129*6 


J3141 


12*16 


14 


1511* 


OOOMO 


12910 


4? 


11004 


01100 


12942 


'41 


129*2 


129*0 



1620-1**! HON I TOR I VERSION 2 FORTRAN 11-0 PHASE 1-B 



PAGE 



24680 




g 


ERR01 








1295* 


*9 


0*218 


00000 


29690 




OORQ 










12962 








29700 


LKCO 3 




* CM I 








12962 


26 


00000 


151 19 


29710 




TR 


CH I - I ,CHI ♦ I 








1297* 


11 


15138 


151*0 


29 7 20 




a* 


L*l.U3*6,0<, 10 








12966 


1 1 


12968 


000-2 








LKC 1 








12998 


*9 


12918 


00000 


29740 




DORG 


• -3 








1 3006 








29 7 50 


LKCO* 


CM 


CMl tO** 10 








1 1006 


I* 


15139 


000-* 


29760 




BNE 


ERR01 








13018 


*7 


0*288 


01200 


29770 




8NR 


ERROl»CMI** 








13010 


*5 


0*288 


151*3 


29 780 




CF 


0UTAR»2 








130*2 


11 


131*0 


00000 


^» J!!2 




CF 


OUTAR+6 








1305* 


11 


111** 


00000 


29800 




CF 


0UTAR*10 








130*6 


31 


131*8 


00000 


29810 




BT 


PUT » OUT AR» 3 








13078 


27 


09050 


111*1 


29820 




BT 


put »out ar*7 








11090 


27 


09050 


111*5 


29830 




BT 


PUT »OUTARH 1 








13102 


27 


09050 


131*9 


298*0 




B 


BEGIN 








1311* 


*9 


02626 


00000 






DORG 


• - 3 








13122 








29860 


fcX 1 TCT 


OAC 


*»fc XI T 








11123 




* 


X 2 






exit 
















298 70 


1 1 NKCT 


OAC 


*,L INK 








13131 




* 


X 2 






LINK 


















29830 


OUT AR 


OSS 


I* 








11138 




1* 




29890 




OC 


*»o 








11155 




* 








-000 


















29900 


MASKLK 


OS 


#•-3 








11152 









29910 




OC 


*tO 








13159 




* 








-000 


















29920 




OC 


**o 








13163 




* 








-ooc 


















29910 




DC 


2.0» 








13165 




2 




299*0 


•** 


ENTER MERE TO OUTPUT RETURN 


STATEMENT 












29950 


RE TRN 


C 


SVM.URNCU* 








13166 


2* 


09979 


13283 


29960 




BNE 


ERK01 








13178 


*7 


0*288 


01200 


29970 




BO 


•♦**,SUBFCT 








13190 


*3 


1323* 


02293 


29980 




BTM 


ERR0R2, 577,9 








13202 


17 


09*06 


00N77 


29990 




BD 


BEGIN, NOIND 








1321* 


*3 


02626 


02610 


30000 




B 


BEG 1 NA 








13226 


*9 


02618 


00000 


10010 




OORG 


• -3 








1121* 








30020 




BTM 


PUT, 139,8, 


(RETURN 






1123* 


17 


09050 


0-139 






BTM 


PUT, 1*0,8, 


(DUMMY 






1 12*6 


17 


09050 


0-1*0 






TDM 


KTSW, 1 








I 3258 


15 


05639 


00001 






B 


BEGIN 








1 3270 


*9 


02626 


00000 






OORG 


• -3 








I 3278 








10070 


URNCT 


DAC 


3, URN 








I 3279 




3 


X 2 






URN 


















10080 




OUTPUT IF CODING 
















30090 






















30100 


IF1 


TDM 


MIND, I , 11 , 


SET TRANSFER INDICATOR 


ON 


1328* 


15 


02609 


OOOOJ 


10 1 10 




BTM 


PUT, 107,8, 


, IF SYMBOL 






13296 


17 


09050 


0-107 


30120 




BTM 


PUT, 12*, R, 


.LEFT PAREN 


SYMBOL 




11308 


17 


09050 


0-12* 


30130 




BO 


•♦20,OOTRAN, , 


TEST 


IF 00 LOOP ENOING 


MITM TRANSFER 


13320 


*3 


133*C 


09999 


101*0 




8 


• ♦20 








1 3332 


*9 


13352 


00000 


30150 




DORG 


• -3 








133*0 








10 160 




BTM 


ERR0R2.571.9 








133*0 


17 


09*06 


0ON71 





















1620-1**3 MONITOR 1 VERSION 2 FORTRAN U-C PHASE 1-B PAGE 



30 170 




TOM 


IFSW, l v . 


SET SWITCH TO INOICAT IF STATEMENT 


13352 


15 


10005 


00001 


10 I BO 




TFM 


STC,3,10 




1336* 


16 


056*3 


000-3 


10 190 




CM 


CMI ,0*, 10, 


TEST FOR VACEOUS PARENS 


13376 


1* 


15139 


000-* 


30 200 




BE 


ERR 02 




13388 


*6 


13*66 


01200 


10210 


• 


IFSS COOE 












30220 




BTM 


COLNAM, 11,10 




13*00 


17 


0*662 


OOOJl 


30 2 30 




C 


SVM,SENSMC*20 




13*12 


2* 


09979 


1*321 


302*0 




BV 


•♦2* 




13*2* 


*6 


13**6 


01*00 


30 250 




BE 


ERR02*12 




13*36 


*6 


13*80 


01200 


30 260 




TFM 


ASCAN*23,IFASEN 




13**8 


16 


10*63 


J*658 


30 270 




B 


ASCAN,, , 


GO TO SCAN EXPRESSION 


13*60 


*9 


10**0 


00000 


10280 




DORG 


• -3 




13*68 








10290 


fc HR02 


BTM 


ERROR, 72,9 




13*68 


17 


09350 


00-72 


40 300 




TR 


CMI-1,CM|*21 




13*80 


31 


15138 


15160 


10310 




BTM 


PUT, 130,6, 


SENSE SWITCH SYPBOL 


13*92 


17 


09050 


0-130 


10 320 




CM 


CMI , 70, 10 




1150* 


I* 


15139 


OOOPO 


10 330 




BM 


• ♦2* 




11516 


*6 


133*0 


01100 


10 3*0 




BTM 


ERROR, 17*, 9, 


SWITCH NUMBER IN ERROR 


13528 


17 


0935C 


0CJ7* 


10 350 




TDM 


OIMSU,l 




115*0 


15 


1000* 


00001 


10 360 




BTM 


CSTN0,«*12, 




13552 


17 


05*12 


J356* 


10 3 70 




TOM 


OIMSW.O 




1356* 


15 


1000* 


00000 


10 380 




SF 


SYM-3 




13576 


32 


09976 


00000 


10 390 




BT 


PUT.SYM,, 


PUT OUT SWITCH NUMBER 


11588 


27 


09050 


09979 


30*00 




CM 


CHI,*, 10, 


LOOK FOR RIGHT PAREN 


11600 


I* 


15139 


000-* 


30*10 




BNE 


ERR02 




11612 


*7 


13*68 


01200 


30*20 




SM 


PARCNT, 1,10 




1362* 


12 


02615 


000- 1 


30*30 




BTM 


PUT, 10*, 8, 


RIGHT PAREN SYMBOL 


13616 


17 


09050 


0-10* 


10**0 




TFM 


STC,2,10, 


SET UP TO OUTPUT TWO STATEMENT NUMBERS 


136*8 


16 


056*3 


000-2 


10*50 


OUTSN 


TR 


CHI-l,CMl»l 




13660 


11 


15136 


151*0 


10*60 




SF 


(JUTS* 




13672 


32 


0703* 


00000 


30*70 




CM 


CHI ,69, 10 




1368* 


I* 


15119 


00009 


10*80 




BM 


• ♦2* 




13696 


*6 


11720 


01100 


!0*90 




BTM 


ERROR, 175,9, 


INCORRECT STATEMENT NUMBER 


13708 


I? 


09150 


00J75 


10500 




BTM 


CSTN0,»*12, , 


COLLECT ANO OUTPUT STATEMENT NUMBER 


13720 


17 


05*12 


J3712 


30510 




BO 


•♦20, INSM 




11732 


*3 


11752 


02611 


30520 




B 


• ♦32 




117** 


69 


11776 


00000 


30530 




OORG 


• -3 




11752 








305*0 




AM 


SMAOO,*,10 




11752 


11 


07208 


000-* 


30550 




60 


OUTSNE- 12, SMADO 


til 


1376* 


*3 


11812 


07200 


30560 




BO 


0UTSN2,CGT0,, 


BRANCH IF IN COMMUTED GO TO 


13T76 


41 


13906 


10006 


10570 




SM 


STC, 1,10 




137SB 


12 


056*1 


000-1 


30580 




BH 


0UTSNE*20 




1 1800 


** 


1186* 


01100 


10 590 




6NR 


• *32,CHU2 




13812 


*3 


136** 


151*1 


10600 




8 


BEGIN 




1362* 


69 


0262* 


00000 


30610 




OORG 


• -3 




13632 








30620 




BTM 


ERROR, 77, 9 




11812 


17 


09150 


00-77 


30610 


OUTSNE 


BTM 


ERR0R2, 573,9, 


INCORRECT NUMBER OF STATEMENT NUMBERS 


138** 


IT 


0940* 


00N71 


306*0 




6 


BEGIN 




1363* 


*9 


02*2* 


00000 


30650 




OORG 


• -3 




1366* 








30660 




CM 


CM| ,23, 10 




1386* 


1* 


15119 


00OK3 


30670 




BNE 


0UTSN**6 




13B7* 


*7 


11706 


01200 


30660 




BNR 


OUTSNtCM!** 




13886 


65 


11**0 


151*1 


30690 




6 


OUTSN**S 




11900 


♦9 


13706 


ooooo 


30700 




OORG 


• -3 




13908 








30710 


0UTSN2 


CM 


Chi ,*,10 


3U 


13906 


1* 


13139 


000-* 


J.7 720 




BNE 


0UTSNE*20 


11920 


67 


11 B«* 


01200 
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PACE 


10730 




SH 


PARCNT i 1,10 




139)2 


12 


02615 


000- 1 


10 740 




TR 


CHI- 1 ,CM|*l 




13944 


31 


15138 


15140 


JO 750 




BTM 


PUT , 104 ( 8 




13954 


IT 


09050 


0-104 


10760 




BNR 


•♦?4.CH|»2 




13968 


65 


1)992 


15141 


30770 


Out sn 3 


BTM 


ERROR, 176, 9 ( 


INDEX OF CCMP. GO TO MISSING OR INVAlO 


139B0 


17 


09)50 


00J76 


107110 




CM 


CH| ,23, 10 




13992 


14 


15139 


OOOK) 


10790 




HNE 


•-24 




14004 


47 


1)980 


01200 


10800 




TR 


CH|-1,CH|*1 




14016 


31 


15136 


15140 


10810 




CM 


CHI ,49, 10, 


TEST FOR FIXEO POINT VAR 


14028 


14 


191)9 


000M9 


10820 




81 


0UTSN3 




14040 


4? 


1)960 


01300 


10830 




CM 


CHI ,55,10 




14092 


16 


191)9 


000N5 


10840 




BH 


OUT SN3 




14064 


64 


1)960 


ouoo 


10850 




BTM 


CS0RN,»»12 




14076 


IT 


05704 


J4088 


30860 




BD 


0UTSN3.SMCNT, 11 


I 


140B8 


43 


1)960 


0726J 


10870 




BT 


PUT,SMA00-1 




14100 


27 


09050 


07207 


10880 




B 


OUTSNE-32 




16112 


49 


1)812 


00000 


10890 




OORG 


•-3 




14120 








10900 




ENTER HERE TO OUTPUT GO TO STATEMENT • •• 










10910 


GOTOEN 


BNE 


ERR01 




14120 


47 


04288 


01200 


10920 




TOM 


T R I NO ,1,11, 


SET TRANS INOICATOR 


141)2 


15 


02609 


OOOOJ 


10930 




BO 


•♦20.00TRAN 




14144 


43 


14164 


09999 


10940 




B 


• ♦20 




14156 


49 


14176 


00000 


10950 




OORG 


• -3 




14164 








10960 




BTM 


ERR0R2, 571,9 




14164 


17 


09406 


00N71 


»0970 




TR 


CH|-1,CH|*1 




14176 


31 


151)8 


15140 


10980 




CM 


CHI, 24, 10, 


TEST FOR COMPUTEO GO TO 


14188 


14 


15139 


OOOK* 


10990 




BE 


COMPUT 




14200 


46 


14244 


01200 


11000 




TFM 


STC 1,10 




14212 


16 


05643 


000-1 


11010 




BTM 


PUT, 105,8, 


,G0 TO SYMBOL 


14224 


17 


09050 


0-105 


31020 




B 


0UTSN*12»», 


BRANCH TO OUTPUT STATEMENT NUMBER 


142)6 


49 


13672 


00000 


31030 




OORG 


• -3 




14244 








31040 


CUMPUT 


BTM 


PUT, 106,8, 


•COMPUTEO GO TO SYMBOL 


14244 


17 


09050 


0-106 


11050 




BTM 


PUT, 124,8, 


(LEFT PAREN SYMBOL 


14256 


17 


09050 


0-124 


31060 




AM 


PARCNT, 1,10 




14248 


11 


02615 


000-1 


31 070 




TOM 


CGTO, 1 




14280 


15 


10006 


00001 


11080 




B 


OUTSN,,, 


BRANCH TO OUTPUT STATEMENT NUMBERS 


14292 


49 


13660 


00000 


31090 




DORG 


• -1 




14)00 








11 100 


SfcNSwC 


OAC 


U.SENSESWITCH 




16301 




U 


X 2 






SENSES*! TCH 












11 1 10 




□ORG 


16000 




16000 








31 120 




TFM 


IORT,»»23 




16000 


16 


00565 


J6023 


11 1 30 




B 


I0PT,BLK6,7 




16012 


49 


00532 


-9737 


31 140 




TRA 






16024 


36 


00000 


00500 












16036 


49 


00000 


00000 


11 150 




tcd 


16000 




16000 








31 160 




OORG 


FLIP2 




031)0 








11 1 70 


0FL02 


OAS 


82, , , 


HEADER INFORMATION 


03131 




82 


X 2 


31 ISO 


PRNT* 


DS 


,0FL02-1 




03130 









31190 




OAC 


09, PAGE l*,ti 


, PAGE CONSTANT 


03295 




9 


X 2 






PAGE 


I • 












11200 


• • OK I NT OVERFLOW PAGE HEADING AND RETURN 










31210 




DC 


5, 12345 




03316 




5 








J2 34 5 












31220 


OFLO 


BO 


ONE.PGNUM-2 


3 ',5 


03318 


43 


03350 


02220 


11230 




BO 


TWO,PGNUM-l 


03330 


43 


03)62 


02221 
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31240 




B7 


NONUM 








03)42 


49 


03374 




31250 


ONF 


TDM 


PRNT4*174,7, , 




ZERO SUPPRESS STUFF 




03)50 


15 


03304 


00007 


31260 


TWO 


TOM 


PRNT4*176,7, , 








0)362 


15 


03306 


00007 


31270 


NUNUM 


TO 


PRNT4*179,PGNUM, 




i PAGE NUMBER 




0337* 


25 


03)09 


02222 


31280 




TO 


PRNT4*177,PGNUM- 


I 






03)86 


25 


03307 


02221 


31290 




TO 


PRNT4+175,PGNUM- 


2 






0)398 


25 


03305 


02220 


11300 




34 


.0971,, 




SKIP TO I IPPEOIATE 




03410 


34 


00000 


00971 


11310 




34 


(0962,, 




DOUBLE SPACE AFTER PRINT 


0)422 


3* 


00000 


00962 


31320 




TFM 


I0RT,**23,, 




T010RT-PRINT PAGE HE AO 




0)4)4 


16 


00565 


-3457 


11 330 




B 


I0PT,0FL01-4,7« 








0)446 


49 


00532 


-)477 


31340 




AM 


PGNUM, 01,10. 




ADD 1 TO PAGE NUMBER 




0)458 


11 


02222 


000-1 


31350 


0FL03 


B7 


OFLO-1,,6, 




RETURN INDIRECT 




03470 


49 


0))1P 




11360 


OFLOl 


OS A 


0FL02 








03481 




5 


X 1 
















03481 




-3131 




31 370 




DC 


3,18* ,, 




PAGE OVERFLOW OE FINER 




0)484 




3 




11380 


•• ERROR MESSAGE KOUTINE 
















31390 


ERl 


TF 


ERME S !♦ 14 » ERROR - 


1< 


, ,LOAO THE ERROR NUMBER 




0)486 


26 


0)781 


09)49 


31400 




BO 


L ISTULIST,, 


TOTAL LISTING 




0)498 


43 


0)662 


02228 


31410 




TO 


ESNOl *6,ESN0 ,, 




NO LISTING-PRINT COMPLETE MESSAGE 


0)510 


25 


0)749 


02724 


31420 




TO 


ESNOl *4,ESN0-1 








0)522 


25 


0)747 


0272) 


31430 




TO 


ESN01«2tESNO-2 








03534 


25 


0)745 


02722 


31440 




TO 


ESNOl *ESN0-3 








03346 


25 


0)743 


02721 


31450 




TO 


ESN0PU2,ESN0PL- 


3 






03558 


25 


0)757 


02597 


31460 




TD 


ESN0P1*4,ESN0PL- 


2 






03570 


25 


0)759 


02598 


31470 




TO 


6SN0PU6.ESN0PL- 


1 






03582 


25 


0)761 


02599 


31480 




TD 


ESN0P1»8,ESN0PL 








03596 


25 


0)763 


02600 


31490 




TFM 


I0RT,»*2) 








03404 


16 


00565 


-3629 


31500 




B 


mPT,N0LIST-4,7 








03418 


49 


00532 


-3725 


11510 


CHAN 12 


BNI 


EREXT.3400., 




TEST PRINTER CHAN12 




03430 


47 


0)694 


0)400 


31520 




TFM 


OFLO-l ,EREXTf, 




SET UP ERROR EXIT AFTER 


OFLOU INDICATION 


03442 


14 


0)317 


-3694 


315)0 




B7 


OFLO 








03454 


49 


03318 




31540 


L1ST1 


TFM 


I0RT,«*2)t *t 




PRINT ERROR IF LISTING 




03442 


14 


00345 


-3685 


31550 




B 


IOPT.ERR-4,7 








03476 


49 


00532 


-3733 


31560 




B7 


CHAN12 








03484 


49 


0)430 




31570 


EREXT 


TFM 


BLK9A*5,FL0P1,, 




MOOIFY OOA 




03484 


14 


02510 


J7207 


31580 




TFM 


RETR *6,E94620t» 




MOOIFY RETURN AOORESS 




03704 


14 


02494 


-9394 


31590 




B7 


FLOP,,, 




RESTORE PARTIAL 




03718 


49 


02444 




11600 


NOLI ST 


OSA 


ESNOl 








03729 




5 


X 1 
















03729 




-374) 




31610 




DC 


3,18',,, 




DEFINER PRINT LONG ERROR 


XXXX4XXXX ERRORXX 


03732 




3 




31620 


ERR 


J8« 
OSA 


ERMES1 








03737 




5 


1 1 
















03717 




-3747 




31630 




DC 


3,18',,, 




OEFINER PRINT SHORT ERROR XX 


03740 




3 




31640 


ESNOl 


JB» 
OAC 


4,0000 








03T43 




4 


X 2 






0000 


















31450 




OAC 


2, ♦ 








03751 




2 


X 2 


31640 


ESN0P1 


♦ 

OAC 


5, 0000 








03753 




5 


X 2 






0000 
















11470 




osc 

AA 


2,00 






3 40 


03744 




2 





00 
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11680 


ERME SI 


DAC 


9, ERROR 00* 




01767 




9 


X 2 






ERRLR 00* 












11690 


cddflo 


TFN 


6LK9A*S,FL0P1 , , 


MODIFY OOA 


03784 


16 


02510 


J7207 


11700 




TP 


RE TR ♦6,PRrCM|-l 


», MODIFY RETURN ADORESS-CMI PRINT 


03796 


26 


02496 


02525 


11 710 




TPM 


OPLO-l .FLOP,, 


SET BRANCH TO RESTORE PARTIAL 


03808 


16 


01317 


-2466 


11720 




B7 


OPLO 




01820 


49 


01318 




11710 


ROUTINE 


TO SCAN AND PRINT 


CHI FOR P/T OR TYPE INPUT 










117*0 


SCN 1 


TPM 


SCN2* 1 1 »CHl-2, • 


INITIALS START OF SCAN 


03828 


16 


01861 


J5137 


11750 




AM 


SCN2*ll ,2, 10. 


UP THE CURRENT LOCATION 


01840 


U 


03861 


000-2 


11 760 


SCN2 


BNR 


SCNl* 12,»-« » » 


IS THIS AN RM 


01852 


45 


01840 


00000 


11 770 




TFM 


SCN3MI .CMU220, 


, INITIALIZE END OP FIRST PRINT OUT 


01864 


16 


03899 


J5359 


11 7R0 




TFM 


PRNT2 tCMl t * 


INITIALIZE OEFINER 


03876 


16 


04094 


J5139 


11790 


SCN3 


CM 


SCN2* 1 1 »•-•» t 


IS THIS THE ENO 


01888 


14 


01861 


-0000 


11 800 




BH 


SCN4 




01900 


46 


01956 


01 100 


11810 






PRNT1 »»*12» * 


YES 


01912 


IT 


04042 


-3924 


11820 




TFM 


BL*9A«5,FL0P1 , f 


MOOIFV ODA FOR RETURN 


01926 


16 


02510 


J7207 


11810 




TPM 


HE TR ♦6tLNGPRT ( » 


MOOIFV RETURN ADDRESS 


01916 


16 


02496 


-2798 


11840 




B7 


PLOP • » i 


RESTORE PARTIAL AND RETURN 


01948 


49 


02466 




11850 




TP 


SAVE , SCN3* 11.11, 


NO-SAVE THE CHARACTER 


01956 


26 


04016 


0189R 


11860 




TPM 


SCN1* 11 ,1*1,61 


SET RM AT END 


01968 


16 


0189R 


07916 


11 870 




DC 


2. OS* 




03979 




2 




118*0 




8TM 


PRNTl ,•♦12. » 


PRINT THIS INCREMENT 


03980 


17 


04042 


-3992 


11 890 




TP 


SCN1* 1 1 . SAVE .6. 


RESTORE CHARACTER 


03992 


26 


0189R 


04036 


11900 




TP 


PRNT2.SCNl*ll,, 


MOVE PRINT OEFINER HIGHER 


04004 


26 


04094 


03899 


11910 




AM 


SCNl*ll,220,9 t 


UP THE POINTER 


04016 


1 1 


01899 


00K20 


11920 




87 


SCN1 




04028 


49 


03888 




11910 


SAVE 


DC 


2.99 




04036 




2 




11 940 




R9 

DC 


5.99999 




04041 




5 








R9999 












11 950 


our 
NT I 


TPM 


IURT.**23». 


PRINT THE INPUT STATEMENT 


04042 


16 


00565 


-4065 


11 960 




8 


10PT.PRNT2-4.7 




04054 


49 


00512 


-4090 


31 970 




BN 1 


PRNTl-1,3400,6, 


TEST PRINT CHAN 12 BRANC BACK INDIRECT 


04066 


67 


0404J 


03400 


U 980 




BTM 


0PL0.PRNTl-l.71l 


, -GO TO OVERFLOW WITH RETURN AODRESS 


04078 


17 


01318 


-404 J 


11 990 


PRNT2 


DSA 


CM| 




04094 




5 


X 1 












04094 




J5139 




12 000 




DC 


1. 18* , , 


PRINT P/T OR TYPE INPUT 


04097 




3 




12010 


INI TAL 


J8» 
TPM 


8LK9A«5,PL0P1 . . . 


MODIFY OOA 


04098 


16 


02510 


J7207 


12020 




TPM 


RE TR ♦6.PRSCN1.. 


SET RETURN ADDRESS 


04110 


16 


02496 


J0544 


12010 




BTM 


OPLO, PLOP,, , 


GO TO OVERFLOW WITH CALL PARTIAL 


04122 


17 


03316 


-2466 


12040 




DORC 


16000 




16000 








12050 




TPM 


IQRT.**21 




16000 


16 


00565 


J6023 


12060 




B 


IOPT.BLK9.7 




16012 


49 


00512 


-2497 


12070 




r^A 






16024 


36 


00000 


00500 












16016 


49 


00000 


00000 


12 080 




TCO 


16000 




16000 








17090 




DEND 






00000 
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AULITl 


08622 


E84710 


128*6 


NOLIST 


03729 


ASCER 


14026 


CSPVA 


03614 


AOSAVE 


0848* 


F84R04 


11028 


NONARA 


10224 


AVOIO 


06012 


CS 


05848 


AOSURP 


08462 


f 86440 


02410 


NONAK I 


04144 


81 


11927 


CSTNO 


05412 


AIJVAR 1 


0821b 


E94270 


09094 


VQPARP 


14700 


B2 


11919 


CTION 


11715 


A0VAR2 


08266 


E94620 


09194 


NUMBER 


061 16 


B A 


02718 


01 


11951 


AUVLOP 


06186 


ENSION 


11565 


0UTS12 


11262 


BEGIN 


02626 


02 


11963 


ADXLI T 


08670 


ENTLOG 


02248 


OUTSCl 


10512 


BLK1A 


09610 


Dl 


11975 


ASC*7A 


14150 


EOLOOP 


12216 


OUTSCE 


04801 


BLK1 


09622 


04 


11987 


ASC2R1 


14422 


EOUIVN 


10716 


0UTSN2 


13908 


BLK2A 


09653 


DEFCT 


14407 


ASCAN1 


12058 


FRMPSl 


01767 


0UTSN3 


11980 


BLK2 


09645 


DIMl 


10596 


BEG1NA 


02618 


ERROR 2 


09406 


OUTSNE 


11844 


BLK1A 


09676 


0IM2 


11464 


BIGPRT 


02210 


ESNOPl 


01755 


PARCNT 


02615 


BLK 3 


09668 


DIM3 


11552 


C50ATA 


09801 


ESNOPL 


02600 


PAUSEN 


13790 


BLX4A 


09499 


OIMFN 


10512 


CALLPN 


12058 


FXCESS 


06716 


PHBDAT 


16000 


RLK4 


09691 


DIMNO 


10677 


CALLFR 


12202 


F XI TCO 


12662 


PH8D0A 


16008 


BLK5A 


09722 


DIM 


10248 


CALLP2 


0240G 


EXITCT 


11121 


PRCGST 


02257 


BLK5 


09714 


OIMSW 


10004 


CALLS* 


10009 


FCTENO 


02318 


PRSCAN 


10512 


BLK6A 


09745 


OIMTP 


11185 


COUATA 


0979b 


FCTEST 


08946 


PRSCN1 


10544 


BLK6 


09717 


OKA 


13708 


CDOFLO 


03784 


FLNUM8 


06428 


PRTCHI 


02526 


BLK7A 


09768 


DKB1 


13968 


CHAN12 


03610 


FMTCST 


09929 


PUSTSN 


02294 


BLK7 


09760 


DKB 


13788 


CKCNTU 


04842 


FNTSMl 


10001 


PUTOUT 


09144 


BLK8 


02461 


DKC 


14000 


CKCTAR 


04098 


FNTSW2 


07405 


RETURN 


10368 


8LK9A 


02505 


DKD1 


14246 


CLASEN 


14678 


F0MAT1 


12230 


RTCALL 


13242 


BLK9 


02497 


DKD 


14108 


CLDGTl 


14514 


F0RM51 


13482 


Al 


11923 


BLOC 


02608 


DKER 


13752 


CL0GT2 


14594 


F0RN99 


12370 


A2 


11915 


CI 


11911 


ORE 


14116 


COLNAM 


04662 


FORMAT 


10392 


AOL IT 


08550 


C2 


11941 


OKF 


14196 


CQMADO 


02262 


FORMER 


12758 


AOSTN 


08774 


CALC 


11176 


OKG 


14544 


C0HLR2 


09462 


FREOSW 


14218 


ADVAR 


08090 


CALL 1 


12466 


0KI01 


11244 


C0MER1 


12148 


FUNCTA 


13658 


AERRl 


09450 


CALL2 


12486 


OK 102 


11112 


COMINA 


11924 


FXNUMB 


06124 


AERR 


12214 


CALL A 


12118 


OKIO 


10488 


COMMEN 


11576 


FXORFL 


06419 


APTBL 


15015 


CALLS 


12118 


OKL 


11664 


COMMON 


102 72 


GENOIM 


11072 


ALFAT 


10976 


CALL 


10144 


DKPUT 


11524 


CQMPUT 


14244 


GO TOE N 


14120 


ASCII 


14606 


CARD 


15016 


OKSNl 


14104 


CONTEN 


13724 


UTVPE 


14225 


ASCI 2 


11874 


CCNO 


02601 


0KSW2 


14106 


CSTNOi 


05516 


IFASEN 


14658 


ASC14 


14626 


CGTO 


10006 


DMVAR 


08090 


DECODA 


04018 


IF SCAN 


12274 


ASC15 


11790 


CHI5 


19819 


OOA 


12518 


DECODE 


03794 


INI TAL 


04098 


ASC1A 


12094 


CHI 


15119 


008 


12670 


DEFCHI 


02593 


IMTOPl 


02385 


ASCI 


12656 


CKCN1 


04928 


00C1 


12446 


DEFINE 


13990 


IOLOOP 


14099 


ASC21 


11282 


CKCN2 


09056 


OOCK 


12190 


DIMERR 


07466 


IOUTEN 


11172 


ASC22 


12218 


CRCN1 


05292 


DOC 


12294 


DIM NOT 


10545 


IOUTER 


13264 


ASC23 


12418 


CKCN4 


05152 


DOEE 


11110 


DISKS* 


02383 


I VALEN 


11109 


ASC24 


12942 


CKEND 


02612 


DOE 


12924 


DKIOFN 


13172 


LEAOBL 


0S098 


ASC25 


12986 


" CKRM 


02918 


000 


10416 


OKL 1ST 


13404 


LENGTH 


02248 


ASC26 


11426 


CLOCT 


14476 


00 


12190 


OKLUOP 


14167 


LINKCO 


12711 


ASC27 


14082 


CMPAR 


06*04 


EBASE 


12299 


DDL OOP 


12058 


LINKCT 


Hill 


ASC26 


14118 


C0MA8 


11812 


ENOCT 


09915 


OOTfcST 


11171 


LITCRL 


07686 


ASC29 


14198 


COMA 


11744 


ENO 


09474 


UOTRAN 


09999 


LNGPRT 


02798 


ASC10 


14242 


COMC 


12024 


E01 


10860 


E37061 


07898 


LUSTNO 


08710 


ASCII 


14478 


COWER 


09462 


EQ21 


11076 


E83210 


10956 


MASKLK 


11152 


ASCI 


12550 


COME 


119*8 


E022 


12204 


E84130 


11940 


MODAFT 


09808 


ASC4 


12414 


COM IN 


11874 


EQ21 


11444 


E84180 


11984 


MONCAL 


00796 


ASC6 


12526 


CONN 


120*8 


E024 


11112 


1:84240 


12056 


MOVOIM 


11116 


ASC7 


12598 


CONST 


021*2 


f 04 


11700 


E 84110 


12160 


MOVE IT 


11224 


ASC8 


11754 


COHSM 


10010 


107 


1179* 


E84560 


12472 


NUtOEF 


02184 


ASC9 


14586 


CONT 


11772 


E08R 


11988 


FS4695 


1261* 


NN6KA& 


10512 


ASCAN 


10440 


CSORN 


09704 


EOR 


10766 





1620- 1441 


MONI TOR 


1 VERSION 2 


FORTRAN I 


1-0 PHASE 1-i 






PACE 


65 


EUUSW 


1 0006 


IFl 


1 3284 


LKCO) 


12962 


ptype 


12854 


SwSE T 


14662 


ERl 


0)466 


IF 


10296 


LKC04 


11006 


PUT 


09050 


SVM 


09979 


EREXT 


03694 


IFSM 


10005 


LSTAO 


02)08 


REA01 


02876 


T6CM 


04504 


FUMES 


09901 


IN01 


11519 


LSTEN 


07025 


RECLG 


0224) 


TBCNT 


02429 


ERROl 


04288 


IND2 


11538 


LUXIT 


07522 


REF 


09001 


T6ST 


04656 


ERR02 


134 68 


INOIV 


02424 


MASK 


1 1989 


RETRN 


1 3144 


TEMPS 


02625 


ERR09 


07970 


INOUT 


11640 


MODAO 


07865 


RETR 


02490 


TEMP 


02620 


ERR44 


14420 


f NSW 


02611 


MODE 


06417 


ROUTN 


1 )645 


TENO 


02)0) 


ERH60 


14420 


INTOP 


09235 


MON 


12161 


RTSM 


056)9 


TEN! 


09991 


ERRET 


00602 


104 


1)760 


MV1 


1 1604 


SALT 


05906 


TINUE 


1)761 


FRROR 


09350 


101 


119)2 


MV2 


1 1692 


Save i 


11551 


TONY 


1 1508 


ERR 


03737 


IOCAL 


00716 


MV) 


11740 


SAVE2 


12667 


TPCST 


1)6)9 


ERSW 


05640 


too 


14040 


Nl 


02213 


SAVE) 


1 17T9 


TRINO 


02609 


esnoi 


03743 


ICE 


14200 


N2 


02218 


SAVE 


04016 


TWO 


0)162 


E SNf) 


02724 


I0F 


14280 


N01NO 


02610 


SCI 


10664 


URNCT 


1)279 


E TYPE 


13022 


IOG 


14464 


NONUM 


01)74 


SC22 


10620 


VAR6R 


06512 


EXIT 


09228 


1 OCT 


00566 


NUN61 


06266 


SC2 


06104 


VARSM 


07511 


FCMA 


1 36 IB 


ICIER 


13824 


NUMB2 


06572 


SO 


10926 


WIOCK 


14)00 


FCTST 


07946 


IOPT 


00532 


NUMB 3 


064T6 


SC4 


10764 


WIDTH 


14289 


FLlPl 


I 7340 


IORHC 


00520 


NUMB 5 


06)04 


SC5 


10824 


W 


02240 


FL IP2 


031 30 


1 OR T 


00565 


NUMB 


06196 


SC9 


1 1164 


WW 


02296 


FLIP 


02454 


IOSK 


005*4 


NXLOC 


02)72 


SCHI 


06015 


X 


011)8 


FUST 


14706 


IOSW 


100 1 1 


0FL01 


0)461 


SCN1 


0)626 


ZER1) 


09995 


Ft NO 


02250 


i nun 


13556 


0FL02 


0)1)1 


SCN2 


0)852 


SAVSVM 


0224) 


FIOP1 


1 72 7 


10UT2 


13308 


0FL03 


0)470 


SCN) 


0)666 


SENSWC 


14)01 


FLCP 


02466 


I0UT3 


13)88 


OFLO 


03318 


SCN4 


0)956 


SET0M2 


106)6 


F MQN 


02324 


I0UT4 


1 3576 


OMM 


10007 


SO 


10768 


SETOM) 


11016 


FMSM 


10002 


inuT5 


1 3448 


ONE 


03350 


SETOM 


10660 


SE T0M4 


11276 


FNISW 


10000 


I0UT 


10200 


ORDCT 


1467) 


SLASH 


126*2 


SET0M5 


11)84 


FOMAT 


12166 


I 


11955 


OUTAR 


1)1)8 


SMAOO 


07206 


SETFRQ 


14216 


FORM1 


12556 


JAY 


02)67 


OUTSC 


10464 


SMCNT 


07261 


SETINO 


06290 


FORM? 


1289H 


JOE 


07170 


OUTSN 


1)660 


SNLNG 


059)1 


SINGST 


09996 


FORM) 


13070 


J 


1 1967 


OUTSM 


070)4 


SMTLU 


06954 


SMLOOP 


070)4 


FORM 4, 


13946 


RING 


02252 


P2PTR 


02)1) 


SPERR 


09244 


STNOSW 


1000) 


FORMS 


1343H 


K 


1 1979 


PA1 


109)4 


SPGS 


09)26 


STOPEN 


1)958 


FORM? 


1 3686 


LI 


04228 


PA2 


10782 


STAFT 


04419 


SUBFCT 


0229) 


FOKM9 


1 3818 


L2 


04)00 


PAUS 


13846 


STBL 


02)77 


SUBPUT 


1)260 


FORM 


J510 


L4 


11796 


PCNT 


14093 


STC 


0564) 


SUBTST 


08)14 


FORMX 


I 3978 


L5 


1 1832 


PCNUM 


02222 


STNER 


01410 


TBLFUL 


07150 


FP 2 


02298 


L6 


1 1876 


PI 


I 1038 


STSN 


05641 


TPARCT 


14698 


F TYPE 


12978 


LDPHB 


16024 


PLUS 


06832 


SUBPl 


1)244 


UROATA 


•^9787 


FXLI T 


08026 


LEAOZ 


03366 


PLUSS 


099)1 


SUSP 2 


1)448 


USEOFS 




GOTO 


1032U 


LIST1 


03662 


PRNT1 


04042 


SU6PA 


11124 


XCLOGT 


146. a 


HEKF 


1269<i 


LIST 


02228 


PRNT2 


04094 


SU6PF 


11208 


2ERSYM 


06953 


HULL 1 


14106 


LITF 


07734 


PRNT4 


03130 


SUBSM 


10012 






HOLL 


14046 


LKC01 


12918 


PR 


12581 


SUBTR 


08450 







END OF ONE ASSEMBLY. 
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1620-1443 MONITOR 1 VERSION 2 FORTRAN II-O PHASE 1-C 



00010 




1620 FORTRAN II-D 


00020 




OORG 


02218 


00030 




DC 


5 ,-100 






-010- 




00040 


PGNUM 


OC 


3,1 






-01 




00050 




OC 


1 t2 


00060 




K 

DC 


2 ,67 






07 




0007U 




DC 


6 ,967698 






RR7H'48 


00080 


Nl 


OC 


2 ,0 






-0 




00090 


Hd 


OC 


5 ,0 






-0000 


00100 


W 


OC 


2 ,0 






-0 




00 1 10 


AfcCLG 


DC 


3 ,000 






-00 




00120 


SAVSYM 


OS 


12 , RECLG 


00130 


LENGTH 


OS 


5 


00140 


FLNG 


DS 


2 


00150 


KING 


OS 


2 


00160 


PROGST 


OC 


5 ,00000 






-0000 


00170 


CUMAOO 


DS 


5 


00180 


USEOFS 


DSC 


30 ,0 






OOOOOOOOOOOOOOOOOOOOOl 


00190 


SURFCT 


DC 


1 tO 


00200 


PUSTSN 


OS 


I 


00210 


••• PUSTSN » 2 FOR PAPER T 


00220 


PUSTSN * 4 FOR, CARDS 


00230 


WW 


OS 


2 


00240 


FP2 


OS 


2 


00250 


TENO 


OS 


5 


00260 


LbTAO 


OS 


5 


00270 


P2P TR 


OS 


5 


00280 


FCTENO 


OS 


5 


00290 




OS 


5 


00)00 


FMON 


TF 


•♦42 , FMON- 1 , , 


00)10 




TFM 


I0RT,»*2) 


00 320 




B 


I0GT,,7 


00)30 




B 


• t * 


00)40 




OORG 


• -4 


00)50 


JAY 


OS 


1 


00)60 


NXLOC 


DS 


5 


00)70 


STBL 


OS 


5 


00)80 


COMST 


OS 


5 


00)90 


OISKSW 


DC 


1,0 


00400 


MULOEF 


OC 


1*0 


00410 


INT0P1 


DSC 














PHASE 1-C 



STORAGE ALLOCATION 



SETUP ROUTINE ENTRY 



GO TO EXECUTE CALLEO ROUTINE 



02218 
02222 

02222 

02223 

02225 

02231 

022)3 

02238 

02240 

02243 

02243 
02248 
02250 
02252 
02257 

02262 
02263 

0229) 

02294 



02296 

02298 

02)0) 

02)08 

02)1) 

02)18 

02)2) 

02)24 26 

02)36 16 

02)48 49 

02)60 49 

023*7 

023*7 

02372 

02)77 

02362 

02313 

02364 

02365 



5 

3 

1 

2 

6 

2 

5 

2 

) 

12 
5 
2 
2 
5 

5 
30 

I 

1 



2 
2 
5 
5 
5 
5 
5 

0236* 0232) 
005*5 -2359 



009** 

00000 

1 
5 
5 
5 

1 



-0000 
00000 



3 5 II 



1620-144) MONITOR I VERSION 2 FORTRAN I 1-0 PHASE l-C PACE 



00420 




DC 


5,00600 




02390 




5 








-0600 












00410 




OC 


3,001 




02393 




3 




00440 




-01 
OSA 


CARD 




02198 




5 


X 1 












02398 




-3434 




00450 




OC 


1,' 




02399 




I 




00460 


CALLP2 


TFM 


FM0N»J5, BLK8 




02400 


16 


02359 


-2461 


00470 




BTM 


FM0N.CALLP2 




02412 


17 


02324 


-2400 


00 4 HO 


INDI V 


OS 


1 




02424 




1 




00490 


• 


INOIV * FOR CAROS, I FOR TYPEWRITER, 










oosoo 


■ 




FLAGGED 3 


FOR PAPER TAPE 










00510 


TBCNT 


OS 


5 




02429 




5 




00520 


ENTLOG 


DS 


,USE0FS^4 


02267 




o 




005 30 


AF TBI 


OS 


, IS015 




1 5035 




o 




00540 


CH| 


OAS 


410, 151 39 




15139 




410 


X 2 


00550 


CH| 5 


OS 


• CHIWOO 




15139 




o 




00560 


IOCAL 


OS 


,716 




00716 




o 




00570 


lur.r 


OS 


,566 




00546 








005*0 


IURBC 


OS 


• 520 




00520 




c 




00590 


I up r 


OS 


,S12 




00532 




o 




00600 


lliSK 


OS 


• 554 




005S4 








00610 


t HP E T 


OS 


,602 




00602 









00620 


IURT 


OS 


• 565 




00565 









00610 


MUNCAL 


OS 


, 796 




00796 









00640 


L I * ? 


OS 


.2228 




02228 









00650 


HBOAO 


OS 


,17140,,, 


DISK ADDRESS OF PAGE HE AC 1 NG 










00660 


BlOMAO 


DS 


, 1243J, , , 


CORE STORAGE OF PAGE HEADING 


124 30 









00670 


EB6440 


SF 


KU4 




02430 


32 


11239 


00000 


00680 




BT 


OUTAOD.PAOGST, , 


INIT OUTPUT ROUTINE 


02442 


27 


10614 


02257 


00690 




B 


AROUND 




02454 


49 


02484 


00000 


00 700 




OORG 


• -4 




2? } 








00 710 




DSC 
22 


2,22 




0244 1 




2 




JO 720 




OS A 


BLKRA 




02467 






X 1 












02467 




-2469 




00710 




OC 


1, ' 




02468 








00740 


BLK8A 


OSC 



1,0 




02469 




1 




00 750 




DC 


5, 17800 




02474 




5 








J78C0 












00760 




DC 


3, 1 16 




02477 




1 








J16 














00770 




DS A 


CALLP2 




02482 




5 


X 1 












02482 




-240C 




00780 




OC 


I . • 




02483 




I 




00790 


•» INirULlZE I'M INTER PACE 


HEADING 










J0800 


AKPUNO 


BNF 


•♦32, LIST,, 


INITIAL RE AO ANO PRINT HEADING 


02484 


44 


02516 


02228 


00*110 




TFM 


OFLOI-lt«*20,, 


IF CONSOLE SWITCH I IS ON 


02496 


16 


11841 


-2516 


00820 




H7 


OFLO 1 




02508 


49 


11842 












35! 
















1620-1443 MCM TCR I VERSIOS 2 FORTRAN I l-C PHASE l-C 










OOfl 10 




TOM 


SY**l.,»-» 








BC 


nnnnn 


00840 




OC 


1,',» 




02527 




* 




:.o«5.) 




SF 


SYM#l,,, 


FLAGGED TERMINAL RM TO INOICATE CARD END 




12 




uUUUU 






S* 


P»OGST,01, 10 






*f 






00*70 




TF 


L3C,PR(jr,ST 






26 




02257 


O0 880 




TO 


PTRA*2,PUSTSN 






f ? 






00890 




AM 


PTRA«2,06, 10 








12268 




00900 




TFM 


SMADO,0, 






I i 


03539 


12 22 


009 1 




S 


SMAOO.STBL 




02600 


22 


03539 


02 377 


00 920 




AM 


SMAOO,*, 10 




02612 


1 1 


03539 


000-5 


00 910 




TF 


SMCNT.STBL 






26 


03544 


02377 


00 94 




SM 


SMCNT.6, 10 




~f 




03544 


000—6 


00950 




TF 


MODAD,STftl 




02648 


26 


03549 


02377 


00960 




SM 


MODA0.4, 10 




02660 


12 


03549 


000-4 


00970 


k 86601 


SM 


SMCNT,10,10 




02672 


12 


03544 


000 JO 


00980 




SM 


MOOAD.10,10 




02684 


12 


03549 


OOOJO 


30990 




AM 


SMA00,I0,10 




02696 


1 1 


03539 


OOOJO 


1 000 




BNR 


• ♦20,SMCNT,U, 


TEST FOR END OF TABLE 


02708 


45 


02 728 


0354M 


01010 




H 


F87210 




02720 


49 


03832 


00000 


01020 




OORC 


•-1 




02728 








oi oin 




BNF 


E86601,SMCNT,U 


, TEST FOR LITERAL 


02728 


44 


02672 


0354M 


01 040 




BNF 


STMTN0,M00A0,U 


, TEST FOR STMNT NO 


02740 


44 


03636 


0354R 


01 050 




CF 


SMCNT,,6 










00000 


01 060 




CF 


MOO AO, ,6 




zr 


w 




00000 


01 070 




TF 


SYM,SMAOO,ll 






26 


03579 


0353R 


01 080 




CF 


SMAOO 




ft 9 7ft ft 






00000 


01 090 




BO 


686801-48, MOOAD 


,11, BRANCH IF FIXED 


n?ann 






2««*^ 


01 1 00 




SM 


SMAOO, 2, 610 




09M1 3 


12 




000—2 


CI 1 10 




TF 


•♦23. SMAOO, 11 












01 120 




TF 


SYM-2 




02836 


26 




AAAAn 

uuuuu 


01 I 10 




A 


L0C.FP2 




02848 


2i 




02298 


01 140 




TF 


SMAOO, IOC, 6 






24 




03586 


01 150 




TF 


E8680l«ll,FP2 




02872 


fa 






CI 160 




B 


E86801-12 




02884 






nnnnn 
uuuuu 


01 170 




OORG 


• -3 




02892 








01 180 




A 


LOCKING 






21 


03586 


02252 


1,1 190 




TF 


SMAOO, LUC, 6 




02904 


26 


0353R 


03586 


01200 




TF 


E8680Ull,KLNG 




02916 


26 


02951 


02252 


01210 




TFM 


E86820«6,SYM«l 




02928 


16 


03006 


-3580 


01220 


E 6680 I 


SM 


E86820+6,,, 


FP2 OR KING 


02940 


12 


03006 


-0000 


01 230 




B 


• ♦60 




02952 


49 


03012 


00000 


01 240 




RCTV 






02944 


34 


00000 


00102 


01250 


ABASE 


OS 


,••5 




02970 






01260 




WNTV 


LOC-4 




02976 


38 




,wOO 


01270 




SPTV 






029»» 






00101 


01280 


MOLN 


OS 


,•-5 













01290 


EB6820 


WNTY 








38 


oocoo 


CO 100 


01300 




AN 


SMAOO, 5,10 




03012 




03539 


000-5 


OHIO 




TON 


SMADD,,6 




05024 


15 


0353R 


00000 


01320 




OC 






03035 




I 




01330 




$N 


SMAOO, 5 ,10 




03036 


12 


03539 


000-5 


01 340 




SF 


SMAOO 




03041 


32 


03539 


00000 


01350 




TF 


QUTL1V«21,£*682044 


03040 


2* 


03253 


03004 



01340 •• PIUNT SVKSOl T*tU*f lft$? PART 



1620-144) HON I TOR I VERSION 2 FORTRAN 1 1-0 PHASE 1-C 



PACE 



01 370 




BNF 


□UTLI T-12, LIST,, TOTAL LISTING 


03072 


44 


0)220 


02228 


01 )80 




TR 


CAR0,CAR0-8L, V , IN|T FOR PRINTING 


0)084 


31 


0)454 


03)7) 


01 390 




TF 


CARD*4,L0C 


0)096 


26 


0)458 


0)586 


01400 




CF 


SYM*1 


0)108 


33 


0)580 


00000 


01410 




TR 


C ARD»6, E 86820*6 , 1 1 


0)120 


11 


0)460 


0)000 


01420 




SF 


SVM*l 


0)132 


32 


0)580 


00000 


01430 




CF 


CARO 


0)144 


3) 


0)494 


00000 


01 440 




CF 


CARD* 6 


0)156 


)) 


0)460 


00000 


01450 




TFM 


10RT,»*23 


0)168 


16 


00565 


-3191 


01460 




B 


IOPT.PRNT-4,7 


0)180 


49 


005)2 


-3211 


01470 




TFM 


0Fl0l-l,0UTLIT-l2,,SET RETURN FRO" PACE OVERFLOW TEST 


0)192 


16 


11841 


-)220 


01 480 




87 


OFLO,,, TEST PAGE OVERFLOW 


0)204 


49 


1 1 898 




01490 


PR NT 


OS A 


CARO 


0)215 




5 


X 1 










0)215 




-)454 




01500 




OC 


3,14' 


0)218 




) 








J4 • 












01510 




BO 


LL1 tPUSTSN 


0)220 


4) 


0)262 


02294 


01520 


OUTL IT 


BTM 


0UTK,»*16 


0)2)2 


17 


10056 


-)248 


01530 




OS A 


E8680l*ll.E86820*6 


0)248 




5 


X 2 










0)248 




-2951 












0325) 




-3006 




01 540 




B 


E86601 


03254 


49 


02672 


00000 


01 550 




DORG 


•-3 


0)262 








01560 


LI 1 


TR 


CARD,CAR0-8l,, INII FOR PUNCHING CAROS/PAPERT APE 


0)262 


31 


0)454 


0))7) 


01570 




TF 


CARD*4, LOC 


0)274 


26 


0)458 


0)586 


1 580 




CF 




0)286 


13 


0)980 


nnnon 


01590 




TR 


CARD*6,E86820*6 V U 


0)298 


31 


0)460 


0)000 


01600 




SF 


SYM*1 


03310 


32 


0)580 


00000 


01610 




TO 






25 


03)71 




01620 




TFM 


I n« T , • ♦ 2 3 


03334 


16 


00565 


~))57 


01630 




B 


IOPT.PTCD-4,7 


03346 


49 


005)2 


-)365 


01640 




B 


OUTLIT 


03358 


49 


0)2)2 


00000 


















01660 


PICO 


OSA 


CARO 


03369 




5 


X 1 










03369 




-)454 




01670 




OC 


3,00* 


0))72 




3 




01680 




-0 • 

ONB 


50 


0)422 




50 




01690 




DNR 


30 


0)452 




3C 




01700 




OC 


It* 


0)45) 




I 




01 710 


CARD 


OSS 


81 


0)454 




81 




01 720 


SMADO 


OS 


5 


0)5)9 




5 




01 730 


SMCNT 


OS 


5 


0)544 




5 




01 740 


MOOAO 


OS 


5 


03549 




5 




01 750 


SY* 


OS 


30 


0)579 




3C 




01 760 




OS 


2 


0)581 




2 




01 770 


IOC 


OS 


5 


0)586 




5 




01 780 




OC 


It 1 


0)587 




1 




01790 


rfc*p 


OS 


5 


0)592 




5 




01800 


TEMP2 


OS 




0)597 




5 




01810 


TfcMP3 


OS 


* 353 


0)602 




5 
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01820 


TEMP5 


DS 


5 




3607 




5 




01830 


SAVE1 


OS 


5 




03612 




5 




01840 


SAVE2 


DS 


5 




03617 




5 




01850 


SAVE3 


DS 


5 




03622 




5 




01860 


AOSAVE 


DS 


5 




03627 




5 




01870 


EBASE 


DS 


5 




03632 




5 




oiaao 


MODE 


DC 


2.0 




03634 




2 




01890 


STMTNO 


-0 
TF 


SYM.SMAOD.ll 




03636 


26 


03579 


0353R 


01900 




CF 


SMADO. t 




0)648 


33 


03539 


00000 


01910 




TFM 


SMADO, ,6 




0)660 


16 


0353R 


ooooo 


01920 




DC 


5,0000' 




0)671 




5 








-OCC 














01930 




TF 


•♦35.SMA0D 




0)672 


26 


03707 


03539 


01940 




AM 


•♦23,5, 10 




03684 


11 


03707 


000-5 


01950 


STMNTl 


BO 


STMNT2.0, 




03696 


43 


03780 


OOOOO 


01960 




CF 


SYM-3 




0)708 


33 


03576 


OOOOO 


01970 




TFM 


10RT,»*2) 




03720 


16 


00565 


-3743 


01980 




B 


IOPT, SYMl-4,7 




03732 


49 


00532 


-3824 


01 990 




SF 


SYM-3 




03744 


32 


03576 


OOOOO 


02000 




TDM 


JAY, 4 




03756 


15 


02367 


00004 


02010 




BTM 


ERR0R2*579 t 9 




03768 


17 


11246 


00N79 


02020 


STMNT2 


TF 


STMNTl*ll,SVK»l,6t 


TABLE STMNT NO. AND REC MARK 


0)780 


26 


0370P 


03580 


02030 




SF 


STMNTl*ll,,6, 


SET FLAG OVER R/M FOR PASS 2 


03792 


32 


0370P 


OOOOO 


02040 




SF 


SMADD 




3804 


32 


03539 


OOOOO 


02050 




B 


E86601 




03816 


49 


02672 


OOOOO 


02060 




DORG 


• -3 




03824 








02070 


SVM1 


OSA 


SYM-) 




03828 




5 


X I 












03828 




-3576 




02080 




DC 


3,14* 




03831 




3 




02090 


E87210 


J4« 
TFM 


SYM*2,.lO, 




03832 


16 


03581 


000-0 


02 100 




OC 
t 


!.•»• 




03843 




1 




02110 




TF 


TENO, MOOAO 




03844 


26 


02303 


03549 


02120 




BO 


E92210.SUBFCT,, 


TEST IF IN SUBPROGRAM COMPILATION 


03856 


43 


07972 


02293 


02130 




TF 


TBASE tFCTENO 




03868 


26 


07791 


02318 


02140 




B 


BUFOUM,,, 


GO TO OUTPUT BUFFER 


038B0 


49 


0985* 


OOOOO 


02150 




DORG 


• -4 




03887 








02160 




TF 


SMAOO, TBASE 




03B88 


24 


03339 


07791 


02170 




AM 


SMADO, 1. 10 




03900 


11 


03939 


000-1 


02180 


£87270 


TF 


SMCNT, TBASE 




03912 


2* 


039*4 


07791 


02190 




AM 


SMCNT.5.10 




03926 


11 


03944 


000-5 


02200 




TF 


MOD AO, TBASE 




03936 


2* 


03949 


07791 


02210 




AM 


MOOAO, 2t 10 




03948 


11 


03949 


000-2 


02220 




B 


E87310*)6 




039*0 


*9 


04004 


20000 


02230 




DORG 


•-) 




03968 








02240 


E87)10 


SM 


SMADD,10,10 




039*8 


12 


03539 


OOOJO 


02250 




SM 


MOOAO tl Ot 10 




03980 


12 


039*9 


000 JO 


02260 




SM 


SMCNT,10,10 




03992 


12 


019*4 


OOOJO 


02270 




TF 


SVM.ZERD-l 




0600* 


2* 


03979 


12291 


02210 




C 


SMADO.TENO,, 


TEST FOB END Of TABLE 


0401* 


2* 


03939 


02303 


02290 




BE 


E93010 




0602B 


** 


08774 


01200 


02300 




BNR 


E 87420, SMCNT.U, 


TEST FOR CONST OR VARIABLE ASSIGNED 


0*0*0 


49 


0*172 


0354N 


02)10 




S* 


SMADO, 01, 10 




0*092 


12 


03939 


000-1 



35 4 
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02320 




BNR 


•♦32, SMAOD, 1 1 




0*06* 


45 


04096 


0353R 


02330 




AN 


SMAOO, I, 10 




04076 


11 


03539 


000-1 


02 340 




B 


E87310 




0*088 


49 


03968 


00000 


02 350 




OORG 


• -3 




0*096 








02 360 




AM 


SMAOO, I, 10 




0*096 


U 


03539 


000-1 


02370 




BO 


•♦20,MO0AD, lit 




04108 


*) 


04128 


0354R 


02380 




8 


E87310 




04120 


49 


03968 


00000 


02 390 




DORG 


• -3 




04128 








02*00 




SM 


SMAOO, 10, 10 




04 128 


12 


03539 


OOOJO 


02*10 




SM 


SMCNT, 10, 10 




04140 


12 


0)544 


OOOJO 


02*20 




SM 


MOOAOf 10* 10 




04152 


12 


01549 


OOOJO 


02*30 




B 


£87310 




04 164 


49 


03968 


00000 


02**0 




OORC 


•-3 




04172 








02*50 


fc87420 


BNR 


•*2 0,MODAD, U f 


TEST OF FUNCT OR SUB CALL NAME 


04172 


*) 


04192 


0354R 


02*60 




B 


E87310. 




04184 


49 


03968 


00000 


02*70 




OORG 


• -3 




04 192 








02*80 




BNF 


E89S20, MOOAO, 11 , 


BRANCH IF NCT IN COMMON 


04192 


4* 


0608C 


0354R 


02*90 




80 


E87670, MOOAO, 11 , 


•RANCH IF COMMON VAR IS ARRAY 


04204 


43 


04404 


0354R 


02 500 




BNF 


E89660, SMADO, 11, 


•RANCH IF COMMON VAR WAS EQUlV 


04216 


44 


05976 


0353R 


02510 




CF 


SMAOO, ,6, 




04228 


3 3 


0353R 


00000 


02520 




TF 


WDLN, KL NG 




04240 


26 


02994 


C2252 


02 530 




BO 


• ♦2*, SMAOO, 1 1 




04252 


43 


04276 


0353R 


025*0 




TF 


WDLN.FP2 




04264 


26 


02994 


02298 


02 550 


1:87*90 


SM 


MOOAO, 2 » 10 




04276 


12 


0) 549 


000-2 


02 560 




TF 


•♦2),M0DAD,ll 




04288 


26 


04311 


0354R 


02570 




TF 


SYM 




04300 


26 


03579 


00000 


02 580 




AM 


•-1,5,10 




04312 


11 


04311 


000-5 


02 590 




TF 


MOOAO, •-13,611 




04324 


26 


0354R 


0431J 


02600 




\f 


TEMP, •-25,11 




04336 


26 


03592 


04 3 1 J 


02610 




AM 


MOOAO, 2, 10 




04348 


11 


03549 


000-2 


02620 




TDM 


SMCNT, ,6 




04360 


15 


0354M 


00000 


02630 




DC 


1 , ' , • 




04371 




I 




026*0 




8TM 


PGPRT,0*12» , 


TYPE AND OR PUNCH 


04 372 


1 7 


113 36 


-4 384 


02650 




OC 


1,0 




04384 




I 




02 660 




OS A 


TEMP-* 




04389 




5 


X 1 












04389 




-3588 




02670 




OSA 


SVM-1 I 




0439* 




5 


x i 












0*39* 




-3568 




02680 




8 


E 897*0 




0*396 


49 


06020 


00000 


02690 




OORG 


• -3 




0**0* 








02 700 


687670 


BNF 


688*20, SMAOO, 11, 


BRANCH IF COMMON ARRAY MAS EQUIV 


0**0* 


4* 


0*760 


0353R 


02710 




CF 


SMAOO, ,6 




0**16 


33 


0353R 


00000 


02720 




TO 


MODE, MOOAO, 11, 


SAVE NUMBER CF DIM INOICIES 


0**28 


25 


0363* 


0354R 


02730 




CF 


MOOE 




0**40 


33 


03634 


00000 


027*0 




SM 


MOOAO, 2, 10 




04452 


12 


03549 


000-2 


02750 




TF 


AOSAVE, MOOAO, 11, 




04464 


26 


03627 


0354R 


02760 




TF 


SYM,A0SAVE,ll, 


MOVE VAR NAME TO SYM 


04476 


26 


03579 


0362P 


02770 




SM 


SMCNT, 10, 10 




04488 


12 


03 544 


OOOJO 


02780 




TF 


TEMP, SMCNT, 11, 


SAVE COMMON ADDRESS 


04500 


26 


03592 


0354M 


02790 




TF 


MOOAO, SMCNT, 611, 


SET ENTRY IC COMMON 


04512 


26 


0354R 


0354M 


02800 




AM 


MODE ,1,10, 


SAVE DIMENSION IN01CES 


04524 


11 


03634 


000-1 


02810 




MM 


MODE,*, 10 




0*536 


13 


0363* 


000-5 



3 5 5 
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02820 




A 


ADSAVk,?* 






04548 


21 


03627 


00099 


02830 




TF 


SMCNT.AOSAVE ,611 , 


PICK UP NO CF ELEMENTS 




04560 


26 


0354M 


0362P 


028*0 




BD 


•♦32, SMAOO, 11 






04572 


43 


0460* 


0353R 


02850 




TF 


W0LN,FP2 






04584 


26 


0299* 


02298 


02860 




B 


♦ ♦20 






0*596 


49 


0*616 


00000 


02870 




OORG 


• -3 






0*604 








02 880 




TF 


WDl N , KLNG 






0*60* 


26 


0299* 


C2252 


02890 




M 


SMCNT,W0LN,6 






04616 


23 


0)5*M 


0299* 


02900 




SF 


95 






0*628 


32 


00095 


00000 


02910 




S 


99,W0LN,, 


CALC TOTAL ARRAY VOLUME 




0*640 


22 


00099 


02994 


02920 




TF 


TEMP2.99 






04652 


26 


03597 


00099 


02930 




A 


TEMP2 , TEMP , , 


TEMP2 CONTAINS LAST ELEMENT OF 


ARRAY 


0*664 


21 


03597 


03592 


029*0 




SM 


MOOAO, 8, 10 






04676 


12 


035*9 


000-8 


02950 




AM 


SMADO, 4, 10 






04688 


U 


03539 


000-4 


02 960 




TOM 


SMAOO, ,6 






04700 


15 


0353R 


00000 


02 970 




DC 


i.',« 






04711 




1 




02980 




SM 


SMADD.14,10 






04712 


12 


03539 


OOOJ* 


02 990 




BTM 


PGPRT,»*12 






0472* 


17 


11336 


-4736 


03000 




DC 


1,1 






0*736 




1 




03010 




J 

DS A 


TEMP-4 






04741 




5 


X I 














04741 




-3588 




03020 




DSA 


SYM- 1 I 






0*746 




5 


X I 














04746 




-3568 




03030 




DS A 


TEMP2-4 






04751 




5 


x 1 














04751 




-3593 




03040 




B 


E89740 






04752 


49 


06020 


00000 


03050 




UORG 


• -3 






04760 








03060 




ENTER FOR COMMON ARRAYS WHICH WERE EQUIVALENCED 












03070 


£6*420 


CM 


SMCNT,0,69 






04760 


14 


0354M 


00-00 


0)080 




BNE 


E 90620,,, 


BRANCH IF NOT BASE 




04772 


47 


06516 


01200 


03090 




SF 


689660*1 






0*78* 


32 


05977 


00000 


03100 




B 


687670*2* 






04796 


49 


04428 


00000 


03110 




OORG 


d-3 






04804 








03120 


E88470 


TF 


E8ASE, SMADO, , 


ENTER HERE AFTER ASSIGNING BmSE 


VARIABLE 


04804 


26 


03632 


035)9 


03130 




CF 


E87670 






0481A 


33 


04404 


00000 


03140 




BNF 


•♦**,E69460 






04828 


44 


04872 


05976 


03150 




CF 


E89660 






06840 


33 


09*74 


00000 


03160 




SM 


E8ASE.10.10 






04*92 


12 


0i632 


OOOJO 


03170 




B 


• ♦20 






0*86* 


49 


04864 


00000 


03180 




OORG 


• -3 






0*872 








03190 




SM 


E8ASI, 1,10 






04872 


12 


03632 


000-1 


0)200 




SF 


EBAS6 






0486* 


32 


03432 


00000 


03210 




A 


EBASEtSTftL 






04894 


21 


0)432 


02)77 


0)220 




SF 


EBASE-3,,, 


GEN TAftlE NUMBER 




04908 


32 


01429 


00000 


0)230 




IF 


SAVE I $ SMAOO 






04920 


24 


03412 


0391* 


03240 




TF 


$ AV€ 2, SMCNT 






049)2 


24 


0)41? 


0)944 


03290 




TF 


SAVfi3,f»OOA0 






0494* 


2* 


0)422 


0)94* 


03260 




BNF 


• **,G,E 8**60*1 






04954 


44 


09014 


09*77 


03270 




CF 


M9440U 






04948 


33 


09*77 


00000 


0)280 




S*f 


lAvf l*10»13 






04980 


i2 


09412 


OOOJO 


0)240 




SM 


S«¥S2,16 t 16 


35« 




04992 


12 


01417 


OOOJO 
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S 



0*100 




SM 


SAVE1, 10,10 




0500* 


12 


03*22 


OOOJO 


03310 


E8P5*0 


SM 


SMCNT, 10. 10 




05016 


12 


035** 


OOOJO 


01120 




SM 


SMADD, 10, 10 




05028 


12 


01539 


OOOJO 


OHIO 




SM 


MOOAD.IO, 10 




050*0 


12 


035*9 


OOOJO 


03140 




C 


SMADD, TEND 




05052 


2* 


03539 


02303 


01150 




BE 


E 89610 




0506* 


*6 


05908 


01200 


01160 




BNR 


•♦20,N00AD, ll v 


BRANCH IF NOT SUBR OR FUNCT NAME 


05076 


*5 


05096 


035*R 


01170 




B 


E885*0 




05088 


♦ 9 


05016 


00000 


01180 




OORG 


• - 1 




05096 








01190 




BNR 


E88660, SMCNT, 11, 


BRANCH IF NO STORAGE ALLOCATION DONE 


05096 


*5 


05192 


035*M 


01*00 




BNF 


E 88600, SMC NT , 1 1 , 


BRANCH IF NOT STATEMENT NUMBER 


0510B 


** 


05128 


035*M 


01*10 




B 


E885*0 




05120 


*9 


05016 


00000 


03*20 




OORG 


• -* 




05127 








01*10 


E««6C0 


BO 


•♦20,MO0AD,ll 




05128 


*3 


051*1 


0354R 


01**0 




B 


E 885*0 




051*0 


49 


05016 


00000 


01*50 




OORG 


•-3 




051*8 








0U60 




SH 


SMADD t 1 i 10 




051*8 


12 


01539 


OOOJO 


01*70 




SM 


SMC NT, 10,10 




05160 


12 


035** 


OOOJO 


01*00 




SH 


MODAD ,10,10 




05172 


12 


035*9 


OOOJO 


03*90 




6 


E885*0 




0518* 


*9 


05016 


00000 


01500 




OORG 


• -3 




05192 








01510 


E88660 


BNF 


•♦20,SMAOD,ll, 


SEARCH FOR EQUIV. VARIABLE 


05192 


** 


05212 


0353R 


03520 




B 


E 88600 




0520* 


*9 


05128 


00000 


01510 




UORG 


• -3 




05212 








015*0 




c 


ERASE- 1 , SMCNT , 1 1 , 


IS EOUIV VAR EQUIV TO PRESENT BASE 


05212 


2* 


03631 


035*M 


01 550 




BNE 


E 88600 




0522* 


*7 


05128 


01200 


01560 


E88710 


SM 


SMAOO, 1 , 10 




05236 


12 


03539 


000-1 


01 570 




TF 


AOSAVE, SMADD, 11 , 


SAVE SYMBOL AOORESS 


052*8 


26 


03627 


0353R 


01580 




TF 


SYM.ZER13-1 




05260 


26 


03579 


12251 


01590 




TF 


SVM, ADSAVE ,11, 


MOVE SVM NAPE TO SYM 


05272 


26 


03579 


0362P 


01600 




BO 


E 88900* MOOAD, 1 1 , 


TEST IF VAR MAS 01MENSICNEU 


0528* 


*3 


05*68 


035*R 


03610 




AM 


ADSAVE ,5,10, 




05296 


U 


03627 


000-5 


03620 




CM 


AOSAVE , 0,67 , 


TEST FOR ZERC OFF SET 


05308 


1* 


0362P 


-0000 


03630 




BNE 


• »32 




05120 


*7 


05352 


01200 


036*0 




TF 


TEMP 3 , TEMP 




05112 


26 


03602 


03592 


03650 




B 


• ♦56, 




051** 


*9 


05*00 


00000 


03 660 




OORG 


• - 3 




05352 








03670 




M 


ADSAVt- , W0LN.6, 




05352 


23 


0362P 


0299* 


03680 




SF 


95 




0536* 


32 


00095 


00000 


1690 




A 


99, TEMP 




05376 


21 


00099 


03592 


03700 




TF 


TEMP3,99 




05388 


26 


01602 


00099 


03 710 




TF 


SMADD, TEMP 3 , 6, 


MOVE OBJ TIME ACORESS TO TABLE 


05*00 


26 


0353R 


03602 


03720 




AM 


SMADD, L ,10 




05*12 


11 


03539 


000- 1 


03730 




TOM 


SMCNT, ,6, 




05*2* 


15 


015*P 


coooo 


03 7*0 




DC 


I , * t • 




05*15 




1 




03 750 




BTM 


PGPRT,»M2 




05*36 


1 7 


11336 


-5**8 


03 760 




DC 


I »0 




05**8 




1 




037/0 




OS A 


TEMP3-*,SVM-U 




05*51 




5 


X 2 












05*51 




-1598 














05*58 




-3568 




03780 




b 


E89600 




05*60 


*9 


05888 


00000 


03790 




OORG 


• - 1 




05*68 








03R00 


fcbP9C0 


SM 


SMCNT, 10, 10, 


ENTER FROM E88710 


05*68 


12 


035** 


OOOJO 



35 7 



1620-1**3 MONITOR I VERSION 2 FORTRAN II 



PHASE l-C 



03810 




CM 


SMCNT, 0,67, 


TEST FOR ZfcRC OFF SET 


05*80 


1* 


0354M 


-0000 


03820 




BNE 


• ♦32 




05*92 


*7 


05524 


01200 


03830 




TF 


99, TEMP 




0550* 


26 


00099 


03592 


038*0 




B 


• ♦** 




05516 


*9 


05560 


00000 


0385O 




OORG 


•-3 




0552* 








04860 




M 


SMCNT , toDLN, 6 




0552* 


23 


0354M 


0299* 


03870 




SF 


95 




05536 


32 


00095 


00000 


03880 


TLMP* 


OS 


, • 




055*7 









03890 




A 


99, TEMP, , 


GEN ADD OF FIRST ELEMENT OF ARRAY 


055*8 


21 


00099 


03592 


03900 




TF 


TEMP3.99, , 


AND MOVE TC TEMPI 


05560 


26 


01602 


00099 


03910 




TD 


MODE, MODAD, 11, 




05572 


25 


0363* 


035*R 


03920 




CF 


MODE 




0558* 


33 


0363* 


00000 


03930 


E89010 


TF 


TEMP5.TEMP3, , 


TEMP5 CONTAINS BASE ADDRESS 


05596 


26 


03607 


03602 


039*0 




AM 


MODE, I, 10 




05608 


11 


0361* 


000-1 


03950 




MM 


MODE, 5, 10 




05620 


13 


01634 


000-5 


03960 




A 


ADSAVE, 99 




05632 


21 


01627 


00099 


03970 




TF 


SMCNT, ADSAVE, 611 




056** 


26 


0354M 


0362P 


03980 




M 


SMCNT, WDLN.6 




05656 


23 


0154M 


0299* 


03990 




SF 


9b 




05668 


32 


00095 


00000 


0*000 




S 


99, MDLN 




05680 


22 


00099 


0299* 


0*010 




A 


TEMP5,99, , 


TEMP5 CONTAINS ADDRESS OF LAST ELEMENT 


05692 


21 


03607 


00099 


0*020 




BNF 


•♦*8,TELSW, , 


BRANCH IF IN COMMON 


0570* 


** 


05752 


073*0 


0*010 




C 


L0CTEMP5 




05716 


24 


03586 


03607 


0*0*0 




BH 


• ♦2* 




05728 


46 


05752 


01100 


0*050 




TF 


L0CTEMP5 




057*0 


26 


03586 


03*07 


0*060 




C 


TEMP5, CONST 




05752 


2* 


03*07 


02382 


0*070 




BNH 


• ♦36 




0576* 


*7 


05100 


01100 


0*080 




TDM 


JAY,* 




05776 


15 


02367 


00004 


0*090 




BTM 


ERR0R2, 575,9, 


COMMON VAR. OVERLAPS MEMORY 


05788 


17 


1124* 


00N75 


0*100 




TF 


SMADD, TEMP3.6 




05800 


26 


0353R 


03602 


0*110 




AM 


SMADD, 5, 10 




05812 


11 


03539 


000-5 


0*120 




TDM 


SMADD,, 6 




05S2* 


15 


0353R 


00000 


0*130 




DC 






05835 




1 




0*1*0 




SM 


SMADD, 1*. 10 




05836 


12 


03539 


000J4 


0*150 




SM 


MODAD, 10, 10 




05848 


12 


03549 


OOOJO 


0*160 




BTM 


PGPRT,»*12 




05860 


17 


1133* 


-5S72 


0*170 




DC 
J 


1,1 




05872 




1 




0*180 




OSA 


T6MP3-* 




05877 




5 


X 1 












05877 




-3598 




0*190 




OS A 


SYM-li 




05882 




5 


X 1 












05882 




-39*1 




0*200 




OSA 


TEMP5-* 




05887 




9 


X 1 












05887 




-3*03 




0*210 


E89600 


BNF 


E88540.EQRET 




05888 


44 


0901* 


07912 


04220 




B 


E9201O 




09900 


49 


07992 


00000 


04230 




OORG 


•-3 




05908 








04240 


E89610 


TF 


SMAOO, SAVE 1,, 


RESTORE AOORESS ANO CONTINUE SCAN TO 


09908 


26 


03939 


03612 


04250 




TF 


SMCNT.SAVE2, , 


OUTPUT VAR STORAGE 


09920 


2* 


03944 


03*17 


04260 




TF 


MODAD, SAVE3, , 




09912 


2* 


09949 


03*22 


04270 




BNF 


E871l0O6,TELSW,, 




09944 


44 


0400* 


07340 


04210 




CF 


TElSM 


35$ 


0999* 


33 


07340 


00000 









1620-1**3 MONITOR I 


VERSION 2 FORTRAN I 1 -D PHASE l~C 








PAGE 


0*290 




6 


E87110M6 




05941 


49 


04004 


00000 


0*100 




OORG 


• - i 




05976 




0154M 


00-00 


0* HO I 


tB9660 


CM 


SMCNT, 0,69, 


ENTER FROM E67470 WHEN SIMPLE VAR MAS 


05976 


14 


0*120 




BNF 


E 90620, , , 


IN COMMON ANO EQUI VALENCEO 


05986 


47 


06516 


01200 


0*330 




SF 


E 89660 


06000 


12 


05976 


00000 


0*3*0 




B 


E87*90- 36 




06012 


4* 


04240 


00000 


0* 350 




OORG 


• -3 




06020 








0* 160 


EtJ97*0 


BNF 


•♦20.OUTCE , , 


FLAG SET AT 91210 MHEN EOUIV VAR MAS 


06020 


44 


06040 


07 196 


0*370 




8 


E91250, , , 


FOUND BEFORE COMMON IN TABLE 


06012 


49 


07228 


00000 


0*380 




OORG 


• -3 




06060 








0*390 




BNF 


•♦20.ER9660* 1 




06040 


44 


06060 


05977 


0**00 




B 


E88*70 




06052 


49 


04B04 


00000 


0**10 




OORG 


• - ) 




06060 








0**20 




BNF 


E 87 310.E89660 




06060 


44 


01966 


05976 


0**30 




a 


E88*70 




06072 


49 


04604 


00000 


0***0 




OORG 


1 




06080 








0**50 




ENTER FROM 87*50 TO OUTPUT VARIABLES NOT IN COMMON 








0153R 


0**60 


1:89820 


BSF 


E9062Q. SMAOO, 1 1 , 


BRANCH IF VARIABLE MAS E0U1VALENCE0 


06080 


44 


06516 


0**TO 




CF 


SMAOO. .6. 




06092 


31 


0151R 


00000 


04*80 




TF 


WOLN,KLNG 




06104 


26 


02994 


02252 


0**90 




BO 


•♦24. SMAOO, 1 1 




06116 


41 


06140 


0353R 


0*500 




TF 


W0LN,FP2 




06128 


26 


02994 


02298 


0*510 




A 


LOC.WOLN 




06140 


21 


01566 


02994 


0* 520 




TF 


TFMP.LOC 






26 


01592 


03586 


0*530 




SM 


SMAOO • 1 » 10 




06164 


12 


01519 


000- 1 


0*5*0 




TF 


•♦23. SMAOO. 1 1 . 




06176 


26 


06199 


0151R 


0*550 


E 899 1C 


TF 


SYM, . , 


MOVE StM NAME 




26 


01579 


00000 


0*560 




TF 


SMA00.L0C.6. 


MOVE OBJ TIME AOORESS TC TABLE 


06200 


26 


0151R 


01566 


u*570 




BO 


E90010.MOOAO.il i 


MRANCH IF VARIABLE IS AN ARRAY 


06212 








0*580 




AM 


SMAOO. 1 .10 




06224 


11 


01539 


000-1 


0*590 




TDM 


SMCNT.,6 




06216 


15 


0154M 


ooooo 


0*600 




oc 


1 . • . • 




06247 








0*610 




HTM 


PC.PRT , • ♦ 12 




06248 


17 


11 136 


-6260 


(•*620 




IK 


1*0 




06260 




1 




0*630 






r f HP-4 




06265 




5 


X 1 












06265 




-3588 




0*6*0 




CSA 


SY*- I I 




06270 




5 


X I 












06270 




-3568 




0*650 




8 


F90580 




06272 


*9 


06* 'It 


coooo 


0*660 










06280 








0* 670 


t9OO10 




SMAOO, b, 10, 


PUINT 10 NC OF ELEMENTS 


06280 


12 


03539 


000-5 


0*680 




TO 


mooe .xnoAo, i i . 


SAVE DIMENSION INOICES 


06292 


25 


0363* 


0154R 


0*690 






^ U w C , U I , 1 U 




06304 


11 


0363* 


OOO-l 


0* 700 




MM 


MOUf ,0b, 10 








0363* 


000- 5 


0* 710 




A 


E 899<0» 11.49 




06328 


21 


06199 


00099 


0* 720 






(Mtnn ctaointi i it i 

irSUIJ ,r Bif >U» I 1 , O I I 




06340 


26 


0353R 


0619R 


0* 7 30 






SMAUU , wOLN , 6 




06352 


23 


0353R 


02994 


o* 7*0 






9b 




06364 


32 


00095 


OOOOO 


o*750 




S 


99 , WDLN 




06376 


22 


00099 


02994 


0*760 




A 


LOC ,99, , 


L UL UrUAlCu >V CnlU Lr AKKIT 


06388 


21 


03566 


00099 


0*770 




TOM 


SMC N T , ,6 




06*00 


15 


035*M 


OOOOO 


0*780 




DC 


1 » ' , • 




06*11 




1 












1 \ (k 
'} ■) 
















16^0-1**3 MCMTCR I 


VERSION 2 FORTRAN II-C PHASE l-C 








PAGE 


C* 790 




SM 


SMAOO.*, 10 




06*12 


12 


03539 


000-A 






SM 


MOOAU, 10. IC 






1 2 






0*810 




SM 


SMCNT, 10, 10 




06*16 


12 


0354* 


OOOJO 


P*820 




HTM 


PC,PRT,«»12 




06*48 


17 


11336 


-6*60 






OC 
J 


1,1 




06*60 




1 




0*8*0 




OS A 


TEMP-*, 




06*65 




5 


X 1 












06*65 




-3588 




0*850 




OS A 


SVK-ll 




06*70 




5 


X 1 












06470 




-1568 




0*860 




CSA 


LOC-* 




06*75 




5 


X 1 












06*75 




-3582 




0*870 


fc90 i >80 


BNF 


•♦?0,TELSK 




06*76 


4* 


06*96 


07140 


0*880 




B 


691730 




06*88 


*9 


07616 


OOOOO 


0*890 




OORG 


•-3 




06*96 








0*900 




HNF 


E87310.E0RET 




06*96 


44 


01966 


07512 


0*910 




B 


E91810 




06508 


49 


07660 


OOOOO 


0*920 




OORG 






06516 








U*930 




fc^TEK FROM E89820 TO 


ASSIGN EQUIV VARIABLES NCT IN COMMON 










u*9*0 


l 90620 


TF 


SAVE 1 , SMAOO , . 


SAVE AOORESSES THEN SCAN TABLE TO 


06516 


26 


01612 


01519 


0*950 




TF 


SAVE2 . SMCNT , , 


FINO ALL VARIABLES EQUlVALENCED TO THIS 


06528 


26 


01617 


C1544 


0*960 




TF 


SAVE 3 ,MOOAD , , 


BASE, THE VARIABLE H|TH THE LARGEST 


065*0 


26 


01622 


03549 


0*970 




TF 


AOSAVE, SMAOO,, 


NEGATIVE OFF-SET, IF ANY, MILL THEN BE 


06552 


26 


01627 


01519 


C*980 




CM 


SMCNT, 0,69, 


AbbldNcu SIUKAut rlRST ELSE BASE VAR 


06564 


14 


0154M 


00-00 


0*990 




BNE 


E91 120,,, 


MILL BE ASSIGNFO FIRST 


06576 


47 


07088 


01200 


05000 




TF 


SAVE*, SMAOO 




06588 


26 


06659 


01519 


05010 




TF 


ERASE, SMAOO,, 


SAVE REF NUMBER 


06600 


26 


01612 


01519 


05020 




SM 


EBASE-1,1,10 




06612 


12 


01611 


000-1 


05030 




SF 


EBASE 




06624 


12 


01612 


ooooo 


050*0 




A 


ERASE, STBL 




06636 


21 


01612 


02177 


05050 




SF 


ERASE-1 




06648 


32 


01629 


OOOOO 


05060 


SAVE* 


DS 






06659 









05070 




TF M 


TEMP.O, 




06660 


16 


01592 


-0000 


05080 




BO 


690850, MQDAO, ll, 


TEST FOR DIM 


06672 


41 


06B16 


0354R 


5090 


E90750 


SM 


SMAOO, 10,10 




06684 


12 


01519 


OOOJO 


05100 




SM 


SMCNT, 10, 10 




06696 


12 


03544 


OOOJO 


05110 




SM 


MOOAO, 10,10 




06706 


12 


01549 


OOOJO 


05120 




C 


SMAOO, TEND 




06720 


24 


01519 


02301 


05130 




RE 


E9l*lO 




06732 


46 


07140 


01200 


051*0 




BNR 


•♦20,MC0AD,ll, 


SUBR OR FUNCTION NAME 


06744 


45 


06764 


0154R 


05150 




B 


E 90750 




06756 


49 


06684 


OOOOO 


05160 




OORG 


♦ -3 




06764 








05 170 




BNR 


E90900, SMCNT, 11 , 


HAS STORAGE BEEN ALLOCATED 


06764 


45 


06660 


0154M 


05180 




BNF 


♦♦20 , SMCNT ,11, 


BRANCH IF NOT STATEMENT NUMBER 


06776 


44 


06796 


0354M 


05 190 




B 


E 90750 




06766 


49 


066B4 


OOOOO 


05200 




OORG 


• -4 




06795 








05210 




BO 


• ♦20, MOOAO i 1 1 




06794 


41 


06816 


0354R 


05220 




B 


E90750 




06B0S 


49 


046B4 


OOOOO 


05210 




OORG 


• -3, 




06116 








05240 


E90850 


SM 


SMCNT, 10, 10 




06816 


12 


03544 


OOOJO 


05250 




SM 


SSAOO, 10,10 




06628 


12 


03539 


OOOJO 


05260 




SM 


xaoAoao.io 




04640 


12 


01549 


OOOJO 


05270 




ft 


€90750 


360 


06652 


49 


04684 


OOOOO 









1620-1441 MONITOR 1 


VERSION 2 FORTRAN II-C PHASE 1-C 








PAGE 


0*280 




DORG 


• -) 




04860 








05290 


E 90900 


HNF 


• ♦?0, SMADO, 1 1 , 


LOOK FOR EQUIV VARIABLE 


06B60 


44 


04880 


0353R 


05100 




8 


E90850-20 




06872 


49 


06796 


00000 


05)10 




OORG 


• - ) 




06880 








05120 




c 


SMCNT ,EBASE-l ,4, 


TEST FOR EQUIVALENCE TO BASE VARIABLE 


06880 


24 


0354M 


03431 


05110 




BNE 


E90850-20 




06892 


47 


06796 


01200 


05140 




BO 


E91050 t MOOAOt lit 


TEST FOR 01 PENS ION 


06904 


43 


07020 


0354R 


05150 




SH 


SMAOD, 1 , 10 




06916 


12 


03539 


000-1 


05)60 




TF 


ABASE • SMAOOt lit 




06928 


24 


02970 


0353R 


05170 




AM 


ABASE ,5, 10 




06940 


11 


02970 


000-5 


05 mo 




AM 


SMAOOt 1 t 10 




06952 


11 


03939 


000- I 


05190 




C 


ABASE , TEMP, 6, 


FINO NEG OFF-SET 


06964 


24 


0297- 


03592 


05400 




BNL 


E 90750 




06976 


44 


04484 


01300 


05410 




TF 


TEMP, ABASE, U, 


SAVE NEW OFF-SET 


06988 


24 


03992 


0297- 


05420 




TF 


SAVE4,SMA00tt 


SAVE TABLE AOORESS OF NEM VARIABLE 


07000 


24 


04459 


03539 


05410 




a 


E90750 




07012 


49 


04484 


00000 


05440 




OORG 


• - ) 




07020 








05450 


£91050 


SM 


SMCNT 1 10, 10 




07020 


12 


03544 


OOOJO 


05460 




c 


SMCNT, TEMP, 6, 


TEST OFF-SET 


07032 


24 


0354M 


03592 


05470 




BNL 


E 90850* 12 




7044 


44 


04828 


01300 


05480 




TF 


TEMP , SMCNT, 1 1 , 


MOVE IN NEW OFF SET 


07056 


26 


03592 


0354M 


05490 




TF 


SAVE4, SMAOD 




07068 


26 


04459 


03539 


05500 




B 


E90850+12 




07080 


49 


04828 


00000 


05510 




OORG 


• - 3 




07088 








05520 


E91 120 


TF 


AOSAVE t STBL 




07088 


26 


03427 


02377 


05510 




s 


ADSAVE-1 , SMCNT, lit 


GEN AOORESS OF BASE 


07100 


22 


03424 


0354M 


05 540 




AM 


AOSAVE ,07,10 




07112 


11 


03427 


000-7 


05550 




BNF 


E 91 320, AOSAVE ,11, 


TEST IF BASE IS IN COMMON, BRANCH NO 


07124 


44 


07294 


0362P 


05560 




TF 


MOOAO, ADSAVE 




07136 


26 


0)549 


03627 


05570 




TF 


SMAOD, AOSAVE 




07148 


26 


01519 


03627 


05 580 




SM 


SMAOO,ltlO 




07160 


12 


01539 


000-1 


05 590 




TF 


SMCNT, AOSAVE 




07172 


26 


01544 


03627 


05600 




AM 


SMCNT, 3, 10 




07184 


11 


01544 


000-3 


05610 


OUTCE 


OS 


t •♦ 1 




07196 









05 620 




SF 


OUTCE 




07196 


32 


07196 


00000 


056)0 




BO 


E 876 70+ 12t*0DAD, 11 , 


RETURN TO OUTPUT COMMON ARRAY 


07208 


43 


04416 


0)54R 


05640 




8 


E87490-48, 1 1 


RETURN TO OUTPUT SIMPLE COMMON VARIABLE 


07220 


49 


04228 


00000 


05650 




OORG 


• - ) 




07228 








05660 


E91250 


CF 


OUTCE , , , 


ENTER FROM E89750 


07228 


)) 


07196 


00000 


05670 




TF 


SMAOD, SAVEl 




07240 


26 


0)5)9 


03612 


05680 




TF 


SMCNT , SAVE2 




07252 


26 


0)544 


0)617 


05690 




TF 


M00A0,SAVE3 




07264 


26 


0)549 


03622 


05 700 




TF 


EBASE-l , SMCNT 1 1 1 » 


SET UP BASE NUMBER TO SEARCH FOR 


07276 


26 


0)6)1 


0354M 


05 7 1 




8 


EBH540+36, , , 


THE REMAINING EQUIV VARIABLES 


07288 


49 


05052 


00000 


05 720 




DORG 


• -3 




07296 








05 7)0 


E 9 1 320 


SM 


AOSAVE ,1,10, 


ENTER FROM E9U50 


07296 


12 


0)627 


000-1 






TF M 


TEMP , 




07308 


16 


0)592 


-0000 


05 750 




TF 


EBASE-l , SMCNT, 11, 


SET UP BASE NUMBER 


07)20 


26 


0)6)1 


0354M 


05 760 




8 


E 90900+44 




073)2 


49 


06904 


00000 


05 770 




OORG 


• -3 




07)40 








05780 


E91410 


CM 


TEMP , 0, , 


ENTER FROM E90790 AFTER SEARCHING TABLE 


7)40 


14 


0)592 


-0000 


05 790 




BL 


E91610,,, 


FOR ALL EQUIV VARIABLES, IF TEMP IS LESS 


07)52 


47 


07512 


01)00 


05800 




SF 


TELSto,., 


IF NOT NEGATIVE 


07)64 


32 


07340 


00000 


05810 




C 


AOSAVE, SAVEl, , 


THAN ZERO, THEN THE BASE ELEMENT IS 


07)76 


24 


0)627 


03612 


05820 




BNE 


•+56, , , 


NOT ASSIGNEO FIRST 


07)88 


47 


07444 


01200 


05 8)0 




TF 


SMAOD , SAVE 1 




07400 


26 


0)5)9 


03612 










3 6 I 
















1620-144) MONITOR 1 


VERSION 2 FORTRAN II-C PHASE 1-C 








PAGE 


05 840 




TF 


SMCNT , SAVE2 




07412 


26 


0)544 


03617 


05850 




TF 


MOD AD , SAVE 1 




07424 


26 


0)549 


03622 


05860 




8 


E89820+12 




074)6 


49 


06092 


00000 


05870 




DORG 


• - 3 




07444 








05 880 




TF 


SMAOD , AOSAVE 




07444 


26 


03539 


03627 


05890 




TF 


SMCNT, AOSAVE 




07456 


26 


0)544 


03627 


05900 




AM 


SMCNT, 4 




07468 


11 


0)544 


-0004 


05910 




TF 


MOOAO, AOSAVE 




07480 


26 


03549 


03627 


05920 




AM 


MOOAO, 1 , 10 




07492 


1 1 


03549 


000-1 


05910 




B 


E89820+12 




07504 


49 


06092 


00000 


05940 




OORG 


• -) 




07512 








05950 


TEL SW 


OS 


, E914 10 




07)40 









05960 


£916-10 


TF 


SAVOF S, TEMP , , 


ENTER FROM E91420 tSAVE OFF-SET VALUE 


07512 


26 


07963 


03592 


05970 




TF 


SMAOD, SAVE4, , 




07524 


26 


03539 


06659 


05980 




TF 


SMCNT, SAVE4 




075)6 


26 


03544 


06659 


05990 




AM 


SMCNT ,4 , 10 




07548 


U 


03544 


000-4 


06000 




TF 


M0DAD,SAVE4 




07560 


26 


03549 


06659 


060 10 




AM 


MOOAO, 1 , 10 




07572 


U 


03549 


000- 1 


06020 




SF 


EQRET 




07584 


12 


07512 


00000 


060)0 


SAVAO 


OS 






07595 









06040 




TF 


SAVAOtADSAVE , , 


. SAVE AOORESS OF BASE ELEMENT 


07596 


26 


07595 


03627 


06050 


EQRET 


DS 


t E91610 




07512 









06060 




B 


E89820+12, , , 


BRANCH TO OUTPUT SVM WITH NEG OFF-SET 


07608 


49 


06092 


00000 


06070 




OORG 


• -3 




07616 








06080 


E91730 


TF 


SMADO , SA VE 1 , t 


ENTER FROM E90600 


07616 


26 


03539 


03612 


06090 




TF 


SMCNT, SAVE2, , 


RESTORE TABLE AOORESSES ANO BRANCH TO 


07628 


26 


03544 


03617 


06 100 




TF 


MOOAO, SAVE), t 


ASSIGN EQUIVALENT AOORESSES 


07640 


26 


03549 


03622 


06 1 10 




B 


E88540+)6 




07652 


49 


05052 


00000 


06 120 




DORG 


• -) 




7660 








06 1 10 


E91810 


TF 


SMAOOt SAVAO, , 


ENTER FROM E90603 


07660 


26 


03539 


07595 


06 140 




TF 


SMCNT, SAVAO 




07672 


26 


03544 


07595 


06 1 50 




AM 


SMCNT, 4, 10 




07684 


11 


03544 


000-4 


06 160 




TF 


MOOAO, SAVAO 




07696 


26 


03549 


07595 


06 1 70 




AM 


MOOAOt 1 » 10 




07708 


U 


03549 


000-1 


06180 




TF 


EBASE , SAVAO 




07720 


26 


03632 


07595 


06 190 




SM 


EBASE-ltltlO 




07732 


12 


03431 


000-1 


06200 




SF 


EBASE 




07744 


32 


03432 


00000 


06210 




A 


EBASE tSTBL 




07756 


21 


03432 


02377 


06220 




SF 


EBASE-) 




07768 


32 


03429 


00000 


062)0 




CF 


SAVOF S 




07780 


33 


07943 


00000 


06240 


XBASE 


OS 






07791 









06250 




BO 


•♦68 ,MOOAOtllt 


TEST IF OIM VAR 


07792 


43 


07840 


0354R 


06260 




SM 


SAVAO, I, 10 




07804 


12 


07595 


000- 1 


06270 




TF 


•♦)0» SAVAO* 11 




07816 


26 


07844 


0759N 


06280 




AM 


•♦18,5, 10 




07828 


11 


07844 


000-5 


06290 




TF 


• SAVOFSt * 


PLACE OFFSET INTO SVM AREA 


07840 


24 


00000 


07943 


06)00 




B 


E88710, , , 




07832 


49 


09234 


00000 


06 310 




OORG 


••3 




07840 








06 320 




SM 


SAVAO, 6, 10 




07840 


12 


07595 


000-4 


06330 




TF 


SAVAO t SAVOF S ,4 , 


PLACE OFFSET INTO TABLE 


07872 


24 


0799N 


07943 


06340 




B 


E88710,,, 




07884 


49 


05234 


00000 


06350 




OORG 


•-3 




07892 








06360 


E92010 


TF 


TEMPtTEMP),, 


ENTER FROM EB9601 


07892 


24 


03992 


03402 


06370 




CF 


EQRET 




07904 


33 


07912 


00000 


06180 




TF 


SM ADO, SAVE I 




07914 


24 


03S39 


03412 


06390 




TF 


SMCNT , SAVE 2 




07928 


24 


03944 


03417 



362 









1620-144) MONITOR 1 


VERSION 2 FORTRAN ll-C PHASE 1-C 








PAGE 


06400 




TF 


M00AD.SAVE3 




07940 


2* 


03S49 


03*22 


06410 




SF 


TEL SM 




079)2 


32 


073*0 


00000 


06420 


SAVOFS 


OS 


»• 




079*1 









06430 




6 


E8R540*)* 




79*4 


49 


09052 


00000 


06440 




OORG 


•-) 




07972 








0*450 


E92210 


TF 


SUBAOO, FCTENO,, 


ENTER FROM E87240 TO OUTPUT SUBPROGRAM 


07972 


2* 


08123 


02318 


06460 




HNR 


•♦24, FCTENO, 11, 


BRANCH |F NCT STATEMENT NUMBER 


07984 


45 


0B008 


02310 


06470 




SM 


SUBAOO, 10, 10 




799* 


12 


0B123 


OOOJO 


064S0 




TF M 


E92440-2) v 4l ,10 




OBOOB 


1* 


08197 


00OM1 


06490 




TF 


SMAOO, SUBAOO 




01020 


2* 


019)9 


08123 


06500 




AM 


SUHADD,)#10 




010)2 


11 


0812) 


000-3 


06510 




TF 


MOOAO, SUBAOO 




01044 


2* 


0)9*9 


08123 


06520 




SM 


MOOAO, 2, 10 




0105* 


12 


0)949 


000-2 


065)0 


E92290 


BO 


•♦32 .MOOAO.ll, 


TEST FOR FIX OR FLOAT 


080*8 


*) 


08100 


0394R 


06540 




A 


L0C.FP2 




080B0 


21 


03986 


02298 


06550 




B 


•♦20 




08092 


49 


08112 


00000 


06560 




DORG 


• -3 




08100 








06570 




A 


LOCKLNG 




08100 


21 


03986 


02252 


06580 




CF 


MODAOi, 6, 




08112 


)) 


0394R 


00000 


06590 


^tiR add 


OS 






08123 




o 




06600 




TF 


SVM , ZER I )- 1 




08124 


2* 


03579 


12251 












OB 1 3* 


2* 


09159 


0353R 


06620 




TF 


SVM, , , 


MOVE NAME TO SVM 


08148 


2* 


03979 


00000 


066)0 




TF 


SMA00.L0C6, 


MOVE OBJ TIME ADDRESS TO TABLE 


081*0 


2* 


0353R 


0358* 


06640 


C 9? )90 


BT N 


PGPR T , • ♦ 12 




OB 1 72 


1 7 




-8184 


06650 




DC 


1.0 




08184 




I 




06660 




- 

osa 


L0C-4 




08189 




5 


X 1 












08189 




-3582 




06670 




CSA 


SVM-l 1 




08194 




5 


X 1 












08194 




-3568 




06680 




SF 


SMAOO, ,6 




08196 


32 


035)R 


00000 


06690 




TF M 


•-11,32,10 




08208 


16 


08197 


000L2 


06700 


£ 92440 


SM 


SUPA0D.20, 10 




08220 


12 


08123 


OOOKO 


06 710 




SM 


SMA00.20, 10 




082)2 


12 


0)539 


OOOKO 


06720 




SM 


MOOAD.20, 10 




08244 


12 


0)549 


OOOKO 


06710 




HNK 


E92860, SUBAOO, 11, 


TEST FOR E NO OF PARAMETERS 


08256 


45 


08548 


0812L 


06740 




SM 


SUHAOO, 1 , 10 




08268 


12 


0812) 


000-1 


06 750 




CF 


SUBAOO, ,6 




082B0 


33 


0812L 


00000 


06760 




TF 


•♦30, SUBAOO 




08292 


26 


08)22 


08123 


06 770 




SM 


•♦18,1,10 




08)04 


12 


08)22 


000- 1 


U6780 




CF 






08316 


33 


00000 


COOOO 


06790 




BO 


E9?W0, SUBAOU, 1 1 , 


TEST FOR 01* VAR 


08328 


43 


08)72 


0812L 


06800 




A« 


SUOAOD, 1,10, 


FLAG INDICATES FUNCTION SUBPROGRAM IN 


08340 


11 


08123 


000-1 


06810 




AM 


LOC.5,10 




08352 


11 


0)586 


000-5 


06820 




9 


E92390-60 




083*4 


49 


08112 


00000 


06830 




on KG 


• - \ 




08372 








06840 


E9?W0 


AM 


LUC ,5, 10 




0837? 


11 


03586 


000-5 


06850 




CF 


MOO AO • ,6 




08384 


33 


0354R 


00000 












08 396 


26 


03579 


12251 


06870 




TF 


AOSAVE, SMAOO, 11, 




08408 


26 


03627 


0353R 


06880 




TF 


SVM.ADSAVE, 11, 




08420 


26 


0)579 


0362P 


06890 




TF 


SMA00,L0C,6, 




08432 


26 


035)R 


03586 


06 900 




SF 


SMAOO , , 6 


303 






0)53R 


nnnnn 








1620- 144) MONI TOR 1 


VERSION 2 FORTRAN Il-C PHASE 1-C 








PAGE 


06910 




TO 


MODE.SUOAOf), 11, 


SAVE NUMBER CF DIMENSIONS 


08456 


25 


03634 


0812L 


06920 




SM 


SUHADU, 7, 10 




08468 


12 


06123 


000-7 


06930 




MM 


MODE, 5, 10 




08480 


13 


036)4 


000-5 


06 940 




AM 


99,5,10 




08492 


11 


00099 


000-5 


06950 




A 


AOSAVfc ,99 




08504 


21 


03627 


00099 


06960 




TF 


SUBAOO, ADSAVE,6tl 




08*16 


26 


0812L 


0362P 


06970 




AM 


SUBAOO, 8, 10 




08528 


11 


0812) 


000-8 


06980 




B 


E92390 




08540 


49 


08172 


00000 


06990 




DORG 


• -) 




08S4A 








07000 


E92860 


TF 


TRASE , SMAOO, , 


ENTER FROM E92470 


08548 


26 


07791 


03539 


07010 




AM 


LOCOl, 10, 


FOR RECORD PARK 


085*0 


U 


0)586 


000-1 


07020 




AM 


CADD, 11,10 




08572 


11 


11219 


OOOJl 


070)0 




C 


CEND.CAOO 




08584 


24 


11224 


11219 


07 040 




BNH 


EMP 












07050 




SM 


CAOD,ll,lO 




08608 


12 


11219 


OOOJl 


07060 




CF 


CADD, ,6 




08620 


33 


1121R 


00000 


07070 




AM 


CADD.01,10 




08632 


11 


11219 


000- 1 


07080 




BT 


OUTADQ.LOC 




08644 


27 


106)4 


03586 


07090 




BTM 


0UTK,»*16 




08656 


17 


10056 


-8672 


07100 




OSA 


CSTl,LOC*l 




08672 




5 


X 2 












08672 




-973C 














08677 




-3587 




07110 




SF 


LOC^l 




08678 


32 


0)587 


00000 


07120 




TO 


CA00,L0C*l,6 




08690 


25 


U21R 


0)587 


07130 




B 


MSP 




08702 


49 


08730 


00000 


07140 




OORG 


• -4 




08709 








07150 


EMP 


SM 


CA0D,09, 10 




08710 


12 


11219 


000-9 


07160 




B 


GLP 




08722 


49 


08*44 


00000 


07170 




OORG 


• -4 




08729 








07180 


MSP 


MM 


LOCO*, 10 




08730 


I) 


0)98* 


000-9 


07190 




BO 


BUFDUM.99 




08742 


43 


0989* 


00099 


07200 




AM 


LOCOl, 10 




08754 


11 


039B* 


000-1 


07210 




B 


BUFDUM,,, 


GO TO OUTPUT BUFFER 


087** 


49 


09B9* 


00000 


07220 




OORG 


• -3 




0877* 








07230 


• •••• 


ENTER HERE FROM E87530 AFTER ALL STORAGE ALLOCATION IS 










07240 




COMPLETE 












07250 


§9)010 


TF 


DKA0D,|NT0P1*5 




08774 


2* 


10B9* 


02)90 


07260 




AM 


TEND, 9, 10, 


ESPECIALLY FOR JAY 


0878* 


11 


02)03 


000-9 


07270 




TF 


SMAOO, TBASE 




0B798 


2* 


03939 


07791 


07280 




TF 


SMCNT, TBASE 




08B10 


2* 


039*4 


07791 


07290 




AM 


SMAOO, 2 




08822 


11 


03939 


-0002 


07)00 




AM 


SMCNT,* 




0BB34 


11 


0)9** 


-0009 


07)10 




B 


• ♦)2 




0*84* 


49 


08B78 


00000 


07)20 




OORG 


• -3 




0889* 








07))0 


E 93060 


SM 


SMAOO, 10. 10 




08854 


12 


039)9 


OOOJO 


07)40 




SM 


SMCNT, 10,10 




088** 


12 


03544 


OOOJO 


07)50 




C 


SMCNT , TEND, 




08B7B 


24 


0)9** 


02)0) 


07)60 




BL 


E93610-2* 




08890 


*7 


092*0 


01)00 


07)70 




BNR 


E 9)2 00, SMCNT , 11 , 




08902 


45 


08922 


0)54M 


07)80 




B 


E93060 




08914 


49 


08854 


00000 


07390 




OORG 


• -3 




08922 








07400 


£9)200 


BUR 


E93060,SNA00,lt , 




08922 


4) 


0*854 


0)5)R 


07410 




6NF 


•♦32, SMAOO, 11 




0B9)* 


** 


089** 


0353R 


07420 




TOM 


SMAOO, 0,6 




0894* 


IS 


0)9 )R 


00000 


074JO 




A 


E93060 


3 6 4 


0895B 


49 


0*894 


00000 



1620-144) MONITOR I VERSION 2 FORTRAN 11-0 PHASE l-C 



FACE 



07440 




DORG 


• -) 






089*6 








07450 




TDM 


SMA00»0.6, 


CLEAR RECORO MARK 




08966 


15 


0353R 


00000 


07460 




SM 


SMADD.2 i 10 






08978 


12 


03539 


000-2 


07470 


E93310 


AM 


IOC. 5, 10 






08990 


11 


0)986 


000-5 


07480 




TF 


SSYMMK, ZERl 3-1 






09002 


26 


09994 


12251 


07490 




TF 


• *2 3t SMADO, 1 1 






09014 


2* 


090)7 


0393R 


07500 




TF 


SSYMMK, , , 


MOVE FUNCTION NAME 




09026 


26 


09994 


00000 


07510 


BMP 


SF 


SSYMMK- 1 1 






09038 


32 


09943 


00000 


07520 




CM 


SSVMWK- 10»00 , 10 






09090 


14 


09944 


000-0 


07530 




ONE 


HGP 






09062 


47 


09118 


01200 


07540 




TR 


SSVMWK- 1 1 ( SSYMMK- 9 






090T4 


31 


0994) 


09949 


07550 




TF M 


SSYMMK, OOt 10 






09086 


16 


09994 


000-0 


07560 




CF 


SSYMMK- I 






09098 


33 


0999) 


00000 


07570 




B 


BMP 






09110 


49 


090)8 


00000 


07580 




DORG 


• -4 






09117 








07590 


MGP 


TF 


CARD* 1 1 t SSYMMK 






09118 


26 


0)465 


09994 


07600 




TF 


CARD* 16 »LOC 






09130 


26 


0)470 


03986 


07610 




TF 


CARD* 18»ALPHRM 






09142 


26 


0)472 


09298 


07620 




TF 


SMAD0,L0C,6, 


MOVE OBJ TIME AODRESS TO 


TABLE 


09154 


26 


0353R 


0)986 


076)0 




BTM 


OUTK »•♦ 16 






09166 


17 


10056 


-9182 


07640 




OS A 


CSTl 7 tC ARD 






09182 




5 


X 2 














09182 




-9256 
















09187 




-3494 




07650 




AM 


SMADO, 2, 10, 






09188 


11 


03939 


000-2 


07660 




TF 


SYM, ZER 13-1 






09200 


26 


03979 


12291 


07670 




TF 


SYM, £93330*47,11, 


MOVE SYM NAME 




09212 


26 


03979 


0903P 


07680 




BTM 


PGPRT,»*12 






09224 


17 


11336 


-9236 


07690 




DC 


1 » o 






09236 




I 




07 700 




OSA 


LOC-4 






09241 




5 


X 1 














09241 




-3582 




07710 




OSA 


SYM-l I 






09246 




5 


X 1 














09246 




-3568 




7 720 




B 


E93060 






09248 


49 


08854 


00000 


07730 




DORG 


• -4 






09255 








07 740 


CSTl 7 


DC 


2,18 






09256 




2 




07 750 


ALPHRM 


Jfl 

DC 


2,0* 






09258 




2 




07 760 


• • TEKMINAL ROUTINE TO PRINT 


LAST BLOCK 












07 770 




CM 


COUNTS, 6, 10 






09260 


1« 


12282 


000-6 


07 780 




BE 


NOPRT 






09272 


46 


09340 


01200 


07 790 


t 43610 


BNf 


NOPRT, LIST,, 


TEST ON LINE PRINT SWITCH 




09284 


44 


09340 


02228 


07 800 




TFM 


IORT , •♦23, , , 


PRINT THE LAST LINE 




09296 


16 


00565 


-9319 


07810 




B 


10PT,FAF5-4,7 






09308 


49 


00532 


J2283 


07820 


•• PRINT HEADER FOR FIRST PAGE 


OF PHASE 2 












07840 




TFM 


OFLO|-1,»*20,. 


SUPPLY RETURN AOORESS 




09320 


16 


11841 


-9340 


07850 




B7 


OFLO* 12, 


PRINT FIRST HEADING PHAS-E 


2 


09332 


49 


11910 




07860 


NUPRT 


BO 


•♦20.SUBFCT 






09340 


43 


09360 


02293 


07870 




H 


ERNEST 






09352 


49 


09556 


00000 


07880 




DORG 


• -3 






09360 








07890 




TFM 


I0RT,»*23 






09360 


16 


00565 


-9383 


07900 




B 


I0GT,C0MSEC,7 


3G5 




09372 


49 


00566 


-9731 



16?0-1443 MONITOR 



VERSION 2 FORTRAN 1 1 -0 PHASE 1-C 



07910 




TF 


SSYMMK, ZER13-1 


09384 


26 


09554 


. 12251 


07920 




TF 


SSYMMK, SAVSYM 


09 396 


26 


09554 


C2243 


07930 


LTJUST 


SF 


SSYMMK-U 


09408 


32 


09543 


00000 


07940 




CM 


SSYMMK-10,00,10 


09420 


14 


09544 


000-0 


07950 




BNE 


MVNAME 


09432 


47 


09488 


01200 


07960 




TR 


SSYMWK-ll,SSVMMK-9 


09444 


31 


09543 


09545 


07970 




TFM 


SSYMMK, 00, 10 


09456 


16 


09994 


000-0 


07980 




CF 


SSYMMK- I 


09468 


33 


09953 


00000 


07990 




B 


LTJUST 


09480 


49 


09408 


00000 


OBOOO 




DORG 


• -4 


09487 








08010 


MVNAME 


TF 


COMNAM, SSYMMK 


09488 


26 


09789 


09554 


08020 




TF 


SAVSYM, SSYMMK 


09500 


26 


02243 


09554 


08030 




TFM 


I0RT,»*23 


09512 


16 


00569 


-95)5 


08040 




B 


1 OPT , COMSEC, 7 


09524 


49 


00932 


-97)1 


08050 




B 


HU 


09536 


49 


09592 


00000 


08060 




DORG 


• -4 


09543 








08070 


SSYMMK 


DC 


12,0 


09554 




12 








-00000000000 










08080 




DC 
• 


It • 


09555 




1 




0H090 


fcRNEST 


BNF 


HU,OISKSM 


09556 


44 


09992 


02)8) 


08100 




BO 


HU, MULOEF 


09968 


43 


09992 


02)84 


OflllO 




BTM 


ERROR2,670,9 


09580 


17 


11246 


00070 


08120 


MU 


BTM 


0UTK,**L6 


09592 


17 


10096 


-9608 


08130 




DSA 


CSTl, ALPHRM 


09608 




9 


X 2 










09608 




-9730 












09613 




-9298 




08140 




C 


CAOD.CENO 


09614 


24 


11219 


11224 


08150 




BNE 


• ♦36 


09626 


47 


09662 


01200 


08160 




BTM 


OUTAOO 


09638 


17 


10634 


-0000 


08170 




SM 


CAOO,3,10 


09690 


12 


11219 


000-) 


08180 




TOM 


CA00,6,6» END OF PROGRAM INOICATOR 


09662 


15 


1121R 


00006 


08190 




TFM 


10Rr«"23 


09674 


16 


00969 


-9697 


08200 




B 


I0PT,0K0ATA,7 


09686 


49 


009)2 


J0906 


08210 




TF 


PROGST.LOC 


09698 


26 


02297 


0)986 


08220 




BV 


• ♦12 


09710 


46 


09722 


01400 


08230 




B 


CALLP2 


09722 


49 


02400 


00000 


08240 




DORG 


• -4 


09729 








08250 


CSTl 


DC 


2,01 


09790 




2 




08260 


COMSEC 


-I 
DSC 


2,20 


09711 




2 




08270 




20 
OSA 


COMSC 


09797 




9 


X 1 










09737 




-97)9 




08280 




DC 
• 


1.* 


097)8 




I 




08290 


CCMSC 


DSC 


1,0 


09739 




1 




08)00 






DC 


9 ,19663 


09764 




9 








J9663 










08310 




DC 


3,001 


09767 




3 




06320 




-01 
OSA 


COMAR 


097S2 




9 


X 1 



366 



1620-144) MONITOR I VfcRSlON 2 FCRTRAN I I -0 PHASE l-C PAGE 













09752 




-9756 




08330 




DC 






09711 




1 




08 340 


CUMAR 


OSS 


50 




09754 




50 




08)50 




OSS 


50 




09104 




50 




08)60 




ogn 






09854 




1 




08)70 


CbPNAM 


us 


,C0MAR*)5 




09789 









08)80 


• OUTPUT MUFFER-SE T UP POINTER A NO LAST DISK 










08)90 


* . 




AUDKfcSS rUR 


PASS2 










08400 


HU' DUN 


TF 


L ST AD tDKAOD 




09856 


26 


02)08 


10894 


08410 




CN 


CA00.0ISK»8 




091*1 


14 


11219 


J0922 


08420 




BSE 


BF0UM1 




09110 


47 


09912 


01200 


084)0 




TFN 


P2PTR.0 




09192 


16 


02111 


-0000 


08440 




ft 


6F0UM2 




09906 


49 


10001 


00000 


08450 




OORG 


• -3 




09912 








08460 


8F0UM I 


TF 


P2P TR iCEND 




09912 


26 


02111 


11224 


08470 




SM 


P2PTR.0ISR 




09924 


12 


02111 


J0914 


08480 




CM 


P2PTR,)00 




09916 


16 


02111 


-0100 


08490 




BNE 


• ♦36 




09948 


47 


09914 


01200 


08)00 




TF N 


P2PTR.0 




09960 


14 


02111 


-0000 


UR5I0 




AN 


LSTAO, 01,10 




09972 


11 


02101 


000-1 


08)20 




TFN 


1 OR T , 2 ) 




09984 


16 


00565 


J0007 


085)0 




B 


I0PT,DK0ATA,7 




09996 


49 


005)2 


J0904 


08540 


BF0UM2 


TFN 


CADOiOISK 




10008 


16 


11219 


J0414 


08550 




TFN 


CEN0,DI SK*75 




10020 


16 


11226 


J0989 


08 560 




HTN 


ouiaoo.ooooi 




100)2 


17 


10634 


-0001 


08 5 70 




6 


E87270-24 




10044 


49 


03888 


00000 


08580 




DORG 


• -4 




10051 








08590 


• 


UUTPUT CONSTANT ROUTINE 










08600 


• 
















08610 


• 




BTP 0UTK,«*16 










08620 


• 




OSA LENGTH, H 


IGH-QROFR 










086 )0 


• 
















08640 




OS 


5 




10055 




5 




08650 


□ UTK 


TF 


MM* CAOD 




10056 


26 


11244 


11219 


08 660 




TF 


WK 2 » OUTK-l, 


11, LENGTH 


10068 


26 


101 )9 


1005N 


08670 




TF 


WK2 * WR2 • 1 1 » 


MOVE IN LENGTH 


looao 


26 


101)9 


101 3R 


08680 




AN 


OUTK-l, 5,10 




10092 


11 


10055 


000-5 


08690 




TF 


WK3, OUTH-l, 


11, CONSTANT AOORESS 


10104 


26 


1022) 


1005N 


08 ?00 




AN 


OlJTK-l, 1,10 




10116 


1 1 


10055 


000- 1 


08710 




AM 


WKl, • -• 




10128 


11 


11244 


-0000 


UR72G 


WK2 


OS 






101)9 









08 ?)0 




c 


L ADO , CAOD 




10140 


24 


11229 


11219 


08 740 




HE 


our*? 




10152 


46 


10504 


01200 


08 750 




C 


CEND.CADD 




10164 


24 


11224 


11219 


08 7A0 




BE 


I TNC 




10176 


46 


10)64 


01200 


08 T70 




C 


NK1, CENO 




10188 


24 


11244 


11224 


OH 780 




BH 


TO 




10200 


46 


10256 


01100 


08790 


OUTK 1 


TR 


CADD. •-• .6 




10212 


)1 


U21R 


00000 


08800 


WK3 


DS 






1022) 









08 810 




A 


CLGTH, WK2.6, 


INCREMENT LENGTH 


10224 


21 


U23M 


101)9 


08820 




A 


CAD0,MK2 




102)6 


21 


11219 


101)9 


088)0 




rt 


OUTK-l, ,6, 




10248 


49 


1005N 


00000 


08840 




OORG 


• -3 




10256 








08850 




TSANSMI T DIGIT BY 


DIGIT 










08860 


TU 


TO 


CADI), WK),61t 


30 


10256 

i 


25 


U21R 


10221 



1620-144) MONITOR I VfcRSlON 2 FORTRAN 1 1 -C PHASE l-C PAGE 



08870 




AM 


CLOTH, 


1,610, 


10268 


11 


1123N 


COO-l 


08 880 




AM 


C ADD , 


1.10, 


10280 


11 


11219 


000-1 


08890 




AM 


WK3, 


1*10, 


10292 


11 


10223 


000-1 


0«<?00 




SM 


WK2, I , 10 


10)04 


12 


10139 


000- 1 


08910 


• 


TEST FOR 


LAST CARD 










08 920 




C 


CADO, 


LAOD 


10)16 


24 


11219 


11229 


08930 




BE 


OUTK? 




10)28 


46 


10504 


01200 


OH 940 




C 


CADD, 


CfcND 


10340 


24 


11219 


11224 


08 950 




BNE 


TD 




10)52 


47 


10254 


01200 


08 960 


• 


INCREMENT 


TO NEXT CARO 










0*970 


1 TNC 


TF 


CAOD, 


CFNO 


10364 


26 


11219 


11224 


08980 




AN 


CADO, 


4,10 


10376 


11 


11219 


000-4 


08 990 




TR 


CADO, 


Kl,6 


10388 


31 


U21R 


11215 


09000 




TF 


•♦35, 


CLGTH 


10400 


26 


104)5 


11214 


09010 




SM 


• ♦2), 


3,10 


10412 


12 


104)5 


000-3 


09020 




TF 


CADD, 


• -•,6 


10424 


26 


1121R 


00000 


090)0 




A 


CAOD, 


CLGTH, 61 I, 


104)6 


21 


U21R 


U21M 


09040 




TF 


CLGTH, 


CAOD 


10448 


26 


11214 


11219 


09050 




AM 


CLGTH, 


3,10 


10460 


11 


112)4 


000-1 


09060 




AM 


CADD, 


4,10 


10472 


11 


11219 


000-4 


09070 




AN 


CENO, 


75,10 


10484 


11 


11224 


000P5 


09080 




B 


OUTKI 




10494 


49 


10212 


00000 


09090 




DORG 


• -3 




10504 








09100 


• 


OUTPUT THREE SECTORS 










09110 


0UTR2 


TFM 


RETURN*4.0UTK) 


10504 


16 


10890 


J0524 


09120 




B 


CKLI*12 




10514 


49 


10824 


00000 


09 130 




DORG 


• -) 




10524 








09140 


OUTKi 


AN 


CAOD, 


4,10 


10524 


11 


11219 


000-4 


09150 




TR 


CAOD, 


Kl,6 


10514 


31 


11218 


11215 


09 160 




SN 


CLGTH, 


3,10 


10548 


12 


11214 


000-3 


09170 




TF 


CAOD, 


CLGTH, 61 1 


10540 


26 


11218 


U21N 


C9180 




AM 


CLGTH, 


1.10 


10572 


11 


112)4 


000-1 


09190 




A 


CAOO, 


CLGTH, 611 


10584 


21 


1121R 


1121* 


09200 




TFN 


CLGTH, 


DISIU7 


10594 


14 


11214 


J0921 


09210 




TFN 


CADO, 01 


SK*8 


10408 


14 


11219 


J0922 


09220 




B 


OUTKI 




10420 


44 


10212 


00000 


09210 




DORG 


• -) 




10428 









09240 • CONSTANT OUTPUT ROUTINE FOR PASS 1 

09250 • 



09240 


• 




BTN OUT ADD* NEW 


ADDRESS 










09270 




OS 


5 




106)2 




5 




09280 


OUTAOO 


AM 


CADO, 9,10 




10414 


11 


11219 


000-9 


09290 




C 


CENO, CAOO 




10444 


24 


11224 


11219 


09)00 




BNH 


CKLCO 




10458 


47 


10744 


01100 


09)10 




SM 


CADD, 5,10 




10470 


12 


11219 


000*5 


09120 


OUT 


TR 


CAOO, Kl,4, 


CONSTANT 


10482 


11 


11218 


11215 


09310 




TF 


CADD, OUT ADO- 1,6, 


NEW AODRESS 


10494 


24 


11218 


104)1 


09 340 




AN 


CAOD, 4,10 




10704 


11 


11219 


000-4 


09)50 




TF 


CLGTH, CAOO 




10718 


24 


11294 


11219 


09340 




SN 


CLGTH, 01, 10 




10710 


12 


11234 


000-1 


09170 




88 






10742 


42 


00000 


00000 


09180 




DORG 


• -9 




10744 








09)90 


• 


CHECK FUR LAST CARD 












09400 


CKLCO 


C 


LAOD, CCND 




10744 


24 


11229 


11224 


09410 




BE 


CKL1 


306 


10794 


44 


10812 


01200 


09420 




TF 


CADD, CENO 


10748 


24 


11219 


11224 







1620-1443 MONITOR 1 VERSION 2 FORTRAN 11-0 PHASE l-C 








PACE 


<mso 




AM CENO, 75.10 


10760 


11 


11224 


00OP9 


09440 


CKL 


AM CAOO, 4,10 


10792 


11 


11219 


000-4 


09450 




6 OUT 


10804 


49 


10*82 


00000 


09460 




OORC «-3 


10812 








094TO 


• 


OUTPUT 










09**0 


CKLl 


TFM RETURN*6, CKL 


10812 


16 


10B90 


J0792 


09490 


• 


01SK OUTPUT ROUTINE 










09500 




TFM IORT,»*23 


10824 


16 


00565 


J0847 


09510 




B IOPT, OKOATA, 7 


10836 


49 


00332 


J0906 


09520 




AM DKAOD # 3,10 


10848 


11 


10896 


000-3 








10860 


16 


11219 


J0914 


09540 




TFM CENO, D1SK*75 


10872 


16 


11224 


J0969 


09550 


ML* TURN 


B •-• 


10884 


49 


00000 


00000 


09560 




00 RG •'-4 


10891 














1 089 1 








09580 


OK AOO 




DC 7,00000 


1 0896 




5 








-0000 










09590 




OC 3,003 


10899 




3 




09600 




OSA 01SK 


10904 




5 


X 1 








10904 




J0914 




09610 




OC 1,» 


10905 




1 




09620 


OKOATA 


OSC 2,02 
02 


10906 




2 




09630 




OSA OUTOK 


10912 




5 


X 1 








10912 




J0B91 




09640 




DC 1 , • 
• 


10913 




1 




09650 


• 


OUTPUT DISK AREA 










09660 


1 SK 


OSC 50,0 


10914 




50 








00000000000000000000000000000000000000000000000000 










09670 




OSC 50,0 


10964 




50 








00000000000000000000000000000000000000000000000000 










09680 




OC 1,» 
• 


11014 




I 




09690 




OSC 49,0 


11015 




49 








OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 










09700 




OSC 50,0 


11064 




5C 








00000000000000000000000000000000000000000000000000 










09710 




OSC 50,0 


UIM 




50 








00000000000000000000000000000000000000000000000000 










09720 




OSC 50,0 


11164 




5C 








00000000000000000000000000000000000000000000000000 










097 JO 




OS 1 


11214 




1 




09740 


CAM) 


OSA DISK+1G1 


11219 




5 


X I 








11219 




J1015 




09750 


CEND 


OSA DISK+150 


11224 




3 


X 1 






OSA DISK + 300 3 6 D 


11224 




J 1064 




09760 


L ADD 


11229 




3 


X 1 






1620-1443 MONITOR I VERSION 2 FORTRAN II-C PHASE l-C 








PAGE 








11229 




J 1214 




09770 


CL<*»TH 


OSA DISKM08 


11234 




5 


X 1 








11234 




JIQ22 




09 7R0 


K 1 


OSC 2,02 
02 


1 1235 




2 




09790 




OC 2,0 


11238 




2 




09800 




-0 

DC 1,' 
• 


11239 




1 




09810 


MK1 


DC 5,0 


11244 




5 








-0000 










09820 


• 


DEND 










09830 


fcRR0R2 


TF ERMES*14,«-1 


11246 


26 


11327 


11245 


09640 




TFM IORT,»*23 


11258 


16 


00565 


J1281 


09850 




B I0PT,ERMESl-4,7 


11270 


49 


00332 


J 1304 


09860 




TFM 0FL01-1,»*20 


1 1282 


16 


1 1641 


J 1 302 


09870 




87 0FL01 


' 11294 


49 


11842 




09880 




BB 


11302 


42 


ooooc 


ooooo 


09890 




OORG »-9 


11304 








09900 


ERMESl 


OSA ERMES 


11308 




3 


X 1 








11308 




Jl 319 




09910 




OC 3.18* 


11311 




3 








J8» 










09920 


ERMES 


OAC 9, ERROR 00* 


11313 




9 


X 2 






ERROR 00' 










09930 


• 












09940 


• 


LINKAGE TO PGPRT 










09950 


• 


BTM PGPRT, •♦U 










09960 


• 


DC ltXft X- OR 1 










09970 


• 


OSA SA0DR-4,NAME,EA00R-4 










09980 


• 












09990 




OS 5 


11334 




3 




10000 


PGPRT 


TFM FAFl*6,RACAR0*l 


11336 


16 


11390 


J2103 


10010 




TF FAFl-l.PGPRT-l 


11)48 


2* 


11363 


11339 


10020 




AM FAFl-1,05,10 


11360 


11 


11383 


000-5 


10030 




TF FAFUll,»-» 


11372 


2* 


11393 


OOOOO 


10040 


FAFl 


TD MOVE IN START AOORESS 


11384 


23 


00000 


OOOOO 


10050 




AM FAFlt6,2,l0 


11394 


11 


11390 


000*2 


10060 




AM FAFl*ll,Ol,lO 


11408 


11 


11199 


000-1 


10070 




CM FAFl*6,RACA*D*9 


11420 


14 


11390 


J2U1 


10080 




BNH FAF 1 


11432 


47 


11364 


01100 


10090 




AM FAFl-1,5,10 


11444 


11 


lists 


000-5 


10100 




TF •♦23,FAFl-l ,11 


11454 


2* 


11479 


1136L 


10110 




TR RACARD+12,*-*,, MOVE IN NAME 


11448 


31 


12114 


OOOOO 


10120 




BO FAF3,PGPRT-l,ll, BRANCH IF END AOORESS REQUIRED 


11480 


43 


1170* 


1133N 


10130 




TF RACARDO5»llZER0 


11492 


2* 


12197 


12290 


10140 




AM FAFl-1,2,10 


I If 04 


11 


11913 


000-2 


10130 


•*• ROUTINE TO PRINT OUT STATEMENT NUMBERS 










10140 


FAF2 


8NF BDPUST.LIST,, TOTAL LISTING 


11314 


44 


11*9* 


02226 


10170 




BO MINUS1 .COUNTS 


11528 


43 


11*08 


12282 


10180 




TFM C0UNT8, 06, 10, RESET THE COUNT 


11940 


16 


12282 


000-6 


10190 




TFM I0RT,.*23,, MINT THE LINE OF SYMBOLS 


11352 


14 


009*9 


J1979 


10200 




B IOPT,FAF3-*,7 


11344 


4t 


00992 


J2263 


10210 




TFM 0FL01-lt"20t» TEST PACE OFLO 


1197* 


16 


11*41 


J 1 596 



37« 



1620-1**1 MONITOR I VERSION 2 FORT! AW I 1-0 PMASI l-C 



PAGE 



10220 




B 7 


OFIO 




1 1SII 


49 


1 1199 




10230 




TFN 


M 1 NLJt 1 ♦ 1 A . F AF a . . 


initiai lit ftb tfiAniNG print abfa 


11)94 


16 


1 1624 


j j 730 


10 2*0 


M 1 NUS I 


SM 


count m. i .in.. 




1 1608 


12 


12292 


000-1 


10250 




TR 


F AF 6 , AAC ARO, » 


MTU* TMff (IMF FNTAY TO PRINT AREA 


11420 


11 


12T1C 


12102 


10 260 




TFM 


M INUCI* 1 A.nftftftT AT 


n en imc 01tffw1rt1.it gcr nin mask 


1 1412 


14 


1 1 420 


•0007 


10270 




' AM 


M I N 1 i t 1 • 1 A - 4 A . in 


unuc rue ontkfffi 


1 1444 


1 1 


1 1 424 


COOPO 


10280 


BQPUST 


BO 






1 1454 


41 


1 1474 


02294 


10 290 




B 


F AF I- I i |6 




1 1 ti? 


49 


1 1 19L 


uvvuu 












1 1476 








10)10 




TFM 


1 no T a a 9 1 
IUK 1 , • ▼ £ 1 




1 1474 




00545 


J 1699 


10 120 






i no T tlll.i T 
1 UP 1 | r 1 RI" 4 f r 




1 1499 


AO 




J2242 








FAFl-i»»6 




1 1 700 


A« 


1 1 191 


AAAAA 
UUUUU 


10 1*0 




OORG 






1 1 TOT 








10 ISO 


FAF 3 


y f 






1 1 T0§ 


- 

24 


12117 


1 99AA 












11720 


1 1 


1 1 191 


nnn ■ 


10 170 




TFM 






11712 


14 


! ! It » 


if if. 


10 ion 




TF 


FAF*Ml.FAFl-t,ll 




1 1 74* 


24 


1 1 767 


1 1 19L 




FAF* 


TO 




ynuc 1 kj cun innictt 
^Uf I IN fcNU luDRElr) 


| f IM 


f ? 


UUUUU 


AAAAA 
WWW 






AM 


FAF**6,2,IC 




I I 768 


1 1 


1 1 762 








AM 


FAF**H, 1,10 




1 IT80 


1 1 




000-1 






CM 


FAF*«6,AACAA0«35 




1 1 792 


14 


1 1 762 


j2 | j j 


i f)4in 

J: * 




BNH 


FAF* 




1 1B04 


* 7 


1 1 756 


Oil 00 


• . 




AM 


FAF1-U1.10 




11814 


1 1 


11191 


000— 1 


10*50 




B 


F AF 2 




1 1828 


*9 


1 1 516 


An AAA 

00000 






OORG 


• -3 




11814 








10*70 




OC 


5,123*5 




1 18*0 




5 








J2)*5 












1 0*80 


Uf L01 


MOP 


OFIO, , , 


FIRST T I ME FALL THROUGH 


1 18*2 


*1 


1 1999 


00000 


1 0*90 




TF M 


10RT,«*23, , 


BRING IN THE HEADING 


1185* 


14 


00565 


J19T7 


1 500 




B 


IUGT,0SKH0,7 




1 1844 


*9 


00544 


J20T7 


10 510 




TOM 


0FC0l*i ,9, , 


MODIFY NOP TC BRANCH 


11878 


15 


1 1 4*3 


00009 


!« 




»7 


0FIOM2,,, 


SKIP THE QFLO TEST 


1 1890 


*9 


1 1 9 1 C 




10 530 


OFIO 


BN I 


OFLOt-t ,3*00,6, , 


TEST PRINTER CHAN 12-6R8ACK INDIRECT 


1 1898 


* 7 


11 9* J 


03*00 






UD 


ONk ,PGNUN-2, , VES 


i-CHAN 12 


11910 


*3 


1 1 9*2 


02220 


. « el ? 




BO 


TWO.PGNUM-l 




1 1922 


*3 


1 1 95* 


0222 1 


1 560 




87 


NONUM 




1191* 


*9 


11944 




10570 


QNF 


TOM 


B10MA0* 17*, 7 




1 19*2 


45 


1240* 


00007 


10580 


TwO 


TOM 


B10MA0*176,7 




1195* 


15 


12406 


00007 


10590 


NUNUM 


TO 


B10MAD*179,PGNUP, , . 


PAGE NUMBER 


11944 


25 


12409 


02222 






TO 


BlOMAO»177,PGNUM-l 




I 1978 


25 


12407 


0222 1 


10610 




TO 


B 10MAD* 1 75,PGNUM-2 




11990 


25 


12405 


02220 


10620 




3* 


, 0971 , , 


SKIP TO 1 IMMEDIATE 


12002 


3* 


00000 


00971 


10630 




3* 


,0962,, 


DOUBLE SPACE AFTER PRINT 


1201* 


3* 


00000 


00942 


106*0 




TFM 


I0RT,«*23, , 


TO IOAT-PRINT PAGE HEAD 


12024 


16 


00565 


J20*9 


10650 




b 


lOPT,PAGE-*,7 




12018 


*9 


00512 


J2049 


10660 




AM 


PGNUM.Ol , 10, , 


ADD 1 TO PAGE NUMBER 


12050 


11 


02222 


000-1 


10670 




87 


OFLOl-l ,,6, 


BRANCH SACK INOIRECT 


12042 


*9 


U4*J 




10680 


PAf.fc 


OS A 


B10MA0* 1 




1207) 




5 


* 1 












12073 




J2*31 




10690 




OC 


3,18*,,, 


PRINT INOICATION AND PAGE NUMBER 


12076 




3 




10700 


OSKHD 


DSC 
22 


2.22, ., 


PAGE OFIO OEFINFR FOR SYMBOL TABLE 


12077 




2 




10710 




OS A 


01 >K0U 




12081 




5 


x 1 



371 

1620- 1**3 MONITOR I VERSION 2 FORTRAN I I - C PHASE l-C PAGE 











12093 


J2096 


10720 




OC 


1 , • 


1208* 


1 


10730 


UISK00 


00 A 


, 1,BADA0,0G2,810*AD,, , DDA OF PRINT OUT OFIO 


12086 


1* 






U 73*0-02J2* JO 






107*0 




cc 


It' 


12100 


1 


10750 


R AC ARC 


NOP 




12102 *1 


00000 


10760 




OORG 


RACARO 


12102 




10770 




use 


12,707070707000 


12102 


12 






707070707000 






10780 




OS 


2* 


12137 


2* 


10790 




OC 


2,U» 


12119 


2 


10800 




OC 


50,0 


12189 


50 






-OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOQOOOOOOOOOOOOOO 






10810 




X 


50,0 


12519 


50 






-0000000000000000000000000000000000000000000000000 






10820 




CC 


22,0 


12261 


22 






-oocoooooooooooooooooo 






10830 


11/ERQ 


OS 


#•-11 


12250 





108*0 


2fcRl3 


DS 


,♦-9 


12252 


c 


10850 


PTRA 


DSA 


RACARD*l 


12244 


5 










12244 


J2103 


10860 




DC 

-0 • 


3,00* 


12269 


3 


10870 


RAMASK 


DC 


11,07070707070 


12280 


11 






-7070707070 






10880 


COUNTS 


OC 
-6 


2,06 


12292 


2 


10890 


FAF6 


OS 


,B10MA0*300 


12710 





10900 


FAF5 


OS A 


FAF6-1 


12297 


5 










12297 


J2T29 


10910 




cc 


*,i8«,,, PRINT 


12290 


1 






J9* 








10920 


• 


DEND 






10930 




OORG 


16000 


16000 




109*0 


BLK7 


OSC 


2,22 


14000 


2 






22 








10950 




DSA 


8LK7A 


14004 


5 










14004 


J6008 


10960 




OC 


It • 


14007 


1 


10970 


BLK7A 


osc 




1.0 


14004 


I 


10980 




OC 


5.1 7700 


14011 


5 






J7700 






10990 




OC 


J .100 


14014 


3 






J00 








11000 




OSA 


EB6**0 


14021 


3 










14021 


-24J0 


11010 




OC 


l,t 372 


14022 


I 



1620- 1443 MONITOR I VERSION 2 FORTRAN I 1-0 PHASE l-C 



PACE 24 



1 1 rtJn i no wr 




r nil iDiinn 
UUP AK* I 00 






09854 


uvwuu 


11030 


OGM 


• 


16035 




1 




11040 


TFM 


IORT,»»23 


16036 


16 


00565 


J6059 


11050 


B 


10PT.BLK7.7 


16048 


49 


00)32 


J6000 


11060 


TRA 




16060 


36 


00000 


00500 








16072 


49 


OOOOC 


00000 


11070 


TCO 


LDPHC 


16024 








110*0 


GENU 




00000 









3 7 :j 







1620-1443 MONI TCR 


I VERSION 2 


FORTRAN I 


1-0 PHASE l-C 






PAGE 25 


i lZfcRU 


1225* 


F905R0 


064 76 


RAMASK 


12280 


HU 


09592 


PTRA 


12266 


ADSAVE 


03627 


fc 90620 


06516 


RETURN 


10884 


INOIV 


02424 


RECLG 


02243 


AtPHBM 


09258 


E90750 


06684 


ABASE 


02970 


IOCAL 


00716 


SAVAO 


07595 


AROUND 


02484 


E90850 


06816 


AFTBL 


15035 


IOGT 


00566 


SAVE I 


03612 


HIOMAD 


12430 


E90900 


06860 


B8DA0 


17340 


IOPT 


00532 


SAVE2 


03617 


HOPUST 


11656 


E 91 010 


07020 


BLK7A 


1600H 


IORBC 


00520 


SAVE 3 


03622 


BFOUHl 


09912 


E9U20 


07088 


BLK7 


16000 


IORT 


0C56'> 


SAVE4 


06659 


BF0UH2 


10008 


E91250 


07228 


BLK8A 


02469 


IOSK 


00554 


S«A DO 


03539 


BUFOUM 


09856 


E91320 


07296 


BLK8 


02461 


ITNC 


10364 


SMCNT 


03544 


CALLP2 


02400 


E91410 


07340 


BMP 


09038 


JAY 


02367 


STBL 


02377 


COMADD 


C2262 


E91610 


07512 


CAOO 


1 1219 


Kl 


11235 


SYMl 


03828 


COMNAM 


09789 


E91730 


07616 


CARO 


03454 


KING 


02252 


SYM 


03579 


COMSEC 


09731 


E91810 


07660 


CENO 


11224 


LAOO 


11229 


TBASE 


07791 


COUNTS 


12282 


692010 


07892 


CHI5 


15839 


LDPHC 


16024 


TBCNT 


02429 


01 SKOO 


12086 


E92210 


07972 


CHI 


15139 


LIST 


02228 


TO 


10256 


OISKSW 


02383 


E92290 


08068 


CKLl 


IOA12 


LL1 


03262 


TELSW 


07340 


OK OAT A 


10906 


E92390 


08172 


CKLCO 


10744 


LQC 


03586 


TEMP2 


03597 


ER6440 


02430 


E 92440 


08220 


cm 


10792 


LSTAO 


02308 


TEMP3 


03602 


ES6601 


026 72 


E92570 


08372 


CLGTH 


11234 


MOOAO 


03549 


TEMP4 


05547 


E86801 


02940 


E92860 


08548 


COMAR 


09754 


MODE 


36 34 


TEMP5 


03607 


E86820 


03000 


E93010 


08774 


COMSC 


09739 


MSP 


08730 


TEMP 


03592 


fc87^10 


03832 


E9306Q 


08854 


COMST 


02382 


Nl 


02233 


TEND 


02303 


E87270 


03912 


E93200 


08922 


CST17 


09256 


N2 


02238 


TWO 


11954 


F87310 


03968 


E93330 


08990 


CSTl 


09730 


NONUM 


11966 


MOLN 


02994 


F87420 


04172 


E93610 


09284 


DISK 


10914 


HOPRT 


09340 


WGP 


09118 


F87490 


04276 


ENTLOG 


02267 


OKAOO 


10896 


NXLOC 


02372 


MK 1 


11244 


EB7670 


04404 


ERMESl 


11308 


OSKHO 


12077 


0FL01 


11842 


WK2 


10139 


F88420 


04760 


ERNEST 


09556 


ERASE 


03632 


OFLO 


11898 


MK3 


10223 


E88470 


04804 


ERROR2 


11246 


EMP 


08710 


ONE 


11942 


H . 


02240 


F88540 


05016 


FCTENO 


02318 


EGRET 


07512 


OUTCE 


07196 


WW 


02296 


1:88600 


05128 


INTOPi 


02385 


ERMES 


11313 


OUTOK 


10891 


IER13 


12252 


E88660 


05192 


LENGTH 


02248 


ERRET 


00602 


OUTK I 


10212 


SAVOFS 


07963 


F88710 


05236 


LTJUST 


09408 


FAFl 


11384 


0UTK2 


10504 


5AVSYM 


02243 


E88900 


05468 


MINUS! 


11608 


FAF2 


11516 


OUTK 3 


10524 


SSVMWK 


09554 


£89010 


05596 


MONCAL 


00796 


FAF3 


11708 


OUTK 


10056 


STMNTl 


03*96 


E89600 


05888 


MULDEF 


02384 


FAF4 


11756 


OUT 


10682 


STMHT2 


03780 


E89610 


05908 


MVNAME 


09488 


FAF5 


12287 


P2PTR 


02313 


STMTNO 


03436 


E 89660 


059 76 


OUTAOO 


10634 


FAF6 


12730 


PAGE 


12073 


SU8AO0 


08123 


C 89 7*0 


06020 


OUTLIT 


03232 


FLNG 


022SO 


PGNUM 


02222 


SUBFCT 


02291 


E 89820 


06080 


PROGST 


02257 


FMON 


02324 


PGPRT 


11336 


USEDFS 


02263 


E 89930 


06188 


PUSTSN 


02294 


FP2 


02298 


PUNT 


03215 






E90010 


06280 


RACARO 


12102 


GLP 


08644 


PTCO 


03369 







ENO OF ONE ASSEMBLY, 



37'. 









1620-144) MONITOR I VERSION 


2 


FORTRAN 


1 1-0 PHASE 


2 








P«bt 


00010 


•••••• 


SECONO PASS FORTRAN II 




















00020 


I0PT 


OS 


• 5 32 














00532 









000)0 


I0RT 


OS 


,565 














00565 




o 




00040 


lor.r 


OS 


,566 














00566 









00050 


NONCAL 


OS 


, 796 














00796 









00060 


IOCAI 


OS 


,716 














00716 









0007U 


SVSCAL 


OS 


,475 














00475 









00080 




OORG 


2218 














02218 








00090 


HEADER 


OSS 


14 














02218 




14 




00 100 


PGNUM 


DC 


3,1,2222 














02122 




3 




00110 


SI 


-01 
OS 


2 














0223) 




2 




00 120 




OS 


5 














022)6 




5 




00130 


M 


OS 


2 














02240 




2 




00 1*0 


RECLG 


OS 


3 














0224) 




3 




00150 


LENGTH 


OS 


5 














02246 




5 




00 160 


F 


OS 


2 














02250 




2 




00 170 


K 


OS 


2 














02252 




2 




00110 


BfcGAD 


OS 


5 














02257 




5 




00190 


LOCOM 


OS 


5 














02262 




5 




00200 


ufstr 


OSS 


30 














02263 




30 




00210 


FCTSM 


OS 


I 














0229) 




1 




00220 


PuSTSN 


OS 


I 














02294 




1 




00230 


MM 


OS 


2 














02296 




2 




00240 


FP2 


OS 


2 














02298 




2 




00250 


TBASE 


OS 


5 














0230) 




5 




00260 


LSTAO 


OS 


5 














02308 




5 




00270 


P2PTR 


OS 


5 














02313 




5 




00280 


FCTENO 


OS 


5 














02318 




5 




00290 




OS 


S 














02323 




5 




00300 


UGRMK 


DG» 


2 32 ) 














02323 




1 




00 310 


FMON 


TF 


• «42 


,FMON-l 












02324 


26 


02366 


0232) 


00320 




TFM 


| OR T 


, 












02336 


16 


00565 


-2359 


00330 




R 


I0GT 




7 










02348 


49 


00566 


-0000 


00 340 




8 
















02360 


49 


00000 


00000 


00)50 




OORG 


• -4 














02367 








00 360 


JAY 


OS 


1 














02367 




1 




00370 


SR 


OS 


0000*»t, SR.i 














02372 




5 




00380 


sx 


OS 


OOOOSi ,sx, f 














02377 




5 




00 390 


OP 


OS 


00002, , OP, , 














02379 




2 




00400 


sv 


DS 


00005, ,SV,, 














02384 




5 




00410 


ANS 


OS 


00005, ,ANS, , 














02389 




5 




00420 


AOTEHP 


OS 


00005 , , AOTEMP 














02394 




5 




004)0 


Si 


DS 


00005, ,SL,, 














02399 




5 




00440 


B80A0 


OS 


,17340,,, 


DISK AOORESS 


OF 


PAGE 


HEADING 




I 7340 




C 




00450 


blOMAO 


OS 


, 148C0,,, 


CORE STORAGE 


OF 


PAGE 


MEAOING 




14800 









00460 


IFTRC 


DS 


,2226 














02226 




c 




00470 


FACTRC 


DS 


,2227 














02227 




c 




00480 


LIST 


DS 


.2228 














02228 









00490 


PRST 


DS 


,2229 














02229 









00500 


PASS I I 


TF 


LNG 


,MM 












02400 


26 


C9660 


02296 


00510 




TF 


AOCUW , BEGAD 














02412 


26 


06925 


02257 


00520 




AM 


ADCUM.1,10 














02424 


11 


06925 


000-1 


00530 




SET AOORESS IN 


AOCOM TC EVEN 




















00540 




BTM 


AOJUST, AOCOM 














02436 


17 


0)766 


-6925 


00550 




TF 


BEGAO, AOCOM 














02448 


26 


02257 


06925 


















375 


















1620-1443 MONITOR 1 VERSION 


2 


FORTRAN 


II-O PHASE 


2 








PAGE 


00 560 


• 


INI TIALI/E 






















00570 


JMG 


CF 


AOCOM 














02460 


33 


06925 


00000 


00580 




TF 


PUTXZ 


,LSTAO 












02472 


26 


06363 


02306 


00590 




TFM 


IORT 


,•♦2) 












02464 


16 


00565 


-2507 


00600 




B 


IOGT 


•PUTXX , 


7 










02496 


49 


00566 


-8350 


00610 




A 


NEXT 


•P2PTR 












02508 


21 


08404 


0231) 


00620 




TF 


PRE8UF 


, NE XT 












02520 


26 


08713 


06404 


00630 




SM 


NEXT 


tl , 


10 










02532 


12 


08404 


000- 1 


00640 




SF 


FLGRM 














02544 


32 


06372 


00000 


00650 




TF 


OOMAX 


,DC8ASE 












02556 


26 


09607 


04026 


00660 




TF 


• ♦18 


tPREBUF 












02568 


26 


02586 


0871) 


00670 




TR 


BUF1 


,INPUT*26 












02560 


31 


08406 


09724 


00680 




AM 


• -6 


• 75 


• 10, 








02592 


11 


02586 


00OP5 






CM 


• -18 


»BUF4^75 














14 






00 700 




BL 


• -36 














02616 


47 


02580 


01300 


00710 


CLEAR 


BO 


CD12B.00SW 














02626 


43 


10314 


09403 


00 720 


• 


SET UP STRING RECORD CONSTANTS 




















007)0 




TOM 


6GNST*1 














02640 


15 


16000 


00000 


00740 




OC 


1,* ,• 














02651 




I 




00 750 




TF 


SWAREA 


•N130B9 












02652 


26 


09407 


09434 


00 760 




TFM 


N40002,BGNST»4 












02664 


16 


03710 


J6003 


00770 


L 1 


BTM 


GETX 


rSX 












02676 


17 


05434 


-2377 


00780 




CM 


SX, 1)2,811 














02688 


14 


02377 


0-1 3K 


00 790 




BE 


L12 














02700 


46 


02736 


01200 


00800 




BTM 


AOSL.SX 














02712 


17 


05536 


-2377 


00810 




B 


LI, 132,8 














02724 


49 


02676 


0-132 


00 820 


L12 


BTM 


A0SL,»-t 














02736 


17 


05536 


-2735 


00830 




8NF 


L13 


,PRST 












02748 


44 


02644 


02229 


00840 




CM 


8GNST+6 


.1)4 


• 8 










02760 


14 


16007 


C-134 


00850 




BE 


L13 














02772 


46 


02844 


01200 


00860 




BNI 


• ♦24 


,3400 












02784 


47 


02806 


03400 


00870 




K 




• 971 












02796 


34 


00000 


00971 


00860 




CF 


ADC0M-4 














02606 


33 


06921 


00000 


00890 




WN 


A0C0W-4 


• 900 












02820 


36 


06921 


00900 


00 900 




SF 


A0C0M-4 














02832 




06921 




00910 


L13 


TFM 




• 1 


• 8 










02644 


16 


09567 


0-001 


00920 




BT 


GTSCL 


•CTSCL-l 












02856 


27 


06796 


06795 






AM 


SCNT 


. 1 


10 










02666 


1 1 


09693 


000—1 


00940 


L2 


BTM 


GTNS 


,•♦16 












02660 


17 


05622 


-2696 


00950 




OS A 


I 














02696 




5 


X I 






















02696 




-9567 




00960 




OSA 


LV 














02901 




5 


X 1 






















02901 




-9567 




00970 




CM 


LV 


• 152 


• 










02902 




09567 


0-152 


00980 




BH 


L3 














02914 


46 


03024 


01100 


00990 




TF 


N40002 


• 1 












02926 


26 


03710 


09567 


01 000 




AM 


N40002 


• 2 












02936 


1 1 


03710 


000—2 


01010 




BTM 


GTNS 


• •♦16 












02950 


17 


05622 


-2966 


01020 




OSA 


N40002 














0296* 




5 


X 1 






















02966 




-3710 




01030 




OSA 


RV 










3 7 1 1 




02971 




S 


I 1 



MONITOR 1 VERSION 2 FORTRAN I I - C PHASE 2 



PACE 



01040 
01050 



BTM FORCE 
OS A LV 



01080 




CM 


ANS 




1 090 




BNE 


ANS 




01 100 


I 3 


AM 


1 


. 1 


01 110 






12 




01 120 




OORC 






01 130 


EXIT 


CM 


1 .1.10 














01 150 




SM 


1 


.1 












01 170 




□ORG 


• -3 




01 180 






OUTPUT 


STATEMENT NUMBER 










.1 


01200 




BTM 


RMNS 


.•♦16 


01210 




OS A 






01220 




OS A 


SL 




ot230 




TF 


T 3, 


SL 


U1240 




BTM 


RMNS 


,•♦16 


01 250 




OS A 


1 




01 260 




OSA 


L V 




01 270 




BTM 


GTNS 


» 16 


01280 




OSA 


I 




01290 




OSA 


iR 




01 300 




CM 


s«. 


140. 8. DUMMY 


01 310 




BNE 


CKFMT 




01 32U 




TOM 


DOS* 


. 1 


01 330 




RTM 


RMNS 


.•♦16 


01 340 




CSA 


I , SR 




01 350 




BTM 


GTNS 


,•♦16 


01 360 




csa 


I ,SR 





.6 
• 10 



37 7 



02971 




-9597 




02972 


17 


04604 


-2908 


02988 




5 


X I 


02988 




-9587 




02991 




5 


X I 


02993 




-9597 




02998 




5 


X 1 


02998 




-2389 




03000 


14 


02389 


-0000 


03012 


47 


02 38R 


01200 


03024 


11 


09567 


000- 1 


03036 


49 


02880 


00000 


3044 








3044 


14 


09567 


000- 1 


03056 


46 


02880 


01200 


03068 


12 


09567 


coo-i 


03080 


49 


02880 


00000 


3088 








03088 


12 


09567 


000-1 


03100 


17 


05592 


-3116 


3116 




5 


X 1 


3116 




-9567 




3121 




5 


X I 


03121 




-2399 




03122 


26 


09676 


02399 


3134 


I 7 


05592 


-3150 


03150 




5 


X 1 


3150 




-9567 




3 155 




5 


X 1 


3 1 55 




-958 7 




3156 


\ 7 


05622 


- 3 1 72 


03172 




5 


X 1 


3172 




-9567 




3 17 7 






X 1 


03177 




-2372 




03178 


14 


02372 


0-140 


03190 


47 


03258 


01200 


03202 


15 


09403 


00001 


03214 


1 7 


05592 


-3230 


03230 




5 


X 2 


03230 




-9567 




03235 




-2372 




03236 


17 


05622 


-3252 


03252 




5 


X 2 



1620-1443 MONITOR 



VERSION 2 FORTRAN II-C PHASE 2 















03252 




-9567 
















03257 




-2372 




01 370 


CKFMT 


CM 


SR. 128, 


R .FORM A T 




03258 


14 


02372 


0-128 


01 380 




BNE 


SETFCT 






03270 


47 


03346 


01200 


01 390 




BTM 


PUTX 


.•♦16 




03282 


17 


06900 


-3298 


01400 




OS A 


B, BLANK, BLANK 






03298 




5 


x 3 














03298 




-6930 
















03303 




-9426 
















03308 




-9426 




01410 




TF 


SXF 


.AOCOW 




03310 


26 


09602 


06925 


01420 




SM 


SXF 


,10 


.10 


03322 


12 


09602 


OOOJO 


01430 




SM 


AOCOW 


,6 


• 10 


03334 


12 


06925 


000-6 


01440 


SfcTFCT 


TF 


SETAO-l 


.SL 




03346 


26 


0)606 


02399 


01450 




TOM 


SETAO 


• 4 




03358 


15 


03607 


00004 


01460 




BNR 


SETNMT 


.SETAO 


• 11 


03370 


45 


03618 


0368P 


01470 




TOM 


SETAD 


,5 


• • 


03382 


15 


03687 


00005 


01480 




TR 


LSTN 


.SETAO 


• 11* 


03394 


31 


09166 


0368P 


01490 




CF 


LSTN 






3406 


33 


09166 


00000 


01500 




TFM 


SCNT 






03418 


16 


09693 


-0000 


01510 




BNF 


NOTYP-24 


,PRST 




03430 


44 


03538 


02229 


01520 




BN ( 


• ♦24 


• 3400 




3442 


47 


03464 


03400 


01530 




K 




• 971 




0)454 


34 


QOOOO 


00971 


01540 




TR 


LIS 


.ADCOM-4 


• • 


0)466 


31 


04102 


04921 


01550 




TR 


L1S*6 


•SETAO 


• 11. 


03478 


31 


04100 


O340P 


01560 




CF 


LIS 


» 




0)49") 


33 


04102 


00000 


01570 




CF 


LIS^6 


• 


• • 


0)502 


33 


04100 


00000 


01580 




TOM 


LIS^5 






0)514 


15 


04107 


00000 


01590 




DNB 


!*• 






0)525 




1 




01600 




WN 


LIS, 900 






0)526 


30 


04102 


00900 


01610 




TDM 


SETAO, 4, 10 






0)5)0 


15 


03407 


000-4 


01620 




TF 


SETAO 


, AOCOW 


• 6 


0)550 


24 


O340P 


04925 


01630 


NOTVP 


TOM 


SETAD 


• 9 




0)562 


15 


03407 


00009 


01640 




TOM 


SETAO 


• 1 


• 611 


0)574 


15 


O340P 


OOOOJ 


01650 




CM 


SR 


• 120 


• 


0)58* 


14 


02372 


0-120 


01660 




BE 


C00E17 






0)590 


46 


10242 


01200 


01670 




e 


EXIT 






0)610 


49 


03044 


00000 


01680 




DORG 


• -3 






0)610 








01690 


SETNMT 


TF 


N40002 


, SETAO 


• U 


0)610 


26 


03710 


O340P 


01700 




CF 


N40002 






0)6)0 


33 


03710 


00000 


01710 




SM 


N40002 


• 4 


• 10 


0)642 


12 


03710 


000-4 


01720 




BTM 


PUTA 


• •♦16 




0)654 


17 


08220 


-3670 


01730 




OSA 


N40002, AOCOW 






03670 




5 


X 2 














0)670 




-371C 
















0)675 




-4925 




01740 




8 


SETFCW36 


• 4 




03676 


49 


C3382 


CC0C4 


01750 


SET AC 


CS 








03687 




C 




C1760 


CCOEC 





EXIT 






03600 


49 


C3C44 


ccocc 


01770 




OORC 


• -3 






03696 








01780 


N2C0CC 


OS 




• •♦I 




C3696 




C 




01790 


N4CCCC 


CS 


5 






037CC 




5 




018C0 


N400C1 


CS 


5 






037C5 




5 




01810 


N40CC2 


OS 


5 






0371C 




5 




01820 


N40CC3 


CS 


5 




37o 


03715 




5 




01830 


N4CCC4 


CS 


5 




C3720 




5 





162C-1443 PCMTCR | VERS1CN 2 FCRTRAN ll-C PHASE 2 



PAGE 



018*0 


N4CCC5 


CS 5 


03725 




5 




I 85C 


N*CCCt 


C S 5 


C373C 




5 




ci etc 


N*CCC7 


CS 5 


3 7 J 9 




5 




01870 


N*CCCC 


CS 5 


0374C 




5 




01880 


K*CCCS 


CS 5 


C 3 7*. 5 




5 




CI 890 


N*CC 1C 


CS 5 


C375C 




5 




CISCO 


N A C C 1 1 


CS 5 


C 3 755 




■ 




C191C 


N*C012 


CS 5 


0376C 




5 




C1920 


N2C0C 1 


CS 


C376 1 




C 




0193C 




FORTRAN ADJUST PRCCECURE •••••• 










CI 940 




CS 5 


03765 




5 




01950 


ACJUST 


PM •-1.5.61C, MULTIPLY ACCCk-ev 5 


03766 


13 


C374N 


CCC-5 


01960 




BO •♦l*#99 


03778 


43 


C37S2 


CCC99 


0197c 




68 


0379C 


42 


CCCCC 


CCOCC 


01480 




CORC «-9 


03792 








0199C 




AM ADJOST-l , 1 ,610, ACC 1 TC ACCCh 


C3792 


11 


C376N 


CCC-l 


Q2CC0 




88 


C38C4 


42 


CCCCC 


CCOCC 


C2C1C 




CORC • -* 


03811 








02C20 




FORTRAN CP SEARCH ROUTINE •••••• 










02C30 


CPSR 


TF CPSX, •-l.il, PCVE IN PARAMETERS 


03812 


26 


C3I83 


C381J 


02C4Q 




AM 0PSR-1,5,IC 


C3824 


11 


C3I11 


CCO-5 


02C50 




TF OPGT,CPSR-l,ll 


03836 


26 


C 39 I* 


C381J 


02C60 




AM 0PSR-1,1,1C 


03848 


11 


C3811 


CCC-t 


02C70 




TFM CPTl.CBASE 


0386C 


16 


C3919 


-2841 


02C80 




A OPTl-l,,, GENERATE TABU ACCRESS 


03872 


21 


C391I 


CCOCC 


02C90 


CPSX 


CS 


03883 




C 




021C0 




BO •♦2*»FX (( IS IT FIXEC CP flCATING VAR ! ABLE 


03884 


4 3 


C39CI 


C3931 


C2110 




SM 0PT1.5.1C, FLOATING. ACJUS? TAeiE ACCRCSS 


03896 


12 


C3919 


CCC-5 


02120 




TF ,,, PCVE ENTRY ACCRESS TC A CT 


039C8 


26 


CCCCC 


CCOCC 


02130 


UPGT 


CS ,»-5 


0391* 




C 




02140 


CPTl 


OS 


03919 




C 




02150 




B OPSR-l.,6, EXIT 


C392C 


49 


C381J 


CCOCC 


02160 


FX 


CS 1,« 


C3931 




1 




C217C 


ueASE 


CS • •♦IC-UCO 


02841 




C 




0218C 


FL AO 


CC 5.C4C9C 


03936 




5 








-*C9C 










02 ISO 


FXAD 


CC 5.C3878 


03941 




5 








-38 78 










C22C0 


REP* 


OC 5.C7230 


03946 




5 








-7230 










02210 


PRINT 


OC 5,C*35* 


03951 




5 








-*3i* 










02220 


TRACE 


OC 5,0 3*96 


03956 




5 








-3*96 










02230 


RE AO 


DC 5,0**26 


03961 




5 








-**26 










02240 


CCREF 


DC 00CC5 , 1 76CC , tOCREF , 


03966 




5 








J76C0 










02250 


TYPE 


CC 5,04282 


3971 




5 








-*262 










C2260 


FlPUL 


CC 5,C*138 


C1976 




5 








-4138 










C2270 


FXPUl 


CC 5,C395C 


03981 




• 








-3950 










C228C 


FlFXP 


CC 5,C*258 


C3986 




■ 





3 7!) 







1620- 1**3 PCNITCR 1 VERS1CN 2 FCRTRAN I I - C PHASE 2 






C229C 


FXEXP 


CC 5,C*23* 


C3991 


5 






-423* 






C23CC 


SLBl 


CC 5.-C225B 


03996 


• 






-225Q 






C2310 


ACCEPT 


CC 5.C4378 


C4CCI 


5 






-*378 






C232C 


SLP2 


CC 5 V -C2263 


Q4CC& 


« 






-226L 






C233C 


ACCTAP 


CC 5,C4*C2 


C4CU 


« 






-**C2 






C234C 


sees 


CC 5,-C226e 


04O6 


c 






-226Q 






C235C 


PINCH 


CC 5.C433C 


C4C21 


■ 






-*33C 






02360 


CCPASE 


CC CCCC5 ,176CC,,0CEISE, 


C4C26 








J76CC 






C23 7C 


PINTAP 


CC 5,C*3C6 


C4C31 


5 






-43C6 






C23SC 


Ftsue 


CC 5.C4C66 


C4C36 








-4C66 






0239C 


fx sue 


CC 5.C39C2 


C4C41 


5 






-39C2 






C24CC 


FICVC 


CC 5,C*162 


C4C46 


5 






-4162 






C2410 


FXCVC 


CC 5.C3974 


C4C51 


5 






-397* 






C242C 


FIRCV 


CC 5,C*186 


04C56 


• 






-4186 






02430 


FXROV 


CC 5.C3998 


C4C61 


« 






-3998 






02*40 


FXTOFl 


CC 5.C4C42 


C4C66 


5 






-*C*2 






02*;c 


FLTCFX 


CC 5,C3854 


C4C71 


5 






-3854 






02460 


RUSIB 


CC 5,04114 


C*C76 








-4114 






C247C 


RFXStC 


CC 5.C3926 


C4C81 


5 






-392 6 






02*8C 


RSNFL 


CC 5.C4C20 


04CB6 


5 






-*C2C 






0249C 


RSNFX 


CC 5.C4C2C 


C4C91 








-4C2C 






025CO 


ATVPE 


CC 5,04536 


C4C96 


« 






-4536 






C2510 


SLASH 


CC 5.C6676 


041C1 








-6676 






C2520 


REP 


DC 5.C7126 . ' 


041C6 








-7126 






02530 


ITYPE 


CC 5.C4448 


C4111 








-4448 ' - 






02540 


FTVPE 


CC 5,04551 


C4116 








-4558 






02550 


ETVPE 


CC 3,C*58C 


C4U1 








-458C „ Q 






02560 


*ECC 


CC 5,C?C26 «»0 » 


C412* 








-7C-26 ■ • 







162C-1443 PCM 1 CO" I VERSICK 2 FCRTRAH ll-C PMSE 2 MCE 



G25 7C 


HVPE 


CC 


5,C46Q2 








C4131 




5 








-46C2 


















025BC 


XTVPE 


CC 


5.C7354 








C 4 1 3 6 




5 








- 7 354 


















C2590 


AS TCP 


CC 


5,C2395 








C4141 




« 








-2 IS 5 


















o?tco 


FRFAC 


CC 


5.C3452 








C4146 




5 




C2t 10 


1CFAC 


-3452 
CC 


5.C3408 








C4151 




• 








-34C8 


















C262C 


FACAC 


CC 


5.C2492 








C4156 




« 








-2492 
















C263C 


1C 


CC 


5.C6C9C 








C4161 












-6C9C 
















C264C 


ICFNC 


CC 


5.C7CC6 








C4166 




• 








-7CC6 
















C26 50 


1 X I 


CC 


5.C421C 








C4 1 7 1 












-421C 
















C266C 


PAR 


CC 


5.C3378 








C4176 




« 








- 3 3 7 8 
















C2 6 7C 


PAT 


CC 


5.C6518 








C4I8I 




• 








-6518 
















C26BC 


6CNST 


CS 










15999 




C 




C2690 


LIS 


CSC 


12, C 








04182 




12 








COCCCOCCCCCC 
















C27CC 




CC 


I • • • 1 7fcCC 








176CC 




1 




C271C 




FORTRAN SVPBCL 


TABLE 














C2720 




CS 


5 








C4196 




« 




0271C 


SRFCT 




SRSY, •-l.il, 




PCVE IK PARAPEIERS 




C42CC 


26 


C427 1 


C419R 


C274C 




AM 


SRFCT-1 ,5, IC 








04212 


11 


C4199 


CCO- 5 


C2750 




TF 


SRGT.SRFCT-l 


,11 






04224 


26 


C4322 


C419R 


C276C 






SRFCT-1 ,1,IC 








C4236 


11 


C4199 


CCC-l 


C277C 




TDP 


SBASE ,4 








C4248 


15 


C4395 


CCCC4 


C27BC 




TF 


SBASE-1 








C426C 


26 


C4594 


CCCCC 


C2790 




CS 


i • 








042 7 1 




C 




C28CC 




BNR 


SRKX, SBASE, 11 






C4272 


45 


C4316 


C459K 


C2e 1C 




TFP 


SRG T , C , 6 7 








C4284 


16 


C432R 


-CCCC 


C2E20 




TOP 


RPSh.l.ll 








C4296 


15 


C5CC9 


CCCCJ 


02830 




8 


SRFCT-1 ,,6 








C43C8 


49 


C419R 


CCCCC 


C284C 




CQRC 


•-3 








C4316 








C2B5C 


SRNX 


TF 


, SB A SE , 11, 




PCVE C8JECT ACCRESS CF SYPfiCl 


TC CT 


C4316 


26 


ccccc 


C4 59K 


C2*eo 


SRf.T 


CS 


,•-5 








C4322 




c 




C2e7C 




TOP 


FPS* 


.c 






C4328 


15 


C967S 


CCCCC 


C2eec 




8NF 


•♦68.SRG1.11 








C434C 


44 


C44C8 


C432R 


0289C 




eo 


•♦36. S* IPSW 








C4352 


43 


C418C 


C96I1 


C29C0 




CF 


SRGT, ,6 








C4364 


33 


C432R 


CCCCC 


C291C 


C*S% 


CS 


, •- 1 








C4374 




C 








OS 










C 4 3 7 5 








C293C 




TOP 


FPSh, 1, 11 








C4176 


15 


C9679 


CCCCJ 


0294C 




TF P 


OPX.27.1C 








C4388 


16 


C4417 


CCCR7 


C295C 




8 


• ♦2C 








C44CC 


49 


C442C 


CCCCC 






CORC 


• -3 
















C297C 




TFP 


OPX , 1 7, IC 








C44C8 


16 


C4417 


CCCJ7 


c?9ec 


CPX 


CS 


.•-2 








C441 7 




C 




C299C 




AH 


SBASE, I, IC 




38 1 




C442C 


11 


C4595 


CCC-l 








162C- 1443 PCMTCR 


I VERSICK 2 FCRTRAK II-C Pf-A*E 2 








PAGE 


03CC0 




■TO 


FXCRFL, SBASE 


,11. 


SET FIX CR FLCAT 




C44 32 


25 


C4597 


C459K 


C3C 10 




AM 


SBASE, 1.1C 








C4444 


11 


C4395 


CCC-l 


C3C20 




TO 


DPSh.SBASE.l 


1. 


SET CIPEKSICK SWITCH 




C4456 


25 


C4374 


C459* 


C3C3C 




TOP 


CCPSk. 


,c 






C4468 


15 


C4375 


CCOCC 


C3C40 




BNF 


•♦24, DPS* 








0448C 


44 


C45C4 


C4374 


C3C5C 




TOP 


COPSfc.l ,, 




SET CCPPCK SfclKF 




C4492 


15 


C4375 


CCCC1 


C3C60 




60 


•♦2C, DPSh,, 




IS IT CIPEKStCKEC 




C45C4 


43 


C4524 


C4374 


C3C 7C 




B 


SRCFFL, , , 


KC EXIT 








C4 56C 


CCOCC 


C3C8C 




CORG 


•-3 








C4524 








C3C9C 




SM 


SBASE ,7, IC 








C4524 


12 


C4595 


CCC-7 


C31CC 




TF 


PI, SBASE, 11, 




SET 1 PAX 




C 45 36 


26 


C9671 


C499K 


C3UC 




AH 


SBASE ,7, IC 








C4548 


11 


C4595 


CCO-1 


03120 


SRCFFL 


CF 


FXCRFL 








C456C 


33 


C4597 


CCCCC 


C3130 




SM 


SBASE, 2, IC 








C4572 


12 


C4|95 


CCC-2 


C314C 




e 


SRFCT-1 , ,6, 




EXIT 




C4584 


49 


C419R 


CCCCC 


C315C 


SBASE 


CS 










C4595 




C 




03160 


FXCRFL 


CC 


2.C 








C4597 




2 




C3170 




FORTRAN FCRCE 














C31BC 




CS 


5 








046C2 




• 




C319C 


FCRCE 


TF 


FLV. •-l.il, 




PCVE IK PARAPETERS 




C46C4 


26 


C4682 


C44CL 


032C0 




AM 


FORCE-1 ,5,1C 








C4616 


11 


C46C3 


CCC-l 


C321C 




TF 


FRV, FORCE-1 , 


11 






C4626 


26 


C4766 


C46CL 


C 322C 




AM 


FORCE-1 ,5, IC 








046 4C 


11 


C46C3 


CCC-5 


C3230 




TF 


FAKS.FCRCE-1 


.11 






C46S2 


26 


C489B 


C44CL 


C324C 




AM 


F0RCE-1.2.1C 








04664 


11 


C46C3 


CCC-2 


C3250 




CM 


• 1C4 


tS.IS 


LEFT CPERATCR LESS THAN CP tCh VALUE 


C4676 


14 


CCCCC 


C-1C4 


C3260 


FIV 


CS 


,•-5 








04682 




C 




03270 




81 


F0«CB*24 








04688 


47 


C4I8C 


CI ICC 


0328C 




TFP 


F T 1 , F BA SE , » 




PCVE TABLE BASE TC FTl 




C47CC 


16 


C491S 


-39C1 


G329C 




A 


FTl-l , FLV, 11 


» 


GEKERATE TABLE ACCRESS 




04712 


21 


04914 


C44IP 


033C0 




TF 


LVAL.FTl.ll, 




REPCVE LEFT VALUE FRCP TABLE 




04724 


26 


C4937 


C491K 


C3310 




AM 


FT1,7,1C, 




ACC 7 TC TABLE ACCRESS 




04736 


11 


C4915 


CCC-7 


C3320 




TF 


FCGOE.FTl.il 




REPCVE CCCE FRCP TABLE 




04748 


26 


C49C3 


C491K 


0333C 




CM 


, IC4 


U.I! 


RIGHT CPERATCR LESS THAN CP 1CM 


VALUE 


0476C 


14 


CCCCC 


C-1C4 


03340 


FRV 


CS 


,•-5 








04766 




c 




C3350 




BL 


F0RCB*24 








04772 


47 


C488C 


C13CC 


03360 




CM 


FRV , 141 ,69 , 




IS CP HIGHER THAK HIGH VALUE 




C47I4 


14 


G476C 


CCJ41 


03370 




BH 


FORCC 








C4796 


46 


C4916 


CUCC 


03380 




TFP 


FTl .FBASE*. 




PCVE TABLE BASE TO FT 1 




04808 


16 


C4915 


-39C1 


C339C 




A 


FTl-l.FRV.ll 




GEKERATE TABLE ACCRESS 




04820 


21 


C4914 


C474C 


034C0 




AM 


FT1.2.1C. 




ACC 2 TC TABLE ACCRESS 




04832 


11 


C4915 


CCO-2 


C341C 




IF 


RVAL, FTl, 11, 




REMOVE RIGHT VALUE FRCP TABLE 




04844 


26 


C4939 


C491K 


03420 


FGRCB 


C 


LVAL.RVAL,, 




COMPARE LEFT VALUE TC RIGHT 




048S6 


24 


C4937 


C4939 


03430 


flNH 


• ♦24 








04868 


47 


C4I92 


CUCC 


C3440 




TFP 


FCCCE, , , 




PCVE 2ERC TC CCCC 




0488C 


16 


C41C3 


-CCCC 


03450 




TFP 






PCVE 2ER0 CR CCCE TC FAKS 




04192 


16 






03460 


FCCDE 


CS 


,* 








049C3 




C 




03470 


FANS 


CS 


.•-5 








04698 




C 




03480 




B 


FORCE-1,, 6, 




EXIT 




04904 


49 


C46CI 


CCCCC 


0349C 


FT I 


CS 


5,« 








04915 




5 




035C0 


FGRCC 


TFM 


RVAL,0. IC 








C4916 


16 


C4939 


CCC-C 


03S10 




B 


FORCe 








04928 


49 


C4856 


CCOCC 


03320 




CORC 


•-3 








04936 








C3S3C 


LVU 


CS 


2 








04931 




2 




03540 


RVAL 


OS 


2 




382 




04919 




2 











U2C-1443 «M1Ci 


1 VtftSIC* 


2 FCH1M* Il-C P>*$f J 






C399C 




CS 


••♦2-IC4C 






03901 


C 


onto 




OC 


2.1. . 


MAItffc 




C4941 


2 


C397C 




CC 


2.5C 






C4943 


2 






NO 












C3980 




CS* 


13 






C494I 


• 














C494I 


-3C24 


C39 9C 


Ml AC 


CC 


1 » C 






04949 


1 


c$«co 




CC 


2,«C, 


ecu 




0499 1 


2 






CO 












oxic 




CC 


2.59 






C4993 


2 






K9 












C1C20 




CSA 


COCEt 






04998 


9 














04998 


JCC74 


C383C 


MFl AC 


CC 


I.C 






C4S99 


1 


C3*4C 




CC 


2.C., 


C'CMUffC 


CCIC 


C49U 


2 


oeso 




-0 
CC 


2,C 






04963 


2 






-0 












oceo 




CSA 


coce< 






C49*8 


« 














C4968 


JC14* 


C347C 


PIS* 


CSC 


i.c 






C4949 


1 


oieec 




c 

CC 


2,2,, 


IF 




C4971 


2 


C3*9c 




-2 
CC 


2.C 






C4973 


2 


017C0 




-0 
CSA 


C0CE7 






04978 


■ 














04978 


JCC9I 


C371C 


CAll* 


CC 


i.c 






C4979 


1 


C3 720 




CC 


2»C, t 


CC 




C4<ei 


2 


C373C 




-0 
CC 


2.C 






C4983 


2 


C374C 




-0 
CSA 


CCC€ 12 






04988 


5 














C4988 


JC17C 


C379C 


FFdSk 


CS 


I 






C4989 


1 


C37ft0 




CC 


2. Co 


CCA 




C49U 


2 






-0 












C3770 




CC 


2.C 






04993 


2 


ciiec 




-0 
CS* 


COCEC 






C4998 


« 














04998 


-3*ee 


C379C 


SliPS* 


CS 


I 






C4999 


i 


C38CC 




CC 


2.1C, 


PIUS 




C9CC1 


2 



JO 

C3810 CC 2,1C 38 5 C9CC3 2 

JO 



U2C-1443 PCMIC* I VERSIC* 2 FCHf OAK ll-C PMSE 2 
CSA C0CE1 



C383C HPS* 
0384C 



C189C 
C3860 



CS 
CC 
-0 
CC 
-0 

CSA C0CE14 



1 

2.C. 



2,C 



C387C FLAGS* CS 
038CC CC 
-0 

C389C CC 
-0 

039CC OSA C0CE14 



1 

2.C, 



2,C 



0391C CHS* 
0392C 

C393C 

0394C 

C395C 
C3940 
C397C 
C398C 

C399C 
C4CCC 
C4C10 

C4C20 

C4C5C 
04C40 
04CI0 
04CC0 

04C70 



CS 
CC 
-0 

CC 

-o 

OSA CCCE14 



CC 



CC 

CC 
-5 
CC 



CC 



2.C. 
2.C 



I.C 
2,5, 
2,5 



CC 
-5 

CC 
-5 

CSA C0CE1 



I.C 
2,5.. 

2*4 

-4 ' 

CSA C0CE1 



L,C 
2»C. 

2,C 



CC 

-o 

CC 

-0 

OSA C0CE14 



PRIM 



I.C 



38'* 



C9CC8 
C9CC9 
09CU 

C5C13 

C9C18 

C9C18 
C5C19 
C5C21 

C9C23 

CSC28 

C9C28 
C9C29 
C5C31 

C9C33 

C9C38 

C5C3I 

C9C39 

C9C4I 
09C43 
C9C48 

C9C48 

C9C49 

C9C91 

C9C93 

09C9S 

09C98 
09C99 

C9C41 

C9C43 

C9C68 

CSC48 
090*9 



JCCC2 
1 
2 



JC194 
1 
2 



2 

9 » 



JC194 
1 
2 



2 

9 I 



JC194 
1 



2 
2 

9 » 



JCCC2 
1 



2 
2 

9 X 



JCCC2 
I 



2 
2 

9 * 



JC194 
1 



0423C 
04240 
C4250 
042(0 

C427C 
C420C 
C4 2 90 
C43CC 

C431C 
0432C 



cc 



cc 



cc 

-5 
CC 
-5 

CSA COCEl 



CC 2, 
-0 

CC 2, 

-0, 

CSA CO 



f»9 



C-1441 KKIfCI I VEftSICh Z PCMPA* Il-C PMSf 2 



paci 



II 



04CIC 


cc 


2,C. . 


ACCEPI 1 API 


C5C71 


4 




-0 










04 C 90 


cc 


2 » C 




C5C73 


4 




-0 










C4 ICC 


CS A 


CODE 14 




C9C70 


* 










C9C70 


JC194 


C4 11C 


cc 


i i c 




C 5C 79 


1 


04120 


cc 


2.Ct * 


PIKCH 


09CI I 


2 




-0 










04130 


cc 


2,c 




C9C03 


4 




-0 










C4 140 


OS* 


COCI 14 




C9CH 


* 










cicai 


JC194 


C4 150 


cc 


ItC 




C9C09 


1 


04UO 


cc 

-0 


2.C, , 


puhc^ tape 


C5C91 


2 


04170 


cc 


2*C 




C5C93 


2 




-0 










C410C 


CSA 


COC€ 14 




C5C9 












C9C90 


JC194 


C419C 


cc 


1 tC 




C9C9S 


1 


C42CC 


cc 


2. 1C, . 




09101 


2 




JO 










C4210 


cc 


2, 1C 




C91C3 


2 




JO 










C422C 


CSA 


C0CE1 




C9IC0 


■ 



C I V ICE 



C5ICI 
C51C9 

C5111 

C5113 

C5110 

C5 110 
05119 

C5121 

C9123 

C5120 

C5120 
C5129 



JCCC2 
1 

2 

2 

! a 

jccci 
i 

2 

2 

5 * 
-3*00 



0433C 
C434C 

043*0 
C43«0 
04370 
O430C 

C439C 
C44CC 
C4410 
C442C 

C443C 
C444C 
044 5C 
044*0 

C447C 
C440C 
C449C 
C49CC 

04910 
04920 
C453C 
04940 

04990 
04910 
04970 



CC 
¥% 

CSA CCCE0 



CC 



CC 



CC 



CC 



cc 



cc 

-5 
CC 
-0 



162C-1443 PCfc'ITC* I VEPSIC* 2 KMPAK I|-C PMSE 2 

2.4e 



PACE 12 



1 tC 
2, AS, 
2,1 



CC 
*9 

CC 
-1 

CSA C0CE3 



1 tC 
2,fcC, 
2,59 



CC 
CO 
CC 
N9 

CSA COCEt 



ItC 
2,6 C, 
2,59 



CC 
CO 
CC 
N9 

CSA COCE€ 



l.C 

2 tec. 

2.59 



cc 

CO 

cc 

N9 

CSA C0CE4 



l.C 

2.6C. 
2,59 



CC 
GO 
CC 
N9 

CSA C0CE17 



1, C 
2,5. 

2. C 



PAUSE 



38« 



C5 I 33 

C5130 

C5130 
05139 

C5141 

C5143 

C5140 

C5140 
C5149 

C 5 1 5 I 

C5153 

05150 

C9190 
C51S9 

C9U1 

C5163 

09160 

C916I 

C9U9 

C9171 

05173 

09171 

O9I70 
C9179 

C9101 

09113 

05100 

09110 
09119 

09191 

09193 



JCI2 



JCC2 



JCC7 



JCC7 



04 1IC 
C454C 

ctecc 
uno 

C4I2C 

c*nc 

C4*4C 
C4*3C 
C44C0 

04*70 
C4«tC 
C4«40 

C47CC 

C471C 
C472C 
C4 73C 
C474C 

C475C 
C474C 
C477C 
C4 7IC 

0474C 
C46CC 
C4IIC 
C4I2C 



U2C-1443 KMKP I VCHSICK 2 1 1-C >M$I t 

CSA C0CE4 



MCf 



IS 



cc 



ItC 
2.C. 
2.2 



CC 
-0 

cc 

-2 

CSA COCEC 



CC 



CC 



CC 



CC 



CC 



1. C 

2. C, 
2.C 



CC 
-0 
CC 
-0 

CSA COCALL 



1. C 

2. tC. 

2,ec 



CC 
CO 
CC 
CO 

CSA CCCEC 



CC 
CO 
CC 
N9 

CSA C0CE1 



l.C 

2.6C, 
2,5? 



1. C 

2. C, 
2.C 



CC 
-0 
CC 

-0 

CSA CCCE5 



1. C 

2. C, 
2*C 



CC 
-0 
CC 

-o 

CSA FCT1 



<E*Sf StlfCt 



CALL fill 



f CtAt 



38? 



csm 

C9144 

09201 

C92C3 

C32C9 

C92CI 
C92C4 

09211 

C9213 

C921I 

09211 
09211 

C9221 

09229 

C922I 

09221 
C9224 

C9231 

C3233 

C923I 

C323I 
C9234 

C9241 

€9243 

C5248 

C924I 
09244 

C9291 

C9293 

C929I 



9 » 



JCC9C 
1 



2 

9 I 



-3411 

1 



2 

2 

9 I 



JC41C 
1 



2 
2 

9 A 



1 



JCCC2 
2 



C4I3C 
C4I4C 
C483C 
C4*«C 

C4C7C 
C4MC 

c*e«c 

044CC 

C4410 
C4S20 
C443C 
C444C 

C449C 
C4440 
C447C 
C44IC 

C4440 
CSCCC 
09C10 
C5C20 

C9C3C 
C4C4C 
CSC90 

OSCtC 

C9C70 



CC 

CC 
-0 
CC 
-0 
CSA 



CC 



U2C-1443 KM ?CA 

1. C 

2. C., 
2.C 
FCT1 



VERS1C* 2 FCHIiAK Il-C RMSf 2 



1. C 

2. C 
2.C 



CC 
•0 
CC 
-0 

CSA FCU 



CC 



ItC 
2tC, 

2.C 



CC 
-0 
CC 
-0 

CSA C0CE19 



CC 



CC 



CC 



1. C 

2. C, 
2.C 



CC 
-0 
CC 
-0 

CSA PCTft? 



1. C 

2. C., 
2.4C 



CC 
-0 
CC 
CO 

CSA COCEC 



1. C 

2. C, 

2.C 



CC 
-0 

CC 
-0 

CSA CCCE4 



CM 



MVLftfc 



I no 



ItC 



38* 



C929I 
09294 

CS241 

C9243 

C92CI 

C92CI 
C9244 

C92I1 

C9273 

09274 

C527I 

C9271 

09211 

C92I3 

09211 

C92II 
09214 

09241 

09241 

09241 

09241 
09214 

C910I 

091C1 

C93CI 

0IICI 
C93C4 

09311 

09313 

09311 

C931I 

etiit 



JC33I 
1 



2 

2 

9 A 



JC33I 
1 



2 
2 

9 9 



JC21I 
1 



2 
2 

3 I 



JC342 

1 



2 
2 

9 A 



I 



2 
2 

9 I 



JCC74 
1 



162C-1443 * CM TCP ! VEBSIG* 2 ECHTMN ll-C PMSE I 



05 CIC 
C5C5C 
OS ICO 

05 UC 
C512C 
C513C 
05140 

C515C 
OSUC 
C517G 

csiec 

CS ISC 
052CC 
C521C 
CS22C 

CS23C 
C524C 
C525C 
C524C 

C527C 
C52EC 
C52SC 
C53CC 

C531C 
C532C 



cc 
-I 
cc 

-0 

CS* CCCE14 



2,1, 

2,C 



CC 



1. C 
2,1, 

2. C 



CC 
-I 
CC 
-0 

CS* C0CE14 



CC 



ltC 
2,1, 
2,C 



CC 

-I 

cc 

-0 

CS* C0CE14 



cc 



1. C 
2,1, 

2, C 



CC 

-1 

cc 

-0 

CS* C0CE14 



CC 



CC 



CC 
-0 



1. C 
2,1, 

2. C 



CC 

-1 
cc 

-0 

CS* C0CE14 



1. C 
2,1, 

2, C 



CC 

-I 
cc 
-c 

CS * CCCE14 



1. C 

2, C, 



EETChV 



09321 

C3323 

C532B 

C332I 
05329 

09331 

09333 

C533I 

9 331 
C9 33S 

CS341 

09343 

C9348 

CS348 
C9345 

C9351 

C9393 

C5358 

C339B 
C5395 

053*1 

09363 

093(0 

C53te 
CS3*« 

C9371 

C5373 

CS378 

05378 
C93TS 



JC194. 



JCH4 



3 8 tJ 



C533C 
C534C 

C535C 
C53«C 
C537C 
C538C 

C53SC 
G54CC 
C5UC 
0542C 

C543C 
C544C 
C545C 
C544C 

C54 70 
054 8 C 
C54?C 
C99CC 



CC 



CC 



CC 



CC 



1*20-1443 PCNITCP 1 VEtSfCN 2 FCMMfc II-C PMSE 2 
2,C 



CC 

-c 

CS* CD5S*B 



1. C 

2, C, 
2,C 



CC 
-0 

cc 

-0 

CS* CQCES S 



1. C 

2. C, 
2.C 



CC 
-0 

cc 

CS* COCESS 



1. C 

2. C 
2.C 



CC 
-0 

cc 

-0 

CS* COCESS 



1. C 

2. C, 
2.C 



CC 
-0 
CC 

-o 

CS* COCALL 



C*lt IIM 



099 10 • •••• 

05920 

05930 GETX 
09940 
05950 
059(0 

05970 GETS* 
05 510 
09950 
C5UC 

05*10 GETBLK OSC 
02 

05120 CS* 



GETX FCRTMN R CUT IKE 



CS 
•MM 
1FP 
8 

AM 
TP 
TR 
IB 

OOftC »-5 
2.2 



GETS* • INPUT 
I OUT 
IOGT 
GTBLKB 

GETX-l,IhPLT*3,4, 
INPUT •INPLT*4 (t 



,•♦23 
,CET9l* 

1 



.7 
tlC 

GET NEXT Stmi 
SLICE OCNN 



GTBIKA 



31)0 



05383 

C9388 

C9388 
093S9 

C5351 

C5393 

C5398 

C53S8 
09359 

C94C1 

C94C3 

094CI 

OS 40 8 

C54C5 

0941 1 

054 13 

054 IB 

0541 B 
C9415 

09421 

09423 

0S42C 

0542B 

09439 

094S4 45 

05446 14 

C949B 49 

054 TO 11 

09412 It 

€5494 11 

0990* 42 
CSSOB 
C35CI 

05514 

C99I4 



JC25C 
1 



JC2C* 
1 



40**4 
1 

2 

2 

5 

402*4 
1 

2 

2 

9 

JC41C 
9 

C94B2 
CC14S 
009*4 
€9931 
C5431 
09444 

ceecc 

2 
5 

-551* 



C949B 

-5449 
-5509 

CCO-l 
C9TC1 
C9TCI 
CCCCC 



162C-1441 PCM TCP I Vf HSICAi 2 PCATAAN ll-C PHASE 2 MGf 



C963C 




cc 










C99 19 




1 




C944C 


CULM 


CSC 

c 


i.C 








C5914 




1 




C96SC 


CTIIKI 


cc 


9.6CC 








C9921 




i 








-06CC 
















09(60 




cc 


3*1 








C5924 




3 








-01 


















CSC 70 




csa 


INPCT 








C9929 




« 


X 1 
















09929 




• 4458 




0968C 




cc 


l.« 








C991C 




1 




0949C 


•••••• 


FORTRAN || GTKS, 


RPMS» 














C97CC 




OS 


9 








09939 




9 




09710 


ACSL 


TF 


N4CCC2 


tACSL- 


1 ,||l, 




09936 


26 


C371- 


C991N 


C572C 




AM 


N4CCC2 


♦ 1 


• 1C» 




09941 


11 


C371C 


CCC-1 


C573C 




TOP 


N4CCC2 




• 6 • 




0996C 


19 


C371- 


CCCCC 


CS74C 




cc 

i 


1 


» • 


t • • 




C3971 




1 




C$150 




AN 


N4CCC2 


tl 


?1C» 




C9972 


1 1 


C371C 


CCC-3 


C576C 




892 




* 


* ' 




C99I4 


42 






C577C 




CS 


9 








C999C 




5 




CS78C 


RPNS 


TOP 


RPNS*8«1,11, 




SET RPNS SNITCH TC FLAG 1 




C9392 


19 


C960C 


CCOC J 


09790 




BT 


RGR,RPNS-1 








C96C4 


2? 


C9692 


C9951 


C9ICC 




CS 


9 








CS62C 




■ 




C91 10 


GINS 


TOM 


RMKS*8,1.. 




J K 1 win) 9, 1 1 V" 1 *» ■» 




C9622 


If 


C96CC 


CCCC I 


05B2C 




BT 


R6R t G INS- 1 








C9C34 


27 


C9682 


C9421 


05(30 




CS 


9 








09€9C 








C5(4C 


RPNS 


TOP 


RMNS*8,Ct* 




SET RPNS SNITCH fC C 




09692 


15 


C96CC 


CCCCC 


05190 




BT 


RGR«RPNS-l 








C9664 


27 


C9682 


C5691 


0S(6C 




CS 


5 








C5*(C 




• 




09(70 


RGR 


TP 


RGRl, •-l.il, 




PCVE IK ACCRESS CF I 




C96B2 


26 


C9736 


C969 J 


C5II0 




AM 


RGR-1, 5,10 








09654 


1 1 


C 96f 1 


CCC-9 


C5(9C 




TF 


RGR S, RGR-1 ,11 , 




FCVI IN ACCAISS CF SVPBCL 




C97C4 


26 


C9777 


C568 J 


C59CC 




AM 


RGR* lilt 10' 








09711 


1 1 


C96( 1 


CCC-1 


095 10 




PM 




»4 


.IC 




0973C 


1] 


CCCCC 


CCC-4 


C5S2C 


rgr i 


CS 










C9736 




c 




CS53C 




AM 


95 


.ecNsi 


, .SET UP STRING ACCRESS 


09742 


11 


CCC55 


J5955 


C554C 




BO 


REPCET 


.RPN$*8 , • 




09794 


43 


C9796 


C96CC 


CS550 




TF 


99 


i 


,6 .PLACE SVPtCL CN 


STRING 


C9766 


26 


CCC5R 


CCCCC 


C556C 


rgrs 


CS 










C9777 




c 




05570 




BT 


RGR-1 


t 


.6 t 




C977I 


49 


C56(J 




095(0 


REMGE T 


TF 


RGRS, 99, 611, 




T APE SYPBCL FRCP STRING 




CS7I* 


26 


C977P 


CCC5R 


0959C 




BNF 


RGR-1, RPNS*8t6 




EXIT IF GTfcS 




CS79B 


44 


C968J 


C96CC 


06CCC 




AM 


99 


'.1 


• IC 




C5IIC 


U 


CCC55 


CCC-1 


06C10 




TF 


92 


t95 






05(22 


26 


CCC52 


CCC59 


C6C2C 




SM 


92 


|4 


»io! 




09(34 


12 


CCC52 


CCC-4 


C6C3C 




TR 


92 


.55 


,6ll,CLC$E STRING 




C9(4€ 


31 


CCC5R 


CCC5R 


C6C4G 




e 


RGR-1 , ,6, 




EXIT 




C9(9( 


49 


C54( J 


CCCCC 


C6C5C 




CORG 


• -3 








C9(6( 








C6C6C 


RGRNLL 


BO 


•♦2C,RPNS*8t. 




(RANCH IF RPK$ CP 6TNS 




09(66 


43 


C9984 


C56CC 


06C70 




6 


RGR-1, ,6, 




EXIT IF RPNS 




C9E7B 


49 


C568J 


CCCCC 


C6C8C 




CORG 


• -3 








CSM6 








06C5C 




TFP 


RGRS, C, 68, 




PCVE NULL IC SVPB0L 




C9((6 


16 


C977P 


C-OOC 


C6 ICC 




B 


RGR-1, ,6, 




EXIT 


301 


0S(9( 


49 


C966J 


CCCCC 








162C-144 3 PCM TCP 1 


VERSION 2 FCRTRAN ll-C PMSE 2 








PAGE 


C611C 




CORG 


• -3 








C59C6 








C612C 




FORTRAN GENERATE 














06130 




CS 


5 








C591C 




« 




C6UC 


GNRP 


TFP 


Gi,,e, 


SET Gl 


TC 2ERC 




C55 12 


16 


C6683 


C-CCC 


C615C 




TOP 


GTSBSN.C 








C$924 


15 


€6574 


CCCCC 


C614C 




AM 


Gl.1,10, 




AOC I TC Gl 




C 5936 


1 1 


C6683 


CCC-1 


06 17C 




BTP 


GTNS..U6,, 




GET ITH SVPfCl 




C554B 


17 


C5622 


-5964 


061(0 




CSA 


GI.GA 








C5564 




c 

* 


X 2 
















C 5564 




•66(3 


















C5565 




-"6535 




C615C 




CM 


GA , IC 1 ,8 , 




CCPPARE TC F AC 1 1CI ) 




C557C 


14 




c— ic i 


C62CC 




BNE 


GNRP*24 








05582 


4 7 


C9936 


C 12CC 


062 10 




CM 


TPAX,,9, 




HAVE ANY TEPPS BEEN GENEAATEC 


C5554 


|4 


C652C 


cc-cc 


C622C 




BE 


GNCNE 








C6CC6 


4g 


C6122 


C 12CC 


C62 3C 


GVES 


TF 


CBASE tTBASE 








C6CI8 


26 


C9697 


C23C3 


C624C 




TFP 


GCNT, C, 9 








C6C30 


16 


C6C85 


CC-CC 


06250 




SM 


GBASE,7,10 








06C42 


12 


C9657 


CCC-7 


C626C 




BNF 


GFREE.GBASe.il 


* 


BRANCH IF FREE CNE fCUNC 




06C94 


44 


C694C 


C549P 


06270 


CTPT 


AM 


GCM.UIC 








06C66 


1 1 


C6C85 


CCC-l 


C62(C 




CM 


TPAX 








06078 


|4 


C692C 


-CCCC 


0629C 


GCNT 


CS 


t * 








C6C85 




c 




063CC 




BE 


GNCNE 








C6C5C 


46 


C6122 


C12CC 


C631C 




SM 


GBASE » IC t lC 








061C2 


12 


C9697 


CCCJC 


C632C 




6 


GVES #36 








06 114 


49 


C6C94 


CCOCC 


06330 




OORG 


• •3 








06122 








C634C 


GNCNE 


AM 


TPAX,1,1C 








06122 


11 


C642C 


CCC-l 


0639C 




BO 


FULLCK-24,G1S6Sfc 






06 134 


43 


C6122 


C4974 


C6360 




TF 


GCOh.AOCC*,, 




PCVE AOCCH TC GCCN 




06 146 


26 


C6787 


C6929 


06370 




AM 


GCCh,l9,lC, 




A 00 19 KR LENGTH CF 1NSTS 




06198 


1 1 


C4787 


CCCJ9 


063IC 




A 


GCCta.LNG 








C617C 


21 


C6787 


C446C 


06350 




TF 


TCCW.GCOb., 




SAVE CCNST ANT ACCRESS 




C6182 


24 


C6517 


C4787 


064C0 




TOP 


SS2,1 








06 194 


is 


C7425 


COCCI 


064 10 




BTP 


PUTX, 




CLiTtUT STCAI FAC INST 




G62C6 


17 


C698C 


-4222 


06420 




CSA 


BTP ,FRFAC »GCCW 






06222 




5 


X 3 
















C6222 




•6928 


















C4227 




•4146 


















C6212 




•4187 




06430 




MM 


GCC»»,5,IC, 




IS GCCK CCC CR EVIN 




€6214 


13 


C47IT 


CCO-9 


0644C 




60 


GA001.91 








06266 


43 


C49I6 


CCC59 


C6490 




AM 


GCCN,2«lCt 




AGO 2 IC GCCN 




06299 


U 


C4787 


CCC-2 


C6460 


6PUT 


TON 


SSl.l 








0627C 


19 


C7424 


CCCC1 


06470 




BTM 


PUTX,**I6 








06212 


|7 


C448C 


•4299 


06410 




CSA 


B*GCCh,8lAN* 








06291 




9 


X 1 
















06291 




-493C 


















C6303 




•4117 


















06108 




•4414 




06490 




TF 


AOCCN,GCCN,» 




BfSIBVf SPACE PC* Mill ?iRP 




C631C 


24 


C4413 


C4181 


069C0 




TF 


CBASE,T|AJf 




PQVf lH Nf XT AVAILABLE TABLE 


ACCRESS 


C4322 


26 


C4491 


C21C1 


06910 




S 


GBASi-l«m> 






06116 


11 


C44S6 


C441C 


06920 


FLLLCK 


c 


GBASE, OCPAJi 








0*146 


14 


C4497 


C44C1 


06990 




BNL 


GPVTA 








06118 


46 


C4402 


CI tec 


06940 




•TM 






392 




C6370 


11 


cute 


-4411 


C499C 


MftlCLCV 


•V 








06112 


44 


C4144 


C140C 



1620-1443 MCMIC* I WERSJCK 2 FCR7MK ll-t PMSE 2 



PAGE 



06sec 




87 


MOKCAL 




06394 


49 


ccm 




C6S70 


GPLTA 


TF 


GBASE.ICCta,6 




C64C2 


26 


C965P 


C6917 


06? 80 


GH AG 


AM 


G8ASE .4 1 10 






1 1 


C9657 


CCC-4 


06590 




TFM 


GBASE t 1C.61C 




06424 


If 


C965P 


CCC JC 


C66CC 




SM 


GBASE 1 3 1 tC 




C6438 


1 2 


C9657 


CCC-3 


C66 1C 




In 


riitc ei if tk £. 




C6450 


25 


C965P 


CS019 


066 20 




BO 


b TF IN tO 1 




C6462 


4 1 


15442 


C6974 


C66 3C 




TO* 


F SM tC 






| j 


C 9 396 


CCCCC 


C664C 


G ! Jte 


BTM 


R PN S t •♦ 1 6 




r aIm 


1 1 


C 5652 


-65C2 


C66 SC 




OS A 


G I ,GBASE-l 










X 2 












C 6 5C 2 




"6683 














C6SG7 




"9656 




C666C 




B 


G NR P- 1 1 » 6 t 


f X 1 T 


£ !! ?? 




C591J 


ccccc 


066 70 




CORG 


• - 1 




C 6 5 1 6 








C66 8C 


GACD 1 


AM 


GCCfe , 1 « IC • 


•Cb 1 TC uttfc 


rill* 




C6 787 


CCC-'t 


C669C 




8 


GPt T 






AC 


C627C 


CCCCC 


C67CC 


GA 


CS 


• • 












C6 7 IC 


GFREE 




GBASE 1 1 1 1 C 




C654C 


^ ^ 


C96S7 


C CC- I 


06720 




BD 


GTST, GBASE, 11 




C65S2 


43 


C6576 


C965P 


0673C 




BNF 


NGFRE, GTSBSb 




C6564 


44 


C66C6 


C6974 


G674C 


GIST 


80 


GFlAG*12,GT!BSb 




06 5 76 


43 


C6426 


C6974 


06750 




SM 


GBASE » I • 1 C 




C65B8 


12 


C9657 


CCC" 1 


C676C 




87 


GTPT 




C66CC 


49 


C6C66 




0677C 


NGFRE 


SM 


GBASE ,4 »1C 




C66C8 


12 


C945 7 


CCC-4 


0678C 




TF 


TCOh , GBASE » 1 1 » 


MCVE ACCRESS CF GT TC TCCM 


06 620 


26 


C69 1 7 


C 965P 


06790 




TOM 


SS2 1 1 




C 66 32 


1 5 


C7425 


CCCC 1 


068CQ 




BTM 


PUTX,**16 f , 


CUTPUT STCRE FAC l*ST 


C6644 


1 7 


C698C 


-666C 


068IC 




CSA 


B TM ,FRF AC , f CCK 




C666C 




* 


X 3 












C666C 




-6928 














C6665 




-4 146 














C667C 




-4917 




06820 




B 


GFIAG 




C6672 


49 


C6414 


CCCCC 


C683C 


CI 


CS 


5,« 




C6683 




* 




068*0 




CC 


4 t ICCC 




C6687 




4 








JOCC 














06850 


GICL 


CM 


G TCI- I * 1CI »8 




C6688 


14 


C6667 


C- IC 1 


C6B60 




BE 


• ♦36 




C6 7CC 


46 


C4 736 


C 12CC 


0687C 




c 


TBASE-l,GTCl-l 




C6 7 12 


24 


C23C2 


C6687 


C688C 




8M 


GTFlCl 




C6724 


46 


C6 764 


C 1 ICC 


C6890 




88 






Cfc 736 


42 


ccccc 


CCCCC 


C6SCC 




CORG 


• - S 




C6738 








C6S 1C 


GCIEAR 


TF 


• ♦ I 7 ,GTCl- 1 




C6738 


26 


C6 755 


C6687 


0692 C 




TOM 


7 




06 75C 


15 


CCCC 7 


CCCCC 


0693C 




88 


t »c 




06 762 


M2 


CCCCC 


CCCCC 


C694C 


















C6S50 


GIFlCl 


TF 


•♦l7,GTCl-l 




06764 


26 


C6781 


C6687 


C696C 




CF 


4 




06776 


33 


CCCC4 


CCCCC 


06*70 


GCC* 


CS 


5,* 




C6 787 




« 




C698C 




8 


GCUAR 




C6788 


49 


C6738 


CCCCC 


06SSC 




CORG 


• -3 




C6 796 








C7CCC 


GTSCL 


TF 


GBASE * T8ASE 




C6796 


26 


C9657 


C23C3 


07C10 




S 


G8ASE-1.TMAX 




C68C8 


22 


C9656 


C692C 


07C20 




AM 


GBASE ,3,10 




0682C 


11 


C9657 


CCC-3 


C7C3C 




c 


GBASE, TBASE 




C6832 


24 


C9657 


C23C1 



393 



U2C-1443 MCM HR I VERSICK 2 FCRTR Afc I I-C PMSE 2 PAGE 



C7C4C 




BNh 


• ♦14 








C6844 


47 


C685E 


C I ICC 


C7C5C 




88 










C6854 


42 


CCCCC 


CCCCC 


C7C6C 




CORH 


• -9 








C6856 








07C7C 




TOM 


GBASE, ,6 








C6858 


15 


C965P 


CCCCC 


C7C8C 




SM 


GBASE, 3, 1C 








C687C 


12 


C96S7 


CCC^3 


C7C9C 




CF 


GBASE , ,6 








C6882 


33 


C965P 


CCCCC 


071CC 




AM 


GBASE, 13, IC 








06894 


11 


C96S7 


CC0J3 


07110 




8 


GTSC106 








C69C6 


49 


C6832 


CCCCC 


C712C 


TCCh 


CS 


, • 








C6917 




C 




C713C 


TM AX 


CC 


3,C 








C692C 




3 




0714C 


ACCCh 


-oc 

CC 


5,C 








C6925 




5 








-occo 
















C715C 




CC 










C6926 




1 




C7160 


8 1 M 


CC 


2,17 








C6928 




2 




0717C 


8 


J7 
CC 
M9 


2 t 4S 








C693C 




2 




C718C 


CI 


CS 


5 








06935 




■ 




C7190 


CI 


CS 


5 








C694C 




5 




C72CC 


C2 


CS 


5 








C6945 








072 10 


CJ 


CS 


5 








0695C 




« 




C7220 


C3 


CS 


b 








C6955 




■ 




0723C 


CK 


CS 


5 








C696C 




■ 




0724C 


C4 


CS 


5 








C696S 




• 




07250 


Tl 


CS 


5 








0697C 




5 




07260 


I 


CS 


3 








C6973 




3 




0727C 


CTSBSk 


esc 


l.C 








06974 




1 




072eC 




CISC OLTPCT RCtmES FCR CBJECT PRCCR AM 












C729C 




CS 


5 








06979 




a 




C73CC 


PLTX 


TF 


PUT1 


,FLIM-l 


til 




0698C 


26 


C8718 


C697R 


0731C 




AM 


PUTX-l 


t5 


ilC 




06992 


11 


C6979 


CCC-5 


07320 




TF 


PUT2 


.PLTX-l 


.11 




07CC4 


26 


C8723 


C497R 


07330 




AM 


PUTX-l 


.5 


.IC 




07C16 


11 


C4979 


CCC-3 


07340 




TR 


TYPE T 


tTtPEX 






C7C28 


31 


CB373 


CB729 


0735C 


PtTXA 


TF 


PUT3 


•PLfX-1 


,11 




07C4C 


26 


CI728 


C697R 


07360 




AM 


PUTX-l 


♦ 2 


• IC 




07C52 


11 


C6979 


CCC-2 


07370 


PLTXB 


C 


C00ET 


•LSfVPE 






C7C64 


24 


CB386 


CB392 


C738C 




BNE 


PUTOIF 








07C76 


47 


C7552 


C12CC 


C739C 




C 


SAVCCM 


,ACCCh 






07CB8 


24 


C7447 


C<925 


C74C0 




BNE 


OUTSEO 








C71CC 


47 


C7492 


C12CC 


07410 




c 


BAL 


.SING 






07112 


24 


CB394 


CB37S 


07420 




BL 


PUINJIT 








07124 


47 


C7B92 


C13CC 


C743C 


PtTfST 


BO 


PUTIMS 


,CCOET 






07136 


43 


C7196 


C8J66 


C7440 




B7 


PUTCAO 








C7148 


49 


C7476 




C7450 


•••••• 


PLACE INSTRUCTIONS |N CtTPUT 


BUFFER 












C7460 


PCTINS 


AM 


NEXT 




• IC 




07156 


11 


CB4C4 


C00-2 


074 70 




TF 


NEXT 




,611 




07168 


24 


CB4CM 


C871C 


0748C 




C 


LOCOM 


•nn 


.11 




07180 


24 


C2242 


C872C 


07490 




BNH 


• ♦24 








07192 


47 


07214 


C11CC 


O75C0 




BO 


FLG2 


,SS2 






07204 


43 


C7416 


C7423 


07910 


PtTIC 


SM 


NEXT 


tl 


tie 




07214 


12 


CB4C4 


CCC-1 


07120 




c 


LOCOM 


• PKT2 


.11 




01220 


24 


C2242 


CI72L 


07110 




BNM 


#♦24 






394 


0724C 


47 


C7244 


CilCC 





















162C-1443 PCNITC6 I VEASICK 2 FCPfRA* MH | 



PICE 



CTS4C 




BO 


• ♦24 


• SSI 








07252 


43 


C7276 


C7424 


07550 




CF 


NEXT 


» 




• 4 




CT444 


3 3 


CI4CP 


ccccc 


075*0 


PtTGT 


CS 


• • 










C7375 




C 




C757C 




AM 


NEXT . 


.6 




tlC 




C7274 


11 


CI4C4 


CCC-4 


07510 




IP 


NEXT 


»PtT2 




• •11 




C72II 


26 


CI4CP 


CI 721 


07S9C 




60 


FLC3 


• SSI 








C73CC 


43 


C7436 


C7426 


C76CC 


PtTXC 


AM 


NEXT 


• 5 




• 1C 




C7312 


11 


C64C4 


CCC-9 


07*ic 




IF 


NEXT 


• PtTl 




• 411 




7 324 


26 


C64CP 


CI72C 


C762C 




80 


FLG4 


• SS4 








07336 


43 


C7494 


C7427 


C763C 


PtTXE 


TFM 


SS4 


•c 




• 6 




C7346 


16 


C7427 


C-CCC 


C764C 




SM 


6 At. 


• 12 




tlC 




07360 


12 


CI394 


CCCJ2 


07650 


PtTXF 


A 


ADCC* 


tSINC 








C7372 


21 


C692S 


CI375 


C766C 




IF 


SAVCCb 


lACCCk 








C73I4 


26 


C7447 


C6925 


C7470 




A 


LNGAC 


t SING 




• 6 




C7396 


21 


C6396 


C8375 


C748C 




87 


PUTX-l 






• 6 




07401 


49 


C697R 




07(90 


P162 


SF 


NEXT 






• 6 




07416 


32 


C84CP 


CCCCC 


C77C0 


SSI 


CS 


• •-3 










C7424 




C 




C771C 


SS2 


CS 


.•-2 










C742S 




c 




C772C 


5S3 


OS 


• •-1 










07426 




c 




07730 


SS4 


CS 


I* 










07427 




C 




C774C 




87 


puixc 










C742I 


49 


C7214 




0775C 


PLC 3 


SF 


NEXI 


,99999 




,67 




C7436 


32 


CI4CP 


69999 


C776C 


SAVCO* 


OS 


• • 










07447 




c 




07770 




87 


PUIXC 










07441 


49 


C7312 




0776C 


FLG4 


SF 


NEXT 






• 4 




C74S6 


32 


C84CP 


CCCCC 


07790 




67 


PtTXE 










C746I 


49 


C734I 




07CCC 


•••••• 




PLACE CSA 


A008ESSE! Ih 


CtTPtT 


BUFFER 












C7I10 


PtTC AC 


A 


NEXT 


tSLNG 








07476 


21 


C84C4 


C8379 


C7620 




s 


BAL 


• SLKG 








C74II 


22 


C8394 


C8375 


0783C 




IF 


NEXT 


• PLI1 




• 611 




C75CC 


24 


C64CP 


CI726 


C784C 




60 


• ♦20 


•CCOET- 


3 






C7S12 


43 


C7532 


C8381 


07150 




67 


PUTXF 










07524 


49 


C7372 




07660 




TFM 


SAVCCh 


•99999 








C7S32 


16 


C7447 


89999 


0787C 




67 


PUTXF*24 










C7544 


49 


C7396 




078 8C 


•••••• 




THIS IVPE 


hCI EQUAL TC 


LAST 














c7eso 


PtTOIF 


IF 


LSIVPE 


•CCOET 








C75S2 


26 


C8392 


C6386 


C79CC 




C 


SAVCCli 


•ACCCh 








C7S64 


24 


C7447 


C692S 


07$ iC 




8NE 


OUISEO 










C7S76 


47 


C7692 


C12CC 


C7920 




C 


BAL 


tSSLKG 








C7588 


24 


C8394 


Cf 377 


C793C 




BL 


PUTNXT 










C76CC 


47 


C7852 


C13CC 


C794C 


PtTXG 


AM 


NEXI 


,1 




• IC 




C7612 


1 1 


C84C4 


CCC-l 


C795C 




10 


NEXI 


• nPET 




• 6 




07624 


25 


C84CP 


CE373 


07960 




AM 


NEXI 


• 2 




• IC 




C7636 


u 


C84C4 


CCC-2 


07970 




TFM 


NEXI 


• C 




• 61C 




C7648 


16 


C84C* 


CCC-C 


C798C 




IF 


LNGAC 


• NEXT 








C766C 


26 


C8399 


CC4C4 


0799C 




SM 


BAL 


• 3 




• IC 




C7672 


12 


C8394 


CCO-3 


08CC0 




67 


PUTEST 










C 7684 


49 


C7136 




C8C10 






CLI CF SECLEKCE 
















C8C20 


CL TSEC 




BAL 


•SCLKG 








C 7692 


24 


C8394 


C8381 


08C3C 




BL 


PUTNXT 










07704 


47 


C78S2 


C13CC 


06C40 




CM 


BAL 


• 75 




• IC 




07716 


14 


C8394 


CCCPS 


C8C50 




BE 


PUTX* 










C7728 


46 


C77I6 


C12CC 


cscec 




AM 


NEXI 


• I 




• IC 




C774C 


11 


C84C4 


CCC-l 


C8C7C 




SM 


BAL 


• 1 




• 1C 




C7752 


12 


C8394 


CCC-l 


oscec 




TDM 


NEXI 


• 




.6 




07764 


IS 


C84CP 


CCCCC 


C8C9C 




CC 
t 


!•••• 








^ <l a 


C7775 




1 









162C- 1443 PCM 


ICR 1 VERSICK 


2 FC6IRAN 


ll-C PMSE 2 








PAGE 


C81CC 


PLTXK 


AM 


NEXI 


• 5 


• IC 




07776 


11 


C84C4 


CCC-S 


C81IC 




SM 


BAL 


• 5 


• 1C 




C7708 


12 


C8394 


CCC-5 


C8120 




BO 


PUTIA 


•CCOET-3 






0780C 


43 


C7832 


CE383 


C8130 


PtTXJ 


IF 


NEXT 


•ACCCh 


.6 




C7E12 


26 


C84CP 


C6925 


C814C 




87 


PUIXG 








07824 


49 


C7612 




C8150 


PtTTA 


IF 


NF XT 


• PtT2 


• 611 




C7832 


2* 


C84CP 


CI72L 


C816C 




B7 


PUIXG 








C7E44 


49 


C7U2 




08170 


•••••• 


NEXI CARD 8LFFEP 


TC 8E USEC 














C816C 


PtTNXI 


AM 


NEXI 


tl 


• IC 




07852 


11 


C84C4 


CCC-l 


0819C 




10 


NEXI 


•FLGRP 


• 6 




C7864 


25 


C84CP 


CI372 


062CC 




CM 


PREBtF 


• 6tF4 






07876 


14 


C8713 


-8633 


08210 




BE 


PUIPCH 








C7E68 


46 


C7956 


C12CC 


C8220 




AM 


PREBtF 


• 75 


• IC 




C79CC 


11 


C8713 


CCCPS 


08230 




IF 


NEXT 


•PPEetF 






C7912 


.26 


C84C4 


CI713 


C824C 




SM 


NEXI 


.1 


• IC 




07924 


Si 


C84C4 


CCC-l 


08250 


PtTXI 


TF> 


BAL 


• 75 


.10 




07916 


16 


C8394 


CCCP5 


C8260 




87 


PUTXH 








C7^48 


49 


C7776 




C8270 


•••••• 


CUlPtT BUFFfR tOAC TC CISC 














C828C 


PtTPC»- 


TOM 


BUF4+75 








0795* 


!5 


C87CC 


CCCCC 


C8290 




OGM 


• 








07967 




1 




C63C0 




TFM 


IORI 


• •♦23 






07968 


16 


CC565 


-7991 


Q631C 




B 


IOPT 


•PtTXX 


• 7 




C796C 


49 


CCS32 


-835C 


C832C 




AM 


PUTXZ 


.3 


• IC 




07992 


11 


C8363 


CCC-3 


C833C 




TFM 


PREBtF 


•etFi 






08CC4 


16 


C8713 


-84C8 


0834C 




IPM 


NEXI 


• 6tFl-rl 






C8C16 


U 


C84C4 


-84C7 


C83SC 




IFM 


• ♦18 


.8LF4W5 






C8C26 


16 


C8C46 


-87C8 


C8360 




IF 


6UF4W5 


•K13089 






08C4C 


26 


C67C8 


C9434 


C637C 




SM 


•-6 


• 12 


• IC 




06C52 


12 


C8C46 


CCCJ2 


C638C 




CM 


•-16 


•etPi 






06C64 


14 


C6C46 


-64C8 


0639C 




BM 


•-36 








C8C76 


46 


C8C4C 


cucc 


084C0 




8 


PUIXI 








08C88 


49 


C7936 


CCCCC 


C6410 


PtTC 


IF 


•♦23 


• •-i 


.11 




once 


26 


C812J 


C6C96 


08420 




CF 


• ♦11 








01112 


33 


C8123 


CCCCC 


0643C 




C 


•-1 


•ICCCP 


• 4 




06124 


24 


C812L 


C2262 


08440 




6H 


PUICA 








06136 


44 


C8196 


CUCC 


06450 




16 


IVPEI 


•TYPE CP 






06148 


31 


C8373 


C8744 


C6460 


PCTC8 


IP 


P\lTX-l 


•PtTC-1 






C616C 


24 


C6979 


C6C99 


084 70 




6 


PUTXA 








08172 


49 


C7C4C 


ccocc 


06480 


PtTO 


IF 


PUTC^l,PtfO-l 








06164 


24 


C6C99 


C6161 


06490 


PtTC A 


16 


TVPEI 


.nPECK 






08194 


11 


C8371 


C8759 


08SC0 




6 


PUIC6 








062C6 


49 


C616C 


CCCCC 


06510 


PtTA 


TP 


PUT2 


•FtTA-l 


til 




06220 


24 


C8721 


CI21R 


08520 




AM 


PUTA-l 


.9 


tlC 




06212 


11 


C6219 


CCC-9 


08530 




IP 


PUT 3 


•PlTA~l 


til 




08244 


24 


C672I 


C621R 


08540 




AM 


PUTA-l 


• 1 


• IC 




00296 


11 


C6215 


CCC-l 


06990 




TP 


PUTM-l 


•PtTA-1 






00240 


24 


C4979 


C6219 


06960 




16 


FYPCT 








0626C 


31 


com 


C6774 


06970 




6 


OUISEO 








CI292 


49 


C7692 


CCCCC 


08960 


PtTRW 


T* 


TVPEI ,|VPfM 








CI 304 


11 


C8373 


C6119 


06590 




IP 


PUTX-l,PCI6P^I 








01114 


24 


C6979 


C63C3 


064C0 




67 


PUTXA 








06326 


49 


C7C4C 




08610 


7VPERP 


BSC 


1.2 








08319 




1 




08620 




2 

G€ 


2t2 








08117 




2 




06630 




-2 

CC 

-s 


2,9 






306 


01339 




2 





U2C-1443 PCMIC V VERSUS 2 KMMfc ll-t PMSf 2 MCI 13 



08(40 




CC 


2.1C 


C8341 


2 






JO 








06*5C 




CC 


2,11 


01343 








Jl 








csetc 




CC 


5, ICC 


C6 346 








-01CC 






0M1C 




CC 


It * 


06344 


1 


CMIC 


PIT** 


CSC 


2,2 


C635C 








C2 








C6(90 




OS* 


PLTX> 


08394 


« 










C6354 


-8156 


C87CC 




CC 
• 


It 1 


C83S7 


1 


08710 


PtTtr 


CSC 
C 


l.C 


C635I 


1 


C872C 


PLTXZ 


CC 


5,C 


063(3 


« 






-OCCC 






0RT3C 




CC 


3.3 


C63(( 


3 






-03 








08 74C 




CSA 


BUF1 


C837 1 


a 










C6371 


-84C6 


C875Q 


FIGRP 


CC 


l,» 


C6372 




087(0 


T7PET 


cs 


I 


06373 


1 


C8770 


SL NG 


cs 


2 


C6375 


2 


08 TIC 


SStNG 


es 


2 


C6377 


2 


0-8190 


KING 


cs 


2 


C6379 


2 


08 ICO 


SCING 


OS 


2 


C6361 


I 


081 1C 


CGCE T 


OS 


5 


06364 




08120 




cs 


I 


C8367 




088 3 C 


l ST VPE 


oc 


5,C 


06392 


• 






-occo 






08 6 40 


8 AL 


CC 


2,75 


06394 


2 






P5 








081 50 


INC AC 


cs 


5 


6399 




08810 


NEXT 


CSA 


BUF 1 


064C4 


■ 










C6404 


-64C6 


088 TO 




OAS 


1 


06407 




Q666C 


8t F I 


CSC 


5C.C 


C84C6 


«C 






COCCCOOCCCCCCCCCCCOCCCOCCCOCCOCOOOOCCCCCCCCCCOCCCC 






08640 




CSC 


25, C 


06458 


2! 






COCCCCCCCCCCCCCCCCOCCCOOO 






08 SCO 


BLF2 


OSC 


50. C 


08463 


5C 






COCCCOOCCCCCCCCCCCCCCCCOCCCOCCCOCOOCCCCOCCCCCCCCCC 






08410 




CSC 


25.C 


C8S33 


25 






COCCCOCCCCCCOCCCCCOCCCOOO 






08920 


BLF3 


CSC 


50, C 


C8558 


5C 






COC C C OC CCCCC CCCCCOCC COOC CCOCCO C 00 C CC C CCCCOCOCC CC 






08930 




CSC 


25, C 


C6(C6 


2! 






COCCCOOCCCOOCCCCCCOCCCOOO 






C 894C 


tftF4 


CSC 


5C.C 


06(33 


SC 






COCC COOC C C CC CCCCCCOCCCOOCC CCC OCCCOOC CCCCCCOOCOOCCC 












397 












U2C-1443 PCM TCP 1 VERStCK 2 FCMMh Il-C PMSE 2 






08.950 




OSC 


25, C 


06(63 


2! 






COCCCOOCCCCCCCCCCCCCCCOOC 






089(0 


6RPK 


CG* 




C67C6 




C897C 


PREBLF 


OS A 


BUFl 


C8713 


■ 










08713 


-84C8 


069 6G 


PVT 1 


CS 


5 


06718 


« 


0899 C 


PL 7 2 


OS 


5 


06723 


■ 


C9CCQ 


PUT 3 


cs 


5 


08726 


c 


09 C 10 


T YPEX 


CSC 


1,1 


C8729 


1 


09C 20 




1 

CC 


2,12 


08731 


2 






12 








09*030 




CC 


2,15 


06733 


2 






J 5 








09C40 




CC 


2,20 


06735 


2 






KO 








©90 50 




CC 


2,21 


C8737 


2 






Kl 








090(0 




CC 


5,1 


06742 


5 






-0CC1 






G9C7C 




CC 


1 » • 


08743 


1 


09C 60 


TVPfCR 


OSC 


1,3 


08744 


1 


09C9C 




3 

CC 


2,5 


08744 


2 


09 ICO 




-5 
CC 


2,8 


06746 


2 


09U0 




-8 

CC 


2,13 


C875C 


2 






J3 








09120 




CC 


2,14 


08752 


2 






J4 








091 3C 




GG 


5,IC 


08757 


• 






-0C1C 






noii.r 




OC 


1,« 


08758 


1 




IV PECK 


OSC 


1,2 


08759 


1 


091(0 




2 

CC 


2*5 


0874 1 


2 


69110 




-5 
CC 


2,8 


€•741 


2 






-8 








09160 




OC 


2.11 


01765 


2 






J3 








09190 




DC 


2, 14 


C8747 


2 






J4 








092C0 




CC 


5, ICC 


08772 


3 






-01CC 






09210 




CC 
t 




08171 


1 


09220 


1VPE4 


OSC 


1,3 


01114 


I 


09210 




3 

OC 


2t9 


01118 


2 






-5 








09240 




CC 


2,11 


61111 


a 






J3 


398 







1620- If O PCMIC* I V|iSK* 2 KIYMM ll-C PMSf I 



MCI 



092 5C 




cc 

J3 


2.13 










087IC 




9 
4 




C928C 




CC 


2.14 










08 782 




2 








J4 




















09210 




CC 


5.1CCC 










C8787 




5 








-ICCC 


















Q928C 




CC 
• 


l.V 










08 788 




1 




0929C 




CS 


9 










C879 3 




5 




093CC 


CANCS 


TF 


CANCSA 






.11 




C8794 


2( 


C8928 


C871L 


C931C 




BTP 


f PNS 




• •♦U 






C88CI 


17 


C99f 2 


-ff22 


09320 




CSA 


I.OX 










C8822 




5 


X 2 


















C8822 




-f 987 




















C8827 




-fC(f 




09330 




ATP 


fMNS 




• •♦16 






Cff 28 


17 


C99f 2 


-8844 


0934C 




CSA 


I » V 










C8844 




9 


X 2 


















C8844 




-f 187 




















C8849 




•f C7J 




C935C 




CF 


OY-3 










C889C 


33 


Cf C1C 


CCCCC 


093(0 




SF 


OX 










088(2 


32 


CfC0f 


ccc-c 


C9370 




TO 


• - 1 




»CX*3 






08874 


29 


Cff 73 


CfCff 


C938C 




CM 


•-13 




.9 


.1CU 




08881 


14 


C8873 


CCC-8 


09390 




BNE 


• ♦24 










C8898 


47 


Cff 22 


C12CC 


C94CC 




SF 


OY 










C891C 


32 


C9C73 


CCOCC 


C941C 




TF 






,Ct 






08922 


2( 


CCCCC 


Cf C73 


09420 


CANCSA 


CS 






,•-1 






CB928 




C 




C943C 




AM 


CANOS-l 




• 9 


tie 




C8934 


11 


Cf7f 3 


CCC-9 


094 4 C 




BTP 


RMNS 




• •♦U 






08948 


17 


C5592 


-ff(2 


09490 




OSA 


I .OX 










C8$(2 




9 


X 2 


















C8982 




•99(7 




















089(7 




-fC(f 




094(0 




CM 


ox 




,IC4 


•f 




089(8 


14 


CfC(f 


C-1C4 


C94TC 




BNE 


• ♦32 










C8S8C 


47 


CfC12 


C12CC 


0948C 


CANCRT 


AM 


CANCS-1 




.1 


• 1C 




08f92 


11 


Cf 793 


CCC-l 


094 9C 




B 


CAND5-1 




» 






09C04 


4f 


C879L 


CCOCC 


095C0 




00 RG 


•-I' 










C9C12 








0951C 




BTP 


SRFCT 










C9C12 


17 


C42CC 


-f C28 


C9520 




CSA 


OX, ox 








C9C28 






X 2 


















C9C28 




-fC(f 




















CfC33 




-9C(9 




099 3C 




TF 


• ♦18 




.CANCS-1 


• 11 




09C34 


2( 


C9C32 


C87SL 


C954C 




TF 






•cx 






C9C4( 


24 


CCCCC 


CfCff 


C955C 




B 


CAKDRT 










CSC38 


49 


C8992 


CCCCC 


099(0 


CX 


CS 


» • 










C9C(9 




C 




09970 


C7 


CS 


4 










CfC73 




4 




C9«iC 




CC 


5 




•c 






CfC78 




■ 








-QCCC 


















C959C 


ERRT 


hN 


LSTN 




• f C 1 


• • 




C908C 


38 


C91(( 


CCfCl 


094 CO 




TO 


EM1*14, 


SCM-1 








CfCf2 


29 


C9187 


CfffC 


C9( 1C 




TO 


E M' 1 ♦ 1 f t 


SCNT-2 








Cf 1C4 


is 


Cf If f 


Cfff 1 


09(20 




TO 


6MI*18» 


SCM-t 








CflU 


29 


Cf If 1 


Cfff2 


C9(3C 




TO 


EPU2C, 


SCM 






3 jj jj 


09128 


25 


Cf If 3 


Cfffl 








162C-1443 PCM TCP 1 VERS ICK 


2 F C M B AN 


II-C PMSf 2 








PAGE 


C9(4C 




hA 


EP1 




• fCl 






C914C 


39 


Cf 173 


CCfCl 


C9(5C 




bA 


ERRT-1 




»5CC 


.ft . 




C9192 


If 


Cf C7B 


CCfCC 


C9tec 




BB 






» 


• • 




091(4 


42 


CCCCC 


CCCCC 


C967C 


ISTN 


CS 






,•-9 






C91(( 




C 




09(80 




CORC 


ISTM4 










CS 17C 








C9(9C 




CC 


l.« 










C917C 




1 




C97CC 


EP I 


CAC 


12. 


♦ 7777 








CS 173 




12 


X 2 








♦ 7777» 


















C97 1C 




CAS 


I 










C9197 




1 


X 2 


C972C 


blki 


CSC 


2,22 










C9198 




2 








22 




















C973C 




CSA 


BLK1A 










C92C4 




m 


X 1 


















C9204 




-f2C( 




C974C 




CC 
1 


It* 










C92C9 








C979C 


bima 


CSC 
C 


l.C 










C92C8 




1 




C9 7(C 




CC 


5,17876 










C92U 




« 








J7876 


















C977C 




CC 


3.41 










C9214 




3 








-41 




















C978C 




CSA 


COOEi-2 










C9219 




5 


X 1 


















09219 




JCCCC 




0979C 




CC 


!.• 










Of 22C 




1 




098CC 




CS 


1 










Cf 221 




1 




0981C 


Bl*2 


CSC 


2,22 










Cf222 




2 








22 




















C982C 




CSA 


BLK2A 










C9228 




9 


X 1 


















C9228 




-S23C 




Q983C 




CC 
» 


l.« 










09229 




1 




0984C 


81*2* 


OSC 

C 


l.C 










C921C 




1 




09090 




CC 


5.1793* 










Cf239 




5 








J7S3( 


















C98(0 




CC 


3.(C 










C9238 




3 








-6C 




















09170 




OSA 


C0CE1-2 










C9243 




9 


1 I 


















Of 241 




JCCCC 




Off tc 




CC 
f 


lt» 










C9244 




1 




098SC 




CS 


1 










09245 




1 




09$ CO 


ft* 3 


CSC 


2.22 










0924( 




2' 








22 




















Off 10 




OSA 


f LM3A 










Cf252 




9 


X I 


















Of2J2 




-fHf 




09«2C 




CC 
• 


■ 










Cf2fS 




1 




09930 


BIK3A 


QSC 
C 


l.C 








4(H) 


Of Iff 




1 





162C-1443 CCMTC* I VfRSICK 2 PCMM* ll-C PMSf 2 



27 







CC 


5 • 16CCC 


09299 


■ 








J8CCC 








C999C 




CC 


3 1 * 1 


C9262 


3 








-41 










C996C 




CSA 


CODE 1-2 


09267 


9 


X 










C9267 


JCCCC 




0997C 




CC 
t 


1 1 • 


C9268 


1 




C998C 




cs 


I 


C9269 


1 




C999C 


BIK4 


CSC 


2.22 


0927C 


2 








22 










10CCC 




CSA 


BU4A 


C9276 




X 










09276 


»92H 




I0CIC 




CC 
i 


It* 


C9277 


1 




10C2G 


•IK4A 


esc 


ItC 


C9278 


1 




10C3C 




c 

CC 


5.18C41 


C9283 


• 








J8C41 








10C4C 




CC 


3.41 


C9286 


3 








-41 










10C9C 




CSA 


C00E1-2 


C9291 


• 


X 










C9291 


JCCCC 




loctc 




CC 


l.» 


C92S2 


1 




1OC70 




cs 


1 


C9293 


1 




10C8C 


BIK5 


CSC 


2.22 


C9294 


2 








22 










10CSC 




CSA 


BLK5A 


093CC 


5 


X 










C93CC 


-93C2 




10 ICO 




CC 


l.» 


C93C I 


1 




10 110 


Bl* 5A 


CSC 


l.C 


C9 3C2 


1 




1012C 




c 

CC 


5,1791? 


C93C7 


• 








J7917 








10130 




CC 


3, CIS 


0931C 


3 








-15 










1014C 




CSA 


sueccs-2 


C9315 


■ 


X 










C9315 


J41CC 




1019C 




CC 


i« • 


C93 u 


1 




10UC 




cs 


i 


C9317 


1 




1017C 




CSC 


2.22 


C9318 


2 








22 










loiec 




CSA 


BIK6A 


C9324 


5 


X 










C9324 


-9324 




101SO 




CC 
* 


l» ' 


C9325 


1 




io;cc 


BIK6A 


CSC 

c 


l.C 


'•"I 09326 


1 





162C-1443 KMKP I VEHSIC* 2 FCMM* ll-C PMSE 2 



102 1 C 




CC 


5.18C82 


C9331 


9 








J8C82 








1022C 




CC 


3, CIS 


C9334 


3 








-IS 










102 ac 




CSA 


SUBCCS-2 


09339 


9 


X 










C933S 


J41CC 




1024C 




CC 
• 


lt« 


Q934C 


1 




10290 




cs 




C9341 


1 




I02eo 


BLH7 


csc 


2.22 


C9342 


2 








22 










1027C 




CSA 


BLK7A 


C9348 


« 


X 










C9348 


-935C 




1028C 




CC 


1.* 


C9349 


I 




1029C 


BLK7A 


CSC 
C 


l.C 


093 SC 


1 




103CC 




CC 


5.181C1 


C93S9 


« 








jeui 








103 10 




CC 


3. CI? 


C9398 


3 








-19 










10320 




CSA 


SUBCCS-2 


09363 


a 


X 










09363 


J41XC 




1033C 




CC 


lt» 


C9364 


1 




1034C 




OS 


I 


C9369 


1 




10390 


BLX8 


DSC 


2.22 


C9366 


2 








22 










1036C 




CSA 


BLK8A 


C9372 


9 


X 










09372 


-9374 




10370 




CC 


lt« 


C9373 


1 




103IC 


BIK8A 


osc 


l.C 


C9374 


1 




10390 




c 

CC 


5.1812C 


09379 


• 








JB12C 








104CC 




CC 


3,019 


09312 


3 








-19 










10410 




OSA 


SU8CCS-2 


0931? 


3 


X 










09317 


44 ICC 




10420 




CC 
1 


lt» 


09311 


1 




10430 


CKCQfc 


CC 


5.C 


09393 


S 








-OCCO 








10440 




oc 

t 


lt« 


09394 


1 




10430 


SSSM 


OS 


0CCCI..SSSK,, 


09399 


1 




10410 


*$* 


OS 


OOOOlt.FSMtt 


09394 


1 




10470 


101 


OS 


OOC01..IC1,, 


09397 


1 




104IC 


tot 


OS 


00CCI..IC2,. 




1 




10490 


ICS 


OS 


oeceuricitt 


09199 


1 





142C-1441 PCM ltd. I VIRflU I fCflTfti* 11-t *>*« I 



105C0 


STfMl 


CS 


OOCC 1 * » $ TiPP 1 it 


014CC 


10910 


SUHP2 


OS 


CCCCI..STEPP2., 


C14C1 


1092C 


CALLS* 


OS 


OOCOU.CALLSktt 


01401 


10930 


CCSta 


osc 


ItC 


C14C1 


10540 


EXINC 


c 

OS 


0CCC1..EVIMC.. 


C94C4 


1059C 


SLBSfc 


CS 


OOCCl,.StBSh.. 


044C9 


1056C 


RE6S* 


CS 


1 


C44C4 


10970 


RSh 


CS 


I 


C94C7 


1098C 


ShARf A 


CS 




C94C7 


10990 


7FP 


cc 


00CC2.14t.TPJ>. 


C44C4 






J6 






ioecc 


SF 


cc 


0CCC2,32»»SF, 


C$411 






L2 






106 10 


CF 


CC 


0CCC2.33..CF 


C4413 






13 






10620 


IF 


CC 


0CCC2.24..TF, 


C9419 






K6 






ioe30 


tP 


CC 


00CC2t 11..AF, 


09417 


1Q64C 


PP 


Jl 
CC 


0CCC2.13,,F>, 


C4419 






J3 






IOC 50 


t> 


CC 


00CC2.4B..H. 


C9421 






P% 






loetc 


M3C8S 


CC 


0CC13.C 


C9434 






-OCCCOCCCCCCC 




loeio 


2ERQ 


CS 


#•-11 


09423 


loeic 


una 


CS 


#•-7 


C9427 


1069C 




CS 


,•-9 


C9429 


107CC 


line* 


CS 


,•-8 


09426 


10710 


BLANK 


CS 


.•-8 


C9424 


10720 


N13CS2 


cc 


5.CCC99... 


C9439 






-0CS9 




1073C 


SLB 


cc 


CCCC2.22..SL6. 


09441 






K2 






1074C 


M3133 


cc 


5.CCC9S,., 


C9446 






-0CS5 




10 75C 


*ce 


cc 

-0 


2.C 


09448 


107(0 


PPi 


cc 


CCCC2.23 


C949C 


1077C 


et 


K3 

cc 

K7 


CCCC2.27..BT. 


09492 


107IC 


RCTY 


cc 


0CCC2,34,,RCTV, 


C9494 


107SC 


WAT t 


L4 

CC 


CCCC2.39..MTV. 


09496 






19 






108CC 


CLKC 


cc 


0CCC4,CCC,,GLNC, 


C946C 






-occ 






loeic 


ACC 


cc 


CCCC2.21..ACC. 


09462 


10120 


SF 


Kl 

cc 


00CC2.12t.SI'. 


C9464 






J2 






10* 3C 


RVSN 


cc 


3,125 


C9467 






J2S 




\ 3 C947C 


1084C 


RPCC 


CC 


3.123 






J23 
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10I5C 


FLLPES 


CAC 


30. S VPBCl TABLE FULL* 




C9473 








SmCl TABLE FULL* 






10I6C 


CCA 


CC 


CCCC4. 1C9..CCA. 




09935 






-ics 








1087C 


PNS5 


cc 


0CCC2.-C3,,PKS5, 




C9S37 


loeec 


N13C63 


-N 

cc 


5.CC1CC... 




C9942 






-oicc 






10890 


M3C62 


cc 


9.CC1C2,,, 




C9947 






-01C2 






10SCC 


FAC 


cc 


0CCC4.1C1..FAC. 




C9551 






-1C1 








10S IC 


FIVE 


cc 

-5 


2.5 




C9993 


1092C 


RTNAPE 


CS 


CCCCS..RTNAPE.. 




09598 


10930 


ST 


OS 


0CCC5 . . ST. . 




09943 


10940 


1 


CS 


00CC4..I., 




C9347 


1095C 


J 


CS 


OCCCS . . J. . 




C9572 


1096C 


9 


CS 


0CCC5..P*. 




01977 


10970 


Q 


CS 


00CC5..Q., 




099B2 


1098C 


LV 


CS 


CCCC5 . . LV. . 




C9987 


10990 


Rf AC 


CS 


OCCCS . .RTAC . . 




01992 


11CCC 


RV 


CS 


0CCC5..RV.. 




09997 


UC10 


SXF 


OS 


5 . 




09402 


UC20 


CCPA* 


cc 


5.176CC 




C94C7 






J76CC 






11C3C 


J4CCC4 


CS 


5 . • 




09412 


UC40 


T2 


OS 


4 




094U 


11C50 


fcCUCC 


CC 


5.11CC 




09421 






-11CC 






UC6C 


BhH 


oc 


2,47 




09623 






PI 








IK 70 


C 


cc 


2.24 • 




09429 






K4 








11C8C 


CP 


cc 


2.14 




09627 






J4 








11C90 


81 


cc 


2,47 




09429 






PI 








nice 


NC13CC 


cc 


9.13C0 




09414 






-13CC 






in io 


BE 


CC 


2,46 




09434 






Pt 








11 uc 


MC12CC 


CC 


5.12C0 




04441 






-12CC 






11130 


8C 


CC 


2.43 




04443 






Pi 








11140 


BUF 


CC 


2,44 




09449 






p* 








11190 


FACM2 


CC 


5.C2490 




€9410 






-249C 






11170 


GBASE 


OS 


5 ■ .. . - 




09437 


11180 


1*6 


CS 


3 




0444C 


U190 


PI 


OS 


It 




C4471 


IUCO 


13 


0$ 


5 


4«4 


09474 
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1121C 


CP* 


CS 


2 










C9678 








112 20 


fpsw 


osc 


i»c 










09679 








U23C 


FPSliX 


c 

CSC 


l.C 










C968C 








11 24C 




(J 

DSC 


1 1 C 










C968 1 








11250 


CCMXS* 


C 

CSC 


ItC 










09682 








112*0 


ERSteT 




OSC 


l.C 










C9693 








1127C 


NC0796 


C 

CSA 


MCNCAl 










C9688 




■ 


X 1 


















C9688 




-C796 




112IC 


SCNT 


CC 


5.C 










C9693 




■ 








-OCCO 


















11290 




cc 

1 












C9694 




1 




1 1 3CC 




OAS 


1 










09697 




1 


X 2 


11310 


. _ _ 


CC 


1.* 










C9698 




1 




11320 




CS 


99 










C9797 




99 




1133C 




CC 

• 


l.« 










C979e 




1 




11 34C 


G 1 SMC 


BTM 


PUTX 


.•♦16 








098CC 


1 7 


C698C 


-9816 


1 1 390 




CSA 


OPX.TOFAC.N11092 








09816 






X 3 


















C98 16 




-441 7 




















09821 




■"4 151 




















r c!)i 




— 9439 




11360 




BTM 


RPNS 


• •♦16 








r c«f a 


17 




9844 


11 370 




CSA 


I iF AC 














■ 


X 2 






















-956 7 




















C964S 








11 38C 




TOP 


FSW 


• 1 


» i » 






C985C 


1 5 


C9396 


CCCC J 


U39C 




TO 


FLAGS* 


.RXFlAG 








09862 


25 


C*C19 


C4959 


114C0 




BO 


• ♦20 


.CALLS* 








09874 


43 


C9694 


C94C2 


11410 




B7 


EXIT 














C 3C44 








BTM 


GNRP 


.•♦12 








C9894 


1 ^ 


C 5*9 12 


'- 99C 6 


11430 




SM 


GBASE 


.1 


. i r 
. It. 






099C6 


12 


C96 5 7 


C f.'*5- 1 


1 1 440 




SF 


GBASE 


. 


.6 










C96SP 


c c C * r 


114 50 




B7 


EXIT 










C993C 


49 


C3C44 




1 1 iir 




COBC 


ICCCC 










1 CCCC 
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1148C 




CC 


2,1 










1CCC 1 




2 




ih« 


CCCE1 


-1 
SM 




.1 


,1C 






1CCC2 


12 


C9567 


CCC-l 


115CC 




B 


CQOEIP 










1CC14 


49 


1C434 


ccocc 


11510 


CC0E3 


TF 


N4CCC2 


.1 








1CC26 


26 


C371C 


C9567 


11520 




B 


C00E3P 










1CC38 


49 


1225C 


CCCCC 


1153C 


CCCE4 


BTM 


RMNS 


.CCCE4P 








1CC5C 


17 


C9992 


J3412 


1154C 




H 












. 10C62 


48 


CCCCC 


CCOCC 


11550 


CCDE6 


TFM 


FMCNOS 


• BLK2 








< 1CC74 


U 


C2399 


-9222 


ii *6c 




BTM 


FMCN 


. CCCE6 








1CC86 




C2 324 


JCC74 


11570 




TFM 


FHCK*35 


♦ 81X2 




4 u r» 




1CC98 


16 


C2359 


-9222 
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11 58C 




BTM 


FMCN 


.CCOET 








1C 1 1C 




C2324 


JCC98 


ll 59C 


CCCE8 


SM 


I 


• 2 








1C 122 


1 2 




55 Si? 


1 1 6 C C 




B 


CQ0E8P 










10134 




1 VACS 




11610 


_____ 
CCCE9 


TFM 


FMCN*35 


• BLK2 








10 146 


16 


C235S 




1 1 6 2C 




BTM 


FMCN . 


•CCCE9 








IC 158 


1 7 


C2324 


JC 146 


116 30 


CCCE12 


B 


SU6C12 










1C 17C 


49 


14 15C 


CCOCC 


1 1 64C 




H 












IC182 


48 


CCCCC 




116 50 


COPE I* 


TFM 


FMCN05 


♦ BLK3 








10 194 


16 


C2359 




1166C 




BTM 


FMCN 


•CC0E14 








1C2C6 


17 


C2324 


JC 194 


11670 


CCCE 15 


TOM 


CALLS* 


.1 








1C218 


15 


C94C2 


CCCC 1 


1168C 




B 


C015P 










1C230 


49 


13752 


CCOCC 


11690 


CCCE 17 


TFM 


FMCNOS 


.81*2 








10242 


16 


C2399 


-9222 


1 1 7 C 


• 


BTM 


FMCN 


•CC0E17 








1C254 


17 


C2324 


«5«!»» 


11710 


CCCESS 


B 


SUBCCS 










1C266 


49 


14 1C2 


CCCCC 


1 1 7 2 C 




H 












IC278 


48 


CCCCC 


CCOCC 


11 730 


CCSSA6 


6 


SUBCAB 










1C29C 


49 


14126 


CCCCC 


1174C 




H 












1C3C2 


48 


CCCCC 


CCCCC 


11 750 


CC 12E 


B 


SUB12B 










10314 




14 174 




11760 




¥> 












10326 


48 


CCCCC 


CCOCC 


11770 


FCT I 


TFM 


FMCN05 


• 8LK4 








10338 


16 


C2359 


-927C 


1178C 




BTM 


FMCN 


• FCT1 








1035C 


17 


C2324 


JC338 


U79C 


FCTRT 


TFM 


FMCN* 35 


..8LK2 








1C362 


16 


C2359 


-9222 


11 8CC 




BTM 


FMCN 


.FCTRT 








10374 


1 7 


C2324 




11810 


EC J 


TFM 


FMCNOS 


• BLK4 








10316 


16 


C2359 


-927C 


11820 




BTM 


FMCN 


• ECJ 








10398 


17 


C2324 


JC386 


11830 


CCCALL 


TFM 


FMCN05 


.81X3 








IC41C 


16 






11 840 




BTM 


FMCN 


.CCCALl 








10422 


1 7 


C2324 


JC41C 


11850 


•••••• 




THE FOLLOWING CCCES AR ITfr-PETK CPERATCRS 














11860 


CCCE1P 


BTM 


RMNS 


,•♦16 








10434 


17 


C5992 


JC45C 


11870 




CSA 


I 










1045C 




5 


R 1 


















1049C 




-9567 




11880 




CSA 


SL 










10499 




5 


X 1 


















1C499 




-2399 




11890 




BTM 


RMNS 


• ••16 








10456 


17 


C5992 


JC472 


119C0 




DSA 


1 










10472 




5 


X 1 


















10472 




-9967 




11910 




CSA 


LV 










10477 




> 


X 1 






















—9997 




11920 




BTM 


GTNS 


,•♦16 








■ MAIM 

10471 


* 


C9622 


J €494 


11930 




OSA 


I 










10494 




_ 


X 1 






















—9947 




11940 




OS A 


SR 










10499 




9 


X 1 


















10699 




-2372 




11990 




CM 


LV, 


133,9,E0UAL 








10900 


14 


C9587 


C-133 


119*0 




BE 


COOEIC 










10512 


44 


11036 


C12CC 


11970 




CM 


LV. 


119 ,6, EXPONENTIAL 








10926 


14 


C9567 


C-113 


11910 




BE 


CODE 10 










10916 


44 


11939 


C12C0 


11990 






CODE ACO, 


SUBTRACT. MULTIPLY, 


CIVICI 














12CC0 




CM 


SL. . 


101.I.FAC 








10940 


14 


0*399 


C-1CI 


12C10 




BNI 


N600C7 








40 


10960 


47 


10794 


C12CC 
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12C2C 




TO 


MOO 


t FtAGSfe 


1C572 


23 


C9448 


C3C19 


12C3C 


CCCE 1A 


TO 


SS2 


1 1 


1C584 


15 


C7425 


CCCC1 


12C4C 




BTM 


SRFCI 


• • ♦ 16 


1C596 


17 


C42CC 


JC612 


12C5C 




CSA 


SR 




1C612 




S 


* 1 












1C612 




-2372 




12C60 




CSA 


J 




|C6 17 




5 


X 1 












IC617 




-9572 




12C7C 


• 


TEST FCR PlXEC 


MCCI 










12C8C 




C 


MOD 


•FXCRFL 


1C618 


24 


C944E 


C4S97 


12C9C 




BE 


• ♦24 




1C63C 


4< 


1C654 


C12CC 


12icc 




BTP 


6RPCC 


#•♦12 


1C642 


17 


12C18 


JC6S4 


1211C 




TO 


F I 


•FXCRFL 


1C654 


25 


C3931 


C4597 


12120 






FX 1$ LSEC BY 


OP SR RCL f 1 NE 










1213C 




BT* 


OPSR 


• •♦16 


1C666 


17 


C3812 


JC682 


1214C 






tv 




1C682 




5 


R 1 












1C682 




-9387 




Uisc 




csa 


N6CCC1 




1C687 




• 


X 1 












1C687 




-17C5 




12U0 




BTM 


P-LJTX 


• •♦16 


1C688 


17 


C698C 


JC7C4 


1217C 




CSA 


OPX 




10704 




c 


X 1 












1C7C4 




-4417 




1218C 




CSA 


N^CCCl 




IC7C9 




5 


» 1 












IC7C9 




-37C5 




1219C 




CSA 


J 




1C714 




• 


X 1 












10714 




-9572 




122CO 


CCCE1F 


BTM 


RUNS 


♦ •♦16 


1C716 


17 


C5652 


JC732 


122 iC 




CSA 


I 




1C732 




5 


X 1 












1C732 




-9567 




W220 




C$A 


MC 




1C737 




5 


> 1 












I C 7 3 7 




-9531 




1223C 




TOP 




f» r 


1073* 


IS 


C9394 


CCOCJ 


12240 




10 


fLAGSte 


•FXCRFL 


IG75C 


25 


C5C19 


C4597 


1225C 




BT 


GTCl 


iSt 


IC762 


27 


C668E 


C2399 


1226C 




BT 


GTCL 


tSR 


IC774 


27 


C668E 


C2372 


1227C 




B 


EXIT 




10786 


49 


C3C44 


ccccc 


1228C 




CORG 


• -3 




1C794 






1229C 


N6CCC7 


CM 


SR, ICl 


,8 »F AC 


IC794 


14 


C2372 


C-1C1 


123CC 




BNE 


N6CCC 9 




icect 


47 


1C83E 


C12CC 


12 31C 




TF 


SR 


t SI 


lceie 


26 


C2372 


C2399 


12320 




B 


CC0E1B 




IC83C 


4? 


1C944 


CCCCC 


123,30 




CORG 


• -3 




1C838 








1234C 


N6CCC9 


BNF 


N6CC1C 




1C838 


44 


1C862 


C9396 


1235C 




8 If 


GNRP 


• t>12 


icesc 


17 


C5912 


JC862 


12360 


NtCCIC 


TOP 


SS2 


.1 


1CE62 


15 


C7425 


CCCC1 


1237C 




BTP 


SRFCT 


1MI6 


1C874 


17 


C42CC 


JC89C 


1238C 






Si 




1C89C 




■ 


X 1 
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1C89C 




-2399 




1239C 




C$A 


N4CCC1 










ice95 




« 


X i 


















1CB95 




-37C5 




124CC 




BTM 


PUTX 






,•♦16 




1CB96 


17 


C69eC 


JC912 


124 IC 




CSA 


OPX 










ICS 1 2 






X 1 


















1C912 




-4417 




1242C 




CSA 


TOFAC 










icq 17 




« 


X 1 


















ICS 1 7 




-4151 




1243C 




CSA 


N4CCC 1 










1CS22 




5 


X I 


















1C922 




-37C! 




I244C 




TO 


MCC 






•FXCRFL 




1C924 


25 


C944E 


C4597 


1245C 






QCCE1A 










1C936 


49 


1C584 


CCCCC 


1246C 




CORG 


•-I 










1C944 








1247C 






ENTRY IF 


RIGHT 




SY*6Cl IS FAC. 


THEN IF CPERATCR IS CIVICE 










1248C 




SET LP REVERSE 


CIVICE 












12490 


CCCE1E 


TD 


HOC 






,FlAGSk 




ICS44 


25 


C944E 


C5C19 


125CC 




C" 


IV, 


12C , 


9 


tStBTRACT 




1C9S6 


14 


C9587 


C-12C 


125 IC 




BNE 


• ♦24 










1C968 


47 


1C992 


C12CC 


12520 




TFM 


LV, 


124, 


8 


.LEFT PAREK 




1C98C 


16 


C9587 


C-124 


12530 




CM 


LV, 


121, 


8 


•CIVICE 




1C992 


14 


C9587 


C-121 


1254C 




BNE 


C00E1A 










1 1CC4 


47 


1C584 


C12CC 


12550 




TFM 


tv. 


122 • 


8 


• 




1 IC 16 


16 


C9S87 


C-122 


12560 




B 


C00E1A 










11C28 


49 


1C384 


CCCCC 


1257C 




OORG 


•-3 










11C36 








U58C 






ENTRY IF 


CPERATCR IS AN ECL At. 


SIGN 










12S9P 


CC0E1C 


BNF 


N6CC13 






• PSk 




11C36 


44 


11444 


C9396 


126CO 




TO 


EXINC 






•FLAGSb 




11C4B 


21 


C94C4 


C5019 


1261C 




BO 


• ♦34 






• PTSk 




11C6C 


43 


11C94 


C4969 


1262C 


SIC 


BTM 


SRFCI 






• •♦16 




11C72 


17 


C42CC 


jicee 


1263C 




OSA 


SL 










ncee 




5 


X I 


















11C88 




-2399 




1264C 




CSA 


SL 










11C93 




; 


X 1 


















11C93 




-2399 




126 50 




BNF 


C0CE1E 










UC94 


44 


HUE 


C94C7 


12660 






FXCRFL 






,RFLAG 




111C6 


25 


C4597 


C4449 


1267C 




FXflRFL IS SET 


BY SRFCT 












1268C 


CCCE1E 


TO 


•♦23 






, EXINC 




line 


29 


11141 


C94C4 


12690 




CM 


FXCRFl 






,C 


• IC 


U13C 


14 


C4597 


CCC-C 


127CC 




BE 


COCEIX 










11142 


46 


11216 


C12CC 


1271C 






OUTPUTS 


FIX TC 


FtCAT CR PICAT 


TC FIX INSTRUCT ICN5 










12720 




TO 


FX 






•FXCRFL 




11154 


25 


C3931 


C4597 


1273C 




BTM 


OPSR 






• •♦16 




11166 


17 


C3812 


JU82 


1274C 




OSA 


RMCO 










11182 




c 


X 1 


















11182 




-«47C 




12750 




CSA 


N4CCC1 










11187 




5 


X 1 


















11187 




•S7C5 




1276C 




• TM 


fUTX 










11188 


17 


C498C 


J12C4 


1277C 




CSA 


STP 








4 6 


11204 




5 


> 1 
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1278C CSA N4CCC 1 

12790 CSA ZERC 



U2C4 -6920 

1 12C9 5 * 1 

U2C9 -37C5 

1121* 5 X 1 



11214 -9423 



128C0 CCCEIX 


80 FCT1E ,FTSh 


11216 


43 


12C96 


12610 


BNF N60C14 ,RSk 


11221 


44 


11348 


12020 


TOP RSM ,C 


U24C 


19 


C94C7 


1203C 


TOP SS2 ,1 


11292 


19 


C7425 


1204C 


BNF •♦46.FACTRC«t AR|lhPfT|C *MCI 


11264 


44 


11312 


12890 • 


CUTPLT TRACE IKSTHtCT IC*i 








12060 


BTP PUTX ,«*16 


11276 


17 


C698C 


1207C 


CSA BT, TRACE. SI 


11292 




9 



128IC B CLEAR 

12090 CORC «-3 

129CC • CUTPLT FRFAC IftSTRLCTICfc 

12910 BTP PUTX ♦•♦16 

12420 OSA BT.FRFACfSl 



1 1292 -9492 
11297 ^3996 
113C2 -2399 

U3C4 49 C2628 CCCCC 
11312 



11312 17 C698C J1320 
11328 9 X 3 











11328 




-9492 












11333 




-4146 












11338 




-2399 




12930 




B 


CLEAR 


1134C 


49 


C2628 


CCCCC 


12940 




OORC 


•-3 


11348 








12990 


N60014 


TOP 


SS2 ,1 


11348 


19 


C7425 


CCCC1 


12960 




BNF 


•♦40.FACTRC,, ARITHMETIC TRACE 


1136C 


44 


I14C8 


C2227 


12970 


■ 


CUTPLT TRACE IMTRLCTICK 










1290C 




BTP 


PUTX »»*16 


11372 


17 


C09BC 


J1300 


1299C 




OSA 


OPX, TRACE, SI 


11388 




c 


X 3 










11388 




-4417 












11393 




-3996 












11398 




-239$ 




13CCC 




B 


CLEAR 


1 14CC 


49 


C2628 


CCCCC 


13C1C 




CORG 


• -3 


U4C8 








13C2C 


• 


CUTPLT FRF A( IfcSTRLCTIC* 










13C3C 




BTP 


pU,TX ,«*16 


U4C8 


17 


C698C 


J142* 


13C4C 




CSA 


OPX 


11424 




• 


X 1 



13C9C OSA FRF AC 

13C6C CSA SI 



11424 -4417 

11429 9 X 1 

11429 -4146 

11434 5 X 1 



13C70 B CLEAR 

13C8C DORG »-3 

13C90 N60013 BTP SRFC T 

131CC CSA SR 



4«« 



11434 
11436 
11444 
11444 
1146C 



-2399 
C2628 



J146C 
X 1 



1620-1443 PCM ICR J VERSICK 2 FCRfRAK II-C P>ASE 2 

U46C 

CSA N4CCC2 11469 



1312C TOP SS2 ,1 

1313C BTP PUTX .•♦16 

1314C CSA OPX 



1313C CSA TOFAC 



13160 CSA N4CCC2 



1317C TO EXINC .FXCRFL 

1310C BNF SLC .RSI. 

1319C B SLC^12 

132CC CORG «-3 

132 1C « ENTRY CRERATCR IS EXPCfcEKTMl 

13220 CCCE1C CM SL, IC1.8.FAC 

13230 BNE N6CC15 

1324C CCCE1C 80 »*2C .FLAGSh 

13290 B N60016 

13260 OORG «-3 

1327C TOP SS2 f l 

1320C BTP SRFC I ,t*U 

13290 OSA SR 



133CC CSA J 



13310 TO «423 .FLAGS* 

13320 Cn FXORf L tC tlC 

13330 BE »+2A 

1334C BTP ERPCC t«*l2 t 

13390 M6CC17 BTP PUT X t**U 

1336C CSA OPX 



13370 CSA I XI 



1338C CSA J 



13390 CODE IF BTP RPNS ,«U4 
134C0 CSA I 



11410 OSA F AC 



13420 TOP F$k ,1 ,11 

11430 B EXIT 



41U 



11469 




-371C 




11466 


19 


C7429 


CCCC1 


11478 


17 


C690C 


J1494 


11494 




c 


X 1 


11494 




-4417 




11499 




K 


X 1 


11499 




-4151 




U9C4 




9 


X 1 


11904 




-371C 




119C6 


29 


C94C4 


C4597 


11918 


44 


UC72 


C94C7 


1153C 


49 


1 IC6C 


CCCCC 


11938 








11938 


14 


C2399 


C-1C1 


11990 


47 


11006 


C12CC 


11962 


43 


11962 


C9019 


11974 


49 


11734 


CCCCC 


11982 








11902 


19 


C7425 


CCCC1 


11994 


17 


C42CC 


J161C 


U61C 




9 


X 1 


1161C 




-2372 




11619 




• 


X 1 


11619 




- -9372 




11616 


29 


11439 


CSC 19 


11628 


14 


C4997 


CCO-C 


U64C 


46 


11 664 


C12CC 


11692 


17 


12C16 


J 1664 


11664 


17 


C690C 


J160C 


1168C 




9 




IU0C 




*4417 




11*09 




9 


X 1 


11609 




-4171 




1169C 




9 


X 1 


11690 




-t*72 




11692 


17 


C9492 


J17C0 


11708 




9 


X 1 


11700 




-9947 




11713 




9 


X 1 


11713 




-«591 




11714 


19 


C9344 


CCOCJ 


11726 


49 


01044 


CCCCC 



162C-1443 PCMKP ! VERSIC* 2 FCRIRAK il-t PM5E 2 



MCE 



1144C 




CORC 


•— 3 












1 14 SC 


m oo 1 1 


BTM 


S8FCT 


t • * 1 6 


1 1 1 3 4 




C42CC 


J 1 75C 


I }460 




CSA 






1 1 75C 






X 1 












1 1 75C 




"•2372 








CSA 






11755 






1 1 












11755 




-9572 




1 34 6C 




TD 




iFVCRFl 


1 1 756 


25 


C3931 


C4597 


11490 




•D 


t»l* 


♦ FX 


11740 


43 


110C4 


C3931 


115CG 




TOP 


UFSTR 


.1 


U70C 


15 


C2263 


CCCC1 


1 15 1C 




109 


UF$TR*l 


* 1 




1 5 


C2264 


CCCC 1 


1 1S2C 




TDP 


SS2 


1 1 


1 IC04 


1 5 


C7425 


CCOC 1 


11530 






OPSR 


(•♦16 


neu 


17 


C3012 


J 1 032 


US4C 




CSA 


LV 




11(32 




• 


X 1 












11032 




-9507 




1)9510 




CSA 


N4CCC2 




11837 




« 


A I 












11137 




-371C 




usee 




ST*' 






11030 


17 


C690C 


J 1 854 


11570 




8S4 


CPX 


11854 




5 


X 1 












1 1654 




-4417 




1 150C 




OSA 


N4CCC? 




11859 




5 


X I 












1 1859 




-371C 




11590 




CSA 


J 




1 1064 




5 


X 1 












11864 




-9572 




1 16CC 




TO** 


FXCRFL 


»c 


11066 


15 


C4597 


ccccc 


11610 




B 


C0CE1H 




11070 


49 


1C716 


ccccc 


iie;c 




CORG 


• -3 




11006 








lit 30 


Hi CO 1 5 


8NF 


N6CC16 


tF Sb 


1 1006 


44 


11932 


C9390 


1 1640 




8TP 


GNRP 


t »*12 


11090 


17 


C5912 


J191C 


13650 




BTP 


CTNS 


i*tU 


1191C 


17 


C5622 


J1926 


1166C 




CSA 


t 




11926 




5 


X 1 












11926 




-9567 




13670 




CSA 


SR 




11931 




■ 


X 1 












11931 




•2372 




1 36 


NtCO lc 






t 16 


11932 


1 7 


C42CC 


J1940 






CSA 


SL 




11948 






X 1 












11948 




-2399 




137CC 




CSA 


J 




11953 




5 


X 1 












11953 




-9572 




1371C 




TO 


FLACSW 


tFICRFl 


11954 


25 


C5C19 


C4597 


13720 




TO* 


SS2 


■ *\ 


11966 


15 


C742* 


CCCC1 


1373C 




BTP 


PLTX 


,•♦16 


11978 


1? 


C698C 


J1994 


1374C 




CSA 


QPX 




11994 






X 1 












/ii »199« 




-4417 




1375C 




CSA 


fCFAC 




r i > 1 11999 




« 


* 1 



162C-1443 PCM TCP I VERSIC* 2 FCRTRAK 1 1 - C PMSE 2 
CSA J 



1 3 77C 

1378C EHPOC 

1379C 

138C0 



6 

8TP 
TOP 

87 



1301C PCCPES CAC 



13820 FCT1E 

1383C 

13040 

1385C 

1306C 

13070 

1300C 



13910 
1192G 
13930 



TOP 

TOP 

TOP 

TF 

SM 

BTM 

PSA 



CC0E1G 
ERR T 
ERShT 
ERPCC-1, 
23, 

FTSk 

SSI 
SSI 

N4CC11 
N4CC11 
PITX 
8 



,PC0PES 
.1 



PIXEC PCCE» 



pixec pcce» 

•f, 

.1 

»T1 

I 1 



CSA N4CC11 



CSA BLANK 



SM AOCCk 

BJP PUTA 

CSA SXF.ADXCk 



t4 

,•♦16 



11940 
1195C 
11960 
13970 

1190C •••••• 

1199C CCCEJp SM 



S 7BASE-1, IPAX 
tPP TMAA, C,9 
8 CLEAR 

CORC *-3 

GUTPLT FlfcCTICN i INK ACE CR REPCVE PAREM»«ESI$ 



14CC0 
14C1C 



14C20 



8TP 
OSA 



N4CCC2 

CTNS 

N4CCC2 



SL, 

N60C20 
SL, 

N6CC2C 
COpEll 



14C3C CM 

14C40 BL 

14C50 CM 

14C60 8H 

14C7C 8 

14C0Q OORC • 
14C90 N6C02C SM I 

141C0 8TP RMNS 

14110 OS* I 



CSA SL 



.1 

,•♦16 



1CI,8,FAC 



,10 



194 ,0»AR I TH STATfPfM CALL 



»l 

s«»l6 



412 



1 1 999 




-4151 




12CC4 




c 


X 1 


12CC4 




-9572 




12CC6 


49 


U5C2 


CCCCC 


12C18 


17 


C9C0C 


J2C51 


12C3C 


15 


C9683 


CCCC1 


12C42 


49 


12C1P 




12C51 




23 


X 2 


12C96 


15 


C4969 


CCCCC 


121C8 


15 


C7424 


CCCC1 


1212C 


15 


C7426 


CC0C1 


12132 


26 


C3755 


C697C 


12144 


12 


C3755 


CCC-t 


12156 


17 


C690C 


J2172 


12172 




• 


X 1 


12172 




-693C 




12177 




c 


X 1 


12177 




-3755 




12162 






X I 


12102 




-9426 




12104 


12 


C6925 


CCC-4 


12196 


17 


C022C 


J2212 


12212 






X 2 


12212 




-90C2 




12217 




-6925 




12210 


22 


C23C2 


C692C 


12230 


16 


C092C 


cc-cc 


12242 


49 


C2628 


ccccc 


1229C 








12250 


12 


C371C 


cco-i 


12262 


17 


C5622 


J2270 


12270 






' 1 


12270 




-371C 




12203 




■ 


X 1 


12203 




-2399 




12204 


14 


C2399 


C-1C1 


12296 


47 


1234C 


cncc 


12300 


14 


C2399 


C-154 


1232C 


46 


1234C 


cucc 


12312 


49 


12674 


ccocc 


1234C 








1234C 


12 


C9967 


CCC-1 


12352 


17 


C5592 


J2360 


12368 




S 


X 1 


12368 




-9S61 




12313 




5 


X 1 



162C-1443 KM TCP - I VEBSICN 2 FCBTPAN II-C P*MSf 2 



PAGE 



1413C 
14 140 



6T H RMNS 
CSA I 



12373 
12374 

msc 

1239C 
12395 



-2399 

C5592 J239C 
5 X I 

-9567 

5 X 1 



1416C 
1417C 



BTP* RMNS 
CSA I 



14190 CM SR 

142CC BE N6CC21 

142 IC BNF N6CC22 

14220 BTM GNRP 

14230 N6CC22 BTM SRFCT 

1424C CSA SR 



,•♦16 



• 1C1 

• F<h 
,•♦12 

• •♦16 



12395 
1239 e 
12412 

12412 
12417 

12417 
12418 
1243C 
12442 
12454 
12466 
12482 

12482 
12487 



-2372 
17 C9992 J2412 
5 * 1 



-2372 
C2372 
1252C 
12446 
CSS 12 
C42CC 



CCJCl 
C12CC 
C9396 
J2466 
J248 2 
i 1 



14260 TOM 
14270 TO 
14280 B 

1429C 0ORC »-3 

143C0 N60021 TF SR 

1431C TFM OPX 

U320 •••••• 

1433C COCE3A TOM SS3 

1434C TF N4CCC2 

1435C TF N4CCC2-1 

1436C TOP N4CCC2 

1437C TF N4CCC2 

1438C BTP PUTX 

1439C CSA OPX 



CSA N4CCC2 
CSA SR 



SS2 .1 
FLAGS* tFkCRFl 
COOE3A 

,FACAC 

,17 ,IC 
OUTPLT LIBRARY FOCTICN LINKAGE 



14420 
14430 



1444C 
1445C 



BTM RPNS 
CSA 1 



• 1 

•TBASE 

,SL 

.9 

.M0002 
,•♦16 



12487 
12488 
125CC 
12512 
12520 
1252C 
12532 

12544 
12556 
12568 
1258C 
12592 
126C4 
1262C 

12620 
12625 

12625 
1263C 

1263C 
12632 
12648 

12648 
12653 

12653 
12654 



-2372 

15 C742S CCCC1 

25 C9C19 C4597 
44 12544 CCCCC 

26 C2372 C4156 

16 C4417 CCCJ7 



C7426 
C371C 
C37C9 
C371C 
C371C 
C698C 



CCCC1 
C23C3 
C2399 
CCCC9 
C371- 
J262C 



-4417 

5 X i 



-2372 
17 C5652 J2648 
5 X 1 

-9567 

5 X I 

-9551 
15 C9396 CCCCJ 



162C-1443 MCMTCP I VERSICK 2 F CRT PAN I l-C Pi" A SI 2 



14460 




6 


EXIT 






12666 


49 


C3C44 


CCCCC 


14470 




CORG 


• -3 






12674 








14480 


CCCE36 


CM 


SL, 


194,a ( ARITH STATEMENT CALL 




12674 


14 


C2399 


C-154 


1449C 




BE 


CODE3C 






12686 


46 


12822 


C12CC 


145C0 




CM 


SL, 


153,8,FLNCTICN CALL 




12698 


14 


C2399 


C-153 


14510 




BE 


CO0E3C 






1271C 


46 


12822 


C12CC 


14520 


N6CC23 


CM 


SL, 


107,8, IF 




12722 


14 


C2399 


C-1C7 


1453C 




BE 


CO0E7 






12734 


46 


1CC9E 


C12CC 


1454C 




BTM 


RMNS 


,•♦16 




12746 


17 


C5592 


J2762 


14S5C 




CSA 








12762 




• 


X 1 














12762 




-9567 




14560 




CSA 


SR 






12767 






X 1 














12767 




-2372 




1457C 




AM 


I 


• 1 tlC 




12768 


11 


C9967 


CCC-1 


14580 




BTM 


RMNS 


• •♦16 




1278C 


17 


C9992 


J2796 


1459C 




CSA 


I 






12796 




5 


X 1 














12796 




-9567 




146CC 




CSA 


SR 






128C1 




« 


X 1 














128C1 




-2372 




146IC 




SM 


I 


.1 .10 




12802 


12 


C9567 


CCC-l 


14620 




B 


EXIT 






12814 


49 


C3C44 


CCCCC 


14630 




CORG 


•-3 






12622 








1464C 


• 


ARITH STATEMENT CALL CP FUNCTICN CALL CPEPATCP 












14650 


CCCE3C 


SM 


I 


.2 ,1C 




12822 


12 


C9967 


CCC-2 


14660 


CCOE3V 


BTM 


RMNS 


• •♦16 




12834 


17 


C9992 


J285C 


14670 




CSA 








1285C 




c 


X 1 














1285C 




-9567 




1468C 




CSA 


S ^ 






12895 




3 


X 1 














12895 




-2399 




14690 




BTM 


RMNS 


• •♦16 




12896 


17 


C9992 


J2872 


147CC 




OS A 


I 






12872 




9 


X 1 














12872 




-996 7 




14710 




CSA 


LV 






12877 




9 


X 1 














12B77 




-9987 




14720 




BTM 


RMNS 


,•♦16 




12171 


17 


C3592 


J2844 


14730 




OSA 


I 






12894 




9 


1 1 














. 12194 




-9967 




14T4C 




CSA 


SR 






12199 




3 


X 1 














12199 




-2172 




14790 




BNF 


W4CC26 


tP$N 




129CC 


44 


12924 


C9196 


14740 




BTM 


GNRP 


• •♦12 




12912 


17 


C9912 


J2924 


14770 


N60026 


CP) 


LV, 


l54,t,APIT» STATEMENT CALL 




12924 


14 


. C9367 


C-154 


14710 




BE 


N6CC27 






1291* 


44 


1296 C 


C12CC 


14790 




TOM 


SS3 


• I 




12941 


19 


C7426 


CC0C1 


148CC 


N6CC2? 


TP* 


S$2 


til tt€ . 




12960 


14 


C7425 


COCJl 


14110 




BTM 


SRFCT 


• •♦16 


41 


12972 


11 


C42CC 


J2968 









162C-1443 PCN| ICR 1 VC«S l€«^ 2 


FCRMAN 


11 


-C FUSE 


2 








PAGE 


14120 




CSA 


SI 










12968 




* 


* \ 


















12988 




-2 399 




1483C 




CSA 


N4CCC1 










12993 




* 


X I 


















12993 




-37C5 




1464C 




IF 


N4CCC3 tACCCV 










12994 


26 


C3715 


C6923 


141 sc 




AM 


mUvV J III ttv 










13CC6 


11 


C3715 


CCCJl 


ueec 




TO 


FLAGS* f FXCAFL 










1IC1I 


25 


C5C19 


C4597 


1*670 




BTP 


PUTX ••♦U 










13C3C 


17 


C696C 


J3C46 


14S6C 




CS A 


BTP 










1 3C46 




c 


X 1 


















13C46 




-6928 




14690 




CSA 


N4CCC 1 










13C51 




« 


» 1 


















13CS1 




-17C! 




i49cc 




CS A 


N * CCCS 










1 3C56 




« 


x 1 


















13C56 




-3715 




14910 




BO 


rnrcii .Til 11 










1 3CS8 


43 


1 3 3 1 C 


C4979 


149JC 


cccnc 


TOP 


FPS* ,C 










13C7C 


15 


C9679 


CCOCC 


14930 




BTM 


RMMS t«m 










13C82 


17 


C5S92 


J3C98 


1494C 




CSA 


1 










13C98 




« 


> 1 


















ncse 




-9567 




14950 




CSA 


SL 










131C3 




c 


X 1 


















131C3 




-2399 




sec 




BTP 


GTNS i««U 










13104 


17 


CS622 


J312C 


1497C 




CSA 


1 










13120 




« 


X 1 


















1312C 




-9567 




usee 




CSA 


SR 










13125 




c 


X I 


















13125 




-2372 




ussc 




BTP 


SRFCI ,Ml* 










13126 


17 


C42CC 


J3142 


15CCC 




CSA 


SL 










13142 




c 


X 1 


















13142 




-2399 




15CIC 




CSA 


SL 










13147 




c 


X 1 


















13147 




-2399 




15C2Q 




BNF 


•♦24 »FPSh 










13146 


44 


13172 


C9679 


15C3C 




$F 


SL 










13160 


32 


C2399 


ccccc 


15C4C 




8TP 


POTC .•♦U 










13172 


17 


C61CC 


J3166 


1 5C 50 




CSA 


SL 










13101 




c 


X 1 


















13188 




-2399 




15C6C 


CCCE3E 


CM 


SR t 1C4,8,RIGMT PARfN 










1319C 


14 


C2372 


C-1C4 


15C7C 




BE 


N6CC32 










132C2 


46 


13244 


C12CC 


15C6C 




BTP 


RPNS , • « 1 6 










13214 


17 


C5592 


J323C 


1 5C 9C 




CSA 


I 










1 32 3C 




c 


y l 


















1323C 




-9567 




151CC 




CSA 


SR 










13235 




c 


X 1 






























162C-1443 PCMTCP I VERSICN 2 


FCRTPAN 


II 


-C PMSE 


2 








PAGE 


















13235 




— 2 372 




1511C 




B 


CCDE3C 










13236 


49 


13C7C 


CCCCC 


15I2C 




CORG 


•-3 










1 3244 








1 5 1 3C 


N 6 C C 3 2 


BTN 




















1514C 


CCCE3X 


BO 


CET .CAILS* 










1 3256 


43 


1 333C 


C94C2 


1515C 




BTM 


RPNS ,««16 










13266 


17 


C5652 


J2264 


1516C 




CSA 


I 










1 3264 
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BE 


CD 1 7 SC 








14372 


C 12CC 








5ni 3l 124 * 




1 3572 


14 


11141 


C- 124 


21410 




RNC 


CD 1 7* t » * 


CPA 


1 3504 


47 


1293C 


C 12CC 


2142C 


CC 17P 


BT M 


CKXH t 1 2 




1 36C8 


1 1 


1 394C 


J 36C0 


21 430 




TF 


RrP 3 « ■OICM $ t 


SAVE "Krt*I ■vCPesa 




26 


14371 


C692S 


2144C 




SM 


REP3.U1C 




13620 


12 


14171 


CCC-l 


21450 




B 


CD17A 




13632 


49 


1293C 


CCCCC 


21460 




CORG 


• -3 




1 364C 








21470 


CC 17 I 


BTM 


CKXM i 12 












2148C 




BTM 


Pllf 1 7 i SLASH 




1 lAJlf 


17 


1452C 


-41C 1 


21490 




B 


CDl 7A 






AO 


1293C 


CCCCC 


21 SCO 




CORG 


• -3 




136 72 








21510 


CC 1 7 J 


BTM 


CKXH »•♦ 12 




13672 


J * 






21 52C 




BTM 


PUT 1 7 t ATVPE 




i lie!! 


1 7 


14S2C 


4G9fc 


215 30 




BTM 


RMN S t •♦ 16 




i it n 


* ' 


C 5 592 


J 37 1 2 


21540 




CS A 


I • S X 1 7 




1J71Z 






X 2 












13712 




-9567 














13717 




J3141 




2155C 




MM 


5X17,2, 1C 




13710 


13 


13141 


CCC-2 


21560 




SF 


97 




13730 


32 


CCC97 


CCCCC 


2157C 




BT 


PUT17C.99 




1 3 742 


27 


14556 


CCC99 


2158C 


CC17N 


CM 


FREQl,C,9, 


PIT FREC MUM ACCRESS 


13754 


14 


13237 


CC-CC 


21590 




BE 


C017A 


13766 


46 


1293C 


C12CC 


216CC 




BT* 


PLT17,REP 




13770 


17 


1452C 


-41C6 


216 1C 


CC 1 1 7 


BT 


PLf 17I.REP1 




13790 


27 


14466 


132CI 


21620 




BT 


PUT 17B»FREQ1 




130C2 


27 


146C4 


13237 


2U30 




TP* 


FREQ1,C#9 


433 


13014 


16 


13237 


CC-CC 
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21640 




B 


CD17A 




21650 




CORG 


• -3 




2166C 


CC17K 


BTM 


a LT 17 f 1 TYPE 




2167C 




8 


C017J*24 




21680 




CORG 


• -3 




2169C 


CC17L 


BTM 


PLT17.FTYPE 




217CC 




BTM 


RMNS,**16 




2171C 




CSA 


I ,SX17 




2172C 




BT 


PUT17C,SX17 




21730 




BTM 


RMNS»**16 




2174C 




CSA 


I . SX 17 




21750 




B 


WUB12B+24 




2176C 




CC 


S.C 








-OCCO 




21770 


CKXH 


BTM 


GTNS,»*16 




21700 




CSA 


I ♦ S Y I 7 




21790 




CM 


SY17, 147,9 




216CC 




BE 


XRMNS 




2181C 




CM 


SY17.U8, 9 




21020 




BE 


XRMNS 




2183C 




87 


CKXH-1,,6 




2104C 




DORG 


141CC 




21050 




DC 


2*2 




2106C 


hteccs 


-2 
TFM 


FMCN*35 


ttlKS 


2187C 




BTM 


FMCN 


.SLBCCS 


21000 


hLBCAB 


TFP 


FMCN+35 


tBLK6 


21090 




BTM 


FMCN 


tSLBCAB 


219C0 


hLBC12 


TFM 


FMON4 35 


• BLK7 


21910 




BTM 


FMCN 


,StBC12 


21920 


MJ812E 


TFM 


FMCN* 35 


ttlRB 


2193C 




BTM 


FMCN 


.SCB12B 


21940 




BTM 


*MNS,«*U 




21950 




CSA 


I »SX17 




2196C 




BT 


PUT17B,SX17 




21970 




a 


C017N 




2190G 


SY1T 


cs 


t • 




21990 


CCHM 


BTM 


CKXH,«*12 




22CCC 




BTM 


PUT 1 7, E TYPE 




22C10 




B 


C017L412 




22C20 




OORG 


•-3 




22C3C 


CCI7G 


BTM 


CKXH,«*12 




22C4C 




C« 


FREQ2,0,9, 




22C50 




BE 


C017A 





PtT FRIC RIIIRm ACCRISS 



434 



13026 
13834 
13034 
13046 
13054 
13054 
13066 
13E02 

13602 
13807 
13600 
139CC 
13916 

13916 
13S21 
13922 
13938 

1394C 
13956 

13956 
13961 
13962 
13974 
13986 
13998 
14C1C 
141CC 
14101 

141C2 
14114 
14126 
14130 
14150 
14162 
14174 
14106 
14190 
14214 

14214 
14214 
14220 
14232 
14243 
14244 
1429C 
14248 
14274 
14274 
14211 
143C0 



49 1293C CCCCC 



17 
49 



1452C 
13696 



-4111 

CCCCC 



17 1452C -4116 
17 C5592 J3002 
5 X 2 

-9567 

J3141 
27 14556 13141 
17 C5592 J3916 
5 X 2 

-9567 
J3141 
49 1419E CCCCC 



17 C5622 J3956 
5 X 2 



-9S67 
J4243 
14243 
12968 
14243 
12908 
1393R 



16 C23S9 

17 C2324 

16 C23S9 

17 C2324 

16 C2359 

17 C2324 

16 C2359 

17 C2324 
17 C5592 

5 



-«S€7 
J3141 
14404 
4« 13754 

C 

1394C 
11 1452C 
49 13846 



27 



1? 



11 13*4C 
14 134C3 
44 1293C 



CCJ47 
C12CC 
CCJ48 
C12CC 



-9294 
J41C2 
-9318 
J A 126 
-9342 
J415C 
-9346 
J4174 
J4214 
X 2 



13141 
CCOCC 

J4254 
-4121 

CCCCC 

J4288 

CO-CC 
C12CC 
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22C4C 




IF 


FREQl ,FAEC2 




14312 


26 


13237 


13*C3 


22C7Q 




TF 


REPl,»fP2 




1*32* 


26 


132C1 


13331 


22CIC 




TFP 


FREQ2tC,9 




1*331 


14 


13*C3 


CC-CC 


22C9C 




BTP 


PUT 17 1 REP* 




1*3*1 


17 


1452C 


-39*6 


22 ICC 




8 


coin 




1436C 


49 


1379C 


CCOCC 


22110 


REP J 


CS 






14371 




C 




22120 


CC17SC 


6NR 


coha.bgksus 




14 372 


45 


1293C 


16CC4 


22130 




• TP« 


PUT17.RECC 




14384 


1? 


1452C 


-4126 


221*0 




BT 


PUT17I.REP1 




14 396 


27 


1**66 


14371 


221S0 


CC17XX 


ITP 


AOJUSI.ACCCk, , 


ADJLST ACCC*. TC EVEN ACCRESS 


14401 


17 


C3766 


-6925 


22 U0 




TF 


N4CCC2 ( SXF 




14*2C 


26 


C371C 


C96C2 


22170 




• TP 


PUT* 


,«tl6 


144 32 


17 


C822C 


J4448 


2218C 




CSA 


$XF,AOCC»» 




14448 




• 


X 2 












14**8 




-96C2 














1**13 




-6925 




2219C 




8 


CLEAR 




1**S* 


49 


C2626 


CCCCC 


222C0 




CORG 


• -3 




1***2 








2221C 




CS 


ft 




1***4 




■ 




22220 


PLT171 


TR 


TVPET 


,TYPECR 


14488 


31 


C8373 


C87*4 


222 30 




TFP 


PUT 3 




1448C 


16 


C872I 


J4467 


222*0 




TFP 


PUTX-l 


• ««29 


14492 


16 


C6979 


J4S12 


22250 




87 


RLTXB 


149C* 


49 


C7C6* 




22260 




882 




14512 


42 






2227C 




CS 


i 




14518 




> 




22280 


PLT17 


TR 


TYPE T 


tTVPEC* 


14S2C 


31 


C8373 


C8759 


22290 




TF 


PUT 3 




145J2 


26 


C8726 


1*519 


223CC 




8 


PUT17I*2* 




14544 


49 


1**92 


CCCCC 


2231C 




OS 


t • 




14545 




C 




22320 


PLT17C 


TR 


TYPE T 


,TYPEK3 


14556 


31 


C8373 


1*662 


2233C 




SF 


PUT11C-3 




14588 


32 


1*553 


CCCCC 


223*C 




TFP 


PUT3 


«PLT17C-l 


I458C 


16 


C8726 


J*555 


2235C 




B 


PUT 171*2* 




1*592 


49 


1**92 


CCOCC 


22340 




CS 


»• 




1*6C3 








22370 


PLT17B 


TR 


TYPET 


,T>PEK2 


l*6C* 


31 


C8373 


14647 


22 38C 




SF 


PUT 1 78-2 


1*616 


32 


1*6C2 


CCCCC 


22390 




TFP 


PUT3 


.PCT178-1 


1*628 


16 


C872E 


J46C3 


22*C0 




87 


PUT 17 1*2* 




I *6*C 


*9 


1**92 




22*10 


T VPEK2 


CSC 


1.2 




1*647 




1 




22*2C 




2 

CC 


2,2 




14649 




2 




22*30 




^2 

CC 


2,5 




1*651 




2 




22**C 




-5 
CC 


2,1C 




1*653 




2 




22*50 




JO 
CC 


2,11 




1*655 




2 




22*6C 




Jl 

CC 


5.1CCCC 




1*660 




m 








JOCCC 












22*70 




CC 
• 


l,« 




1*661 




1 




22*8C 


JYPEK3 


OSC 


1,2 




1*662 




1 




22*9C 




2 

CC 
-3 


2,3 


435 


1*66* 




2 





225CC 
225 1C 
2252C 
225 3C 
225*C 



CC 
-6 
CC 
Jl 
CC 
J2 
CC 
JOCCC 
CC I 



1620-1**3 PCMTCP I 
2,6 
2,11 
2,12 . 
5,ICCCC 



VERSION 2 FORTRAN II-C PHASE 2 



2?;;c output retlrk 

22560 FCTRTP TOP SS2 
2257C 8TP SRFCT 

225eC CSA RTNA»»E 



CSA N*CCU 



226C0 
2261Q 



22620 
2263C 



BTP PUTX 
CSA BTP 



OSA TCFAC 
OSA N*CC11 



226*C N6C182 TFP 

22650 TF 

22660 SM 

22670 BTM 

2268C CSA 



SS3 

N*CC12 
N*CC12 
PUTX 
B 



22690 
227CC 



CSA N*CC12 
CSA BLANK 



22710 8 CLEAR 

22720 OORG *~3 

22730 OORG 16CC2 

227*0 X2ZX 34 6LK2A.7CI 

22750 38 BLK2A*702 

22760 TRA 



2277C 
2278C 



22790 
228C0 



.1 

,•♦16 



,•♦16 



• 1C1 

,RTAC 

il 

t«U6 



.9 

,1C 



TCO XZ2X 
OSA CF 



OORG lOCCC 

SECONDARY LINKAGE FOB BLOCK 3 



1*666 




2 




l*66e 




2 




l*67C 




2 




1*675 




c 




1*676 




1 




1*678 


15 


C7*25 


CCCCi 


1*69C 


17 


C*2CC 


J*7C6 


1*7C6 




• 


X 1 


1*7C6 




-9558 




1*711 




K 


X 1 


1*711 




-3755 




1*712 


17 


C698C 


J4728 


1*728 




s 


X 1 


1*728 




-6926 




14733 




« 


X 1 


14733 




-*151 




14738 




■ 


X 1 


14738 




-3755 




147*C 


16 


C7*26 


CCJC1 


14752 


26 


C376C 


C9592 


1476* 


12 


C376C 


CCC-l 


14776 


17 


C698C 


J*792 


14792 




• 


X 1 


14792 




-693C 




14797 




5 


X 1 


14797 




-376C 




148C2 






X 1 


148C2 




-9426 




148C4 


49 


C2626 


CCOCC 


14812 








14CC2 








16C02 


34 


C923C 


C07C1 


18014 


31 


C923C 


CC7C2 


14C24 


34 


CCCCC 


ccscc 


18C38 


49 


CCCCC 


CCCCC 


16CC2 








1*C5* 




5 


X 1 


14C5* 




-9413 




10CCC 









43G 
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228 10 


cc 


2.3 




22 820 VCCE1 


-3 
TFM 


FMCN* 35 


tCLKl 


2283C 


BTM 


FMCN 


.CCDE1 


22140 VOCE 3 


TFM 


FMON*35 


t BLK 1 


278 50 


BTM 


FMCN 


,CC0E3 


22 8*0 VCCE4 


T FM 


FMCN*35 


t BLK L 


22870 


BTM 


FMCN 


,CCCE4 


22860 vo'oe< 


TF M 


FMCN* 35 


,6LK2 


228 SO 


BTM 


FMCN 


,CC0E6 


22 SCO VCCE7 


TFM 


FMCK*35 


,81*2 


229 1C , . 


BTM 


FMCN 


,CCDE7 


22*20 VC0E8 


TFM 


FMCN* 35 




2293C 


BTM 


FMCN 


•CCDE8 


22 <4C YCCE9 


TFM 


FMCN*35 


,8LR2 


2295C 


BTM 


FMCN 


•CC0E9 


22960 YCCE12 


B 


SUBC 12 




22970 


H" 






22 98C VOCE 14 


TDK 


FX 


1 


22 99 C 


B 


COUP 




2 3 ceo voce 15 


TFM 


FMCN* 35 


• eLKi 


2iq 10 


BTM 


FMCN 


.CC0E15 


23C20 VCCE17 


TFM 


FMCN* 35 


,em2 


2ix*c 


8 T M 


F MO N 


•CC0E17 


23C40 VCCESS 


B 


SUB CD S 




23C50 








23C6o Bessie 


B 


SUBC A B 




2JC70 








23C8G VC12B 


B 


SUB 1 28 




2.3C9Q 








2iiCo vcu 


TFM 


FMCN*35 


«8LK4 


23 UO 


BTM 


FMCN 


tfCTL 


23120 VCTRT 


tFm 


FMCN* 35 


,8LK2 


231 30 


BTM 


FMCN 


tFCTRT 


231*0 VCJ 


tfV 


FMCN*35 


,eiK4 


23150 


BT M 


FMCN 


,ECJ 


23160 YCC ALL 


CM 


LV 


rill 


231 TO 


B 


C DC A L P 




2316C • *<**•• 




OUTPUT IC 


Statement 


2 3 ISC CC14P 


TDK 


FFRSh 


• C 


2 3 2C0 


BT* 


RMNS 


.•♦16 


23210 


CSA 


1 




23 220 


CSA 


SR 




2 32 3 C 


BTM 


GTNS 


,•♦16 


2i24C 


CSA 


ft' SI 




232 50 


CM 


LV . 


,142 


23260 


Bi 


CD14 JG 




232 70 


C* 


L V 


,14 7 




BH 


CD 14 JG 





437 



1CCC1 




2 




1CCC2 


16 


C235S 


-9 198 


ICC14 


1? 


C2324 


JC0C2 


ICC 26 


16 


C2359 


-S198 


1CC38 


17 


C2 324 


JCC26 


ICC5C 


16 


C2359 


-9198 


ICC62 


17 


C2324 


JCC5C 


1CC74 


16 


C2359 


-9222 


1CC86 


17 


C2324 


JCC74 


1CC96 


16 


C2359 


-9222 


1C110 


17 


C2324 


JC096 


10122 


16 


C2359 


-9198 


IC 134 


17 


C2324 


JC 122 


1C 146 


16 


C2359 


-9222 


1C 198 


17 


C2324 


JC146 


10170 


49 


1415C 


CCCCC 


1C 162 


48 


CCCCC 


CCCCC 


10194 


15 


C3931 


CCCCl 


1C2C6 


49 


1C434 


CCOCC 


1C218 


16 


C2359 


-9198 


1C23C 


17 


C2324 


JC216 


1C242 


16 


C2359 


-9222 


1C254 


17 


C2324 


JC242 


1C266 


49 


141C2 


CCCCC 


1C278 


48 


CCCCC 


CCCCC 


IC29C 


49 


14126 


CCCCC 


103C2 


48 


CCCCC 


CCCCC 










1C326 


46 


CCCCC 


CCCCC 


10338 


16 


C2359 


-927C 


10350 


17 


C2324 


J0338 








-9222 


IC374 


17 


C2324 


JC362 


1C386 


16 


C2359 


-927C 










1C41C 


14 


C9587 


C-131 


1C422 


49 


13CC4 


CCCCC 


10434 


1 5 






10446 


17 


C5592 




IC462 




5 


* 


1C462 




-9567 




10467 






» i 


1C467 




-2 3 72 




10*68 


17 


C5622 


JC464 


10484 






X 2 


10484 




-9567 




10489 




-2399 




1C49C 


14 


C9587 


C-142 


1C5C2 


47 


1C98C 


C13CC 


1C514 


14 


C9587 


C-147 


10526 


46 


1CS8C 


Cl'CC 
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2329C 
2 1 i i c c 
23 3 10 
23320 
2333C 
2334C 
23350 
23 36 
23370 
233eC 
23390 
23 4CC 
23410 

23 4 20 

23430 CC14FV 

23440 

234 50 

2346C 

23470 



TDM 
CM 

BE 
CM 
BE 
CM 
BE 
CM 
BE 
SF 
CM 
BE 
B 



FFRSh 
LV 

CD14FV 
L V 

C D 1 4 F t 

LV 

CD14RV 
LV 

CD14RL 

FFRSh 

LV 

CD14SV 
C014SL 



, 1 

.142 



,8 
.8 
.8 



OORG »-3 
TF LVP 



CM. SL 

BNE CD14JM 

BTM POT* 

CSA BT,LVP,N13C92 



,F£TC* 
,IC1 



2348C 
2349C 



BTM 
CSA 



RMNS 
I .SL 



235C0 B C014A 

23510 DORG »-3 

23520 CC14FL TF LVP 

23530 BTM SRFCT 

23540 CSA SL .N4CCC4 



♦FETCH 
♦ •♦16 



23550 




TDK 


SS2 


.1 


23560 




BTM 


PUT* 


♦ •♦16 


23570 




CSA 


BTM t TCFAC 


•K4C004 


23580 




BTM 


RPNS 


,•♦16 


23596 




CSA 


I.FAC 




236CC 




BTM 


GNRP 


,•♦12 


23*10 




B7 


C014FV*12 




23620 


CC14RV 


TF 


LVP 


,RECORC 


23630 




B7 


CD14FV*12 




23640 


CC14RL 


TF 


LVP 


.RECORD 


23650 




87 


C014FL*12 




23660 


CC14SV 


TF 


LVP 


• F1M0 


23670 




67 


CD14FV*12 





436 



1C538 
1C55C 
1C562 
1C574 
1C586 
IC598 
1C6 1C 
1C622 
1C634 
1C646 
IC658 
1C67C 
1C682 
1C69C 
1C69C 
IC7C2 
1C714 
10726 
1C742 

1Q742 
10747 
10752 
1C754 
1C77C 

IC77C 
1C775 
10776 
10784 
10784 
10796 

ice 12 
ice 12 

1C817 
1C818 
1C830 
1C846 

10646 
108S1 
1C856 
1C6S8 
1C674 

1C874 
1CI79 
10860 
10692 

1C9CC 
1C912 
10920 
10932 
1C94C 
IC952 



15 C4989 
14 C9587 
46 K69C 
14 C9587 
1C784 
C9587 
1C9CC 
C9587 
1C92C 
C4969 
C9587 
1C94C 
1C96C 



49 

26 12971 

14 C2399 

47 11CC2 

17 C698C 



PAGE 

CCCCl 
C-142 
C12CC 
C-143 
C12CC 
C-146 
C12CC 
C-147 
C12CC 
CCOCC 
C-144 
C12CC 
CCCCC 

13CC3 
C-1C1 
C12CC 
JC742 
3 



5 X 



-9452 
J2971 
-9439 

C5592 JC77C 
5 X 2 



-9567 
-2399 
49 11214 

26 12971 
17 C42CC 



13CC3 
JC812 
I 2 



-2399 

-372C 
15 C742S C00C1 
17 C698C JC846 
5 X 3 

-6926 
-4131 
-372C 
17 C5652 JC874 
5 X 2 

-9567 
-9351 
17 C5912 JC892 
49 107C2 
26 12971 12998 
49 1C7C2 
26 12971 12998 
49 1C796 
26 12971 12993 
1C7C2 



49 
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PACt 



?3teo 


CC14SL 
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11692 


GCLEAR 


C6738 
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CCDEIG 
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11734 
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C3766 


CCCElh 
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12528 


N6CC17 
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CCCEIP 


10434 
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CCCEIX 


11216 
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05521 
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CALBLK 
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CCCE3A 


1254 
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06764 


N6CC21 


12520 
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05536 


CALLBK 


13585 


CCCE38 


12674 
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06974 


N4CC22 


12466 


AP 


09417 


CALLSh 


C94C2 


CCCE3C 


12822 


HEACEB 


02218 


N6CC23 


12722 
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02389 


CANCRT 


C8992 


CCCE3C 


13C70 


INCREC 


12193 


N60C26 


12924 


ARMOT 


1293C 


CANCSA 


Ce928 


CC0E3E 


13190 


1NSETA 


11203 


N6CC27 


12960 


ASTCP 


04141 


CC12BP 


14198 


CCCE3P 


12250 


INSET8 


11227 


N6CC32 


13244 


ATVPE 


04C9* 


CC MEN 


12558 


CCCE3X 


13256 


J4C0C4 


C9612 


N6CC34 


13546 
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17340 


CC14FL 


10784 


CCCE3Y 


128 34 
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15842 


N6CC3S 


1357C 


BAL 


08394 


CC14FV 


1069C 


CC0E3Z 


13310 


LCPA01 


12977 


N6CC41 


10652 


BCCh 


13610 


CC14JC 


1C98C 


CC0E4A 


13488 


LCCPAC 


13345 


N6CC43 


1C72C 


6C 


09643 


CC14J* 


110C2 


CCCE4P 


13412 
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C2248 


N60C44 


1C6SC 


BEGAC 


02257 


CC14NA 


U9C4 


CCCE6A 


1C644 
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CC392 


N4CC45 


1C91C 


BE 


C9636 


CC14NB 


12066 


CCCE68 
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PUTl 


C8718 
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04C91 


T2 


09616 


VCTRT 


IC362 


TYPECK 


C8759 


PLT2 


C8723 


RSti 


09407 


T3 


CS676 


YC 128 


1C314 


TYPECR 


C8744 


PLT3 


C872e 


RTAC 


09592 


TEASE 


C23C3 


VCCEl 


ICCC2 


TYPEK2 


14647 


PL T * 


C822C 


RVAL 


04539 


TCCW 


C69I7 


VCCE3 


1CC26 


TYPEK3 


14662 


PLTCA 


C8196 


RV 


09597 


TFP 


0S4C9 


VQCE4 


10CS0 


TYPEP2 


13509 


PLTCB 


C816C 


RVSN 


09467 


TF 


CS415 


V0CE6 


ICC74 


TYPERP 


08335 


PLTC 


C81CC 


S8ASE 


04595 


TPAX 


C6920 


VOCE 7 


1CC58 


ISCCR1 


12561 


PLTC 


C8ie4 


SCABP 


14202 


TCFAC 


04151 


Y0CE8 


1C 122 


LSECCR 


13311 


PLTGT 


C7275 


SCNT2 


12969 
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03956 


VOCES 


1C146 


hLP12E 


14174 


PLIR0 


C63C4 


SCNT 


09693 


TSK 


13381 


YCJ 


1C386 


WLBC12 


14150 


PLTTA 
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SECTC 


13554 


ThC 


14162 


2CT1 


1C338 


kteCAB 


14126 


PLIX2 


13382 


SECTY 


13562 
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C8774 


ICTRT 


1C362 


KL8CCS 


141C2 


PLTXA 


C704C 


SETAC 


03687 
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03971 


2C12B 


10314 


XOCALL 


1C410 


PLTXB 


C7064 


SF 


09411 
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C8373 
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C5425 
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PLIXC 


C7216 


SIX92 


13456 
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08729 
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C5426 
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SK 


1CB49 
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SL 
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C7936 


SP 
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xoox 


16002 


20CE6 
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1C338 


20CE7 


1CC98 
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PLTX 
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SCLNG 
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Ce35C 


SRFCT 


042C0 


XC12B 


1C314 
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1C410 
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SRGT 


04322 


XCCE1 


1C002 
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10386 


VDSSAB 


1C290 
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C8363 


SRNX 


04316 


XCCF.3 


1C026 


2PT 


15714 


VCCE12 


1C170 


Q 


C5582 


SR 


02372 


XCCE4 


1C050 


2R0 


15497 


YCCE14 


1C194 


02P 


15044 


SRSY 


04271 


XCCE6 


ICC74 


SACCOW 


11263 


V0DE15 


IC218 


RCTV 


C9454 


SSI 


07424 


XC0E7 


1C098 


SARCSh 


136CC 


VC0E17 


10242 


REAC 


C3961 


SS2 


07425 


XC0C8 


1C122 


SAVCCh 


C7447 


YCCES5 


1C266 


RECLG 


C2243 


SS3 


07426 


XCCE9 


1C146 


SETFCT 


C3346 


YUB128 


14174 


RECC 


C4126 


SS4 


07427 


XCJ 


1C386 


SETN0T 


C3618 


VL8C12 


14150 


REGS* 


C54C6 


SSLNG 


08377 


KRPNS 


12988 
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09681 


VLBCA8 


14126 


REP1 


132C1 


SSSh 


09395 


xssx 


16002 


SRCFFL 


C456C 
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14102 


REP2 


13331 


ST 


09563 


XTTX 
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STEPPl 


C94CC 


2CCALL 


IC41C 


REP3 


14371 


StBl 


03996 


XTVPE 


C4136 


STIPP2 


094C1 
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1C290 


REP4 


C3946 
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04016 
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16002 


SUBC12 


14150 


2C0E14 


1C194 


RFLAG 


C4949 


StB 


09441 


XUUX 
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2L6C12 
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SX 
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x*s 
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094C7 
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RSGNl 


* 


.8 




04C32 


49 


C4I16 


C-CCC 


C4290 




CORG 


•-1 








C4C42 








C43C0 




TFM 


FWCNU1 


••-START 






C4C42 


16 


C7465 


-C191 


04310 




CC 


2 


• 2 


t«-3 




C4C50 




2 




04320 




-2 
B 


FMCN 








C4C54 


49 


C7454 


CCCCC 


04330 


FSB 


TOM 


FA01O7 


.2 




SET UP INST. TC SUBTRACT 


C4C66 


15 


04933 


CCCC2 


04340 




B 


fsbi 








C4C78 


49 


C4896 


CCOCC 


0435C 


FAC 


TOM 


FAD107 


tl 


1 1 


SET UP INST. TC ACC 


. 04C9C 


13 


04953 


CCCC1 


04360 




B 


FAC I 








04 IC? 


49 


04916 


CCCCC 


04370 


FSBR 


BNF 


FSBRU32 


.FAC-? 


• t 


CHANGE SIC* CN FAC 


04114 


44 


C3474 


C249C 


0438C 




8 


FSBR 1 








04126 


49 


C3442 


CCOCC 


C4390 


FPP 


TF 


SAVE 


•PPP-1 


• lit 


PCVE EXPCNENT TC SAVE. 


04130 


2* 


C2345 


C413* 


044C0 




B 


FNP1 








04 ISC 


49 


C3494 


CCCCC 


04410 


FC 


TF 


SE*li 


,FC-l 


tilt 


PCVE EXPCNENT. 


04162 


26 


CS7I3 


C416J 


04420 




B 


F01 








04174 


49 


C3494 


CCOCO 


04430 


FCVR 


TF 


SAVE 


.FCVR-l 


• Hi 


PCVE EXPCNENT. 


04186 


24 


C2345 


C418N 


04440 




B 


F0VR1 








04191 


44 


C3I66 


CCCCC 



476 



U2C-144S MCNITCR I VERSION 2 FCB1RAkl|-C S18SSET1 MCE 



C44 90 


F IX I 


TF 


I MSA 


.FIXI-l 


,11, 


1 MSA • I 


04210 


2* 


C2979 


C42CR 


044*0 




B 


F I * 1 1 








C4222 


44 


C944* 


CCCCC 


04470 


FAX I 


TF 


IMSA 


.FAM1-1 


iMi 


IPSA • 1 


C4234 


2* 


C2975 


C42SL 


044*0 




8 


PAXIl 






C4244 


49 


C44CC 


CCCCC 


04490 


P 4X8 


IF 


TAFE 


• FAXBM 


,11. 


ICAC fXPCMNT 1 


04298 


2* 


C253S 


C429P 


049C0 




B 


FAXBl 






0427C 


44 


C7C62 


CCCCC 


04910 




If* 


FMCNMl 


••-START 






C4282 


14 


C7449 


-C431 


C4920 




CC 


2 


f 2 


• *-3 




C429C 




2 




04930 




-2 

a 


FMCN 








C4294 


49 


C7494 


CCCCC 


04940 




TFM 


F*CMll 


••-STAB1 






C43C4 


1* 


C74*S 


•C499 


C4990 




CC 
-2 


2 


2 


•-3 




CAS 14 




2 




049*0 




6 


FMCN 








04318 


49 


C7494 


CCCCC 


04970 




J fit 


FMCN* 11 


••-START 






C433C 


1* 


C7469 


rC474 


049IC 




CC 


2 


2 


' » •— 3 




C4338 




2 




C459C 




-2 
8 


FMCN 








C4342 


49 


C7494 


CCCCC 


C4*C0 




TFM 


FMCN* 11 


••-START 






G4394 


1* 


C74<5 


-C9C3 


044 10 




CC 


2 


t 2 


• •— 3 




C43A2 




2 




04*20 




-2 
8 


FMCN 








043AA 


49 


C7494 


CCCCC 


04630 




TFM 


FMCN* 1 1 


••-START 






04378 


14 


C74A9 


-C927 






rr 




2 


■ 




0439A 




2 




C4490 




-2 
8 


FMCN 








0439C 


44 


C7494 


CCCCC 


C ***0 




TFM 


FMCN«1! 


••-START 






044C2 


1* 


C74*2 


-C991 


04470 




CC 


2 


,2 ' 


.♦-3 




C441C 




2 




0448C 




— 2 
8 


FMCN 








04414 


49 


C7494 


CCCCC 


C4490 




TF* 


FMCN* 11 


••-START 






0442A 


16 


C74C! 


-C979 


C4 7CC 




CC 


2 


• 2 


• •-3 




C4434 




2 




04 710 




-2 


FMCN 










49 


C7494 


C-CCC 


04720 




CORG 


•-1 








C4448 








C473C 




TF* 


FMCN* 1 1 


••-START 






04448 


16 


C746! 


-C997 


04 740 




CC 


2 


• 3 


• «-3 




0449* 




2 




04750 




-3 
g 


F*CN 












C7494 


C- CCC 


C474C 




CORE 


••1 








04470 








04770 




TF* 


FMCN* 1 1 


••-START 






0447C 


16 


C7443 


-C619 


04 7IC 




CC 
-4 


2 


•4 


• •-3 




C4478 




2 




04 79 






F*CN 










49 


C7454 


C-OCC 


04ICC 




CORG 










04492 








04P1C 




TF* 


FMCN*U 


••-START 






04492 


16 


C74«9 


-C641 


C482C 




CC 
-7 


2 


• 7 


. •- 3 




C49CC 




2 




C4C30 




8 


F*CN 








C4904 


49 


C7494 


C-CCC 


C4*4C 




CORG 


• -1 








C4914 








04890 




TF* 


FMCN*ll 


••-START 






C4914 


16 


C746S 


-C663 


C4P6C 




CC 


2 


.* 


• •-3 




04922 




2 








-8 










C492 A 


49 


C 7494 


C-CCC 


C4iac 




CORG 


•*i\ 








C493* 








04 MC. 




TF* 


FMCN* 1 1 


••—START 






C453* 


16 


C7465 


-0689 








162C-1443 


PCMTCR 


I VERSICN 2 FCRTRAN 11- C SOBS SET 1 








PAGE 


C4SCC 




CC 




,7 


• •-3 




C4S44 




2 








-7 






• t 




04948 




C7494 


C-CCC 


C4920 




CORG 










04998 








C493C 




TF* 


FMCN* 1 1 


••-START 






C4998 


16 


C7442 


-C7C7 


0494C 




CC 
-9 




,5 


• •-3 




C45** 




2 














• 8 




C4 5 7C 




C7494 


C-CCC 


C4?ec 




CORG 


• -1 








C498C 








C4S70 




TF* 


F*CN*ll 


••-START 






04S8C 


16 


074*5 


-0729 


04<jic 




CC 
-5 




• 9 


• •-3 




04988 




2 




04990 




e 


FMCN 




• 8 




C4992 


49 


C7494 


C-CCC 


05CCC 




CORG 


•-1 








044C2 








05C10 




TF* 


FMCN* 11 


••-START 






C44C2 


16 


C746S 


-C791 


C5C20 




CC 




• 9 


• •-3 




04C1C 




2 




CSC3C 




-9 

e 


FMCN 








04*14 


49 


C7494 


CCOCC 


Q5C40 




OORG 


•-4 








C4421 








C9C90 


• •••• 


1620 FCRTRAN 1 I-C 


ARITHMETIC BICCK - SUtRCtiTINES 










C9C*C 


PXA1 


8V 


.♦12 








04*22 


46 


C4634 


C14CC 


C9C7C 




88 










04*34 


42 


CCCCC 


CCOCC 


oscto 




CORG 


• -9 








04*34 








09C9C 


fxsm 


CF 


FAC 








04*34 


33 


C2492 


CCCCC 


091C0 




TF 


FXA-1 


»FX$R-1 


t * 


SET OP ACC 


C4648 


26 


C3877 


CS925 


09110 




8 


FXA 


• 


• • 


BRANCH TC FIXEC PC INT ACC 


04**0 


49 


CS87* 


CCOCC 


09120 




CORG 


•-3 








04AI8 








C913C 




SF 


FAC 








C4IAI 


32 


C2492 


CCCCC 


0914C 




8 


FXSR1*12 








C4A8C 


49 


C444I 


CCCCC 


C919C 




OORG 


•-3 








04*11 








09140 


FX* l 


SF 


10CMK 


* 


•A 




04*18 


32 


C3291 


CCCCC 


C9170 




IF 


FAC 


• 99 






047CC 


2* 


C2492 


CCC99 


09110 




88 










04712 


42 


CCCCC 


CCCCC 


0919C 




CORG 


•-9 








04714 








092C0 


FXCl 


C 


100MK 


•PXC-l 


•All 




1)4714 


24 


C3291 


C347L 


09210 




BV 


• ♦28 








C4724 


4* 


C47S2 


C14CC 


09220 




TF 


FAC 


• 99FK 


• 11 




04731 


2* 


C2492 


C328C 


P9230 




88 










04790 


42 


CCCCC 


CCCCC 


C9240 




OORG 


•-9 








04792 








09290 




TFM 


El 


• 911 


.9, 


IRRCR II 


04712 


14 


C2415 


CCN7* 


052*0 


fXHlkl 


TFM 


FXIRROC 


•FIXENC- 


12,, 


SIT UP IRRCR EXIT 


047*4 


1* 


C37C4 


-3748 


09270 




TF 


FAC 


• Fit 


• • 


FAC • fit 


04774 


24 


C2442 


C2BC9 


092 80 




8 


FIERR 








047*1 


44 


C3474 


CCCCC 


09290 




CORG 


•*3 








0479* 








093C0 


fxcrh 


C 


ICCMK 


•FAC 


•A 




04784 


24 


C3291 


C2442 


09310 




6 


FXC1*12 








04*08 


44 


C472* 


CCCCC 


09320 




OORG 


•-4 








04819 








09330 


iSCMl 


BWF 


•♦24 


•FAC-2 


t * 


PICAS ING FCINT NUMBER, 


0481* 


44 


04842 


C249C 


09340 




CF 


FAC-2 








04828 


SI 


C244C 


CCOCC 


09390 




88 










0484C 


42 


COCOC 


CCCCC 


093*0 




OORG 


••9 








04842 








09370 




SF 


FAC-2 








04842 


32 


C249C 


CCCCC 


093IC 




88 










04814 


42 


cooec 


CCOCC 


09390 




OORG 










04818 








094C0 




BNF 


• 428 


•FAC 


• • 


FIII6 PC INT NUPBER 


04888 


44 


04882 


C2492 


09410 




CF 


FAC 








04888 


SS 


C2442 


CCCCC 









162C-1443 


PCNITCR 


1 VERS IC* 2 FCRTRAft I I-C SUBS SET 1 








PAGE 


05420 




BB 










C488C 


42 


CCCCC 


CCCCC 


05430 




OORG 


•-9 








048B2 








05440 




SF 


FAC 








C4682 


32 


C2442 


CCCCC 


C5450 




BB 










04844 


42 


CCCCC 


CCCCC 


05460 




OORG 


•-9 








04 896 








05470 


fsbi 


TF 


FAC-1 


•Fse-i 






04496 


26 


C4C8S 


C4C65 


0548C 




B 


FAOl 








049C8 


49 


C4416 


CCCCC 


0549C 




CORG 


• -3 








04916 








055C0 


MCI 


IF 


BETA 


♦FAC- l 


• U. 


PCVE EXPCNENT 


04916 


26 


C26C3 


C4C6R 


05510 




SM 


FAC-l 


,2 


• 10 




04928 


12 


C4C84 


CCC-2 


05520 




TF 


BETA- 2 


»9SPF 


• • 


CLEAR BETA-2 TC F*l ZEROS. 


C494C 


26 


C26C1 


C28S4 


0553C 




A 


BETA-2 


t F AC- I 


.11. 


ACC CR SUET.PANTISSA 


04952 


21 


C24C1 


C4C8R 


C554C 




TF 


SAVE 


• FAC 


. • 


PCVE EXPCNENT. 


04464 


26 


C2S65 


C2452 


05550 




TF 


FAC-1 


•FAC-2 


• • 


RIGHT SHIFT CNE CtCIT. 


C4976 


26 


C249 1 


C244C 


05560 




CF 


FM 




• 6, 


CLEAR FLAG CK HIGH CRCIR CIGIT. 


04988 


33 


C33CC 


CCOCC 


C557C 




TOP 


FNH 


• 


• 611* 


SET NEXT HIGH CIGIT TC FLAG ZERO* 


OSCCC 


15 


C 3 3 1 L 


((((- 


05580 




c 


BETA 


• SAVE 


• • 


CCPPARE EXPCNENTS. 


05C 12 


24 


C26C3 


C256S 


05590 




BNH 


• ♦84 




• . 


(RANCH IF NC EXCHANGE CF GPERANCS 


CSC24 


47 


C 5 ICC 


C 1 ICC 


056C0 




TF 


SAVE-2 


•FAC-1 


. * 


EXCHANGE MANTISSAS, 


CSC36 


26 


C2563 


(249 1 


C56 10 




TF 


FAC-1 


•BETA-2 


. • 




05C48 


26 


C249 1 


(26C 1 


05620 




TF 


BETA-2 


• SAVE-2 






0SC6C 


26 


C26C 1 


(2563 


05630 




TF 


F AC + 6 


• SAVE 


• • 


EXCHANGE EXPCNINTS • 


C5C72 


26 


C4C4E 


(2565 


05640 




TF 


SAVE 


• BETA 






C5C84 


26 


C256! 


(26(3 


05650 




TF 


BETA 


«FAC*8 






0SC56 


26 


C24C3 


C4C58 


05660 




TFP 


ADO* I 1 


•BETA-2 


• • 


SET UF ACORESS 


05 1C8 


16 


€5215 


-26C 1 


05670 




s 


BETA 


• SAVE 


• • 


SUBTRACT EXPCNENTS 


05120 


22 


C26C3 


(2565 


05680 




BV 


NOACC 




• • 


NC CPERATICN IF OVfRFLCIl. 


C 5 1 32 


A{ 


C 54C4 


C 14CC 


05640 




A 


AOO* I 1 


• BETA 


• • 


PCCIF* ACCRESS FCR SHIFT. 


5 144 


2 1 


C 52 1 5 


C26C3 


O57C0 




A 


BETA 


( F 


• t 


ACC F TC BETA 


C 5 1 56 


2 | 


C 24C 3 


C22 1 9 


C571C 




BNH 


NOACC 




• • 


NC CP IF EX CIF NCT LESS THAN F 


C 5 168 


4 7 


C 54C4 


C 1 ICC 


C5720 




BNF 


A 00 


*BE IA-2 


• • 




C 5 180 


44 


C52C4 


C26C 1 


05730 




SF 


ADO* 1 1 




.6, 


SET SIGN CF CPERANC. 


05 192 


32 


C521N 


CCCCC 


C5 74C 


ACC 


A 


FAC-1 


| 


• • 




05204 


2 1 


C244 1 


CCCCC 


05750 




BZ 


ZERF AC* li 




• • 


BRANCH IF ZERC RESULT 


C 52 16 


4g 


C3S46 


C 12CC 


0576C 




TOP 


UNFLCh- | 








5228 


1 5 


C5371 


((0(2 


05 770 




TOP 


CVFLCb-1 


, I 






524C 


15 


C365 1 


CCCC 1 


05780 


NCRP 


TO 


99 


•FAC-1 


• • 


STCRE SIGN CF RESULT 


C 5252 


25 


CCC59 


(249 1 


C5790 




CF 


FAC- 1 








C5264 


33 


(244 1 


CCCCC 


058 CO 




BO 


LV1 


t FNH 


.11. 




52 76 


4 3 


C 36 1 6 


C331L 


05610 




TR 


FNH 


• FH 


.611, 


LEFT SHIFT CNCE 


05288 


3 1 


C331L 


C33CC 


05820 




TOP 


FAC-1 


• C 


. . 


SET LAST CIGIT TC ZERC. 


053CC 


1 5 


C244 1 


CCCCC 


C5830 




SF 


FNH 








CS3 12 


32 


C33 1L 


CCCCC 


C584C 




BO 


FINISH 


• FKH 


• 611. 


TEST LEACING ZERO 


05324 


43 


C36CL 


C331L 


05850 




SN 


SAVE 


* * 


.10, 


SUBT CNE FRCP EXPCNENT. 


05336 


12 


C2S65 


C t ;. - 1 


C566C 




BNV 


NORP* 36 








C 5348 


47 


C528E 


C 14CC 


C587C 




TFP 


E I 


• 572 


.9, 


SET UP ERRCR CCCE E2. 


0536C 


16 


(2615 


(CN72 


C568C 


LNFLCW 


TFP 


FAC 


• -99 


• 10. 




05372 


16 


(2492 


CCCRR 


05840 




TF 


FAC-2 


t qSPF-i 


. . 


SET RESULT TC ZERC. 


05384 


26 


C249C 


C2853 


C59CC 




B 


ERRCR 








05396 


44 


C3676 


CCCCC 


C59 10 




CORG 


• -4 








C54C3 








0592C 


NCACC 


SF 


FH 


• 


• 6 




05404 


32 


C33CC 


CCCCC 


05930 




TR 


FNH 


• FH 


.611 




05416 


31 


C331L 


C33CC 


05940 




TF 


FAC 


• SAVE 






05428 


26 


C2452 


C2S65 


05950 




BB 










0544C 


42 


CCCCC 


CCCCC 


C596C 




CORG 


•-9 








05442 








C5970 


FSBR I 


CF 


FAC-2 






48 ! 


05442 


33 


C249C 


CCCCC 








1 o c C — 1443 


PCM ICR 


I VERSICN 2 FCRTRAN I I-C SLBS SET 1 








PAGE 


0596C 




TP 


FAC- 1 


•FSBR- 1 


• • 


SET UP ACC 


05454 


26 


C4C85 


C4113 






g 


FAC 


• 


• • 


BRANCH TC FLOATING PC INT ACD 


05466 


44 


C4C5C 


CCCCC 


06CCC 




CORG 


•-3 








05474 












SF 


FAC-2 








C 5474 


32 


C244C 


CCCCC 


06C2C 




g 


FSBR 1 ♦ 12 








05486 


49 


C54S4 


CCOCC 


06C 30 




OORG 


•—4 








05493 










F*P1 


SM 


FPP— -1 




,10, 


SUBT. TtoC FRCP ACCPESS. 


05494 


12 


C4137 


CCC-2 


06 C 5 




LD 


79 


•ZER0-1C 




CLEAR AREA FCR PRCCUCT. 


055C6 


28 


CCC75 


C2757 








FAC— 2 


• F P P— I 


111. 


PULTIFLV TtoC PANTISSAS. 


05518 


23 


C244C 


C413P 


n*r ?n 




R7 


ZERF AC 








0553C 


46 


C3584 


C12CC 


r\*ir «r 




A 


SAVE 


• FAC 




ACC EXPCNENTS. 


05542 


21 


C2565 


C2452 


n*.ren 




__ 


FAC— 1 


«HNC 


♦ U, 


PCVE Ml C1CITS CF PRCCUCT. 


5554 


26 


(244 1 


C 333C 


n<! i rn 




TnM 


UNF LC to— 1 


»4 




SET UP ERRCR CCOE E4. 


5566 


1 5 


(5371 


CC0C4 


ha i in 




BMVi 


WARM* 77 






NCRPALIZE IF SUP NCT OVERFLOW. 


05578 


47 


(5324 


C14CC 


06 120 




BNF 




• FAC 




TEST SIGN CF EXPCNENT • 


0559C 


44 


C561C 


(2492 


C6 1 30 




g 


CINFLCto- 13 






CNCERFLCto 


056C2 


49 


C536C 


CCCCC 






OORG 


•—4 








056C9 








OA 1 




TOP 


OVFLCto— 1 


1 3 




SET UP ERRCR CCCE E3. 


0561C 


15 


0365 1 


CCCC3 


r\fs i an 






OVFLCli— 12 






CVERFLCb. 


05622 


46 


C364C 


C 1 ICC 


oai in 










!!o. 


SET EXPCNENT TC 99. 


05634 


16 


(2565 


CCCR9 








MOD V* 34 






NORPALIZE. 


05646 


49 


(5276 


CCOCC 


ha ion 




OORC 










05653 








r*5rn 


Ft I 


jf 


SAVE 


• FAC 




SAVE EXPCNENT CF FAC. 


05654 


26 


(2565 


(2492 


i n 




FO— 1 


f 2 


ao, 


SUBTRACT TtoC FRCP ACCRESS. 


05666 


12 


(4141 


CCC-2 


r*33n 




TF 


79 


• ZERO— 9 




CLEAR AREA FOR QUCTtENT 


05678 


26 


CO 07 9 


C27S8 


n*3^n 




LD 


POT 


•FAC-2 


.6 • 




0569C 


28 


C333L 


C249C 


C6240 




o 


POT 


»FC-l 


till. 




057C2 


29 


C333L 


C414J 


062 50 




TOP 


OVFLCto- 1 


t 7 




SET UP ERRCR CCOE E7 FCR C CIVISCR. 


05714 


15 


C3651 


CC0C7 






BV 








CIVIOEC BV ZERC. 


05726 


46 


0344C 


C14C0 


nAstn 






FAC— 1 


»PCT 


ai. 


PCVE CtCTIENT. 


0573B 


26 


C2491 


C333L 


nATftn 




TO 


99 


• FAC- 1 




STCRE SIGN CIGIT. 


05750 


25 


CCC94 


C2491 
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EFPIN 


C4656 


FX1 


C2B25 


ICC 


06C89 


FNCFTR 


cti 79 


PPCGST 


02226 


EFPWl 


C4626 


FX9 


C2BC5 


LCGE 


C3C1C 


FNCR 36 


C54 3C 


RACCl T 


C5P62 


EFPW 


C4514 


FXA1 


C4622 


L VI 


C36 16 


FNCR6C 


C 5454 


PCFCH1 


C4884 


EFRC1 


C4622 


FXI 


C 36 78 


P14 


C697C 


ENTARS 


C 232 3 


RE ADEF 


04492 


EFRC2 


C4654 


FXC1 


C47 14 


PAKTP 


07146 


ENTATN 


C231 3 


REACIF 


05C82 


EFWRT 


05084 


FXCR1 


C4796 


PASKF 


C5473 


EN rcrs 


C23C3 


REPSW3 


05657 


E I 


C2615 


FXCR 


C3998 


PASK I 


C535 1 


ENTCFC 


C22<?e 


RE T ARC 


C7622 


E*CC 


C3 768 


FXC 


C 1974 


P A SK 


C 5445 


EN TLRR 


C229 3 


RE TLRK 


76 34 


EKTIN 


C2248 


F XERR 


C 36 76 


PATSb 


C5655 


ENTEXP 


C225 3 


RWEFSW 


06C61 


ERF7A 


C5214 


FXF 


C 328 3 


PAX2 


C6145 


EN IFE T 


C2283 


1C0PK 


C3293 


ERF 7 


C5 1 18 


FXP 1 


C4688 


PAX 


C69 14 


EN I F I C 


C227 3 


1C2PF 


C 3 34 3 


EPF7S 


C47C2 


FXP 


C3S5C 


PfiASE 


C7657 


EN T P EC 


C 22 7 e 


2FP1 


03429 


ERF8E 


C525C 


FXN IN 


C6C 32 


PC A T A 


C764 1 


ENTSf 1 


C225E 


96PF 


3 3 1 8 


ERF8I 


05038 


FXSR 1 


C46 36 


PFC V2 


C 3746 


ENTSC2 


C2263 


97P2F 


03363 


ERF9 


C731C 


FXSR 


C 3926 


PF 


C3473 


FN TSC 3 


C226P 


97PF 


C 3 3 2 3 


ERRET 


0C6C2 


FXS 


C39C2 


PL 


C37 12 


ENTSIN 


C23Ce 


9PPF 


3 32R 


ERRCR 


C1676 


fx; 


C2f 15 


N 1 


022 33 


ENTSCT 


C 2 3 1 e 


99pk 


03288 


ETYPE 


C458C 


F ZERO 


C4998 


N2 


C2238 


FN ! SWC 


C22fle 


9SCPF 


02795 




C48C9 


GAP 


C 25 5 5 


KCACC 


C54C4 


FRCCH2 


C 73P6 


9SPF 


C2854 


F2 


C 366 1 


GEM 


C7C54 


NCC 1 V 


C677C 


EPFfcFS 


C495C 


A1C 


08C 32 


F AC 


C2492 


GP2F 


C 3 7 3 5 


NCRP 


05252 


FRRF 7E 


C 5 396 


A 1 


08C68 


FAC1 


049 16 


F-NC 


C 3 3 3 8 


C L W R 


C73 IC 


ERRF 7 1 


C50C2 


A 3 


08C 32 


F AC 


C4C9C 


F-C 








F X P E N T 


C 3 3 7 3 


A5 


C8C32 


FAXB1 


C7C62 


FRC 


C54 28 


CLT 


C4981 


F INC IN 


C 3583 


A6 


08C32 


F AXB 


C4258 


H T YPE 


C46C2 


PAR 


03378 


FINISH 


C38C3 


A 7 


08C 32 


FAXI 1 


C64C0 


F-URT 


C536C 


PCT 


C 33 33 


F I XENC 


C 3 76C 


A8 


C8C 32 


FAXI 


04234 


ICCN2 


C5438 


PICV2 


C3163 


FL TENC 


C 38 1C 


A9 


C8C 32 


FChNB 


C4976 


ICCN3 


C5142 


P ICV4 


C3 191 


FLZAl P 


C 3348 


ACD 


05204 


FC 1 


C5654 


ICCN 5 


04938 




03133 


FLZERS 


C65 1 I 


ATVPE 


04516 


FT 


C4U2 


ICCN6 


C5498 


PRA1 


C55 78 



5 i 7 







U2C- 1443 PCM TCP 


I VEPSICN 2 


FCRTRAN 


II-C SLBS SET 1 






PAGE 


5C 


PPA 


C43 54 


REOCA 


07C7C 


STCP 


02395 


hAPT 1 


C55«e 


ZERC 


02 76 7 


PRKE Y 


C6919 


REOC 


07C26 


SV.C 


06C9C 


kiAPT 


C43C6 


SLASH? 


C67C8 


PSI 


C6076 


REFSW 


04625 


SWF 


C5969 




C 724 1 


ST2ERC 


C6423 


RACCl 


C601C 


RFP2 


07198 


SWL 


C6C42 


WATY1 


C 55 3 8 


SWCACJ 


C6152 


RACC 


C442fc 


REP3 


72 3C 


TAFE 


02535 


h A T V 


C42B2 


LNFLCW 


05 3 72 


RAPT I 


C599C 


REP 


07 126 


T AN6 


C 2 248 


WICTF 


C5799 


WEFDEC 


05218 


RAPT 


C44C2 


REPS*. 


05654 


TEN34 


03278 


WRITE 


C6B16 


WICTH2 


C6C64 


RATYl 


C597C 


RSGN 1 


048 16 


TFRP 


07C93 


WRTA2 


CS382 


WRITE I 


C6944 


RATY 


C437e 


RSGN 


04C2C 


TCFAC 


C34C8 


WR1A 


C5338 


WRITE A 


C529C 


RCTY 


C5814 


RkA2 


05742 


TRACE 


C3496 


MRU 2 


C4646 


WRI TE! 


C447C 


RCAFL 


C52 34 


R h A 


05634 


TRFX 


C3564 


WR TE 


C5C62 


WRI TI 1 


C4622 


RCALP 


C6022 


SAVE 


02565 


ThCPI 


03 IC3 


WR TF 


C475C 


WRTALP 


C5622 


RCA 


C51 7C 


SE 


05774 


TkQZ 


C3C73 


WRTFS 


C3812 


WRTE2S 


05CB6 


RCFCH 


C4852 


SHCRT 


05646 


toA2 


07392 


WRTI2 


C47C2 


WRTFPC 


C5C74 


R E ATA 


C5074 


S I X 


032 19 


*A3 


04625 


WR T I 3 


C491C 


WRTFPE 


C5C42 


REACI 


C5034 


St ASF 


C66 76 


MACC1 


056 1C 


WRTI 


C47 3 8 


WRTSGN 


C4874 


RECLG 


C2243 


scs 


06918 


WACC 


C433C 




0224C 


Z ERF AC 


03«e4 


RFCPK 


C24C3 


START 


03851 


h AF X 


C54C2 


X TYPE 


C7354 







5 I b 



162C-1443 PCMTCR I VERSICN 2 FCRTRAN Il-C SUES SCI 2 MCI I 



OOC 10 




U2C 


FCRTRAN 


Il-C 


SLBRCCTINES 






CO C 20 




IORT 


ENTRY PCINTS AND 1 


CCNTANTS 






C0C3C 


IC*BC 








52C 






CC52C 




Q0C4C 


IGPT 


CS 






5 32 






CC 532 


c 


OOC 50 


IC5K 


CS 






554 






CC554 


c 


C0C4C 


ILGT 


CS 




t 


564 






CC564 


c 


O0C70 


E R R E T 


CS 




t 


6C2 






CC4C2 




C0C8C 


IOH T 


CS 












CC 94 3 




00C90 


ICC AL 


CS 






716 






0C714 




C01CC 


PCNC AL 


CS 




t 


794 






C C 7 9 6 


( 


00 110 


C 1C 


CS 




f 


lit 






CC 8 14 




00 1 2C 




162C 


FCRTRAN 


I ll-C IN 


CCRI ARIAS 






00 1 30 




CCMWINICATICN AREA 










CO 1 4C 




CQRC 


2218 








C 22 H 




Q01SC 


f 


CS 


2tt 


FLCATINC PCINT 


fcCRC LENGTH 


C2219 




oo itc 




CS 


2», 


FIXEC 


PCINT *CRC 


LENGTH 


C222 1 




00 1 70 


PRCGST 


DS 


5,, 


STARTING ACCRESS 


CF PAINL1NE PRCCRAP 


C2224 


« 


00 180 


CCMAC C 


CS 


5,, 


STARTING ACCRESS 


CF CCPPCK ARM 


£2231 




00 ISO 


N 1 


CS 


2,, 


NUPBER 


I CF fcCRCS 


IN LCCICAL RECCRC 


C 2 2 3 3 




C02 C C 




CS 


5,, 


NtPBER 


CF LCCICAL RECCRCS 


02238 


« 


C02 1 C 




CS 


2,, 


WCBC LENGTH 






C 2 24C 


2 


00220 


R E C L G 


CS 


3*t 


RECCRC 


LENGTH 






C2241 








CS 


5,, 


ENTRY 


ACCRESS 


TC 


ICG SLBRCimE 




■ 






CS 


5,, 


ENTRY 


ACCRESS 


TC 


EXPCNENIIAl SUBROUTINE 




■ 




EN T 5C 1 


CS 


5,, 


ENTRY 


ACCRESS 


TC 


SINGLE SUBSCRIPT SCBRCLTINE 


C2258 


\ 






CS 


5,. 


ENTRY 


ACCRESS 


TC 


CCIPLE StESCRIPT SIBRCt T |N| 


C2263 


5 






CS 


5,, 


ENTRY 


ACORESS 


TC 


TRIPLE SUBSCRIPT SCBRCt T INI 






r!n3»f 


ENTF1C 


OS 


5, ♦ 


ENTRY 


ACCRESS 


TC 


FINC SUBRCIUNE 


CJ2T3 




rnscn 


ENTREC 


CS 


5,, 


ENTRY 


ACCRESS 


TC 


RECCRC SUBRCLTINE 


C 22 78 


• 


nn if n 




OS 


5,, 


ENTRY 


ACCRESS 


TC 


FETCH StBRCCT INE 


C 2 28 3 


S 


003 10 


ENT StaC 


CS 


5, , 


ENTRY 


ACCRESS 


TC 


SWITCH C SlERCUTINE 


C 2 2 8 8 




00 3 2C 


EN T ORR 


CS 


5,, 


ENTRY 


ACCRESS 


TC 


ARRAY SUBPCLTINE 


229 3 






Ik Trr < 


CS 


5, , 


ENTRY 


ACCRESS 


TC 


CIS* ENC SIERCUTINE 










CS 


5, , 


ENTRY 


ACCRESS 


TC 


CCSINE SUERCUT INE 


C 2 3C 3 


* 




f T < lk! 


CS 


5, , 


ENTRY 


ACORESS 


TC 


S|NE SUBRCLT INE 


C23C8 


* 


CO 3 6C 


EN T A i N 


CS 


5, * 


ENTRY 


ACCRESS 


TC 


ARCTANGENT SUBROUTINE 


C2 3 1 3 




CO 3 70 


EN T SCT 


CS 


5, , 


ENTRY 


ACCRESS 


TC 


SCIARE RCCT SUERCUTINE 


C 2 3 1 8 


- 


00 3 8C 


EN TAB S 


CS 


5, , 


ENTRY 


ACCRESS 


TC 


ABSCLLTE SUBROUTINE 


C2 32 3 








CS 


7C, 


♦ RESERVEC FCR ENTRIES TC ACCEC SUPRCLT INf S 


C 2 39 3 


7C 


C04CG 




CCHHCN hCRKING AREAS 










C041C 


STCP 


DAC 


5, STCP' 








C2395 


* 






STCP 




















CS 






STCP»P 








C 




r o 

CKPLF F 


CSS 


29 










C 24C4 


29 


rn r 


FAC 


CS 


6C 










« \ ^ W 


1 C 


004 -C 




CC 


1 










C2493 


1 


C0460 


SAVE 


CS 


7? 










C2«es 


72 


C04 7C 


BETA 


CS 


3fl 










C26C3 


38 


CO 4 6C 




CGP 












C 26C4 


j 


C049C 


GAP 


CS 






5AVE-1C 






C2555 


C 


005CO 


T AFE 


CS 






SAVE -30 






C2535 


C 


C05 1C 


IPSA 


CS 




» 


BETA -28 






C2575 


c 


C05 2C 


PESERP 


CAC 


6.ER E • 








C2CC7 


e 


C05 3C 




ER E 

CS 






PESERP 






C2eC7 


C 



5 i !J 







U?C- 1443 -PCM TCR 1 VF.RSICN 2 FCRTRAN I I - C SCBS SET 2 






0054C 


6 1 


CS »«-2 


C2415 


C 


C055C 


CLC 


CS 7C 


C2687 


7C 


C056C 




162C FCRTRAN II-C FLCATING PCINT CCNTANTS 






00«7C 




CC 4C ,C 


C2727 


*c 






-OCCCCCCCCCCCCCCCCCCCCCCCCCCCCCOCCCCCCCC 






co«ec 




CSC 4C »C 


C2728 


4C 






COCCCCCCCCCCCCCCCCCCCCOCCCCCCCCCCOCCCCCC 






oo!<;c 


JfcRC 


CS ,» 


C2 74 7 


C 


cot CC 


<;scpf 


CC 2fl ,999<mS999«599«iSS9999S9«;99999 


C2795 


2i 






R9S9 99999999999S99999S999999 






C06 1C 




1620 FCRTRAN U-C FUEC PCINT CCNTANTS 






00(20 


FX? 


CC 10 .99999SS999 


C2BCS 


1C 






R9159999999 






006 3C 


FKf 


CC 10 .CCCCCCCOOC 


C2815 


1C 






-OCCCCCCCC 






C0t4C 


F*l 


CC IC ,CCCCCCCCC1 


C2B25 


1C 






-OCCCCCCCl 






004*0 




CONSTANTS FCR RELOCATABLE SLBRCUT INES 






cotec 




CC 31 ,C 


C2E54 


31 






-OCCCOCCCCCCCCCCCCCCCCCCCCCCCCC 






COtTC 


SSPF 


CS ♦•-2 


02E54 


C 


ooteo 


IN2 


CC 31 ,0693147180559945309417232121458 


C2887 


31 






-69 314718C5599453C94 1723212H58 






ooesc 


LN4 


CC 31 ,138£294361U989Cei88344£42429U 


C2S16 


31 






J 38* 29434 111989Cfc 18 8344642429 16 






007CC 


LNP 


CC 31 •2079441541679835928251696364375 


02949 


31 






KO 7 9 44 1 54 167983592825 16963 64 375 






C071C 


IMC 


CC 31 ,23C2585C9299*C*»5684017S91454684 


C298C 


31 






K3C2 585C92994C45684C 1799 1454684 






C0I20 


LCGE 


CC 3C ,434294481903251027651128918917 


G3C1C 


3C 






^3429448 1903251827651 128918917 






C073C 




CC 32 .ICCCCCCCCOCCCCCtCCCCCCCCCCCCOCCO 


C3C42 


-2 






JOCCCOCCCCOCCCCCCCOCCCQOCCOOCCCC 






00J4C 


CNFZ 


CS »«-4 


C3C38 


C 


C075C 




CC 2 »Cl 


C3C44 


2 


oo?ec 


ThC| 


-1 ' ' 

CC 29 •2OCCOCCCOOCC00COC0C0OCCCCO00Q 


C3C73 


2« 






KOCCOOOCCCOOOCOCCCOOCCCOCCOOC 




3C 


CO770 


TuCPI 


CC 30 ,628318530717958667692528676656 


C31C3 






C28 3 185307 17958647692928676656 






0078C 


PI 


CC 3C •3141592653589793238462(4331328 


03133 


3C 






L 141 59 26 53589793 238462 64 338 32 8 






CO790 


PICV2 


CC 30 ,157079632679489661923132169164 


C3143 


3C 






J57C 7963267948966 1923132149164 






ooecc 


P10V4 


CC 28 ,7853981633974483096156608458 


C3191 


2E 






P8 5398 163 3974483C961S6608458 






C0810 


SIX 


CC 28 ,6CCC0CCC00CCC0C0CCCC0CCCCCCC 


03219 


28 






OOCCCOCCCCCCCCCOCCCCCCCCCCQO 


29 


0082 C 


TAN 6 


OC 29 .54C4195C027C58415544357836441 


03241 






N4C4195CC2 70584 15544357816461 






00630 


TEN3* 


OC 30 ,218776142394935256222611491438 


C3278 


3C 






Kl 8776162394955256222611491438 






0084C 




162C FCRTRAN II-D IN0IREC7 A0CR1SS BCXIS ANC PCCIFIIC 






00850 




CCNSTANT S ((-SING R ANC Ft 






00840 


FXH 


OSA FAC«1 


C3283 


c 



520 



U2C-144J PCNITCR I VERS I CIS 2 FCRTRAN I I-C SbiS SE1 2 PAGE 3 











C3283 


-2493 




008 7C 


FP lf»K 


cs 


,FXh 


C3283 


C 




OO0EC 


99*K 


ce 5 


.99 


C3200 










-0C99 










0089C 


1CCMK 


CC 5 


, ICC 


C 3293 










-01CC 










coscc 


l*SAPF 


CSA IHSA 




C3290 


« 












C 3290 


-2515 




009 ic 


I SPf f 1 


CS A IKS*- 1 




C 3 3C 3 














C 3 3C 3 


- 2 5 74 




C092C 


f ► 


CS* F AC 




C 3 3C 8 














C 3 3C 8 


*~2492 




COS 30 


FNH 


CSA FAC-1 




C 3 3 1 3 


« 














-249 1 




0094 c 




CS 


,FNW 


r 1 1 r 






00950 


9 6MF 


CC 5 


t 9* 




e 








-OCSfc 










cos* c 


9 7KF 


CC 5 


9 7 


C 332 3 










-0C97 










0Q97C 


98MF 


CC 5 


,98 


C 3 32e 


« 








-0C9 8 










oosec 


PCT 


CC 5 


t99 


C 3 3 3 3 


c 








-0C99 










C099C 


hsr 


CC 5 


i 1 C C 




5 








-01C0 










OICCC 


1C2MF 


CC 5 


,1C2 


C 3 343 


5 








-0 1 C 2 










C 1 C 1 c 


FL / Al P 






C 3 3*8 


- 












C 3 3 4 8 


- 2489 




C 1 C 2 C 




r^A if or- er 




335 3 




* 












-2687 




1 c ?c 


FKIr-H 1 


CSA FAC-2 




C 3 - 58 


* 


* 










C 3 358 


- 2 49 C 




1 C 4 C 


9 71" 2F 


CC 5 


97 

* 


C 3 36 3 










-0C9 7 










CIC5C 


LNFNT 


CC 5 


,ec 


C33fce 










-ocec 










cute 


EXPENT 


CC 5 


,36 


C 3 37 3 










-0C36 










C1C ?0 


PAR 


CS 5 


,•♦5 


, KC CF ElFPENTS IN MATRIX TC PROCESS C 3 378 






CICPC 




CS 5 




C 3 3 78 






cicso 


CKCATA 


CSC 2 


.CC 


C 3 379 


2 








CO 










CI ICC 




CSA DICCCA 




C 3 385 




x 



C3385 -3387 

C111C CC 1 C 3 386 1 

CI 1 2 C CICCCA CSC I ,C - o C 338 7 | 



162C-14A3 KCMTCB I VERSICN 2 FCRTRAN II-C SteS SET 2 



01 130 




CC 


5 


,CCCO 






03392 


5 








-OCCC 














01 14C 




CC 


3 


,CCC 






C 3 395 


3 








-OC 
















01 15C 




CSA 


DKBLFF 








C34CC 


5 


X l 
















034CC 


-24C4 




01 160 




CC 


1 








C34CI 


1 




CI 1 7C 




162C FORTRAN I 1-0 


IN CORE 


subrcu INES 








01 180 




CS 


5 








03406 






01 190 


TCFAC 


TF 


FAC 


,TC FAC- 


I .11 




034C8 2 


6 C2492 


C34CP 


012CO 




SM 


TOFAC-1 


,C1C2 


,e9ic 




03420 1 


2 C34C7 


C-J-2 


01210 


2FH1 


CS 




.♦-2 




TtaC T IP£S F PIMJS CNE 


03429 


C 




01220 


FKOCC 


CS 


1 


,•-4 




F CR K CCC, 1 F INC K EVEN 


C3427 


1 




012 30 




TF 


FAC-2 


,TC FAC- 


1 ,11 




03432 2 


6 C249C 


C34CP 


0124C 




BB 










03444 4 


2 CCCCC 


COOCC 


01250 




OORG 


• -9 








03446 






01260 




CS 


5 








C345C 


5 




012 70 


FMFAC 


TF 


FN FAC-l 


,FAC 


• 6 




03452 2 


6 C345J 


C2492 


0i2ec 




SM 


FNFAC-1 


»0CC2 


.810 




03464 1 


2 C3451 


C-0-2 


01290 


HF 


CS 




• •-2 




NIKUS F 


03473 


C 




01 3C0 




TF 


FN FAC-1 


, FAC-2 


,6 




03476 2 


6 C345J 


C249C 


01310 




BB 










03488 4 


2 CCCCC 


CCCCC 


01320 




CORG 


• -9 








0349C 






01 3 30 




CS 


5 








3494 


5 




01 340 


TRACE 


TF 


FN FAC-1 


,•-1 






03496 2 


6 C3451 


C3495 


01350 




8NC4 


FN FAC 








C35C8 4 


7 C3452 


CC4CC 


C1360 




K 


G AH- 1 


♦ C951 


.2, 


SINGLE CARRIAGE SPACE 


03520 3 


4 -2554 


CC951 


013 70 


GN1H2F 


CS 




• •-5 




G APNA MNUS CNE NINUS INC TINES F 


03526 


C 


01 380 




BNF 


TRFX 


, FAC-1 




BR IF FIXEC ARG 


03532 4 


4 C3564 


C2491 


01390 




*N 


FNH 


• C9CI 


.6 . 


PRINT FLCATING ARGUMENT 


03244 3 


C331L 


CC9CI 


014C0 




B 


FN FAC 








03556 4 


9 C3452 


CCCCC 


01410 




CORG 


•-4 








03563 






01420 


TRFX 


ViN 


F XH 


,C9Cl 


.6, 


PRINT FIXEC ARGUMENT 


03564 3 


C320L 


CC9C1 


01430 




B 


FN FAC 








C3576 4 


9 C3452 


CCOCC 


01440 




OORG 


• -4 








03503 






0145C 


FIND IN 


CG 


1 


tl 






03503 


1 




01469 


/ERF AC 


J 

TF 


FAC-2 


.9SPF-1 






03504 2 


6 C249C 


C2053 


0147Q 




TFN 


FAC 


• C299 


.81011 


03596 1 


6 C2492 


C-2RR 


01480 


FP2 


CS 




• •-2 




F PLUS ThC 


036C5 


C 




01490 




B 


FINISH*! 








36C6 4 


9 C30C4 


CCCCC 


CISCO 
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03640 


PRA1 


TFM 


MAX 


,26121 


,7, PRIM WITH SPACE SIPPRESS 


05578 


16 


C6914 


K6121 


03650 




TO 


RWEFSW 


» RECMK 




0559C 


25 


C6C61 


C24C3 


03660 




B7 


RWA 






0S602 


49 


CS634 




03670 


WACD1 


TFM 


MAX 


.1C080 




0561C 


16 


C6914 


JCC8C 


03680 


WRTALP 


TDM 


RWEFSW 


.1 


,, CCPMCK FCR EACH WRITE 


05622 


15 


C6C61 


CCCC1 


03690 


RWA 


TF 


DATINH*2 


.MAX-3 




05634 


26 


C617S 


C6911 


037C0 




SF 


MAX-2 






05646 


32 


C6912 


COOCO 


03710 


REPSW 


OS 


2 


.•-3 




05654 




2 




03720 


MATS* 


OS 


I 


• •-2 


,, SET TC 1 UNEN MATRIX HAS CONTROL 


05655 




1 




03730 


REPSW3 


cs 


2 






05657 




2 




03740 




TFM 


•-1 


.OCCOC 


,ni 


05658 


16 


C5657 


-COC- 


01750 




TOM 


SWL*1 


,2 




05670 


15 


C6C43 


CCCC2 


03760 


LOCO 


DS 


2 


.•-I 


,LCC CF CECIPAL AS SPEC BY FORMAT 


0S68C 




2 




03770 


LCC02 


CS 


2 


t»-J 


, TWICE LCC C 


05678 




2 




03780 




TFM 


MESERR*8 


,679 


#9 


09682 


16 


C2615 


C0079 


03790 




TFM 


MAX2 


• INK 




05694 


16 


C6145 


-6119 


038C0 




A 


MAX2 


♦ MAX 




057C6 


21 


C6145 


C6914 


03810 




A 


MAX 2 


.MAX 




05718 


21 


C6145 


C6914 


03820 


•••••• 




CONTINUATION OF R*A. USC USED AFTER EACH OUTPUT 










03830 


•••••• 




RECORD KCT 


TERMINATED 8Y CCPPLT MACRO 










03840 




TFM 


LAST 


, IKH 




0573C 


16 


C582C 


-6171 



G2G 



162C-1443 MCNITCR I VERSICN 2 fCRTRAN U-C SUBS, SET 2 



RAGE 9 



o3eso 


RWA2 


TOM 


CQMPSW 


i-l 




05742 


15 


C575C 


CCOCJ 


03860 


CCMPSW 


OS 




.•-) .-1 


PRCH|6iTS f REQUIRES CUTPUT 


0575C 




C 




0)670 




TR 


INH-I 


, ST ZERC* 1 


09734 


31 


C6178 


C6424 


0368C 




TR 


INH*86 


•STZERC 




03766 


31 


C6265 


C6423 


03890 




TR 


INH>174 


,ST/ERC»20 




03770 


31 


C6353 


C644 3 


039C0 




CM 


MAX-3 


,C8 ,10 




0379C 


14 


C6911 


CCC-8 


03910 


taint* 


cs 


3 


.•-2 , 


NC. CF EFF. DIGITS IN F |CLC 


05799 




3 




03920 




BNL 


•♦24 




03802 


46 


C5824 


013C0 


03930 


RCTY 


RC TY 








03814 


34 


ccccc 


CC1C2 


03940 


LAST 


CS 


5 


.•-5 , ADR CF RM AT ENC CF VARIABLE CUT REC 


05820 




3 




03990 




BNE 


• ♦24 






03626 


47 


C383C 


C12CC 


03960 




TF 


INH* 174 


.FLZERS .. 


PUT IN RM FCR PAPER TAPE OUTPUT 


05838 


26 


C63S3 


C6511 


03970 




BO 


BSWF 


•RWEFSW 


05830 


4) 


C5934 


C6061 


03980 


RA00I T 


TFM 


1 QR T 


.•♦23 




05862 


16 


C056S 


-5885 


0)990 




8 


I OC T 


,0ATINH-4 ,7 




C5874 


49 


CC566 


-6169 


04CC0 




CM 


MAX-3 


.06 ,10 




05886 


14 


C69U 


C00-6 


Q4C10 




BNE 


• ♦24 




ALLCWS GCCF SWITCH FCR RATV 


05899 


47 


C3922 


C12CC 


04C20 




BC4 


RCTY 






0S91C 


46 


C9814 


CC4CC 


04C30 




TDK" 


FLT ENC 


-5,2 




05922 


15 


C38C5 


CC0C2 


04C40 








CONTROLS POSITION IN FCRMAT SPECS 










Q4C50 


BSWF 


AM 


SWF 


,5 




05934 


11 


C5969 


-CCC5 


04C60 




TF 


• ♦18 


.SWF ,11 




05946 


26 


C5964 


C596R 


04C70 




B 


SWF 


. .6. 


BR TC ACR INOICATEC 6V FCRMAf SPEC • 


05958 


49 


C596R 


CCOCC 


04C8C 


SWF 


CS 




, • 




05969 




9 




04C90 


RATY 1 


TF M 


MAX 


,06087 




0597C 


16 


C6914 


-6087 


041C0 




B 


ROALP 






C5982 


49 


C6C22 


CCCCC 


04110 




OORG 


• -3 






05990 








04 1 20 


RAPT 1 


TF M 


MAX 


,08087 




05990 


16 


C6914 


-8087 


04130 




6 


ROALP 






06C02 


49 


C6C22 


CCCCC 


04 140 




OORG 


• -3 






06C1C 








04150 


RACO 1 


TFM 


MAX 


,iccec 




06C1C 


16 


C6914 


JC08C 


04 160 


ROALP 


TOM 


RWEFSW 


.c 




06022 


15 


C6C6 I 


COOCC 


04 I 70 




B 


RWA 






C6C34 


49 


C5634 


CCCCC 


04180 




DORG 


• -4 






C6C41 








04 190 


•••••• 


S ML IS A 


TRINARY SWITCH 


USEC TC BRANCH TC THE PROPER SOURCE 










042CC 




TO OBTAIN 


THE LOCATION THAT GCES WITH THE FORMAT MACRO 










04210 




BEING PERFCRMEC 


ee fcr cejECT prcgram 










04220 










NCP FCR RECC CCNTRCL 










042 30 










6 FCR MATRIX CCNTRCL 










0424C 


SWL 


NOP 


MAfRX 2 






06042 


4 1 


C66C2 


CCCCC 


04250 


INPLUS 


OS 


5 


»• ♦ 


WCRKIKC PCSITICN CF l/C RfCO'C 


06C53 




5 




04 260 




TDM 


SWL^l 


.9 ,, 


MATRIX CCNTRCL SETS SWL TC 49 


06CS4 


15 


C6C43 


CCCC9 


0*2 70 


RWF F SW 


OS 


I 


.•-4 , I 


FCR WRT. FCR RC. FLAG FCR E 


06C6 1 




1 




042 8C 


W IDTH2 


OS 


3 


.♦-1 




06C64 




3 




04290 




BO 


SWC *12 


, MATSW 




06C66 


43 


C61C2 


C5655 


043C0 




NOP 








C6C78 


41 


CCCCC 


CCCCC 


043 10 


CPG 


CS 


5 


.•-5 . 


TEMP ACR CF CEC PT IN GAMMA 


C6C84 




5 




C432C 


IOC 


OS 


5 


. * it 


CCRE LCCATICN TO BE USEC 


06089 




5 




04330 








AFTER LCC ACR 


CBTAINEC 8R TC PRCPER MACRO 










04340 


SWC 


TOM 


SWIM 


,2 




06C9C 


15 


C6C43 


CCCC2 


04350 




80 


•♦2C 


.RWEFSW ,, 


eR IF WRITING 


C61C2 


43 


C6122 


C6C61 


C436C 




B 


SWC AOJ 


• .6 




06114 


49 


C615R 


CCOCC 


C4370 




CORG 


• -4 






06121 








04 38 




TOM 


COMPSW 


»C , , 


SET TC REQUIRE OUTPUT 


06122 


15 


C575C 


CCCCC 


04 390 




CF 


LOC 






06134 


33 


C6C89 


CCOCC 


044,0 


MAX2 


CS 


5 




TWICE MAXIMUM CHAR FCR OUTPUT 


06145 




5 





162C-1443 MCMTCR I VERSICN 2 FCRT RAN ll-C SUBS SET 2 PAGE IC 



044 10 




8 










C6146 


49 


CCCCC 


CCOCC 


C4420 


SWCACJ 


CS 




,•-5 


RETURN ACC CF 


MACRC IN CCNTRCL 


06152 




c 




04 4 30 




CORG 


• -4 








0615) 








04440 


CATERR 


CSA 


DUOH 








C6157 




5 


X 1 
















06157 




-26C7 




04450 




DC 


3 


,18* 






C6160 




3 








J8« 


















04460 


CATDUC 


CSA 


DUCH 








C6165 




5 


* I 
















06165 




-26C7 




04 4 70 




cc 

-0 • 


3 


,CC» 






C6168 




3 




044SC 


CAT INH 


OSA 


INH 








06173 




c 


X I 
















C6173 




-6179 




0449C 




CC 


3 


,0C* 






06176 




3 




045C0 




-0* 
CC 

R 


1 


,9 






06177 




1 




04510 


ENOFOR 


DAC 


I • C 








06179 




1 


X 2 


04520 


INH 


C 

CS 




•ENCFCR 






06179 




c 




C4530 




CS 


242 








C6421 




242 




C4540 


IN 


CS 


244 


,INH^242 






06421 




244 




04550 


STZERC 


CC 


2 


.OC 






06423 




2 




045fcC 




-0 
CO 






.C246810 




06424 


-c 


-C-C- 


C-C-C 


04570 




CO 






.C246810 




06436 


~C 


-C-C- 


c-o-c 


04580 




CO 






.0246810 




06448 


-C 


-c-c- 


c-o-c 


C4590 




CO 






•024681b 




06460 


-c 


-C-C- 


c-c-c 


046C0 




CO 




t 


.C246810 




C6472 


-0 


-c-c- 


c-o-c 


04610 




CO 




. 


.0246810 




06464 


-0 


-o-c- 


c-o-o 


04620 




00 






.0246810 




08494 


-c 


-0-C- 


c-o-c 


046 30 




DC 
-0 


2 


Ice 






065C9 




2 




04640 


FLZERS 


CC 
— • 


2 


#c« 






06311 




2 




04650 




CS 


5 








06316 




9 




04660 


MATRIX 


TOM) 


MATSW 


il 


,. MACRC TC PROCESS MATR ICIES 


04918 


19 


C9699 


ccoci 


04670 




TOM 


SWL*i 


.9 






06530 


19 


C404) 


C00C9 


04680 




TF 


LOC AO J 


.F#2 






04942 


24 


C4974 


C14CS 


04690 




BNF 


MATRX2-12.MATRI X-l 






06994 


44 


C439C 


C4517 


047C0 




TFM 


LOCADJ 


,CC 


.10 




04964 


14 


C6374 


CCO-C 


04710 


LOCADJ 


OS 


2 


,•-) 


•• ADJUST ICC FOR 


MATRIX 


04974 




2 




04 720 




s 


LOCAOJ 


• R 






06978 


22 


C4974 


C2221 


04730 




s 


MATRIX-1 


.LCCA0J 






04590 


22 


C4517 


C6974 


04740 


MATRX2 


A 


MATRIX-1 


.LCCADJ 


RETURN FRCP SWL, 


EACH MATRIX ELEMENT 


044C2 


21 


C4917 


C4974 


04750 




TF 


LOC 


.MATRIX-l 


•• MOVE ACJUSTED 


LOCATION 


04414 


24 


C4C49 


C4917 


04760 




SM 


PAR 


.1 


• 10 




04414 


12 


09176 


COO-l 


04770 




BNE 


• ♦24 








04418 


4? 


06442 


CI2CC 


04 780 




TOU 


MATSW 


tC 






04490 


19 


C9499 


CCOCC 


04790 




BNL 


SWC*12 








04442 




C41C2 


CI 300 


O48C0 




BB 










04474 


42 


eoocc 


COOCC 


04610 




OORG 


• -9 








04676 









04820 •••••• MACRO FOR AN I/O CARRIAGE RETURN CURING A FORMAT STATEMENT 



52* 



1620-1441 MCNITCR I VERSICN 2 FCRTRAN 1 1 - C SUBS SET 2 



PAGE 11 



C4 8 30 


SLASH 


TDM 


COMEND+l • 


, 9 






06676 


15 


04840 




BO 


SLASH2 i 


i R WEF SW 




CR IF WRITING 


066B8 


43 


048 50 




g 


COMEND 








06700 


49 


04860 




OORG 


• -4 








06707 




04 8 70 


SI ASH2 


BO 


1 OCR i 


,CCMP SW 




BR TC IC CR IF CUTPUT RECORO BLANK 


067C8 


43 


04 880 




CM 


OA T 1 NH* 2 


i C6 


,10 




0672C 


14 


04 890 




BH 


WR I T E i 






BR IF NCT TYPEWRITER OUTPUT 


06732 


46 


044C0 




jf 


LAST < 


i F L ZE R S 


,6 




06744 


26 








LAST 


C 2 


,10, 


ERASE BLANKS FRCP ENC CF I/O RECORO 


067S6 


12 


04920 




CM 


LAST i 


i CC 


,6 10 




06768 


14 


©45 30 




BE 










06710 


46 








LAST 


1 NH 






06792 


14 


04 950 




BL 


COM ENO 








06804 


47 


04 960 


_ 




MR I TE 1 


i R WE F S W 






C6816 


45 






TP M 




5 2 


,10, 


DCli BLE SPACE 


06828 


16 








Inh^^ 


i 7C 


,10 




0684C 


14 








• ♦ 3 2 








06852 


47 


05CC0 




TC 




• 


• • 


SKIP TC CHANNEL CCCE 


06664 


26 








rtyvt NIK 








06876 


49 






MP 


PRC N T R 








06884 


46 


C5 C 30 






PRKE V 






citric tp ATF 


C6896 


16 


05C40 


PR C N T R 






rcrn 


• * 


CCNTRCL CARRIAGE 


06908 


34 


05C 50 


PRKE Y 












06919 




05060 


MAX 


OS 




** ^ 






06514 




05C70 




TF 


IN 


.FL2ERS 






0652C 


26 


05C8C 






INH-l 


,INHM 






06932 


3 1 


05C 90 


WR 1 1 E 1 


TF M 


IORT 


,•♦23 


,7 , 


CUTPUT 


06944 


16 


05 ICO 




B 


IOPT 


.DATINH-4 


,7 






4 9 


05 1 10 




BN I 


• ♦24 


,03400 






06966 


4 7 


C5 1 20 








,CC97l 






C6S8C 


34 


05130 


CCMENC 


B 


R HA 2- 12 








06992 


49 


05140 




OORG 


• -4 








06599 




C5 I 50 




CS 


4 








C7CC2 




05160 






MACRC TERMINATING l/C CCNTRCL 






05 170 




DS 


3 








07CC5 




05180 


CCMPL I 


TOM 


COMENDU 


,2 






07CC6 


| 5 


05 190 


CHAR 2 


CS 


3 


, •- 1 




TWICE PCCIFIEC CHARACTERISTIC 


07C 16 




G52C0 




B 


SLASH*12 








07C 18 


49 


C52 IC 




OORG 


• -4 








07C25 




05220 


RECO 


BO 


REDO A*24 


, M A T SW 






7C 26 


4 3 


052 30 




TO 


REOCA*23 


,CCMP$W 






7C 38 


25 






TFM 


SMC AOJ 


,REOO A 




PACRC PERMITS RECCING BACK TC ( 


07C50 


16 


0525C 




B 


SWL 








07C62 


49 


05260 




DORC 


• -4 








07C69 




05270 


REOOA 


TOM 


SWL*l 


,1 




RETURN FRCP SWL IF MCRE CAT A 


C7C7C 


15 


05280 




TOM 


COMPSW 




,, VCIC RECC LIS IMG SWC EFFECT CN CCMPSW 


C7C82 


15 


05290 


TERM 


DS 


5 






REFERENCE ACR IN l/C RECCRC 


07C93 




053C0 




AM 


SWF 


|5 






07C94 


11 


05310 




fF 


SWF 


,SWF 


,11 




C71C6 


26 


05320 




B 


SLASH 








07118 


49 


0533C 




DORG 


• -4 








07125 





C6993 
C67C8 
C6992 

07446 
C6175 
C6BU 
C582- 
C582C 
C582- 
C6744 
C582C 
C6992 
C6944 
C6915 
C6175 
C6884 
C691S 
C69C6 
C69C8 
C6915 
CCCCC 
2 
5 

C6421 
C6178 
CC565 
CC532 
C6992 
CCCCC 
C573C 



C6993 
3 

C6666 

C7C94 
C7C93 
C6152 
C6C42 

C6C43 
C575C 
c 

CS96S 
C5965 
C6676 



CC0C9 
C6C61 
CCOCC 

C575C 
CCC-6 
CUCC 
C651L 
CCC-2 
CCC-C 
C12CC 
-6175 
C13CC 
C6C61 
CC0N2 
CCCPC 
CllCC 
C6179 

C12CC 
CCCNl 
CC9CC 



C6511 
C618C 
-6967 
-6169 
C34CC 
CC971 
CCOCC 



CCCCC 

C5655 
C575C 
-7C7C 
COOCC 

CCCCl 
CCOCC 

-CCC5 
C596R 

CCCCC 



05340 
C5 350 
05360 
053 7C 
05380 



MACRC TC REPEAT FCRMAT SPECS A SPECIFIC NO OF TIMES 
SUB FRCP REP SW, INITIALLY SET TC ZERC 
IF REPSW NEC , SET TCREPS RECC ANC REPEAT FORMAT 
IF REPSW ZERC, LAST FCRPAT REPETITICN IS COMPLETE 
IF REPSW PLUS, STEP CCWN ANC REPEAT FCRMAT SPEC 

5 ^ U 









162C- 1443 MCMTCR 1 


VI 


C539C 


REP 


AM 


SWF 


, 7 




054C0 




SM 


REP Sw 


, I 


.10 


054 10 




BH 


REP ? 






05420 




BE 


BSWF 






0543C 




A 


REP SW 


,SWF 


,11 


05440 




BNH 


BSWF 






05450 


REP2 


SM 


SWF 


,2 




05460 




TF 


SWF 


,SWF 


, 1 1 


054 70 




B 


SWF-? 3 






054R0 




OORG 


• -4 






05490 


REP 3 


SF 


REP SW 3- 1 






055C0 


WA 


CS 


5 






055 10 




AM 


SWF 


\ 7 


,10 


05520 




SM 


REPSW 3 


• 1 


,10 


05530 




BH 


REP 2 






05540 




BE 


BSWF 






05550 




A 


REPSW 3 


,SWF 


,11 


05560 




B 


REP 2-12 






C55 7C 




DORG 


• -4 






05580 


ERF 9 


TFM 


SWC AD J 


,ER CCM 2 




05590 




TF 


LAST 


,MAX 2 




056C0 




TFM 


EI 


,679 


,9 


0561C 




B 


SWL 






05620 




OORG 


• -4 






05630 


* TYPE 


AM 


SWF 


• 3 




05640 




A 


LAST 


,SWF 


• U 


05650 




B 


BSWF 






0566C 




DORG 


• -4 






05670 


ERC0M2 


K 




,0951 




05680 


WA2 


DS 


5 


,•-5 




05690 




TFM 


IORT 


,•♦23 




057CC 




B 


IOPT 


,0ATERR-4 


,7 


05710 




TR 


EI*1 


•FLZERS-l 


* t 


05720 




B 


BSWF- 12 






05730 


CPT 


OS 


5 


»• 


t 


05740 


ICCR 


CM 


MAX- 3 


,08 


,10 


C5750 


CKW 


OS 


3 


• •-2 


• 


05760 




BNL 


WRITE 






05770 




B 


COMEND 






05780 




OORG 


• -4 






05790 


EFCOM 


AM 


SWF 


.3 




058C0 




TF 


WIOTH 


VSWF 


• 11 


05810 




AM 


SWF 


,2 




05820 




TF 


LOC 


,SWF 


• 11 


09130 




TF 


INPLUS 


• LAST 




05140 




TF 


WIOTH 2 


•WIDTH 




05190 




A 


WIOTH 2 


•WIOTH 




05860 




A 


LAST 


•WI0TH2 




05870 




C 


LAST 


• MAX 2 




09880 




BH 


ER F9 






05690 




TF 


TERM 


• LAST 




059C0 




SM 


TERM 


.2 




05910 




TF 


CHAR 


•WIOTH 




09920 




TF 


WA 


,FNH 




09930 




TOM 


97 


tO 




09940 




TFM 


99 


• 00 


.10 



CCNTRCL REPETITICN CF FIELCS 



WCRKING AREA ACR REF TC FAC CR GAM 



MACRC FCR ERRCR F9 WHEN WRITING 
MACRC FCR SKIPPING FIELCS 

WCRKING AREA ACR REF TC FAC OR GAM 

RESTCRES RECORC MARK 

TEMP LCC CF OEC PT IN OUTPUT RECORO 

CEC SPEC PLUS CHAR OF ARG 



530 



07126 


11 


C5969 


-C0C7 


07138 


12 


C5654 


CCC-l 


Of 15C 


46 


C719S 


CllCC 


07162 


46 


C5534 


C12CC 


07174 


21 


C5654 


C596R 


07186 


47 


C5934 


CllCC 


07198 


12 


C5965 


-CCC2 


0721C 


26 


C596S 


C596R 
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OS 


5, 


, ENTRY 


AOORESS 


TC 


OOUfiLfc SUBSCRIPT SUBROUTINE 


02263 


00270 


fcNTSCJ 


OS 


5, 


i ENTRY 


ACCRESS 


TC 


TRIPLE SUBSCRIPT SUBROUTINE 


02268 


00280 


ENTFIC 


OS 


5* 


, ENTRY 


ACCRESS 


TC 


FINC SUBRCLT INE 


02273 


0029C 


6NTREC 


DS 


!>, 


, ENTRY 


AOORESS 


TC 


RECCRD SU6PCUIINE 


02278 


0Q3C0 


fcNTFET 


DS 


5, 


, ENTRY 


ADDRESS 


TC 


FETCH SUBROUTINE 


02283 


00310 


ENT$WC 


OS 


5* 


> ENTRY 


ACCRESS 


TC 


SWITCH D SUBROUTINE 


02288 


00320 


ENTORR 


DS 


5, 


, ENTRY 


ACCRESS 


TC 


ARRAY SUBROUTINE 


02293 


00330 


ENTOEC 


DS 


5, 


, ENTRY 


ACDRESS 


TC 


DISK END SUBROUTINE 


02298 


00340 


ENTCQ5 


DS 


5, 


, ENTRY 


AQCRESS 


TC 


COSINE SUBROUTINE 


02303 


00350 


ENTSIN 


OS 


5. 


f ENTRY 


ACDRESS 


TC 


SINE SUBRCLT INE 


023C8 


00360 


ENTATN 


DS 


5t 


. ENTRY 


AOORESS 


TC 


ARCTANGENT SUBRCUTINE 


02313 


00370 


ENTSCT 


OS 


5. 


, ENTRY 


AOORESS 


TC 


SQUARE RCCT SUBROUTINE 


02318 


CO 3 80 


ENTABS 


OS 


5, 


, ENTRY 


ADDRESS 


TC 


ABSOLUTE SUBROUTINE 


C2323 


C0390 




DS 


70 


ttRESERVEO FCR ENTRIES TC ACCEC SUBROUTINES 


02 393 


004C0 


- 


COMMON WORKING AREAS 






00410 


Sf OP 


OAC 


5* 


STOP 1 








02395 






STOP 














00420 


RECPK 


OS 






STCP»8 






024C3 


00430 


CKBUFF 


OSS 


29 










C24C4 


00440 


F AC 


OS 


60 










2492 


00450 




OC 


1 




* 






02493 


00460 


SAVE 


OS 


72 










C2565 


00470 


BETA 


OS 


38 










02603 


00480 




OOP 












02604 


00490 


GAM 


DS 






SAVE-1C 






02999 


005C0 


TAFE 


OS 






SAVE -30 




02539 


00510 


IPSA 


DS 






BETA *28 




02979 


00520 


PESERR 


OAC 


6, 


ER E • 








02607 






EA E 


» 












00530 


CtOH 


OS 




t 


PESERR 






026C7 



5 46 



00540 
00 $50 
005*0 
00 5 70 

00500 

00590 
004CO 

00110 
00*20 

00*30 

00*40 

00650 
00*40 

00*70 
00*80 

00*90 

007CO 

00710 

00720 

00730 

00 74C 

0075C 

C07*0 

00 7 70 

007S0 

0074C 

Q08C0 

0081C 

00820 

Q083C 

00840 
00850 
G08*0 



El 
CIO 
• ■••a 



ZERO 
9SCPF 

• •••• 

FX9 

FXZ 
F*l 

• •••• 

9SPF 
1*2 

IN4 

INF. 
LNIO 

LCGf 

CNEZ 

UCZ 
TWOPI 
PI 

P10V2 
PICV4 
Six 
TAN6 
TEN34 



U2C-1443 PCNlfCft I VC'SICK 2 fC'fRA* II"* StilS SCI 1 

CS ,.-2 

OS 70 

162C FORTRAN I I~D FLOATING PCINT CC&TANTS 
OC 40 ,0 

-occooooccoooccoceooccooocoooccocoocccoo 

CSC 40 ,o 

coccoooccccoccooecocccooccoooooocoocccco 

OS ■ "" v . 

OC 24 .9999999999999999999999999999 
R995999999999999999555999999 

1620 FCRTRAN 1 1-0 FIXCC PCJAT CCKfUFS 
DC 10 .9999999999 
R955999999 

CC 10 .CCCOOqCOCC 

-occcocccc 

OC 10 .0C000CC001 

-occcoocci 

CONSTANTS FOR R€tCC*TA0tE SUBRCUTIRfS 
OC 31 ,0 

-occooocooooooooccoocoooooooooo 

OS ,t^2 

DC 31 .C69314710O3599453O94172321214S0 

~69 314 710C5599453C9417232}21450 

CC 31 .1386294361119090610034464242916 

J 3 8* 294 361 1 1989C* 108344*4242 91* 

CC 31 ,2079441541679835928251*9*3*4375 

KO 79441541679035920251*9*364 375 

DC 31 V 23C2585C92994O49604O17991454604 

K3C2505C92994C4^5604C 1799 14|4684 

CC 30 .4342944819C32S1827*51128918917 

* 3429448 190325182 765 11289)091 7 

oc 32 , lcccooccooocoooccocooccccoceooco 
jocccoocccocccccccocccoocccocooo 

OS ,«-4 

DC 2 ,C1 

-1 

DC 29 .2CCCOCCCO00CC0C0COCOOCCC0OCCO 

KOCCOOCCCCCCCCCCCCOCCCCCCCCCO 

CC 30 .628318530717958647642520*7**56 

02«3 185307 1795064 7692520676656 

CC 30 ,3141592*53509793230462*4338320 

11415926535897932304*264330328 

CC 3C ,157C796326794096619231321*9164 

J5 7C 79632* 7940966 192 3 132 169164 

CC 28 ,7853981*33974403096136*00450 

P8 5 398 U33974483C961 5*600450 

DC 28 •60C00CCC00000O0O0O00OCCC0OO0 

COCCOOOCCCCCCCCCCCOCCCOOOCOO 

OC 29 ,54C4195CO27C504155443570364*1 

N4C4195CC2 7C50415544 35 7036461 

DC 30 ,21077616239495525*222611491630 

K I 87 7616239495525622261 149 1638 

1620 FORTRAN I I -0 INOIRECT 4CCRESS 0CXES <NC PCCIFIEC 
CONSTANTS (USING K AKC F) 

DSA FACM 



RAGE 



02*}5 
02*07 



02727 
02720 



027*7 
02755 



028CS 
02015 
02125 

C285* 

C2e54 
02887 

02518 

C2S49 

C250C 

03C10 

03C42 

C3C38 
C3044 

C3C73 

031C3 

C3133 

C3163 

03151 

03219 

03248 

03278 



C 
7C 



4C 



C 
28 



1C 
1C 
1C 



c 

31 

31 

31 

31 

3C 

32 

C 
2 

25 

3C 

?C 

3C 

28 

2€ 

25 

3C 



5 \ 7 







162C-1443 


1 PCM TCP 


I VERSICK 2 FCRTRAN 


Il-C SUBS SET 3 


















C3283 


-2453 


00870 


FP IKK 


OS 


.FXH 






03283 


C 


0088C 


9*PK 


DC 5 


.99 






C3288 








-0CS9 












0085C 


ICCHK 


DC 5 


• ICC 






03293 


5 






-OICO 












005CC 


IPSAPF 


DSA IHSA 








03258 


5 














03298 


-2573 


00510 


ISPFPl 


DSA IMSA-1 








C33C3 


f 5 














. C33C3 


-2574 


00S2C 


F* 


DSA FAC 








033C8 


5 














C3 3C8 


-2452 


009 30 


FKH 


CSA FAC-l 








03313 


5 














03313 


-2451 


00940 


FP 1PF 


OS 








03313 


C 


00550 


5t"F 


CC 5 


»96 






03310 


5 






-0CS6 












00960 


9 7»F 


DC 5 


.97 






03323 


5 






-0C5 7 












C057C 


S8*F 


CC 5 


• 58 






03320 


c 






-OC50 












009 8 C 


RCT 


OC 5 


• 99 






03333 


m 






-0C59 












0099C 


►NC 


CC 5 


• ICC 






C3330 


5 






-01CC 












01CC0 


1C2W 


OC 5 


• 1C2 






03343 


3 






-01C2 












01C10 


F12ALP 


DSA ZERO-70 








03348 


5 














01341 


-2*04 


01C20 


Ft! 


OS A ZERC-8C 








01353 


5 














03191 


-1*07 


01C30 


FNHUl 


OS A FAC-2 








03350 


5 














03330 


-249C 


01C40 


97W2F 


DC 5 


• 97 






03363 


3 






-0C57 












01C50 


LNFNT 


OC 5 


• 16 






03360 


5 






-0056 












01C60 


6)1 PENT 


OC 5 


• 12 






01373 


5 






-0012 












01C70 


PAR 


OS s 


#•♦5 


• *C C* 111*1*7$ 


IN PATRIX fC PROCESS 


01171 


5 


01C80 




OS 5 








01171 


5 


0IC90 


CROAT A 


OSC 2 


tOC 






01179 


2 






CO 












01 ICO 




DSA 01 000 A 








03303 


9 














01119 


-1107 


OHIO 




CC i 
• 


t* 






03104 


1 


01120 


CIOODA 


OSC 1 


.0 






01117 


1 













5** 
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PAGE 



011)0 




OC 


5 , 


OCCOC 






03392 




5 








-occo 
















01 140 




cc 


3 , 


CCC 






3 395 




3 








-oc 


















01 150 




OS* 


DKHUFF 








C34CC 




c 


X 1 
















C34CC 




-24C4 




01160 




DC 


1 • 








034C1 




I 




01 170 




1620 FORTRAN 


II-C IN 


CORE 


SUB RCl T IKES 










01 180 




OS 


5 








014C6 




5 




01 190 


TCF AC 


TF L 


F AC , 


TCF AC- 1 


i 1 1 




03408 


C6 


C2492 


C34CP 


Q12C0 




BB 










0342C 


42 


CCCCC 


CCOCC 


01 2 10 




DORC 


• -9 








03422 








01220 


ZERFAC 


TFL 


F AC 


FL/ER 






03422 


C6 


C2492 


C376C 


01 230 




B 


FINISH*! 


ZERO-94 


, 7 




03434 


49 


C3724 


-2673 


01240 


ZfcROM 


OS 


5 






ZERC MINUS 94 PLUS TWO TIMES F 


03445 




c 




01250 




DS 


5 








0345C 




K 




01260 


FMFAC 


TF L 


FMFAC -I 


F AC 


16 




03452 


C6 


C345 J 


C 2492 


01 270 




BB 










03464 


42 


CCCCC 


CCCCC 


1 28C 




DORC 


• -9 








03466 








01 290 


UN FLO 


TFL 


F AC 


FLZER 




ERR F5 UNFL IN FEXP 


03466 


C6 


C2492 


C376C 


1 3C0 




B 


ERXV* 12 


F AC- 3 




F AC IS FL PT 2ERC 


03478 


49 


C3774 


C2489 


01310 


FNHM 2 


05 


5 






F AC MINUS 3 MINUS F 


03489 




5 








OS 


5 








03494 




5 




013 30 


TRACE 


TFL 


TRACE - 1 


F AC 


»6 




03496 


C6 


C349N 


C2492 


013 40 




BNC4 


FMFAC*12 








035C8 


47 


C3464 


CC4CC 


013 50 




K 


G AH- 1 


C9 5 1 




SINGLE CARRIAGE SPACE 


03S2C 


34 


C2554 


CC951 


01360 


F INO IN 


CC 


1 


1 


, «-4 




03527 




1 




013 70 


CP 1 M2F 


J 

DS 




• -5 




GAMMA MINUS CKE PIN US ThC TIPES F 


03526 




C 




01 380 




BNF 


TRF X 


F AC- I 




BRANCH IF FIXEC ARGUMENT 


C3532 


44 


C355E 


C2491 






l*N 


FNH 


C 9 C 1 


t6 • 


PRINT FLOATING ARGUMENT 


03544 


38 


C331L 


CC9C1 


1 4C0 




BB 










03556 


42 


CCCCC 


CCCCC 
















03558 








01420 


T R F X 


*N 


F XH 


C9C1 


1 6 t 


PRINT FIXEC ARGUMENT 


C3558 


38 


C328L 


CC9CI 


014 30 




BB 










03570 


42 


CCCCC 


CCOCC 


01440 




DORG 


• -9 








03572 








014 50 


OVFLCW 


TFM 


F AC 


C 199 


,8910 




03572 


16 


C2492 


C-JR9 


1 460 


2FM 1 


CS 


2 


• -2 




TtaC TIMES F MINUS CNE 


03581 




2 




014 70 


FKOCC 


DS 


1 


• -4 




F CM OCC, 1 F ANC K EVEN 


03579 








014 80 




TF 


FAC-2 


95CPF 




SET RESULT TC ALL NINES 


03584 


26 


C249C 


C2795 


01490 


ERROR 


K 


FINISH 


C951 


t6 , 


SINGLE CARRIAGE SPACE 


03596 


34 


C372L 


CC951 






bA 


ME SERR 


C9CI 




PRINT ERRCR MESSAGE 


03608 


39 


C26C7 


CC9CI 


01510 




a 


ENDD* 12 








03620 


49 


C37CC 


CCOCC 


01520 


ML- 


BNF 


• ♦?4 


ML-l 




SET CCRRECT SIGN CN F AC 


03632 


44 


C3656 


C3631 


01530 




SF 


F AC 


GAP 






C3644 


32 


C2*?2 


C2555 


01540 


GM2F 


CS 








GAMMA MINUS TMC TIMES F 


03655 




C 




01550 




TOP 


FXERR*25 


C2CC9 


• 79, 


RESET ERROR EXIT 


03656 


15 


C3621 


-2-C9 


01560 


MF 


CS 


2 


• -1 




MINUS F 


03666 




2 




01570 


FP2 


DS 


2 


• -3 




F PLUS TMC 


03664 




2 




oi5eo 




TFM 


FXERR*3C 


EN00*12 






03668 


16 


C3626 


-37CC 


01590 


FIXENC 


BB 










0368C 


42 


CCCCC 


CCCCC 


ouco 




DORG 


• -3 








03688 








016 10 


FXERR 


DS 




ERROR 




MCVE EXPONENT 5 } i i) 


C3596 




C 




01620 


ENCC 


TF 


F AC 


SAVE 


t * 


03688 


26 


C2492 


C2565 
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01630 




BNF 


• ♦24 


• 99 


,, SET PPCPER SIGN 


01640 




SF 


FAC-2 


, ENCO 




01650 


FINISH 


OS 




( • 




01660 


FLTENC 


DS 




.FIMSM7 




01670 




BB 








01680 




DORG 


• -4 






01690 




OC 


28 


tC 








-OCCOOOOCCOOOCOOCCOOCOOOOOOO 


C17C0 


FLZER 


DC 


2 


,-99 








RR 








01710 


ERXV 


BNF 


• *?4 


• F AC 




01720 




AM 


EI 


,0101 


,8910, ERR CCCE » ERR COCE » 1 


CI 730 


FMt 


OS 


2 


• •-2 


, F MINUS CNE 


01740 




K 


FMFAC*12 


»C95i 


•• SINGLE CARRIAGE SPACE 


01750 




*A 


ME SERR 


t09Cl 


,, PRINT ERROR MESSAGE 


01760 




B 


ERXVOO 




• 6 


01 770 




DORG 


• -4 






oi 7eo 


F2 


CC 


2 ,C 






01790 


K2 


-0 
DC 
-0 


2 .0 






018CO 


MF0V2 


OS 


2 






01810 


CUMMV 


DS 




•99999 




01820 


START 


OS 




•C3851 




01830 




1620 FCRTRAN II-C 


SUBROUTINES - INITIAL SECCNOARV 


0184C 




OORG 


START 






0185C 




OS 


1 






01860 




OC 


2 


• OC 




01870 




-0 
TFM 


FMCN* 11 


••-START 




C1880 




OC 


2 


• I 


,•-3 


01890 




-1 
B 


FMCN 






019C0 




TF* 


FMCN* 11 


••-START 




01910 




DC 


2 


,1 


• •-3 


01920 




-1 
B 


FMCN 






01930 




TFM 


FNCN*11 


••-START 




01940 




CC 
-I 


2 


*l 


,.-3 


01950 




B 


FMCN 






01960 




TFM 


FMCN* 11 


••-START 




01970 




OC 


2 


tl 


*»-3 


01980 




-I 
B 


FMON 






01990 




TFH 


FMCN* 11 


••-START 




02CCC 




OC 


2 


• 1 


• •-3 


02C10 




-1 
B 


FMCN 






02C20 




TFM 


FMCN* I 1 


••-START 




02C30 




OC 


2 


,1 


.•-3 


02040 




-1 
B 


FMCN 






02050 




TFM 


FMCN* 11 


••-START 




02C60 




OC 


2 


tl 








-1 






5 



5o 



037CC 


44 


C3724 


CCC99 


037 12 


32 


C24SC 


C3688 


03723 




C 




0373C 




C 




03724 


42 


CCCCC 


CCCCC 


03731 








03758 




26 




C376C 




2 




03762 


44 


C3786 


C2492 


03774 


11 


C2615 


C-J-l 


03783 




2 




03786 


34 


C3464 


CC951 


03798 


39 


C26C7 


CC9C1 


0381C 


49 


C3 79K 


CCCCC 


03817 








03818 




2 




03820 




2 




03822 




2 




99999 




C 




03851 




C 




03851 








038S1 




1 




03853 




2 




03854 


16 


C7465 


-CCC3 


03862 




2 




03866 


49 


C74S4 


CCCCC 


03878 


16 


C7465 


-CC27 


01886 




2 




C389C 


49 


C7454 


CCCCC 


03902 


16 


C7465 


-CC51 


03910 




2 




03914 


49 


C7454 


CCCCC 


03926 


16 


07465 


-0075 


03934 




2 




03938 


49 


C7454 


CCCCC 


03950 


16 


C7465 


-CC99 


01998 




2 




03962 


49 


C7454 


CCOCC 


03*7* 


16 


C7465 


-cm 


03982 




2 




03914 


49 


C7494 


CCOCC 


03998 


16 


C7469 


-0147 


04C06 




2 





02C10 
02C80 
02C90 
02 ICO 

02 UO 
02120 
02130 
02UC 

02150 
02160 
02170 

02180 
02190 
022C0 

02 210 
02220 
02 2 30 

02240 
022S0 
02240 

02270 
0228C 
02290 

023C0 
02 310 
02320 

02330 
023*0 
02 350 

02360 
02 370 
02380 

02 390 
02*C0 
02*10 

02*20 
02*30 
02**0 

02*50 

02*60 
02*70 

02*8C 
02*90 



8 

OORG 

TFI* 

CC 

-1 

8 

OORG 

TFM 

OC 

-1 

B 

TFM 

DC 

-1 

B 

TFM 

OC 
-I 
B 

TFM 
DC 
-1 
6 

TFM 

OC 
•1 
8 

TFM 

DC 
-1 
B 

TFM 

OC 
-I 
B 

TFM 

OC 
-1 
B 

TFM 
DC 
-I 
B 

TFM 

OC 
-I 


TFM 
OC 
-2 
B 

TFM 

CC 
-2 
8 

TFM 



16?C-l**3 MCNITCR I VERSICK 2 FCRTRAN 1I-C $18$ SIT 1 

FMCN 
• -1 

FMCN*U 

2 



FMCN 
• -1 

FMCN* 1 1 

2 

FMCN 

FMCN*ll 

2 

FMCN 
FMCN* 11 
2 

FMON 
FMCN* U 
2 

FMCN 

FMCN*ll 

2 

FMCN 
FMCN*11 

2 

FMCN 
FMCN* 1 1 

2 

FMCN 
FMCN*11 

2 

FMCN 
FMCN*ll 

2 

FMCN 

FMCN*ll 

2 

FMCN 
FMCN* I I 
2 

FMCN 
FMCN* 11 

2 

FMCN 
FMCN*11 



t«-3 

»8 



0*C10 
0*C2C 
C*C2C 
C*C28 



55 i 



C*C5* 
C*C66 
0*C7* 

C*C78 
C*C9C 
C*C90 

C*1C2 
C*ll* 
0*122 

0*126 
C*138 
0*1*6 

0*1SC 
C*U2 
0*170 

C*17* 
C*186 
0*19* 

C*198 
0*210 
0*218 

C*222 
C*23* 
0*2*2 

0*2*6 
0*258 
0*266 

C*27C 
0*282 
0*29C 

0*29* 
0*306 
0*31* 

C*318 
0*330 



*9 C7*5* 
16 C7*6S 



*9 C7*5* 
16 



C7*5* 
C7*45 
2 

C7*S* 
C7*€5 
2 

C7*5* 
C7*65 

2 

C7*5* 
C7*65 
2 

C7*8* 
C7*65 
2 

C7*5* 
C7*65 
2 



CCOCC 
-C169 



0*C32 *9 C7*5* C-CCC 
0*C*2 

0*C*2 16 C7*€« 
04C50 2 



-C191 
CCCCC 



C7*65 -C215 
2 

*9 C7*S* CCCCC 
16 C7*65 -C239 
2 

*9 C7*5* CCCCC 
16 C7*45 -C263 
2 

*9 C7*5* CCCCC 
16 C7*65 -0287 
2 



*9 C7*5* 
16 C7*6S 
2 



C7*54 
C7*45 



CCCCC 
-0311 



CCOCC 
-C33S 



CCCCC 
-C359 



CCOCC 
-0383 



CCOCC 
-C4C7 



CCOCC 
-0*31 



CCCCC 
-0455 



CCCCC 
-0*79 
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-4514 


15410 




SM 


WfOTH 


• 2 1 1 


05192 


12 


C5799 


CCC-2 


If 420 






SML 


.RfcEF SW 


52C4 


44 


C6C42 


C6C& 1 


15430 




SM 


If ftp 


, a 


5216 


12 


C7C93 


- c cc e 


154 40 




SM 


M 1 TH 


• 4 (10 


5228 


12 


C5 79S 


CCC-4 








SML 




5240 


49 


C6C42 


CCCCC 


15460 




DORG 


• -4 




05247 










• • • • 






MACHC FCR HCLLERITH TVFE REAC MhC WRITE 










15480 


h I tPE i 


TF 


W I TH 2 


t SWF ill 


C 5248 


26 


C6C64 


C594R 


15490 




TF 


INPLLS 


.LAST 


0526C 


24 


C6C53 


C562C 


1S5CQ 




A 


LAST 


i h 1 C TH2 


05272 


21 


C582C 


C6C64 


15510 




c 


LAS T 


,MAX2 


05284 


24 


C582C 


C6145 


15520 




BNH 


• ♦32 




C5296 


47 


C5328 


C 1 ICC 


15530 




A 


SWF 


.WICTH2 


053C8 


21 


C596S 


C6C64 


15**0 




B 


ER CCM 


2 


0532C 


49 


C7386 


CCCCC 


11950 




OORG 


• -4 




05327 








15960 




BO 


HMRT 


•RWEFSk 


05328 


43 


C536C 


C4061 


us *o 




TFM 


EF2SW 


,HRC 


0534C 


16 


C4425 


-5428 


lf)IO 




8 


1IF2SW 


577 


05352 


49 


C544C 


CCCCC 


tft« 




DOUG 


• -4 




01359 









1620-1443 MCM.TCR I VERS1CN 2 FCRTRAN I I -C SLJBS SET 3 



SM 

TOM 
BL 



156C0 H 
156 10 
15620 
15630 
15440 TF 
15650 AM 
15660 B 
15670 OORG 
15680 6EF2SW TFM 
15690 TFM 
157C0 CC 



15710 
15720 

14130 MASKF 

If 740 
15 750 
15160 
If T70 
|f760 
15790 A6 

IfICO 



WIHTH 2 
COMPSW 
BSWF 
SWF 

INPLLS 
INPLLS 
H WRT 

• -4 

MBA SE ♦ 5 
FMCN* 1 1 
2 

FMCN 

• -4 



.2 

tC 

.2 

• SWF 
,2 



.FTYPE 

,HTVPE^22-START 
.6 ,«-3 



WRITE ► TC I/C REC FRCP FCRPAI RIC 



H 

OORG 

CAC ll.CCCOCCOOCCOOCCOOOCOOOOOOCOOCCC* 

OOCCOOOOCCOOCOOOCCOOCCOOOOOOOO' 

OORG 06CCC 

•0C702 
,0C701 



11 
16 
6 

OORG 
CSC 



44 
A6 

• ♦22 

• -3 
9 



♦019485C17 



019485017 
OS* FIX 



TCO 06CCC 



11130 < 

H640 ••••• 
15850 
11640 
196™ 

1*660 
15690 

159C0 
15910 

19620 
11530 
19144 

1MM 

116*0 
11170 

15H0 
14CC0 
1*010 

14C20 CFMIN 
140)0 EFP1US SM 
1*040 fFTVPE AR) 

14050 CM 



1620 FCRTRAN I 1-0 EF-HTYPE 2 
14?0 FORTRAN 1 1-0 EF-HIYPE 2 
OORG FTVPE 

.•-START 
tl • 



FORPAt 

FCRPAI - SUCtOUTINES 



2 



TF« 

CC 
-5 

S FMCN 
OORG »-l 
TFM FMCN*ll 

OC 2 
-5 

B FRWRJ 

oo*c *-l 

TFff FM01H11 

OC 2 

-f 

1 FMON 
OORG •-! 
TFM M6SE+5 
TFH fFTERMMf.EF fVPf 
EF2SW • 
OORG »-4 
S* It 

CMAA 
IR#LLS 
IWLLS 



.••STAR! 
• 5 



.•-START 
• 9 



.PIS 



tl 
.2 

• OC 



i7o 



0536C 


12 


C6C64 


CCC-2 


C5372 


15 


C575C 


CCCCC 


053*4 


47 


Cf«4 


C1KC 


0539* 


11 


C9949 


-CCC2 


054C8 


24 


C6C5L 


C594R 


0542C 


11 


C6C53 


-CCC2 


05432 


49 


C936C 


CCCCC 


05439 








0544C 


16 


C7662 


-4558 


05452 


16 


C7465 


-CT73 


05460 




2 




05464 


49 


C7454 


CCCCC 


05471 








05473 




31 


X 2 


06CCC 








06CCC 


36 


C8C12 


CC7C2 


08C12 


34 


C8C32 


C07C3 


06C24 


49 


C8C46 


CCCCC 


08C32 








06C32 




9 




06C45 




5 


B I 


C8C45 




-9194 




08C46 


36 


coccc 


CC5CC 


06C58 


49 


CCCCC 


CCCCC 


08CCC 








0499* 








0499* 


16 


C?4«9 


-C7C7 


04,946 




2 




0491G 


41 


C7494 


C-CCC 


o«**e 








0456C 


14 


07449 


-•ft! 


04966 




2 




04912 


41 


07494 


C-OCC 


04*02 








04*02 


14 


07449 


-0751 


0441C 




2 




04*14 


41 


07494 


COOCC 


•4*24 








04*24 


14 


CT442 


-1054 


04414 


14 


C924* 


-446C 


04441 


41 


0442« 


coooo 


04499 








04494 


12 


C0C91 


CCCCC 


04441 


12 


C41CC 


cco-i 


04400 


11 


C409) 


-0002 


04412 


14 


C409L 


CCO-C 



1620- HO PCM TCP ! VERSION 2 FCMRAN ll-C SLfS SET 3 



PACE 



uceo 




BE 


LOG CIG 






04104 


46 


C9C8C 


C12CC 


46070 




CM 


INPLLS 


tTC 


• 610 


04716 


14 


C6C9L 


CCCPC 


ueio 




BH 


EF DIG 






04721 


46 


C5188 


CUCC 


ucto 




BE 


LOG CIG 






0474C 


46 


C9CI8 


C12CC 


ttico 




CM 


I NPLL S 


,C3 


• 610 


04792 


14 


C6C9L 


CCC-3 


i* no 




BE 


EF CEC 






04764 


46 


C512C 


C12CC 






BNF 


ERRFT E 


•RbEFSk 




C4TT6 


44 


C9396 


C6C61 


16130 




tf.p 


EXP 


• CCC 


, q 


C4T8R 


16 


C48CS 


cc-cc 


16140 




TOP 


E EXPAD+1 


,1 




048C0 


|5 


C5C69 


ccoc I 


16190 


ExP 


OS 


3 


#•-2 


• VALUE CF CAlC CHAR FCR CLTPUT 


046C9 




] 




16 1 AO 




CM 


INPLL S 


t49 


• 610 


C4812 


14 


C6C5L 


CCCP9 


161 TO 




HE 


E E XP 






C4824 


46 


C5CCC 


C12CC 


16110 




CM 


INPLUS 


t4C 


• 61C 


04836 




C6C SL 




16 190 




BNL 


ERRF 76 










C5396 




162C0 


EEXP2 


CM 


1 NPLL S 


2C 


»6 IC 




14 


recall 


r • 


! a «ln 




BE 


E E XP P 












C 1 2CC 






CM 




tie 


♦ 6 1C 


04884 


14. 


C6C9L, 


CCO JC 


16230 




BE 


t c XP 








46 


C9CCC 


C 12CC 


16240 


EEXP22 BO 




• ™7 




049C8 


4 3 


C4932 


CCC97 






SM 




1 1 






12 


Q6 ICC 


CC-C 1 


\ f 




c 


IMDI < 








24 


C6C93 


CT093 


16/ 70 




BNL 








04944 


46 


C9C96 


C 1 3CC 






TO 


EXP | 


•1 PLUS 


• 1 1 




29 


C48CE 


C6C9L 


16290 




AM 


I NPLL S 


• 2 




04968 


1 1 


C6C93 


-CCC2 


163CC 




B 


EE XP22+ 1 2 






0498C 


49 


C492C 


ccoco 


16310 




DOUG 








0498 7 








16320 


EfcXPP 


TOP 


E 6 XP AO* | 


• « 




Si'?? 


1 5 




CCCC2 




EEXP 


AM 




»2 




C 5CCC 


1 1 


C6C5 3 


-CCC2 


16340 




SM 




• 1 


• 10 


m an W 


1 2 


C6 ICC 


CCO- 1 


• * \ *n 




C 


-in 


t TE^m 




09C24 


24 


C6C9 3 


C7C93 


16 SCO 




BNH 


fee XP2 






CSC 36 


4 1 


C466C 


C 1 ICC 


16 3 TO 




8T 








C9C48 


49 


C5 396 




163 §0 




TO 


: 


c 


• 1 1 


9CS6 


25 


C48C9 


C609L 


16 390 


EEXPAC 


A 




»E XP 




C 5C68 


2 1 


C6 ICC 


C48C9 


164C0 




B 


EF END 






C9C8C 


49 


C92T2 


CCCCC 


16410 




CORG 


* * 






C508T 








1642C 


ICCOIG 


BNF 


tr DIG 


• 98 




9068 


44 


C5188 


CCC98 


16410 




SM 




1 1 


• 10 


09 ICC 


1 2 


C6 ICC 


CCC- 1 


14440 




B 








C 5 1 1 2 


49 


C 524 1 


CCCCC 


16490 




DOUG 








C5 1 19 








16460 


EFPEC 


BD 








09)20 


4 3 


C9396 


CCC97 


164 TO 




TFP 


LOC C 


• CC 


• 1 


05132 


16 


C568C 


CCC-C 






TFP 


CC ICDIlA 1 • 
t" 1 Crf (11 


»EF PLLS 




*C ! ii 


16 


C 9266 


-4668 


16490 




TOP 




t ~ 1 < 




C5 1 56 


1 5 


CCC97 


CCCC J 


169 CC 




SM 


CHAR 


• 1 


• 10 


9168 


12 


C6 ICC 


CCC-1 


16910 




R 


cr TfcRP 






C9 18C 


49 


C9248 


CCCCC 


16920 




OORG 








CS 1 8 T 








16930 


EFCIG 


CF 


98 






C5188 


33 


CCC98 


CCOCC 


16940 




CM 


WA 


•FAC-l 




092CC 


14 


C7241 


-2491 


16990 




BNL 


• ♦36 




•• TRUNCATES LCW CRCER CICITS 


C9212 


46 


C9248 


C13CC 


16960 




TO 


WA 


tlKPLLS 


• 611 


C9224 


25 


C724J 


C6C5L 


16570 




AM 


WA 


tl 




C9236 


11 


CT241 


-COCl 


16580 


CFTERP 




INPLLS 


,TERP 




05248 


24 


C6C93 


CTC93 


16990 




BL 


EFTVPE 






0526C 


47 


046eC 


C13CC 


166C0 


EFFNC 


BNF 


EFENC2 


• FN> 


,11, ZERC CHECK 


C92T2 


44 


C93C4 


C331L 


166 10 




TFP 


F AC 


• 99 


,101 1 5 7 fj 


C5284 


16 


C2492 


CCORR 








1620- 1443 


PCMTCR I 


VERSION 2 FCRTRAN Il-C SLBS SET 3 








PAGE 


16620 




B 


SWL 






C5?96 


49 


C6C42 


CCCCC 


166 30 




CORG 


•-3 






C53C4 








16640 


EFEN02 


c 




»LCC 




05 304 


22 


C 6 1 CC 


C 568C 


16690 




BD 


ERR F 7e 


, CHAR-2 




^ e \ la 


4 3 


C 9 396 


C6C96 


16660 




SF 








C 5 328 


32 


C6C9S 


CCCCC 


166 TO 




TF 


F AC 


( CHAR 




C534C 


26 


C2492 


C6 ICC 


1666C 




SF 


FNH 


• 


• 6 


05 352 


32 


C331L 


CCCCC 


16690 




BNF 


SWL 


f 99 




C 5 364 


44 


C6C42 


CCC99 


16TCC 




SF 


FAC-2 






C53T6 


32 


C241C 


CCCCC 


16T 10 




B 


SWL 






C 5 388 


49 


C6C42 


CCOCC 


16T20 




OORG 


•-4 






C5395 








16T30 


ERRFTE 


TF 


F AC 


tFLIALP 


•lit F PLUS 2 2ERCS TC FAC 


05396 


26 


C2492 


C334C 


16T40 




TOM 


E 1 


• T 


tilt SET ER F7 INCICATICN SWITCH 


C54C8 


15 


C26 15 


CCCCP 


16T90 




A 


EFENC 






C5420 


49 


C927i 


CCCCC 


16 T6C 




CORG 


• •4 






C 5427 








16 T TO 


HRT 


SM 


WIDTH 2 


»2 


,10, REAC H FRCP IC REC TC FCRPAT RECCRC 


5428 


1 2 


C6C64 


CCC-2 


16T80 




DL 


BSWF 






544C 


47 


C9934 


C 1 3CC 


16 T9C 




AM 


Sl»F 


• 2 




05452 


1 1 


C9969 


-CCC2 


16 fCC 




TF 


SWF 


• INPLU5 


»6ll 


5464 


26 


C996R 


C6C5L 


168 10 




AM 


I NPLL S 


t2 






1 1 


C6C93 


-CCC 2 


16120 




B 


MRD 






5488 


49 


C542E 


CCCCC 


161130 




OORG 


— 4, 






05495 








16140 




OORG 


08CCC 






08CCC 








16190 




3B 


A7 


•CC7C2 




onccc 


38 


CRC32 


CC7C2 


16160 




36 


A7 


•CC703 




C8C 12 


36 


C8C32 


CC 7C3 


168T0 




B 


•♦22 






08C24 


49 


C8C4( 


CCCCC 


16880 




OORG 


• -3 






08C32 








16990 


AT 


OSC 


9 


•C19902C10 




08C32 




S 








.C195C201C 














169C0 




CSA 


F TYPE 






C8C45 




* 


* 1 














C8C45 




-4398 




16910 




TRA 








08C46 


; 36 


ccccc 


CC9CC 














C8C98 


49 


CCCCC 


CCOCC 


16920 




TCO 


OBCOC 






Q8CCC 








16930 




1620 FORTRAN Il-C MEP- AT VPI FCBMT 










1694C 


• •••• 


1620 FCRTRAN H*C RAEP-ATVPf PCRPAI - SECCNOARV LINKAGE 










16990 




OORG 


STAR? 






0389 1 








1*960 




OS 


1 






03853 




3 




16910 




CM 


FAC 


.CC 


,10, IS CHAR PCSITIVE 


03894 


14 


C2492 


cce-c 


16910 




• 


EMIR 






03B66 


49 


0471C 


CCOCC 


16990 






FMON*U 


,*-START 




03878 


16 




-CC27 


ITCCO 




CC 


I 


• I 


t»-l 


03816 




2 




ITC1C 




-I 
1 


PMCN 






01190 


49 




CCOCC 


ITCIO 




TFP 


FMCN*ll 


#••$?••! 




039C2 


16 


C7469 


•CC51 


ITC30 




DC 


2 


tl 


t«-l 


03910 




2 




ITC40 




-I 

« - 


FMON , 






03914 


49 


C7494 


CCOCC 


IT090 




TFM 


FttCNMI 


,«-STAftT 




01926 


16 


C7469 


-CC7S 


ITC40 




DC 


I 


.1 


t«*l 


01934 




2 




ITCTO 




-I 
t 


FMON- 






03931 


49 


07494 


CCOCC 


17010 




TFM 


PACNMl 


,«-|?A#T 




01990 


16 


C7449 


-CC99 


1TC90 




DC 


2 


tl 




03158 




2 





-I 



1620*1441 MCMTCR I ViASICK 2 FCRTAAN ||-C StB| Sff 3 



W1C0 


B 


F*CM 






17U0 


TF* 


FMCN* 11 


.•-START 




17120 


DC 


2 


• 1 


#•-3 




- 1 








17140 


TF* 


FMCN* 11 


••-START 




17150 


oc 


2 


.1 


• •-3 


17160 


-I 

B 


FMCN 






171 70 


DORG 


f— 1 






17I8C 


TF* 


FMCN* 11 


f STAH T 




17190 


DC 


2 


• I 


• •-3 


17 2C0 


-1 
B 


FMCN 


' 




17210 


DORG 


t- 1 






17220 


TF* 


F NGN* U 


••-START 




17230 


CC 


2 


rl 


.•-3 


17240 


B 


F*ON 






17290 


TF* 


FMCN* U 


♦•-START 




17260 


OC 

-1 


2 


.1 


t«-3 


1727C 


B 


F*ON 






I72i0 


TF* 


F*CN*ll 


.•-START 




17290 


OC 


2 


• 1 


• •-3 


173C0 


-1 
B 


F*ON 






17310 


TF* 


FMCN* 1 1 


••-START 




17 370 


OC 


2 


tl 


• •-3 




- 1 








17330 


B 


F*ON 






17340 


IF* 


FMCN* 11 


.•-START 




17350 


OC 


2 




.—3 




-I 








17340 


B 


F*ON 






17370 


TF* 


FMCN* 11 


.•-START 




17380 


CC 


2 


.1 


• •-3 


17390 


-I 
B 


F HON 






174C0 


IF* 


F*CN*U 


.•-START 




17410 


OC 


2 


il 


• «-3 


17420 


-I 
B 


FMCN 






17430 


IF * 


F*CN*U 


.•-START 




17440 


CC 


2 


tl 


• •-3 




-I 








17430 


8 


FMCN 






17460 


IF* 


FMCN* 11 


.•-START 




17470 


CC 


2 




• «-3 




-I 








mtc 


B 


F*ON 






17490 


TF* 


FMCN* I 1 


.•-START 




175CC 


CC 


2 


.1 


• •-1 


1751C 


-I 
B 


F*ON 






17520 • ••• 






WRITE ALPHAMERIC 



03962 
03974 
03912 

03984 
C399B 

04C0I 

04C1C 
04C2C 
04C20 
C4C29 

C4C32 
04C42 
04C42 
04C5C 

04C34 
04C46 
04C74 

04C7S 

04C9C 
04C98 

041C2 
04114 
04122 

04124 
04138 
C4146 

04150 
04162 
C417C 

04174 
C4184 

C4194 

C4198 
0421C 
C4218 

04222 
C4234 
C4242 

04244 
04298 
C4246 



49 C7494 
16 C746S 
2 



49 

16 



CT434 
C7463 
2 



C746S 

2 



C7465 
2 

C7494 
C7445 

2 

C7494 
C746! 

2 

C7454 
C7465 
2 

C7434 
C7445 

2 

C7454 
C7445 

2 

C7434 
C7443 

2 

C7454 
C74C5 

2 

C7454 
C7463 
2 

C7454 
C746S 

2 



CCCCC 
-C123 



CCCCC 
-C147 



CCCCC 
-C169 

C-CCC 
-C191 



CCOCC 
-C213 



CCOCC 
-C239 



CCOCC 
-C263 



CCOCC 
-C287 



COOCC 
-C311 



CCOCC 
-C335 



CCCCC 
-C359 



CCCCC 
-C383 



CCOCC 
-C4C7 



0427C 49 C7454 CCCCC 



162C-1443 *CN!TCP I yERSIC* 2 FCRTRAN I I-C StBS SCT 3 



1751C 




TF 


S*F 


,hATV-l 




17540 




B 


HATV1 






17550 




TF 


S*F 


,bAPT-l 




1T560 




B 


MAP T 1 






17570 




TF 


SMf 


,toACO-l 




17580 




B 


WAC01 






17590 




TF 


SWF 


•PPA-1 




176C0 




B 


PRA1 






17610 


• ••• 




RE AO AlPMAFf R IC 


17620 




TF 


S*F 


.RATt-l 




17630 




B 


RATV1 






1764C 




TF 


SNF 






17650 




B 


RAP T 1 




17660 




TF 


S*F 


.RACO-l 




17670 




B 


RACD1 


B 


17690 




DORG 


•-1 






1769C 




TF* 


FMON* 11 


♦•-START 




177C0 




OC 


2 


• 3 i 


• -3 






-3 








17710 




B 


F*CN 




8 


17720 




DORG 


•-1 






17730 




TF* 


FNCN*U 


.•-START 




17740 




OC 


2 


*4 i 


• -3 


17750 




-4 
B 


FNOJd 




8 


17 760 




DORG 


•-1 






11770 


MAQEF 


BNF 


EF t£2*12 


• LCC 




11780 




B 


EF RDl 




8 


17790 




□ORG 


•-1 






178C0 




TF* 


F*CN*ll 


.•-START 




17810 




OC 
-8 


2 


• 8 i 


•-3 


17120 




B 


F*CN 




8 


17830 




DORG 


• -1 






17840 


• ?¥*f 


AM 


S4JF 


.3 




ITISO 




B 


A Wf 1 




8 


17860 




DORG 


••I 






17870 




TF* 


FMCN* 11 


.•-START 




1T880 




CC 
-5 


2 


• 5 i 
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PT IN GAM ANC CCTPUT RECCRC. MCVE 










20C 30 
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20C*0 








TO GAM. INSERT SIGN, CHECK HICTH, AN C ZERC. 










20C50 








BR TO WRT F 


FCR F TYPE CCNTINUATICN 










20C60 


EFMn 1 


TFL 


F AC 


,LCC 


• U 


0*626 


C6 


C2*92 


C6CBR 


?0C 70 




BNF 


EFLCAT 


.FAC-1 




C*638 


** 


C519* 


C2*91 


20C80 


E f ALPr 


TFM 


FLTEND- 


* t2C 


,10 


C*650 


16 


C3726 


CCOKC 


20C90 




IF 


DPT 


, TERM 




0*662 


26 


C7**f 


C7C93 


201C0 




S 


DPT 


♦ICC C 2 




0*67* 


22 


C7**5 


C5678 


20 1 10 




TFM 


DPG 


♦ GAM 




C*686 


16 


C6C8* 


-2555 


20 120 




S 


DPG 


,ICC 2 




0*698 


22 


C6.C8* 


C5678 


20 130 




TF 


DPTM2 


,0P1 




0*71C 


26 


C7*5C 


C7**5 


20 1*C 




SM 


DPTM2 


,2 




0*722 


12 


C7*5C 


-CCC2 


20150 


EFALP 


SM 


HA 2 


, 1 




0*73* 


12 


C7392 


-CCCl 


20U0 




TO 


to A 


,HA2 


• 6 11 


C*7*6 


25 


C72*J 


C739K 


20170 




CF 


HA 




,6 


0*758 


33 


C72*J 


CCCCC 


20160 




SM 


WA 


,2 




C*77C 


12 


C72*l 


-CCC2 


20190 




c 


WA2 


»FM IMF 




0*782 


2* 


C7392 


C3313 


202C0 




BH 


EF ALP 






C*79* 


*6 


C*73* 


CllCC 


20210 




TFM 


HA 


,CC 


• 610 


0*8C6 


16 


C72*J 


CCC-C 


20220 




BNF 


EF CHKS 


,FAC-2 




0*818 


** 


C*8*2 


C2*9C 


20230 




TFM 


HA 


t2C 


• 610 


C*83C 


16 


C72*J 


CCCKC 


20 2*0 


efchk s 


TFM 


CKH 


»CCC 


,9 


0*8*2 


16 


C77*5 


CC-CC 


20250 




A 


CKH 


ttCCD 




0*fl5* 


21 


C77*« 


C568C 


20260 




A 


CKH 


,F AC 
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21 


C77*5 


C2*92 


20270 




TF 
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»CKh 
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26 


C61CC 
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2028C 




S 
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0*e9C 


22 


C61CC 


C2219 
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2* 


C5799 


C568C 


203C0 




BNL 


• ♦32 
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*6 
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C13CC 


203 10 


ERF8ES 


TFM 


REFSH 


, ERF8E 




C*926 


16 
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-525C 


20320 




B 


BREFSH 






C*938 


*9 


C55C2 


CCOCC 


20330 




noRG 
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F AC 


i-7C 


.10 


0*9*6 


1* 
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CCCP- 


20350 




BNF 


• ♦?C 


,RHFF$H 




0*958 


** 


C*97B 


C6C61 


20360 




87 


• ♦2C 






C*97C 


*9 


C*99C 




20370 




BL 
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0*978 


*7 


C5CC2 


C13CC 


20380 




BD 


• ♦36 


» FNH 


• 11 


G*99C 


*3 


C5C26 


C331L 


20390 




TOM 


F L TEND- 


* »-l 




C5CC2 


15 


C3726 


CCCC J 


20*CO 




TFM 


CHAR 


,-C99 


,9 


C5C 1* 


16 


C61CC 


CC-9R 


20*10 




BNF 


HRTFS 


,KVEFSW 




C5C26 


** 


C517* 
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20*50 


HRTE 


S 


NlOTH 


,F 




C5C38 


22 


C5799 


C2219 


20*60 




BL 
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*7 


C5C82 
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20*70 
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TFM 


REFSH 
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C5C62 


16 
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B 


BREFSH 
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*9 


C55C2 


CCCCC 
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BO 
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C5C82 


*3 
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s 
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20520 




BO 
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*3 
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16 
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*9 


C55C2 
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C5193 








20620 
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AM 
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11 
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20630 




BZ 


ZERFAC 




• , YES 
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*6 


C3*22 


C12CC 
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99 


,FAC 
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C5218 


25 


C0C99 


C2*92 


20650 




CF 
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C523C 


33 


C2*92 


CCCCC 


20660 




TR 


BETA-9 


,FXH 
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C52*2 


31 


C259* 


C328L 


20670 




TF 


FAC- 2 


.9SPF-1 


,• CLEAR FAC 


0525* 


26 


C2*9C 


C2853 


206 80 




TF 


SAVE 


tK 
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C5266 


26 


C2565 


C2221 


20690 




TFM 
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,PETA-9 
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16 
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BD 
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*3 
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12 


C2565 
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20720 




AM 
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0531* 


11 
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-CCCl 


2073C 




B 


• -36 
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*9 


C529C 
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0533* 
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TR 


FNH 


,•-33 
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0533* 


31 
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26 
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AM 
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11 
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*5 
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• 
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15 
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TD 
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,, REPLACE RECCRC MARK 
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25 


C2*93 


C2*C3 


20810 




TF 


BETA 
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•• CLEAR BETA 


C5*C6 


26 


C26C3 


C2693 


20820 




B 


ENCR6C 






05*18 


*9 


C5*5C 


CCOCC 


20830 




OORG 


• -3 
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208*0 


ENOR36 


TR 


FNH 
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31 
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C33CC 
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15 


C2*91 


CCCCC 


20860 


ENCR6C 


SF 


FNH 




t6 


05*50 


32 
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CCOCC 


20870 




BD 
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*3 


C372L 


C331L 


2088C 




SM 


SAVE 


• 1 
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12 


C2565 
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20890 




B 


EN0R36 
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*9 


C5*26 


ccccc 
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OORG 
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05*93 
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B 
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t 
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ccccc 


20920 




OORG 
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055C1 
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TFM 
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.9 
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A9 
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38 
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36 


A9 
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A9 


OSC 


9 
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16 
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8 
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* 
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49 
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OS 


5 
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TR 


6AM* 1 


t MASK 
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C2556 
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80 
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21160 




TO 
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25 


C2563 
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TO 
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CCCC2 
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TF 


TERM 
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.6 




26 


C7C9L 


C2557 


21210 




TR 
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0473C 
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8 


MEF CfcC 
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CHAR IS 


R.EG 


» EXP IS KEG 










21 2(0 








CHAR IS 


KEG 


, EXP IS POSITIVE IWRTFPE) 
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CHAR IS 
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MRTF 


I* 
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,MASK EP*7 
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C2556 
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80 
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.FL7ENC 


-4 




04762 
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C 3726 
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80 
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•CHAR-2 






04 774 
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C6058 


21310 




CM 


CKM 


,CCC 
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21320 
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F ZERO 
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C 1 1 CC 
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•talDTH 






048 10 


24 
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BM 
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C525C 


* 
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TF 


CHAR 2 


.CHAR 






048 34 


26 


C7C 1 6 


C6 ICC 






A 


CHAR 2 


♦ CHAR 






04846 


21 


C7C 1 6 


C6 ICC 


21 370 




BNF 


MRIFPC 


tCHAR 






04658 


44 


C5C74 


C6 ICC 


21 380 




TFM 


• ♦35 


.GAP 






0467C 


16 


C49C5 


-2555 


21 390 




A 


• ♦23 


.CHAR 2 






04682 


2 1 


C49C5 


C7C 16 


21 4C0 




TF 


GAM 








04894 


26 


C2 555 


CCCCC 


21410 




BNF 


WRTFPE 


.FAC 






049C4 


44 


C9C42 


C2492 


21*20 




TF 


LAST 


iGAM*a 




.6 


049 16 


26 


C582— 


C2557 


21430 




TF 


0MTM2 


iGM2F 
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0491C 


24 


C745- 


C365K 


21 4*0 




TF 


WA3 
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04442 


24 


C462S 


C7445 


21 450 


FNCNE2 


AM 


MA 3 


,2 




IKSERt ZERC FRCP CEC P7 TO 


04954 


1 1 


C4625 


-C002 


21 460 




80 


MEF OEC 
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.11, FIRST KCM ZERC 1 G IT CN RIGHT 


04946 


41 


C521E 


C442K 


21 470 




TF M 


WA) 


i?C 




• 610 


04976 


14 


C442K 


CCCPC 


214 80 




B 


FMCNE Z 








C499C 


49 


C4954 


CCCCC 
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OORG 
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TFM 


0MTM2 


t7C 
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16 


CT45— 


CCOPC 
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TF 
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C5C 1C 


26 


C7C16 


CS678 


21520 




TOM 


CMAR-2 


tC 




.11 


C5C22 


IS 


C4C96 


CCCC- 


21530 




8 


CLR7CS- 


12 






05034 


49 


C517C 


cooce 


21540 




OORG 


• -4 








0SC41 








21550 


WRTFPE 


TF 


DPTM2 


,DPG 
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0SC42 


24 


0745- 


C408M 


21560 




TR 


DPT 


,OPG 
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31 


C744K 
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21570 




B 


WEF CEC 








0SC46 


49 


C521E 


COOCC 


21580 




OORG 
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TF 
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26 
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C7C93 
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• *18 i 
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TF 
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TF 
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.TERM 




21630 




C 


CHAR 


,LCCO 




21640 




BNL 


CLR 70S 






21650 




A 


OPG 


.CHAR 2 




21660 




TR 


DPT 


.OPG . 


611 


21670 




TF 


CLR7CS*3C, 


»LAST 




21680 


CLR70S 


TF M 


• ♦35 


.MASK Fl 




21690 




A 


• ♦2 3 i 


.CHAR 2 




21 TCO 




TF 


TERM 




6 


21710 


tuEFOEC 


TFM 


OPT 


,C3 


610 


21720 




TF M 


LAST 


,CC , 


610 


21730 




a 


B SWF 






21740 




OORG 


• -4 






21750 


ERF8E 


T« 


DUC H*2l 


.FLZER5-5T 




21760 




TR 


GAM*1 


.MASK , 




21770 




TO 


GAM*e 


.FAC 




21780 




TO 


GAM *6 


.FAC-l 




21790 




TFM 


GAM*1 


• 491 . 


,9 


216CO 




BNF 


• ♦24 


• FAC 




21810 




TOM 


GAM*3 


,2 




21820 




TR 


OUO H*13 


.GM1M2F 


11 


21830 




TF 


DUO H*12 


.010 H*14 




21840 




TFM 


OUO HM4 


.03 1 


10 


21850 




TFM 


e i*2 


.67600 i 


1 t 


21860 




BNR 


• ♦2C 


. RhEFSt 




21870 




B7 


ER COM 2 






21880 




TF 


OA TOLD* 2 


,0ATINH*2 




21890 




TFM 


IORT 


,•♦23 




21900 




B 


IOPT 


.DATOUC-4 i 


,7 


2191C 




B 


ERC0M2 






21920 




OORG 


• -« 






21930 


MASK 


DSC 


10 


,45107C700« 






451C707CC* 






21940 


MASKEP 
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,MASK*l 




21950 


MASKF1 


OAC 
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OORG 


08CCC 
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38 
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36 
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B 


• ♦22 






22CCO 




OORG 


• -3 






22C10 


A1C 
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9 


•019545C09 








019545009 






22020 




OSA 


HTVPE*24 
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TR A 








22040 




TCO 


08CCC 
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OORG 
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SF 
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SETS EPRCR F 8 ERASES REC MARK 



590 
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24 


C61CC 
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46 
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21 
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31 


C744K 
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26 
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CS820 
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16 


C5217 
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05194 


21 
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26 


C7C9L 


CCCCC 
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16 


C744K 


COO-3 
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16 


C582- 


CCC-C 


05242 


49 


C5934 


CCOCC 
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05250 


31 


C2628 


C6454 
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31 


C2556 


C5445 


05274 


25 


C2563 


C2492 


05284 


25 


C2561 


C2491 
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16 


C2558 
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44 
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C2492 
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15 


C2556 
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05314 


31 
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05346 


26 
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C2621 
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16 


C2621 
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0537C 


16 


C2617 
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45 
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C6061 
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49 
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26 
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14 
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49 
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49 
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n 
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11 
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06C24 


49 
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5 
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36 
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49 
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32 
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C 7562 


FIZERS 


06511 


ATVPE 


04536 


F01 


05492 


ICCKS 


06916 


ATYPE I 


C4922 


FNCNE2 


0495* 


AIJ 


06 196 


FO 


C4U2 


ICCN4 


05*94 


BEF2SM 


C544C 


FXNINE 


04956 


81 


06044 


F0VR1 


C5572 


1CIG 


C67TC 


BREFSm 


C55C2 


GR1R2F 


03526 


82 


06044 


FOVR 


04116 


IF I K 


05114 


CLR70S 


C5182 


HTVP6 1 


05241 
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07574 




033C8 


IRS* 


CUTS 


CQPAOO 


C 22 3 I 


IFLOAT 


05126 


BETA 


02603 


Fit 


C7671 


IKH 


06179 


COPENO 


C6992 


IRINUS 


04982 


BSMF 


05934 


Fill 


C4422 


IN 


0*421 


COPPLT 


C70C6 


IF5APF 


03296 


CMAR2 


07016 


Fill 1 


C56C4 


ICCAL 


00714 


CORPS* 


C575C 


INCR36 


05346 


OAR 


06100 


Fill 


C421C 


ICCR 


07736 


DAFPON 


C5742 


IKCR6C 


05370 


CRR 


07745 


FIX 


C3854 


ICGT 


0C56A 


DALCNG 


C5734 


INPLLS 


06C53 


CIC 


0C816 


FXCCC 


C3379 


ICRT 


0C532 


DATCUO 


C616S 


IRBINK 


04962 


CPG 


06084 


FIOAT 


04C42 


IORBC 


0C520 


OATERR 


C6157 
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03303 


CRTR2 


C7450 


FLIER 


03760 


ICRT 


0C565 


OATINH 


C6173 


I TYPE I 
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07445 


FL2 


03353 
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CC554 


OCFPON 


C575C 


LCGOIG 


05C88 
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PRIM 


C3313 


IROIG 


04924 
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C3387 
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06574 
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C2687 
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03713 
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047S4 
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C2404 


PASKEP 


05446 


cuppy 
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FRF AC 


03492 


ITVPi 


04441 


OKCATA 


C33 7S 


PASKFl 


05457 


EE1P2 


04860 


FRON 


C7454 


K2 


01620 


EEXP22 


C49Ce 


HiTRI) 


06518 


EEXPP 
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C5460 
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C5066 
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EFALPH 
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EFCCP 


04624 
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05332 


EFCEC 
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03263 


LM 


02949 
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05186 
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C3444 
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03346 
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C5426 
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04626 
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C4558 
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C2323 
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FH 
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C2313 


RCFCHl 


04884 


EFRC2 


04654 


FX9 
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PASK 
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ENTCED 
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cs 


2. 
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REClG 


OS 


3, 


» RECCRC 
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3 


00230 
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OS 
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TC 
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5 
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ENTEXP 


OS 
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TC 
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OS 


5* 
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ACORESS 


TC 


SINGLE SUBSCRIPT SU6RCUT INE 
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5 
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ENTSC2 


OS 
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TC 
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OS 


5* 


♦ ENTRY 
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TC 
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2 


0028C 
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OS 
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ADDRESS 


TC 
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5 
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ENTREC 


OS 
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TC 


RECORD SUBRCUTINE 


02278 


2 
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ENTFET 


OS 


5, 


, ENTRY 


ACCRESS 


TC 


FETCH SUBRCUTINE 


C22B3 


5 


00310 


ENYSWC 


OS 


5* 


, ENTRY 


ACORESS 


TC 


SWITCH SUBRCUTINE 
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5 


00320 


ENTORR 


OS 


5, 


. ENTRY 


ADDRESS 


TC 


ARRAY SUBRCUTINE 


02293 


5 


00330 


ENTOEC 


OS 


5, 


♦ ENTRY 


ACORESS 


TC 


OISK ENC S16RCUT INE 


02298 


5 


00340 


ENTCCS 


OS 


5, 


t ENTRY 


ACORESS 


TC 


CCSINE SUBRCUTINE 


023C3 


5 


00350 


ENTS IN 


cs 


5. 


, ENTRY 


ACORESS 


TC 


SINE SUBRCUTINE 


C23C8 


5 


00340 


ENTATN 


OS 


5, 


, ENTRY 


ADDRESS 


TC 


ARCTANGENT SUBROUTINE 


02313 


« 


00370 


ENTSQT 


OS 


5» 


* ENTRY 


ADDRESS 


TC 


SQUARE RCCT SUBRCUTINE 


02318 


« 


00380 


ENTABS 


cs 


5» 


, ENTRY 


ADDRESS 


TC 


ABSCLUTE SUBRCUTINE 
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5 
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cs 


70 


, .RESERVED FCR ENTRIES TC ACCEC SUPRCUT INE S 
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7C 


004 CC 
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00410 


stop 
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9t 
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02395 
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STOP' 
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CS 
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C 
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CKBUFF 
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29 
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FAC 


OS 
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CC 
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OS 
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72 
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OS 
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3B 
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1 
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C2555 


C 


005 CC 


TAFE 


OS 
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C 


00510 
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OS 
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C 
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EI 
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C2615 


C 


00550 
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*C 






-OCCCOCCCCCCCCOCCCGCCCOCCCCCCCCGOOOCCCCC 
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02825 


1C 
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C2856 
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00670 


9SPF 


OS ' ,«-2 


0285* 


C 


0068C 


LN2 
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02887 


31 
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00690 
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02918 
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029*9 
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CC 31 9 23C2585C9299*0*568*017991*5*68* 
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3C 
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,Fl TENO-4 






04738 


43 


C4974 


02 860 




BO 


ER FB E 


,CHAR-2 






04730 


43 


CS226 


02870 




CM 


CKW 


,OCC ,9 






04762 


14 


C74S5 


02 8 80 




BNM 


F ZERO 








04774 


47 


C4974 


02 890 




C 


Ck w 


,HCTH 






04786 


24 


C7455 


029C0 




BM 


ER F 8 § 








04798 


46 


C5226 


C29 1C 




TF 


Char i 


,CHAR 






0481C 


26 


C7C 16 


02920 






CHAR 2 


,CHAR 






C4822 


21 


C7C16 


02930 




BNF 


WR TFPC 


,CH AR 






C4834 


44 


C5C5C 


02 94 




T F M 


• ♦35 


, CAM 






C4846 


16 


C4881 


0295Q 




A 


•♦23 


•CHAR 2 






04858 


21 


C4881 


02 96 




TF 


GAP 








04e7C 


26 


C2535 


02 9 7 C 




BNF 


WR fFPE 


,FAC 






04182 


44 


CSC18 


02 980 




TF 


LAST 


,CAM*2 ,6 






C4894 


26 


C582- 


02990 




TF 


DP TM2 


,GP2F ,611, 


SET SICK LEFT CF CEC 


PT 


049C6 


26 


C858J 


03CC0 




TF 


W A 3 


,DPT 






04918 


26 


04591 


030 10 


FNCNE I 


AM 


WA3 


• 2 t* 


INSERT ZERC FRCN CEC 


PT TC 


0493C 


11 


C4S31 


03020 




BO 


WFF OEC 


,hA3 ,11, 


FIRST KCK ZERO CIGIT 


Oft RIGHT 


04942 


4 3 


C5194 


03C 30 




TF M 


WA 3 


,7C ,610 






04954 


16 


C459J 


03C40 




B 


FNCNEZ 








04966 


49 


0493C 


03C50 




DORG 


• -4 








C4973 






03C60 


FZERC 


TFM 


DPTM2 


,7C ,610, 


F TYPE CUTPUT EQUALS 


ZERO 


04974 


16 


C858J 


03C70 




TP 


CHAR 2 


,LCC0 2 






04986 


26 


C7C16 


03C8C 




TOP 


CHAR-2 


,C ,11 






04998 


15 


C8719 


03C90 




B 


CLR7CS- 


12 






C5C1C 


49 


C5146 


03 ICO 




DORG 


• -4 








05017 






03110 


R T F P E 


TF 


0PTH2 


,DPG ,611 






05C18 


26 


C858J 


03120 




TR 


DPT 


,0PG ,611 






05C3C 


31 


0744K 


031 10 




B 


wEF CEC 








C5C42 


49 


C5194 


03 140 




OORG 


• -<. 








05049 






03150 


W-RTFPC 


TF 


• ♦ 3C 


, TERM 






05C5C 


26 


C5C8C 


03160 




S 


• ♦lfl 


, CH AR 2 






CSC62 


22 


CSC8C 


03170 




TF 




,GAM*2 






C5C74 


26 


CCCCC 


0318C 




TF 


CLR7CSOC.TERM 






05086 


26 


C5188 


03190 




C 


CHAR 


♦ LCCO 






05C98 


24 


C8721 


032C0 




BNL 


CLR 70S 








C511C 


46 


C51S8 


03210 




A 


OPG 


,CH AR 2 






05122 


21 


C6C84 


03220 




TR 


DPT 


,DPG ,611 






5134 


31 


C744K 


03230 




TF 


CIR7CSOCIAST 






05146 


26 


C5188 


03240 


CLR7CS 


TF f 


• ♦35 


.MASK F 






C51S8 


16 


C5193 


32 50 




A 


• ♦23 


, CH AR 2 






C517C 


21 


C5193 


03260 




TF 


TERM 


• ,6 




CH 1 


05182 


26 


C7C9L 



C8719 
C8721 
CI72C 
CB721 
CCCC2 
C2997 
C4C8P 
CCCCC 



C9429 
C3724 
C8719 

CC-CC 
CllCC 
C5799 
CllCC 
C8721 
C8721 
C8721 
-2555 
C7C16 
CCCCC 
C2492 
C2997 
C365K 
C7445 
-CCC2 
C499J 
CCCPC 
CCCCC 

COOPO 
C5678 

CCOC- 
CCCCC 

C608P 
C608P 

CCOCO 

C7C93 
C7C16 
C2937 
C7093 
CS68C 
C 13CC 
C7C16 
C608M 
C582C 
-5433 
C7C16 
CCCCC 



lfr/C- 1 44 3 MC M TCP I VfRSICK ? FCRTRAK I I - C SUBS SET 4 



03270 
03280 
03290 
033C0 
03310 
03320 
03330 
03340 
03350 
03360 
03370 
03380 
03390 
034C0 
03410 
03420 
03430 
0344C 
03450 
03460 
03470 
034BC 
03490 
035C0 

03510 
03520 

3 530 
03540 
03550 
03560 
03570 
03580 
03590 
036C0 
03610 
03620 
03630 
03640 
03650 
03660 
03670 
03680 
03690 
037C0 
03710 
03720 
03730 
03740 
03750 
03760 
03770 
03780 
03790 
03800 



TFM 
TF M 

B 

CORG 



DPT 
LAST 
BStaF 
• -<. 



,C3 
,CC 



,610 
,610 



ERF BE TR DUD H*2 1 ,FLZER5-57 



TR 

TD 

TO 

TFM 

BNF 

TOM 

TR 

TF 

TFM 

TFM 

BNR 

B7 

TF 

TFM 

B 

B 



G AM ♦ 1 , MASK 

G AM ♦ 8 ,FAC 
GAM^6 v FAC-l 
G AM ♦ 1 ,451 , 

•♦24 ,FAC 
GAMO ,2 
DUD HU3.GMIM2F , 
DUD H*12,0tC H«14 
DUD H*l4,03 * 
E 1*2 ,67800 , 

• ♦20 .RkEFSh 
ER CCM 2 

DAT0UD+2 »DAT I NH^2 
I OR T ,«*23 

IOPT ,0ATDUC-4 . 

ERCCM2 



MCVES E*OC ALPH AMER I C ALL Y 



SETS ERRCR F 8 ERASES REC MIRK 



MASKER 
MASKF 



MASK I 

I CON 6 



I CON 5 
IC0N3 



WACOl 

HMTALP 

RWA 

REPSW 
MATS* 
HEPS * 3 



LOCO 
L0CD2 



DSC 10 ,451070700* 
451C707CC 

OS ,MAS**l 

OAC 3l,0COO00CCCCO0OCOO00OOCOOO0OOCC0' 

COCC0OOCCCCCCCCCCC00CCC0CC0CO0• 

OS ,PASKF*39 

B EF ALPH , ,1 

OORG »-3 

B ETRD 2 • • 1 

OORG «-3 

B WRT 12 • ,1 
OORG »-3 
CS 20 

TFM MAX ,Q6C87 
B WRT ALP 
OORG *-3 

TFM MAX ,08087 
B WRT ALP 
OORG »-3 

TFM MAX ,26121 ,7, 

TO RWEFSW ,Rf CMK 
87 RMA 

TFM MAX • ICC 80 

TDM RWEFSW tl •• 
TF DAT INH*2 .MAX-3 
SF MAX- 2 
OS 2 t«-3 
OS 1 t»-2 tt 

OS 2 •• 
TFM tOCOOO 
TDM SMltl ,2 
OS 2 

OS 2 »»-3 



PRINT WITH SPACE SUPPRESS 



CCPPCK FCR EACH WRITE 



SET TC 1 WHEN MATRIX MAS CONTROL 



.711 

tlGC CF CECtPAL US SPEC IV FORMAT 
• TWICE ICC I 

&U2 



05194 


16 


C744K 


CCC-3 


C52C6 


16 


C582- 


coo-c 


05218 


49 


C5934 


ccocc 


C5225 








05226 


31 


C2628 


C6454 


05238 


31 


C2556 


C5421 


05250 


25 


C2563 


C2492 


05262 


25 


C2561 


C2491 


C5274 


16 


C2558 


CCP51 


C5286 


44 


C531C 


C2492 


05298 


15 


C255e 


CCCC2 


C531C 


31 


C262C 


C352C 


05322 


26 


C2619 


C2621 


05334 


16 


C2621 


CC0-3 


05346 


16 


C2617 


C78CC 


05358 


45 


C5378 


C6C61 


C537C 


49 


C7386 




05378 


26 


C6167 


C6175 


0539C 


16 


CC565 


-5413 


C54C2 


49 


CC532 


-6161 


C5414 


49 


C7386 


CCOCC 


05421 








05421 




IC 




C5422 




C 




05433 




31 


X 2 


C5472 




C 




05494 


4R 


C9614 


CCOCO 


055C2 








055C2 


4R 


C9C82 


CCCCC 


0551C 








05510 


4R 


10666 


CCOCC 


05518 








05537 




2C 




05538 


16 


C6914 


-6087 


05SS0 


49 


C5622 


COOCC 


05558 








05558 


16 


C6914 


-8087 


03570 


49 


C5622 


CCOCO 


05578 








03578 


1* 


C6914 


R6121 


0S59C 


29 


C6C61 


C24C9 


03602 


49 


C5434 




05610 


14 


C4914 


J0080 


03622 


19 


C4C61 


COOCl 


03634 


2* 


C6173 


C4911 


09*4* 


32 


C6912 


cceee 


03654 




2 




05633 




1 




03697 




2 




03658 


14 


C9437 


-cec- 


09870 


19 


0*043 


CC0C2 


09610 




2 




09*71 




2 





162C-1443 PCNITCR I VERSICN 2 f CRT* An II-C SU8S Sif 4 



PAGf 









PESCRtue ,679 


,9 


05662 


16 


C2615 


CCC74 


03820 






MAX2 


• IKH 




CS694 


16 


C 6) 149 


•4174 


0)1 30 




■ 


MAX2 


,PAX 




C57C6 


21 


C4145 


C6414 


03840 






MAX 2 


.PAX 




05718 


21 


C6145 


66414 


03 €50 








CCNTINCATICN CF RWA* AtSC USEC AFTER EACH CtTPLT 












****** 






RFCCRO ACT 


TERPINATEC EV CCPPtT PACRC 
















LAST 


.INH 




C57 3C 


16 


C992C 


•6174 






TOP 


COP PS* 


.-I 




09742 


15 


C975C 


CC0C4 


OilSO 


CCPPSw 


OS 




,•-3 


,-1 PRCHIBITS.O REQUIRES CUTPUT 


05750 




C 




039C0 




TR 


INH-1 


• ST2ERCH 




C5794 


31 


C6178 


C6424 


034 10 




TR 


INH+86 


tST/ERC 




C5766 


31 


C426S 


C8421 


03420 




TR 


INHM74 


,ST2ERC^20 




05 778 


31 


C6353 


C644I 


03930 




CM 


PAX-3 


,ce 


,10 


0579C 


14 


C64U 


CCC-8 


03940 


N ICTh 


OS 


3 


.•-2 


, NC. CF EFF. CIGITS IN FIELC 


C5749 




3 




03950 




BNL 


• ♦24 






C56C2 


46 


CS626 


C13CC 


03960 


RCTV 


rc t v 








05814 


34 


COCCC 


CC1C2 


03970 


L 45 T 


OS 


5 


,•-5 


, ACR CF RP IT E*T CF VARIABLE CUT REC 


0S62C 




5 




034R0 




BNE 


• ♦24 






C5626 


47 


C565C 


C12CC 


03990 




TF 


INHM74 


.FLZERS 


PUT IN RP FCR PIPER TAPE CUTPUT 


05838 


26 


C63S3 


C65U 


04CC0 




BO 


BSWF 


.RWEFSW 




05650 


49 


C5934 


C6C61 


04 C 10 


•MOO IT 


TFP 


IORT 


• •♦23 




05662 


16 


CCS6S 


-5969 


04C20 




B 


10GT 


.DITINH-4 


,7 


C5674 


49 


CC966 


•6164 


04C30 




CM 


MAX- 3 


,06 


,10 


C5686 


14 


C69U 


CCC-6 


04C40 




BNE 


• ♦24 




ALIGNS GCCF SWITCH FCR RATY 


05696 


47 


C5922 


C12CC 


04CS0 




8C4 


RCTV 






C591C 


46 


C9914 


CC4CC 


04C60 




TOP 


FLT ENO 


-5,2 




CS922 


19 


C3725 


CCCC2 


04C70 








CCNTROtS PCSITICN IN FCRPAT SPECS 










04C8C 


BSWF 


AM 


SWF 


t5 




05934 


11 


C9964 


-CCC9 


04C90 




TF 


• ♦18 


• SWF 


• U 


05946 


26 


C5964 


C546R 


04100 




B 


SWF 


t 


,6, PR TC ICR INCICATEC CY FCRPIT SPEC. 


05958 


44 


C596R 


CCCCC 


04110 


SWF 


OS 


5 






05969 




5 




04120 


RATY1 


TFP 


MAX 


,06087 




05970 


16 


C6914 


-6C67 


04130 




B 


RDALP 






05982 


49 


C6C22 


CCCCC 


04140 




CORG 


• -3 






0599C 








04150 


RAPT 1 


TFP 


PAX 


,C8C87 




0599C 


16 


C6914 


-6087 


04160 




B 


ROALP 






06CC2 


49 


C6C22 


CCCCC 


04 1 70 




DORG 


• -3 






06C1C 








04180 


RAC01 


TFP* 


MAX 


•ICC8C 




06C1C 


16 


C6414 


JC06C 


C4190 


RCALP 


TOP 


RWEFSW 


» 




06C22 


15 


C6C61 


COOCC 


042C0 




B 


RWA 






06C34 


49 


C9634 


CCCCC 


04210 




OORG 


•-4 






06C41 








04 220 




S«L IS A 


TRINARY SWITCH USEC TC ERINCH TC THE PRCPER SOURCE 










04230 




10 OBTAIN 


THE LOCITICN THAT GCES WITH THE FCRPAT PACRC 










04240 


•••••• 


BEING PERFCRPED 


ee fcr cejtCT prcgrip 










04250 










NCP FCR RECC CCNTRCL 










04260 










6 FCR PITRIX CCMRCL 










04270 


Shi 


NOP 


MATRX 2 






06C42 


41 


C66C2 


CCCCC 


04280 


INPLUS 


OS 


5 


• • 


, NCRKtKC PCSITICN CF I/C RECORC 


06C53 




5 




04290 




TOP 


SWL*l 


,9 


PATRIX CCNTRCL SETS SWL TO 49 


06C54 


15 


C6C43 


CCCC9 


043C0 


RkFFSW 


CS 


1 


t**4 


, I FCR WRT, C FCR RC, FLIC FCR E 


C6C61 




I 




043 10 


W I0TH2 


OS 


3 






06064 




3 




04320 




BD 


SWCM2 


,PITSW 




06C66 


43 


C61C2 


CS655 


04330 




NOP 








C6C78 


41 


CCCCC 


CCCCC 






OS 


5 


,•-* 


, TEPP ICR CF CEC PT IN CAPPA 


C6C84 




5 




04150 


ICC 


OS 


5 


• • 


,, CCRE LCCATICN TC Bl USEC 


06089 




■ 




04360 








AFTER ICC ADR CBTAINEC 8R TC PRCPER PACRO 




































162C-1443 PCM TCP I 


VERSICN 2 FCRTRIN I I-C SUES SIT 4 








PAGE 


04370 


SWC 


TOP 


SWL + i 


,2 




C6C9C 


15 


C6C43 


CCCC2 


04380 




BO 


• ♦20 


.RWEFSW 


,, ER IF WRITING 


C6102 


43 


C6122 


C6C61 






B 


SWC AOJ 


t 


,6 


06114 


49 


C6 i 5 M 


CCCCC 


044C0 




DORG 


• -4 






C6121 








04410 




TDP 


COPPSW 




,, SET TC RECUIRE CUTPUT 


C6122 


15 


C575C 


CCCCC 






CF 


LOC 






06134 


33 


C6C69 


CCCCC 


04430 


PAX2 


OS 


5 




, TWICE PAXIPUP CHAR FCR OUTPUT 


06145 




5 








B 








06 146 


.49 


CCCCC 


CCCCC 


04450 


SWCAOJ 


OS 




,•-5 


,, RETURN ICC CF PACRC IN CONTROL 


C6152 




C 




C4460 




DORG 


• -4 






06153 










CATERR 


OSA 


DUOH 






























26C7 




04480 




OC 
J8« 


3 


• 18» 




06160 








04490 


C ATOUC 


CSA 


DUOH 


































04 5C0 




OC 
-0* 


3 


• CC* 




C6168 




26C^ 




04510 


CAT INf" 


CSA 


INH 






C6173 




K 


' 1 














C6173 




-6174 




04520 




CC 
-0' 


1 


,CC« 




C6176 




3 




04530 




CC 


I 


,9 




C6177 




1 




04540 


ENCFOR 


R 

OAC 


l,C 






C6179 




I 


X 2 


04550 


INH 


C 

OS 




•EKOFCR 




06179 




C 




04560 




OS 


242 






06421 




242 




04 570 


IN 


CS 


244 


•INM*242 




C6421 




244 




0458C 


STZIRC 


OC 


2 


• OC 




06423 




2 




04590 




-0 
CO 




f 


•C246810 


06424 


-c 


•0-C- 


C-C-C 






00 




• 


•C24A810 








C—C— 6 


04810 




00 




• 


•0246810 


06448 


-0 


-c-c- 


e-»>.o 


04620 




00 




• 


•0246810 


06460 


-C 


-C-C- 


C-C-C 


04610 




CO 




• 


•0246810 


06472 


-c 


-C-C- 


C-C-C 


04640 




CO 




• 


,C24*810 


06484 


-c 


•c-c- 


C-C-6 


04680 




CO 




• 


.C246810 


06496 


-C 


-C-C- 


c-o-c 


04660 




OC 


2 


• OC 




C65C9 




2 




04670 


H2ERS 


-0 
OC 
» • 


2 


.0* 




06511 




2 




04660 




OS 


5 






06514 




5 




046 tO 


MATAI* 


TOP 


NATSN 


• 1 


•• PACRC TC PRCCESS PITRICIES 


04511 


19 


C9499 


CCCC1 


047C0 




TOM 


SML*l 


• 9 




06930 


15 


C4049 


CCCC4 


04710 




TP 


L0CA0J 


•M2 




04942 


24 


C4974 


C1464 


04720 




BNF 


MATAX2- 


12,P*TR|X-1 




04994 


44 


C494C 


C4S17 


047 10 




TFP 


tOC AO J 


• OC 


• 10 


04946 


14 


C4974 


CCC-C 


04740 


LOCACJ 


OS 


2 


• •-1 


•• AC JUST LCC PCR MATRIX 


04974 




2 




047SO 




s 


LOCAOJ 


• « 




04979 


22 


C4974 


C2221 


04740 




s 


MATRIX- 


t ,LCCACJ 




06940 


22 


C4I17 


€4974 


04770 


MATRX2 


A 


MATAIX- 


t .tCCAOJ 


•• RETURN FRCP SMI* EACH MATRIX flfMNT 


044C2 


11 


C4917 


C4574 


04700 




TP 


toc 


,PATRIX-1 


,, PCVI AC JUST IC LOCATION 


04414 


24 


C6C64 


C4917 



Co'. 



16?*-1441 "fMTfN » vvpff> ? r *h ,J-C SUBS it T * 







SM 




i 






C66 26 


12 


C3 378 


CCC-i 


0*rCC 




BNE 


• ♦24 








C66 38 


4 7 


C6662 


C12CC 


0*9 10 




TON 


MATS*. , 









06650 


15 


C5655 


COOCC 


0462C 




BNL 


SWCU2 








06662 


46 


C61C2 


C13CC 


04830 




BB 








06674 


42 


CCCCC 


CCCCC 


04840 




CQRG 


• -9 








06676 








0*850 




MACRO FOR AN I/O CARRIAGE 


RETURN CURING A FORMAT STATEMENT 










04660 


SLASH 


TOM 


CCMENO^ I • 


q 






06676 


15 


C6993 


CCCC9 


04870 




BO 


SLASH2 i 


, R WE F 5 w 


• • 


PR IF WRITING 


06688 


43 


C67CE 


C6061 


04880 




B 


COMENC 








C6 7CC 


49 


C6992 


CCCCC 


0489C 




CORC 


• -4 








06707 








04900 


SL ASH2 


BO 


I OCR i 


iCCMP SW 


• • 


BR TC IC CR IF CUTFUT RECORO CLANK 


06708 


43 


07446 


C575C 


04 <J 10 




CM 


DATINM>2 i 


, C6 


* 1 o 




06720 


14 


C6175 


CCC-6 


04 920 




8h 


WR I TE i 




• * 


eR IF NCT TYPEWRITER OUTPUT 


C6732 


46 


C6816 


CI ICC 


0493C 




TF 


LAST , 


iFIZERS 






06744 


26 


C582- 


C65U 


04940 




SM 


LAST , 


i C2 


* I 1 


ERASE CLANKS FRCM ENC CF I/O RECORD 


06756 


12 


CS82C 


CCC-2 


04S 




CH 


L &ST ( 


, CC 


,6 I c 




06768 


14 


CS82- 


CCC-C 


041 tO 




BF 


• -36 








0678C 


46 


C6744 


C12CC 


04970 




CK 


LAST , 


i I NH 






06792 


14 


C582C 


-6179 


04980 




BL 


COM E NO 








06804 


47 


C6992 


C13CC 


04990 


WRITE 


BNR 


WRITE1 , 


,RWEFSw 






06816 


45 


C6944 


C6Q61 


05CCO 




TFM 
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C6C53 


-CCC2 


07250 




B 


HRD 






08962 


*9 


C8902 


CCCCC 


07260 




OORG 


• -* 






08969 








07270 


HURT 


SM 


WIDTH 2 


.2 




0897C 


12 


C6C6* 


C00-2 


07280 




TDM 


COMPSW 


,0 




08982 


15 


C575C 


CCOCC 


Q7290 




BL 


BSWF 


» 




0899* 


*7 


C593* 


C13CC 


07300 




AM 


SWF 


.2 




C9CC6 


11 


C596S 


-CCC2 


07310 




TF 


INPLUS 


,SWF 


.611 


09C18 


26 


C605L 


C596R 


07320 




AM 


INPLLS 


,2 




09C3C 


11 


C6C53 


-CCC2 


07330 




B 


H WRT 






09C*2 


*9 


C897C 


CCCCC 


073*0 




CORG 


• -* 






09C*9 








07350 


EFRD1 


CF 


LOC 






09050 


33 


C6C89 


CCOCC 


07360 




TF 


F IXENO* 


6 ,1 CON 5*6 




09C62 


26 


C3686 


C55C8 


07370 




B 


FIX 






09C7* 


*9 


C385* 


CCCCC 


07380 




DORG 


• -* 






09C81 








07390 


EFRD2 


TOM 


FIXEND*1 ,2 




09082 


15 


C368 1 


CC0C2 


07*00 




TFL 


LOC 


,FAC 


.6 


09C9* 


C6 


C6C8R 


C2492 


07*10 




B 


ER F7 






091C6 


49 


1057C 


CCCCC 


07*20 




DORG 


• -* 






09113 








07*30 








MAC RC FCR A 


TYPE REAC ANC WRITE 










07**0 


ATVPEl 


TF 


WIDTH2 


,SWF 


.11 


0911* 


26 


C6C6* 


C596R 


07*50 




TF 


INPLLS 


• LAST 




09126 


26 


C6C53 


C562C 


07*60 




A 


LAST 


.WIDTH 2 




09138 


21 


C582C 


C6G64 


07*70 




C 


LAST 


• MAX 2 




09150 


2* 


C582C 


C61*5 


07*80 




BH 


ER F9 






09162 


*6 


C731C 


CI ICC 


07*90 




TF 


TERM 


.LAST 




0917* 


26 


C7C93 


C582C 


C75C0 




SM 


TERM 


.2 




C9186 


12 


C7C93 


-C0C2 








SWC ADJ 


.WRITE A 




09198 


16 


C6 152 


-9458 


07520 




BD 


SWL 


,RW EF SW 




0921C 


43 


C6C*2 


C6061 


07 5 30 




TF M 


SWC ADJ 


.READ A 




09222 


16 


C6152 


-92*2 


075*0 




B 


SWL 






0923* 


*9 


C6C*2 


CCOCC 


07550 




OORG 


• -* 






092*1 








07560 


RE ADA 


CF 


INPLLS 




.6 


092*2 


33 


C6C5L 


CCCCC 


07570 




AM 


INPLLS 


. 1 


• 10 


0925* 


11 


C6C53 


CCC-l 


07580 




C 


INPLLS 


,TERH 


P. it (i 


09266 


2* 


C6C53 


C7093 








16?0-1**3 MCMTCR I 


VERSICK 2 FCRTRAN II-C SUBS SET * 








PAGE 


075<3C 




BL 


READ A 






C9278 


*7 


C92*2 


C13CC 


076C0 




BNF 


RDAFL 


.LCC 




0929C 


** 


C9*C2 


C6089 


076 10 




CF 


LOC 






093C2 


33 


C6C89 


CCOCO 


07620 




TF 


LOC 


,FX2 


.6 


0931* 


26 


C6C8R 


C2815 


07630 




S 


WIDTK 2 


*K 




09326 


22 


C6C6* 


C2221 


076*0 


W OA 


BH 


ERF 7A 






C9338 


*6 


C93e2 


C I ICC 


07650 




A 


LOC 


.WIDTH 2 




09350 


21 


C6C89 


C606* 


07660 




TF 


LOC 


.TERM 


.611 


09362 


26 


C6C8R 


C7C9L 


07670 




B 


ER F7 






0937* 


*9 


IC57C 


CCCCC 


07680 




OORG 








C9381 








07690 


ERF7A 


TOM 


EI 


.7 


.11. SET ER F7 ERROR INC ANC SWITCH 


09382 


15 


C2615 


CCOCP 


077CO 




B 


ER F7 






0939* 


*9 


1C57C 


CCCCC 


07710 




DORG 


• -* 






C9*C1 








07 720 


RCAFL 


TFM 


LOC 


,0C 


.610 


09*C2 


16 


C6C8R 


CCO-C 


07730 




SM 


LOC 


.2 


.10 


09*1* 


12 


C6C89 


C00-2 


077*0 




TF 


LOC 


i PL Z 


• 611 


09*26 


26 


C6C8R 


C335L 


07750 




s 


WIDTH ? 


• F 




09*38 


22 


C6C6* 


C2219 


07760 




B 


RD A 






09*50 


*9 


C933C 


CCCCC 


07770 




CORG 


• -* 






09*57 








07780 


WRITE A 


TF 


F AC 


. LCC 


• 11 


09*58 


26 


C2*92 


C608R 


07790 




BNF 


WA FX 


,FAC-l 




09*7C 


** 


C957C 


C2491 


078C0 




SM 


LOC 


.2 




09*82 


12 


C6C89 


-CCC2 


07B10 




s 


WIDTH 2 


»F 




09*9* 


22 


C6C6* 


C2219 


07820 


WKTA 


BH 


WRT A 2 






09506 


*6 


C955C 


C11CC 


07830 




A 


LOC 


.WIDTH 2 




09518 


21 


C6C89 


C606* 


078*0 




TF 


TERM 


.LCC 


.611 


09530 


26 


C7C9L 


C608R 


07850 




B 


BSWF 






095*2 


*9 


C593* 


COOCC 


07860 




OORG 


• -* 






095*9 








07870 


WRTA2 


SM 


WIDTH 2 


.02 


• 10 


0955C 


12 


C6C6* 


CCC-2 


07880 




B 


WRTA 






C9562 


*9 


C95C6 


CCOCC 


07 8 90 




OORG 


• -* 






09569 








079C0 


WAFX 


S 


WIOTF 2 


»K 




0957C 


22 


C6C6* 


C2221 


07910 




B 


WRT A 






09582 


*9 


C95C6 


CCOCC 


07920 




OORG 


• -* 






09589 








07930, •••••• 






E AND F TYPE MANTISSA WRITING. FLOAT ARC IF RfQ. 










079*0 


•••••• 






COMPUTE OEC 


PT IN GAM ARC CUTPUT RECORD. MOVE 










07950 








MANTISSA DIGIT BY DIGIT. RIGHT TO LEFT. FROM FAC 










07 960 


•••••• 






TO GAM. INSERT SIGN, CHECK WICTH, A*C 21 RC* 










07970 


«••••• 






BR TC WRT F 


FOR F TYPE CONTINUATION 










07980 


EFMW1 


TFL 


F AC 


• LCC 


• 11 


09590 


C6 


C2492 


C6C8R 


07 990 




BNF 


FLOAT 


•FAC-1 




09602 


** 


04042 


C2491 


080CO 


EFALPH 


TDM 


FLTEND- 


S .2 




0961* 


15 


C3725 


CC002 


08C10 




TF 


DPT 


• TERM 




09626 


26 


07445 


C7C93 


08C20 




S 


OPT 


•LCC 2 




09638 


22 


07449 


CS678 


08C30 




TFM 


OPG 


• GAM 




096 SO 


16 


C6C8* 


•2595 


080*0 




S 


DPG 


•LOC 2 




09662 


22 


C6C84 


C967I 


08C50 




TF 


DPTM2 


• OF? 




0967* 


26 


C8581 


C7449 


08C60 




SM 


DPTM2 


• 2 




09686 


12 


08911 


-CCC2 


08070 


EFALP 


SM 


WA 2 


• 1 




09698 


12 


07392 


-COCl 


08C80 




TO 


WA 


.WA2 


• 611 


09710 


25 


C724J 


C739K 


08C90 




CF 


WA 


• 


• 6 


09722 


33 


0724J 


COOCC 


081C0 




SM 


HA 


• 2 




0973* 


12 


07241 


-C0C2 


08110 




C 


WA2 


•FM IMF 




09766 


24 


07392 


cms 


08120 




BH 


EF ALP 






09798 


44 


C969I 


01100 


08110 




TFM 


MA 


• OC 


• M0 Clu 


09770 


16 


07I4J 


CCO-C 


08140 




BNF 


EF CHKS 


•FAC-2 




09712 


44 


C9906 


C2490 



162C-1443 PCN|TCR 1 VERSION 2 FORTRAN I |-C $U6S SIT 4 



PAGE 



08150 




TFM 


MA 


• 2C 


t 6 10 


09794 


16 


0724J 


CCOKC 


08U0 


EFCHKS 


TF ¥ 


CRM 


iCCC 


,9 


C98C6 


16 


C7455 


CC-CC 


00170 




A 


CKM 


♦ LCCD 




09818 


21 


C7455 


C540C 


08180 




A 


CKM 


i F AC 




098 3C 


2 1 


C7455 


C2492 


08190 




TF 


CHAR 


tCKte 




09042 


26 


CB 721 


C7499 


082C0 




S 


CHAR 


iF 




09094 


22 


C8721 


C2219 


08210 




c 


WIDTH 


iLCC C 




09066 


24 


C5799 


C960C 


08220 




8L 


E R F8 F 






09076 


4 7 


C9226 


C 1 3CC 


0R23C 




CM 


F AC 


,-7C 


♦ 10 


09890 


| 4 


£2492 


CCCP— 


08240 




BNF 


• ♦2C 


.RWFFSh 




99C 2 




C9922 


C6C6 1 


08250 




B7 


• ♦?C 






n«« It 


40 


reel* 




082(0 




BL 


• ♦24 






09922 


47 




C 1 3C0 


08270 




90 


• ♦36 


,FNH 


♦ 11 


nec^A 


♦•3 


C99 7C 


C331L 


08280 




TOM 


FL TEND- 4 


i- I 






1 5 


C3 726 


CCOC J 


08290 




TF *• 


Char 


,-C99 


,9 


09950 


16 


C072 1 


CC-9R 


08 3C0 




8N F 


MR TF 


.RMCFS* 




0997C 


44 


C4 726 


C606 1 


08 310 








MRITE E TYPE. ASSEMBLE EXP IN GAP I S INC A MASK, 










08 320 








THE CHAR AND SIGN. PCVE LEFT CAP AN C RIGHT GAP TC 










08 3 30 








CUTPLT. THEN GC TC INSERT CECIPAL PC. INT 










08 340 


MRTE 


s 


M I TH 


»F 






~f 






08 3 50 




BN L 


MR T E 2 




♦ , ER IF F NCT LARGER THAN EFF * ICTH 


09994 


46 


C4622 


C 1 3CC 


08 3 60 




BO 




.FLTENC-4 




1 CCC6 


4 3 


10C42 


C3726 








Char 


iM ICTH 




ICC 18 


22 


C0721 


C5799 


08 38C 




BO 


ERF BE 


.CHAR-2 




1 CC 3C 


4 3 


C5226 


C0719 


08 390 




TF ¥ 


• ♦4 7 


.GAP 




1 0C42 


16 


1CC09 


-2555 


nl! A^n 






• ♦3 5 


♦MICTH 




ICC54 


2 1 


IOC09 


C5 799 










♦MICTH 




1CC66 


2 1 


1CC69 


C5799 








r am 






10C78 


26 


C2595 


CCOCC 














10C9C 


49 


C4622 


c c c c c 






nnor 


• -4 






1CC97 
















PACRC FCR I 


TYPE REAC ANC MRITE 


















,SWF 


,11 


10C98 


26 


C6C64 


C596R 






* 


1 ACT 


» M I C TH 2 




1CI IC 


21 


C582C 


C6C64 








LAST 


♦ PA*2 




10122 


24 


C582C 


C6 145 


na on 




BH 


ER F9 






1C 1 34 


46 


C73 IC 


C 1 ICC 


085C0 




TF 


INPLUS 


♦ LAST 




10146 


26 


C6C53 


C902O 


08510 






IR 0IG*6 


♦ FAC 




1C 198 


16 


IC4C8 


-2492 






TFM 


SMC AOJ 


♦ kiRITE 1 




1 1 7C 


16 


C6 152 


-447C 


n»^4n 




BO 


SML 


♦ R hFF S M 




1C 182 


4 3 


C6C42 


C606 1 


na« in 




TF 


TERM 


♦ FPIMK 




10194 


26 


07C93 


C3203 






TF 


F AC 


♦ F X 2 




1C2C6 


26 


C2492 


C2015 


na« n 




TFM 


SMC AOJ 


♦ R E A I 




1 C2 18 


16 


C6 1 52 


JC51C 






CHAR BV CHAR IS PCVED 


INTC F AC ♦ R IG*" T JUST IFIECUNT IL S I CM 














OR M CHAR 


ARE EXAPINEC. 














ERROR F7 It I LI CCCLR IF MCRE THAN K CHAR ARE AVAIL TC REAC 










n»*rn 




SM 


MI0TH2 


♦ 2 


♦ 10 


1 C2 3C 


1 2 


C6C 64 


CCC-2 


086 10 




BL 


SML 






1 C 242 


4 7 


C6C42 


C 1 3CC 


08620 




SM 


INPLLS 


♦ 2 




10254 


12 


C6C53 


-C0C2 


08630 




BNR 


•♦20 


♦INPLUS 


»ll» CHECK FCR INPUT RECCRC PARK 


1C266 


45 


1C286 


C6C5L 


08640 




B7 


ERRF7 I 






1C278 


49 


IC47E 




08650 




CM 


INPLLS 


♦ 7C 


♦ 61C 


1C286 


14 


C6C5L 


CCOPC 


08660 




BH 


IR CIG 






1C298 


46 


1C4C2 


CHOC 


08670 




BE 


IR BLNK 






1C31C 


46 


1C43E 


C12CC 


08680 




CM 


INPLLS 


,cc 


.610 


10322 


14 


C6C5L 


CCC-C 


08690 




HE 


IR BLNK 




G J 1 


10334 


46 


IC438 


C12CC 


087CC 




CM 


INPLLS 


♦ 2C 


♦ 610 


10346 


14 


C605L 


CCOKO 








162C-1443 MCMTCP I 


VERSICN 2 FCRTRAN . I I — C SUeS SET 4 








PAGE 


087 10 




BE 


I MINUS 






1C358 


46 


1C458 


C 12CC 


08 7 2C 




CM 


INPLLS 


♦ ic 


♦ 610 


10370 


14 


C6C5L 


CCO JC 


08 7 30 




BE 


SML 






10382 


46 


C6C42 


C12CC 


OH 7*0 




B 


ERR F7I 






10394 


49 


1C478 


CCCCC 


08 7 50 




DORG 


• -4 






1C401 








08 760 


IRC I G 


TO 




, INPLUS 


.11 


1C4C2 


25 


COCCC 


C605L 


08 7 70 




C 


• -6 


♦ TERM 




10414 


24 


104C8 


C7C93 


C8 780 




BL 


ERR F7 I 






10426 


47 


1047E 


C13CC 


C8790 


IRPLNK 


SM 


IR 0IG*6 


♦ I 




10438 


12 


104CE 


-COC 1 


088C0 




B 


I READ 






10450 


49 


1C23C 


COOCC 


088 10 




OORG 


• -4 






10457 








08820 


IP f NUS 


SF 


FAC 






1C458 


32 


C2492 


CCCCC 


08830 




B 


SML 






1047C 


49 


C6C42 


CCCCC 


08 84C 




OORG 


• -4 






10477 








08850 


ERRF 7 I 


TF 


FAC 


,FXZ 


«. SET FIXED ZERC INTC FAC 


10476 


26 


C2492 


C2815 


08860 




TFP 


EI 


♦ 677 


,911. SET ERRCR F7 INDICATION 


1C49C 


16 


C26 1 5 


CCC7P 


08870 




B 


SML 






1C5C2 


49 


C6C42 


CCOCC 


0888C 




OORG 


• -4 






1C5C9 








00890 


HEAD I 


SF 


FP1MK 




.6 


1C5 1C 


32 


C326L 


CCCCC 


C89C0 




TF 


FL T END 


,ICCN 2*6 




1C522 


26 


C373C 


1C6C0 


089 10 




BNF 


FLCAT 


,ICC 




1C534 


44 


C4C42 


C6089 


08920 




CF 


LOC 






1C546 


33 


C6C09 


CCOCC 


08930 


MbAOIF 


TFL 


LOC 


♦ FAC 


• 6 


10996 


C6 


C6C0R 


C2492 


08940 


EHF7 


BNF 


BSMF- 12 


♦ El 


IR IF NCT ERRCR TYPE F7 


1C97C 


44 


C9922 


C261 5 


08950 




CF 


EI 




,, ERASE ERRCR FT INDICATION 


1C982 


33 


C26 1 5 


CCOCC 


08960 




B 


ER CCP 2 






1C 594 


49 


07386 


CCOCC 


08970 




DORG 


• -4 






1C6C I 








08980 


ICON2 


B 


READ IF 


♦ 


,1 


1C6C2 


4R 


1C95I 


CCOCC 


08990 




CORG 


• -4 






106C9 








09CC0 






RETURN FRCP 


Shi VIA SMC IF WRITING I TYPE 










OVC 10 






VALUE PUT IN 


FAC IN I FCRP.EXPANCEC TC ALPHA IN 










09C20 






GAMMA RIGHT 


TC LEFT. HC CONTAINS ACR CF HIGH CRCER 










09C30 






OIGIT IN GAP 


. AFTER VALUE IN GAP IS S IGNEC ♦CHECK EC 










09C40 






FOR MOTH » PCVE TC CUTPIT RICCRC. 










09C50 






ERF8I RESULTS IF VALUE TCC LARGE FCR FORMAT SPECS* 










09C40 


MR I T 1 I 


TF M 


MA2 


•FAC* I 




1C61C 


16 


C7392 


-2493 


09C70 




TFl 


FAC 


,LCC 


.11 


1C622 


C6 


C2492 


C6C0R 


09C80 




BNF 


MRTI2M2 


•FAC-l 




10634 


44 


10676 


C249 1 


09C90 




TF 


F|XEND*6 


»ICCN3*6 




1C646 


26 


C3406 


C5516 


09100 




B 


FIX 






1C690 


49 


03B94 


CCCCC 


09110 




OORG 


•-4 






1C645 








09120 


MKT 12 


TOP 


FIXEND*! 


• 2 




10666 


19 


C3461 


CCOC 2 


091 10 




TR 


GAM- 19 


tPASK I 




10676 


3 1 


C2936 


C9472 


09140 




TFM 


HO 


•GAP*l 




1C69C 


16 


1C70 1 


•2996 


09190 


MRT I 


SM 


MA 2 


• 1 




107C2 


12 


C7392 


-C001 


09140 




SM 


MA 


• 2 




10714 


12 


C7241 


-C0C2 


09170 




TO 


MA 


♦ WA 2 


• 611 


10724 


29 


0724 J 


C739K 


09180 




BO 


I DIG 


• •A 2 


• 11 


10738 


43 


10790 


C739K 


09190 




B 


I 0IG*12 






10790 


49 


IC77C 


COOCC 


092C0 




OORG 


• ~4 






10797 








09210 


ICIG 


TF 


MO 


,hA 




10798 


2* 


10711 


C7241 


09220 




CF 


GAM 


• 


t, PREVENTS PREMATURE TERP.FCR NEC ARC 


1077C 


33 


C2999 


CCOCC 


09230 


HC 


OS 


5 


• • 


, ACR CF MI CRCER NCN ZERO CICIT 


10701 




9 




09240 




BNF 


MRTI 




• U 


10702 


44 


107C2 


C724J 


09290 




CM 


MO 


• CAPM 




10794 


14 


10711 


-2S94 


092*0 




8NE 


MRT SGN 




6)2 


1C0C6 


47 


10111 


C12CC 









162C-1441 


MCNITCR 


1 VERSION 2 PCRTRAN I I-C SUIS SET 


4 








f ACE 


09270 




TF* 


LAST 


i7CC0 


• 68 






10018 


16 


C5I2- 


CPCCC 


09280 




B 


BStaF 










10830 


49 


C5934 


CCCCC 


09290 




OORG 


•-4 










1C837 








093C0 


MRTSGN 


BNF 


URT 1) 


.FAC 








10838 


44 


10674 


C2492 


09310 




SM 


MO 


.2 








1C830 


12 


10781 


-CCC2 


09 320 




TFM 


HO 


i2C 


• 610 






1C842 


16 


1C76J 


CCCRC 


09330 


wRT 1 3 


SM 


MO 


tl 








1C874 


12 


1C781 


-CCCl 


093*0 




TF* 


OUT 


.GAP 








10886 


16 


IC945 


-2555 


09350 




S 


OUT 


,HC 








10898 


22 


1C94S 


10761 


09360 




c 


OUT 


.kICTH 2 








1C91C 


24 


10945 


C4044 


09370 




BH 


6R F8 I 










1C922 


46 


UCC2 


CUCC 


09 380 




SF 


OUT 










10934 


32 


1C94S 


ccocc 


09390 


OLT 


OS 


5 


.• 


. HI 


LKUCff hKO <it" Ift IfL KBtOMD* I 


TYPE 


1C94S 




5 




094CO 
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49 


C3676 


CCCCC 


053C0 




CORG 


• -3 










C4796 








05310 


FXTR1 


C 


ICCMK 


.FAC 


• 6 






C4796 


29 


C329L 


C2492 


C5320 




B 


F XC 1 ♦ 1 2 










C48C8 


49 


C4726 


CCCCC 


C5330 




OORG 


• -* 










C4815 








053*0 


RSGNl 


BNF 


• ♦26 


»FAC2 


f » 


FLOATING PCINT NUMBER 




04816 


44 


04842 


C249C 


05350 




CF 


FAC-2 


















05360 




BB 












C464C 


42 


CCCCC 


CCCCC 


05370 




CORG 


• -9 










04842 








05380 




SF 


FAC- 2 










C4842 


32 


C249C 


CCCCC 






BB 












C4854 


42 


COCCC 


COOCC 


05*C0 




OORG 


• -9 






03 i 




C48S6 














1 62 C- 1*4 3 


MCMTCR 


I VERSICK 2 FCRTRAK 1 l-C SUBS SET 


1 


144 PCS 






PAGE 


05*10 




BNF 


• ♦26 


.FAC 




FIXED PCINT NUPBER 




C4B56 


44 


04882 


C2492 


C5*20 




CF 


FAC 










04868 


33 


C2492 


CCCCC 


05*30 




BB 












0488C 


42 


CCCCC 


CCCCC 


05**0 




CORC 


• -9 










C4B82 








05*50 




SF 


FAC 










04882 


32 


C2492 


CCCCC 


05*60 




BB 












04894 


42 


CCCCC 


CCCCC 


C5*70 




OORG 


• -9 










04896 








05*80 


FSBl 


TF 


FAC-1 


.FSB-l 








04896 


26 


C4C89 


C4C65 


05490 




B 


FACl 










C49CB 


49 


C4516 


CCCCC 


055CC 




CORC 


• -3 










04916 








05510 


F*n 


TF 


BETA 


.FAC-l 


.11. 


MCVE EXPCNENT 




04916 


26 


C26C3 


C4C8R 


05520 




SM 


FAC-l 


.2 


• 10 






C4928 


12 


C4C89 


CCC-2 


05530 




TF 


BE TA-2 


• 9SPF 




CLEAR BE TA-2 TC F*l ZIRQS. 




C494C 


26 


C26C1 


C2854 


055*0 




A 


BE TA-2 


.FAC-1 


III. 


ACC CR SUBT. MANTISSA 




04952 


21 


C26C1 


C4C8R 


05550 




TF 


SAVE 


.FAC 


• • 


MCVE EXPCNENT • 




04964 


26 


C2565 


C2452 


05560 




TF 


FAC- 1 


tFAC-2 


t • 


RIGHT SHIFT CNE CICIT. 




04976 


26 


C2491 


C249C 


05570 




CF 


FH 


t 


• 6, 


CLEAR FLAG CN HIGH CRCER CICIT. 


C4988 


33 


C33CC 


COOCC 


05580 




tom 


FNH 


.0 


• 611. 


SET NEXT HIGH CIGIT TC FLAG ZERO. 


C5CC0 


15 


033 1 L 


CCCC- 


05590 




C 


BETA 


• SAVE 


» • 


COMPARE EXPCNENTS, 




C5C12 


24 


C26C3 


C2565 


056C0 




BNH 


• ♦fl* 


• 


: • • 


BRANCH IF NC EXCHANGE CF CPERANCS 


C5C24 


47 


C51C8 


CUCC 


05610 




TF 


SAVgr2 


.FAC-l 


• • 


EXCHANGE MANTISSAS. 




C5C36 


26 


C2S63 


C2491 


C5620 




TF 


F AC- 1 


.BE TA-2 








05C48 


26 


C2491 


C26C1 


C5630 




TF 


BE TA-2 


•SAVE-2 








05C60 


26 


C26C1 


C2563 


056*0 




TF 




.SAVE 


• • 


EXCHANGE EXPCNENTS. 




05C72 


26 


C4C96 


C2565 


05650 




TF 


SAVE 


.BETA 








C5084 


26 


C2565 


C26C3 


05660 




TF 


BETA 


.FAC^B 








05C96 


26 


C26C3 


C4C58 


05670 




TFM 


400*11 


.BETA-2 


» • 


SET UP ACORESS 




05108 


16 


C5215 


-26CI 


05680 




S 


BETA 


.SAVE 




SUBTRACT EXPCNENTS 




05120 


22 


C24C3 


C256S 


05690 




8V 


NOACC 




* t 


NO OPERATION IF OVERFLOW. 




C5132 


46 


C54C4 


C14C0 


057C0 




A 


ADfHll 


• BETA 




MCCIFV ACCRESS FOR SHIFT. 




05144 


21 


C5215 


C26C3 


05710 




A 


BETA 


»F 


t * 


ACC F TC BETA 




05156 


21 


C26C3 


C2219 


05720 




BNH 


NOAOC 




M 


NC CP IF FX CIF NCT LESS THAN 


F 


C5168 


47 


C54C4 


C11CC 


05730 




BNF 


AOO 


!bEIA-2 


• » 






05180 


44 


CS204 


C26C1 


05740 




SF 


AOC*U 




.6, 


SET SIGN CF OPERANT. 




05192 


32 


C521N 


CCCCC 


05750 


ACC 


A 


FAC-l 


t 


t • 






05204 


21 


C2491 


CCCCC 


05760 




BZ 


ZERFAC+12 




• t 


BRANCH IF ZERO RESULT 




05216 


46 


C3S96 


C12CC 


05770 




TOP 


UNFLCki-1 


u 








05228 


IS 


C5371 


CC0C2 


05780 




TDM 


OVFLCNrl 


• 1 








092*0 


IS 


01651 


CC0C1 


05790 


NORM 


TO 


99 


• FAC-^l 


» t 


STCRE SIGN CF RESULT 




09252 


25 


CCC9S 


C2441 


05IC0 


CF 


FAC-1 










0926* 


33 


02*51 


CCCCC 


05810 




BO 


LVl 


,FNH 


.11. 






09276 


43 


03616 


C331L 


05120 




TR 


FNM 


• FH 


• 611 • 


LEFT SHIFT ONCE 




09211 


31 


C131L 


C33CC 


09830 




TOM 


FAC-1 


• 


» • 


SET LAST DIGIT TC ZERO. 




053C0 


15 


C2*91 


CCCCC 


058*0 




SF 


FNH 




• 6, 






09312 


32 


C111L 


CCCCC 


05150 




80 


FINISH 


Ifnh 


.611, 


TEST LEACIN6 ZERO 




0932* 


41 


0180L 


C33U 


09160 




SM 


SAVE 


. 1 


.10, 


SUIT CNE FROM EXPCNENT. 




09136 


12 


02965 


CCC-1 


098T0 




BNV 


N0RMO6 










093*8 


47 


C9288 


C14CC 


09180 




TFMS 


EI 


• 572 


,9, 


SET UP ERRCR CCOf E2. 




09180 


16 


C2619 


CCN72 


05890 


UNFLOW 


TFM 


FAC 


•-99 


♦ 10, 






09372 


14 


02492 


COORR 


059CO 




TF 


FAC-2 


•9SPF-1 


• • 


SET RESULT TO ZERC. 




09184 


24 


C244C 


02193 


05910 




B 


ERROR 










09198 


49 


03476 


CCOCC 


09920 




D0R6 


•-* 










09401 








09930 


NCAOO 




FM 


t 


.6 






09404 


12 


031CG 


coooc 


059*0 


TR 


FNH 


• FH 


• 611 






0941* 


11 


03311 


C33CC 


05950 




TF 


FAC 


• SAVE 








09*28 


24 


C2492 


C2969 


05960 




BB 








C32 




09440 


42 


CCCCC 


CCOCC 









1620-1443 


PCM TCR 


VERSICN 2 FCRTRAN | I-C SUBS SET 1 144 


POS 






PAGE 






OORG 


• - 9 








05442 








O590C 




CF 


F AC-2 








05442 


3 3 


C249C 


CCCCC 


05990 






F A0~ 1 


» F S8R- 1 


f f 


SET LP ICC 


5454 


26 


04C89 


04113 


06 COO 




B 


F AC 






BRANCH TC FLOATING PCINT ACC 


05466 


49 


C4C9C 


CCOCC 


06 C 1 




OORG 


• -3 








05474 












SF 


FAC-2 








054T4 


32 


C249C 


CCOCC 


06C 30 




B 


F SBR 1 ♦ 1 2 








05406 


49 


C5454 


CCOCC 


060 AO 




OORG 


■•—4 








05493 










PI 


SM 


FMP- I 


1 2 


. 10. 


SU0T. TkC FRCP ACCRESS. 


05494 


12 


C4137 


CCC-2 


06C60 




LO 


7 9 


i ZERO- 1C 




CLEAR AREA FCR PRCCUCT. 


05SC6 


26 


CC07S 


C2757 


06C70 






FAC-2 


.FPP-1 


. 1 1 • 


PULTIPIV TtaC PANTISSAS. 


05510 


23 


C249C 


C413P 


06C80 




BZ 


ZERFAC 








05530 


46 


C3584 


C12CC 


06C90 




A 


SAVE 


,FAC 




ACC EXPCNENTS. 


05542 


21 


C2565 


C2492 


06 1C0 




IF 


F AC- I 


iHKC 


»lli 


PCVE f*i CIGITS CF PRCCUCT* 


05554 


26 


C2491 


C333C 


06110 




TOW 


UNFlCfc- 1 


t 4 




<ft hp frrti rrrs aa 

jC 1 U r C^^l** 1 LIVE C^. 


055*6 


15 


C5371 


C00C4 


06 1 20 


FPFAX I 


BNV 


NORM* 72 


i 






05570 


47 


C5324 


C14CC 


06130 




BNF 


• ♦20 


,FAC 




TEST SIGN CF EXPONENT. 


0559C 


44 


C561C 


C2492 


06 140 




B 


UNFLCN-12 


f 


' * 


UNCERFLCH 


056C2 


49 


C536C 


CCCCC 


06 150 




OORG 


• -4 








05609 








06 160 




TOP 


OVFlCh- 1 


.3 




SET UP ERRCR CCOE E3. 


0561C 


15 


03651 


CC0C3 


06170 




BH 


OVFLCK-12 


• 




CVERFLCb. 


05622 


46 


C364C 


C11CC 


06 1 00 




TFM 


SAVE 


t99 


.10. 


SET EXPCNENT TC 99* 


05634 


16 


C2565 


CCCR9 


06 190 




B 


NORM*24 


• 




NORMAL IZE. 


05646 


49 


C5276 


COOOO 


062C0 




OORG 


• -4 








05653 








062 10 


FC I 


TF 


SAVE 


#F AC 




SAVE EXPCNENT CF FAC. 


05654 


26 


C2S65 


C2492 


06220 




SM 


FO- 1 


t2 


. 10 1 


SUBTRACT TtoC FRCP ACCRESS. 


05666 


12 


C4161 


CCC-2 


06230 




TF 


79 


.ZERO-9 


V 


CLEAR AREA FOR QUOTIENT 


05670 


26 


C0079 


C2750 


06240 




LO 


POT 


.FAC-2 






05690 


20 


C333L 


C249C 


06250 







POT 


tFC-1 


.611 




057C2 


29 


C333L 


C416J 


06260 




f OK 


OVFLC*- 1 


.7 




SET UF ERRCR CCCE E7 FCR CIVISCR. 


05714 


15 


C3651 


CC0C7 


06270 




BV 


OVFLCfa-12 


i 




CIVICEC BV ZERC. 


05726 


46 


0364C 


01400 


06200 




TF 


FAC-l 


tPCT 


.11. 


PCVE CICTIENT. 


05730 


26 


C2491 


C333L 


06290 




TO 


99 


.FAC-l 




STCRE SIGN CIGIT. 


0575C 


25 


C0C99 


C2491 


063C0 




BZ 


ZERFAC* 12 


* 




ZERC CLCTIENT. 


05762 


46 


03596 


C12CC 


06 310 


SE 


SM 


SAVE 


♦ 


. 10 » 


SUBTRACT EXPONENTS* 


05774 


12 


C2565 


COO-C 


06320 




TOP* 


OVFLOh-l 


,5 


' * 


<tFf up Fairs rrn* f i - 


05706 


15 


C36S1 


CCCC5 


06330 




BNV 


N0RP«24 








05798 


47 


C5276 


C14CC 


06340 




BNF 


OVFLCfc- 12 


.F AC 




OVERFLCW IF RESULT IS PC SIT I V € - 


C581C 


44 


C364C 


C2492 


06350 




TDP 


UNFLCh- 1 




* * 


SET UP ERRCR CCOE E6. 


05822 


15 


C5371 


Q0006 


06360 




BN 


UNFlCta- 12 


• 




UNCERFLCM IF RESULT NEGATIVE* 


05834 


47 


C536C 


C13CC 


06370 




TFP 


SAVE 


,-99 


.10. 


SET EXPONENT TC -99* 


05846 


16 


C2565 


CCCRR 


06380 




B 


NORP* 72 


* 


' * 


NCRPAL IZE. 


05858 


49 


C5324 


CCOCC 


C6390 




OORG 


• -4 








05065 








064CO 


FCVR I 


TF 


SE ♦ 1 1 


.F AC 






05866 


26 


C5705 


C2492 


064 10 




SM 


FOVR-1 


.2 


.10. 




05870 


12 


C4185 


CCO-2 


06420 




TF 


79 


, ZERO-9 




CLEAR AREA FCR CUCTIENT. 


05890 


26 


C0079 


C2750 


06430 




LO 


POT 


♦FCVR-l 


.611 




05902 


28 


C333L 


C410N 


06440 







POT 


.FAC-2 






05914 


29 


0333L 


C249C 


06450 




TO 


F AC 


. SAVE 




KEEP SIGN CF CIVICENC EXPCNEN T • 


C5926 


25 


C2492 


C2S65 


06460 




B 


FOl+lC 








05938 


49 


C57 14 


CCOCC 


064 70 




CORG 


*-4 








05945 








O640C 


F I X I 1 


AM 


IPSA 


.CC 


.10. 


IS I « ZERC 


05946 


11 


C2575 


CCC-C 


0649C 




BN2 


• ♦26 








05958 


47 


C5904 


C12CC 


065CC 




TF 


F AC , 


FXl 




YES, J««l - CKE 


05970 


26 


C2492 


C2025 


06510 




BB 








G33 


05902 


42 


CCCCC 


CCCCC 


06520 




OORG 


•-9 






05904 









162C-1443 PCNITCR I VERSICK 2 FCRTRAN I I-C SUBS SET 1 144 PCS 



0653O 




AM 


FAC 


,cc 


.1C, 


IS J » ZERC 


06540 




BNZ 


PSl-12 








C655C 




BNF 


• -26 


.IPSA 


. . 


YES. IS I PCSITIVE 


06560 




TFP 


E I 


,771 


,9. 


NC. ERR Gl. ZERC TC PINUS I PC*ER 


065 70 


FXNIN 


TFP 


FXERR»3C 


.FIXENC- 


12*. 


SET UP ERRCR EXIT 


06580 




TF 


FAC 


,FX9 




FAC * FX9 


06590 




B 


FXERR 








066C0 




CORG 


• -4 








0661C 




TOP 


OOOREV»l 


, I 






06620 


PSI 


CF 


MU-l 






SET SIGN PCSITIVE 


06630 




SF 


(MSA-l 








06640 




MM 


IPSA 


.C5 


.IC 




06650 




CF 


IPSA-l 








06660 




80 


• ♦20 


.99 






06670 




B 


• ♦32 






I EVEN 


06680 




CORG 


• -4 








C6690 




BNF 


• ♦36 


.FAC 




I CCO 


067C0 




SF 


MU-l 






J KEG, SET SIGN NEGATIVE 


06710 




CF 


FAC 








06720 


CCCREV 


NOP 


AXJ 








06730 




C 


FAC 


.FXl 






06 740 




BE 


MU 






J « ♦ CR - CNE 


06750 




BNF 


• ♦56 


'.IPSA 




IS I PCSITIVE 


06760 




TFP 


EI 


.772 


.9 . 


NC. ERR G2. J TC PINUS I POWER 


06770 




TF 


FAC 


,FXZ 




FAC * FXZ 


06780 




TFP 


FXERR+30 


,FI XENC- 


12,, 


SET UP ERRCR EXIT 


06790 




B 


FXERR 








066C0 




CORG 


•-4 








068 1C 




TF 


BETA 


• FAC 




STCRE J 


06020 




SM 


I MSA 


,01 


lie. 


1 * l-l 


06030 




BZ 


MU 








O604C 




N 


FAC 


• BETA 






C605O 




SF 


10CPK 




• 6 




06060 




TF 


FAC 


,99 






06070 




AM 


99MK 


,0C 


.610. 


TEST OVFL 


06000 




BZ 


•-72 








06890 




TFP 


EI 


.773 


,9, 


ERR G3. CVFL IN FIXI 


069C0 




TOM 


F XERR+25 


.1 


* , 


SET UP SIGN 


06910 




B 


FXNIN+12 








06920 




OORG 


•-4 








06930 


FAXII 


AM 


I MSA 


,0C 


• 10, 


IS 1 ZERC 


06940 




BNZ 


• ♦30 








06950 


ONEFAC 


TFM 


FAC 


.01 


• 10, 


VfS 


06960 




TF 


FAC-2 


.CNEZ 




FAC • FIT FT ONE 


06970 




BB 










06900 




OORG 


•-9 








06990 




BO 


• ♦44 


,FNH 


♦ 11. 


IS A ZERC 


07CC0 




BNF 


• -14 


.IPSA 




VfS, IS 1 NEGATIVE 


07010 




TFP 


EI 


,774 


,9, 


YES, ERR G4, ZERO TC MINUS 1 


07020 




8 


MANTP 








07C30 




OORG 


•-4 








07C40 




TF 


SAVE 


,FAC 


» . 


STORE CHAR 


07050 




TO 


FAC 


,FAC-2 




CCNVERT A TC F*2 FCRM 


07060 




CF 


FAC-2 








07C70 




TOM 


FAC-l 


• 




SfT UP if TURN 03 4 


07000 




TOM 


0D0REV>1 


,9 


• • 



05984 


11 


C2492 


COO-C 


05996 


47 


C6C64 


C12CC 


Cfccce 


44 


C5982 


C2575 


06C20 


16 


C2615 


CCP71 


06C32 


16 


037C6 


-3740 


C6C44 


26 


C2492 


C20C5 


C6C56 


49 


C3676 


CCCCC 


C6C63 








06C64 


15 


C6181 


C0001 


06C76 


33 


C3711 


CCCCC 


C6C68 


32 


C2574 


CCCCC 


C61C0 


13 


C2575 


CCO-5 


06112 


33 


C2574 


CCCCC 


C6124 


43 


C6144 


CCC99 


06136 


49 


C616e 


CCCCC 


06143 








06144 


44 


C618C 


C2492 


06156 


32 


C3711 


CCCCC 


06168 


33 


C2492 


CCOCC 


0618C 


41 


C6562 


CCCCC 


06192 


24 


C2492 


C2025 


06204 


46 


C3712 


C12CC 


06216 


44 


C6272 


C2575 


06228 


16 


C2615 


CCP72 


06240 


26 


C2492 


C2015 


06252 


16 


037C6 


-3748 


06264 


49 


C3676 


CCCCC 


06271 








06272 


26 


C26C3 


C2492 


06284 


12 


C2575 


CCC-l 


06296 


46 


C3712 


C12CC 


06308 


23 


C2492 


C26C3 


06320 


32 


C329L 


CCCCC 


06332 


26 


C2492 


CCC99 


06344 


11 


C328Q 


CCC-C 


06356 


46 


C6204 


C1200 


06360 


16 


C261S 


CCP73 


O630C 


15 


C37CI 


CCCC1 


06392 


49 


C6C44 


CCCCC 


06399 








06400 


11 


C2575 


CCC-C 


06412 


47 


C645C 


C12CC 


06424 


16 


C2492 


CCC-l 


06436 


26 


C249C 


C3O30 


06440 


42 


CCCCC 


CCCCC 


06450 








06450 


43 


C6494 


C331L 


06462 


44 


06440 


C2575 


06474 


16 


C261S 


CCF74 


06486 


49 


07146 


CCCCC 


06493 








06494 


26 


C2565 


C2492 


06506 


25 


C2492 


C2490 


06510 


33 


C244C 


CCCCC 


06530 


IS 


C2491 


ccooe 


06542 


15 


06101 


00OC9 









1620-1443 PCM ICR 


I VERSICk 2 FC8TRAN ll-C SUBS 


SET 1 


144 


POS 






FACE 


07C90 




6 


P S I 


• 


• » 


SIT UP SIGN AT PU-1 






0*594 


49 


C6C76 


CCCCC 


071C0 




DORG 


• -4 












06561 








0T11C 


AXJ 


TOP* 


F AC 


• 










06362 


15 


C2492 


CCCCC 


07120 




TF* 


NOR** 54 


tMC 


• » 


SET UF F*2 NCRFAL IZ AT ICN 






06S74 


16 


C53C6 


-2492 


071J0 




TF* 


ERROR* I 


*49 


♦ 1C, 


SET UP RETURN CN ERRCR 






06586 


16 


C36TT 


CCCP9 


071*0 




TO* 


F IN ISM* 2 


1 9)' 










06591 


13 


C38C! 


CC0C9 


07150 




TF* 


F INI SM* 7 


•FINISH 


• 71 1 








06610 


16 


C381C 


-J8CL 


07160 




BNF 


N001V 


• IPSA 


• • 


IS 1 NEGATIVE 






06622 


44 


C677C 


C2575 


07170 




CF 


IMSA 


• 


• • 


YES 






C6634 


33 


C2373 


CCCCC 


O710C 




TF 


79 


•ZERC-3S 


• • 
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• 610 




05218 


16 


C744K 


CCC-3 



1620- 1443 PCMTCR I VERSICK 2 FCRTRAlA I l-C StIS SET 1 144 POS 



2254C 
22550 
22560 
22570 
22580 
22590 
22600 
22610 
22620 
22630 
22640 
22650 
22660 
22670 
22680 
22690 
227C0 
22710 
22720 
22730 
22740 
22750 

22760 
22770 

22780 
22790 
228C0 
22810 
22820 
22830 

22840 



22860 



TFP LAST 
B BSfcF 
OORG •-« 



Dur H*21,FlfERS-57 
•PASK , 

• F AC 
•FAC-l 

• 451 , 
,FAC 
.2 

HM3.GP1H2F . 
HM2, DL'C M14 



ERF8E T« 

TR GAP*1 

TO GAP+8 

TO GAP^6 

TFH GAM* 3 

BNF •♦2*. 

TDP GAPM 

TR DUO 

TF DUD 

TFP DUD H+14,03 

TFP El*2 ,67800 

BNR •♦20 ,RhEFSk 

87 ER CCP 2 

TF DAT0L0+2 ,0ATINH^2 

TFP IORT »*^23 

B IOPT •0AT0UC-4 ,7 

B ERCCP2 

CQRG »-4 

PASK OSC 10 •451070700* 

4S1C707CC 
PASKEP CS .PASKM 

PASKF1 OAC 3UCC0O0COOCOO0CCOOOOOOOO0OCO0CCO* 
OOOCOOOCOCOOOOOOCCOOCOOOOOOOOO • 

OORG O8C0C 

•0C702 
•0CT03 



PCVES E^OC AlPHAPM ICALLV 



SETS ERRCR F 8 ERASES REC MARK 



38 A1C 
36 AlC 
B •♦22 
OORG *-3 

CSC 9 ( 019551CC9 

C195510C9 

OSA HTVPE+24 



TRA 

TCO 08CCC 



22ETC 

22880 FPON 

22890 

229C0 

22910 

22920 

22930 

22940 

22930 

22460 

22470 ARGOLT 
22980 BAS 

22990 
23CC0 
23C10 

23020 RETARG 



OORG 

SF 

TFP 

TFP 

AM 

SM 

BNZ 

A 

IP 

SM 

TF 

TP 

SF 

TFM 

• 

fPM 



• 8 

• 1 



STARTOO90C 
FM0N*9 

RETURN+6 • START 
BASM1 *Fll-8 
BASM1 
FMCN*8 
•-24 

RETURN+6 v FPCN«ll 
ARGQUT*i l»Rf TURfc*6 
ARGOUTHltl 
RETARG+l ttOtPMV 
MBASE tOtPPV 
MBASE-2 

IORT ••♦21 
IOGT ,POATA 
ARGCUT^ll,CUPPV 



• 10 

• 10 



966 



05230 


16 


C582- 


CCC-C 


05242 


49 


C5934 


CCCCC 


05249 








0525C 


31 


C262E 


C6454 


05262 


31 


C2556 


C5445 


05274 


25 


C2563 


C2492 


05286 


25 


C2S61 


C2491 


05298 


16 


C2538 


CCP51 


0531C 


44 


C5334 


C2492 


05322 


15 


C2558 


CCCC2 


05334 


31 


C262C 


C354L 


05346 


26 


C2619 


C2621 


C5358 


16 


C2621 


000-3 


0537C 


16 


C2617 


C78CC 


05382 


45 


C54C2 


C6061 


C5394 


49 


C7386 




054C2 


26 


C6167 


C6175 


05414 


16 


CC565 


-5437 


05426 


49 


C0532 


-6161 


05438 


49 


C7386 


CCCCC 


05445 








05445 




1C 




05446 




C 




05457 




31 


X 2 


08CCC 








08CCC 


38 


C8C32 


CC7C2 


08C12 


36 


C8032 


00703 


08C24 


49 


C8C46 


CCOCC 


08C32 








08C32 




9 




08C45 




3 


» 1 


08C45 




-4626 




08046 


36 


COOCC 


CC3C0 


08CSB 


49 


COCCC 


CCCCC 


08CCC 








07734 








07734 


32 


C7761 


CCCCC 


07766 


16 


C794C 


-3851 


0777B 


16 


07883 


-79*1 


07790 


11 


C7885 


coo-e 


078C2 


12 


C7762 


CCC-l 


07814 


47 


C779C 


C12CC 


07824 


21 


0794C 


C7769 


07838 


26 


07171 


C744C 


07830 


12 


C7I71 


-C0C1 


07842 


26 


C7933 


94999 


07874 


24 


CT917 


49999 


07884 


12 


07993 


00000 


0789B 


1* 


costs 


-7921 


07910 


49 


C0346 


-7941 


07922 


14 


07B7L 


99999 



1620-14*1 PCMTCR I VERSICN 2 FCRTRA* 1I-C Sff I 144 POS 



PAGE 48 



23C30 


RETURN 


B 




07 S3 


49 


CCCCC 


CCCCC 


29C40 




CORC 


• "4 


07941 








23C50 


PDA? A 


CSC 


2 ,02 


01941 




2 








02 












23C60 




OSA 


MBASE-P 


07547 




c 


X 1 










07947 




-79*9 




23C70 




CC 
i 


lt» 


07948 




1 




23C8C 




CSC 

c 


1 »C 


079*9 




1 




23C90 


••BASE 


cs 


8 


07957 




e 




231C0 




OSA 


FIX 


07962 




K 


X 1 










07962 




-3854 




23U0 




CC 


1 t» 


C7963 




1 




2S120 


Fit 


CC 


8,CCCCCC36 


07971 




8 








-0CCC036 










23130 




CC 


8.CCC36C36 


07979 




8 








-0C36036 










23140 




CC 


8,cccaeci6 


C7987 




8 








-0C36016 










23150 




OC 


R.CCC75C14 


C7995 




8 








-OC75016 










23U0 




CC 


8»CCC91C17 


cecc3 




e 








-0C91017 










23170 




CC 


8.CCICRC1C 


oecu 




e 








-oicioic 










2318C 




CC 


8iCCi 18C16 


C8C19 




e 








-0118016 










23190 




CC 


8.CC134C17 


08C27 




8 








-0134017 










232C0 




CC 


8.CC151CC9 


08C35 




e 








-0151009 










23210 




CORC 


06CCC 


OfcCCC 








23220 




34 


82 ,CC70l 


CfcCCC 


3* 


C6C44 


CC7C1 






38 


82 .CC702 


C6C 1 2 


18 


C6C44 


CC7C2 


2324C 




36 


82 .0C70J 


06024 


36 


C6C44 


CC7C3 


2325C 




B 


• ♦22 


C6C36 


49 


C6C5E 


CCCCC 


23260 




CORG 


• -3 


06C44 








2327C 


82 


CSC 


9 ,C16«35C04 


C6C44 




9 








C16E350C4 










232*C 




DSA 


FPCN-«>6 


C6C57 




5 


X 1 










C6C57 




-7698 




2329C 




TRA 




06C58 


36 


CCCCC 


CC5CC 










06C7C 


49 


CCCCC 


CCCCC 


233C0 




TCC 


06CCC 


C6CCC 








233 10 




CENL 




OCCCC 













162C-1443 PCM ICR 


! VERS1CN 2 


FCRIRAN 


ii-c sees 


SET 1 144 PCS 




PAGE 49 


ARGCUT 


C7862 


FPFAXI 


05578 


AXJ 


C6562 


FCVR1 


C5866 


ICIG 


04 794 


ATVPF1 


C4946 


FNCNEJ 


04954 


PI 


C6C44 


FCVR 


C4186 


IF IX 


05138 


BEF2SW 


C544C 


FXKINE 


04764 


e2 


C6C44 


Fh 


C33C8 


IFtaRT 


04658 


RREFSV. 


C55C6 


GP1M2F 


C3543 


eAs 


07874 


Fit 


C7971 


IPSA 


C2575 


CLR7CS 


C5182 


HTYPE1 


05248 


BETA 


026C3 


FIXU 


05946 


INH 


07453 


COPAtD 


C2231 


IFtOAI 


05150 


BSHF 


05934 


F IX | 


C421C 


IN 


07745 


COPENO 


C6996 


I P 1 NLS 


04982 


CHAR2 


C7016 


FIX 


C3854 


ICCAt 


00716 


COPPtT 


C70C6 


IPSAPF 


03298 


CMR 


C610C 


FKCCO 


C1427 


ICCR 


C6972 


CCPPS* 


C575C 


INCR36 


05370 


CKH 


C6981 


FtOAT 


C4C42 


1CGT 


0CS66 


AFPDN 


C5646 


IKCR6C 


05394 


CIC 


0C816 


Ft I 


03353 


ICPT 


CC532 


OALCNG 


C5638 


INPLl'S 


C6C53 


CPC 


06084 


FPlPF 


C3313 


ICR8C 


0C520 


DATCUO 


C6165 


IRPtNK 


04962 


CPTP2 


07450 


FP1 


C3625 


ICPT 


CC565 


OAT ERR 


C6157 


ISPFP1 


03303 


CPT 


C7445 


FPFAC 


C3452 


ICSX 


0C554 


OAT INH 


C6173 


ITYPE1 


04622 


CUCK 


C2607 


FWCN 


C7754 


IRCIG 


04926 


DCFPON 


C5654 


LCGOIG 


05C88 


cue 


02687 


FKP1 


C5494 


I READ 


04754 


niCLCA 


C3387 


LCCACJ 


06574 


CUPPY 


99999 


FHP 


C4138 


1 TYPE 


C4448 


DKHLFF 


C24C4 


PASKEP 


05446 


EEXP2 


04860 


FN»*P1 


C3558 


K2 


03648 


CKCATA 


03379 


HASKF1 


05457 


EEXPP 


04988 


FNF 


03313 


K 


02221 


EE XP22 


C49C8 


MATRIX 


06518 


EEXP 


05000 


FP1MK 


C3283 


t AST 


05820 


EEXPAC 


C5068 


HATRX2 


066C2 


EF2S* 


C4425 


FP2 


C36C5 


IMC 


C298C 


E F At PH 


C4674 


PESERP 


02607 


EFAtP 


C4T58 


F 


02219 


tN2 


02887 


FFO-KS 


C4866 


PCNCAt 


00796 


EFCCP 


04624 


FS81 


04896 


tN4 


02918 


EFENT2 


C53C4 


CCCSET 


05518 


EFCEC 


05120 


FS8R1 


C5442 


tK6 


02949 


frFLCAT 


C519P 


CCCRFV 


06180 


EFC1G 


C5188 


FSBR 


C4114 


tNENT 


C3369 


FFPttS 


C466E 


CNEFAC 


06424 


EFENC 


C5272 


FSB 


C4C66 


tOC02 


05678 


FFTERP 


C524e 


CVFtC* 


036 52 


EFFIX 


04734 


FTVPE 


04558 


tcco 


05680 


ef type 


C468C 


PfiCNTR 


06916 


FFPIN 


04656 


FX1 


C2825 


tec 


06C89 


ENCFCR 


C7453 


PRCGST 


C2226 


FFPW1 


04626 


FX9 


C28C5 


tCGE 


C3C1C 


FN0R36 


C543C 


RACOIT 


05862 


EFPW 


C4514 


FXA1 


04622 


tvi 


03616 


ENGR60 


C5454 


RCFCH1 


04884 


EFRC1 


04622 


FX A 


03878 


P14 


0697C 


ENTA8S 


C2323 


RFADEF 


04492 


EFRC2 


04654 


FX01 


C4714 


PANTP 


07146 


ENTATN 


C2313 


RFADIF 


05C82 


EFWRT 


C5084 


FXCR1 


C4796 


PASXF 


C5473 


ENTCOS 


C23C3 


REPSW3 


05657 


El 


C2615 


FXCR 


03998 


PASKI 


05351 


FNTCEO 


02298 


RETARG 


07922 


ENCC 


03768 


FID 


03974 


PASK 


05445 


FNTfcRR 


C2293 


RETURN 


07934 


EftUN 


02248 


FXERR 


C3676 


PATSh 


05655 


FN I EXP 


C2253 


RtaEFSh 


06C61 


ERF 7 A 


C5214 


FX* 


C3283 


PAX2 


C6145 


ENTFFT 


C228 3 


ICOPK 


03293 


ERF7 


C5118 


FXP1 


04688 


PAX 


06922 


FNTFIO 


C2273 


102PF 


03343 


ERF7S 


C4702 


FXP 


C395C 


PBASE 


07957 


FNTREC 


C2278 


2FMI 


03429 


ERF8E 


05250 


FXKIN 


C6C32 


PCATA 


07941 


ENTSC1 


C2258 


96PF 


03318 


ERF81 


05038 


FXSR1 


04636 


PFCV2 


03746 


ENTSC2 


C2263 


9TP2F 


03363 


ERF9 


07 310 


FXSR 


03926 


PF 


03473 


FNTSC3 


0226e 


97P.F 


03323 


ERRET 


CC602 


FXS 


039C2 


PU 


C3712 


ENTSIN 


C23C8 


98KF 


03328 


ERRCR 


03676 


FXZ 


02815 


M 


C2233 


FN r SOT 


C2318 


99PK 


03288 


ETVPE 


04580 


FZfRC 


04948 


N2 


02238 


ENTSWO 


C2288 


9SCPF 


02793 


EXP 


04809 


CAR 


02959 


K0A00 


05404 


ERCC*2 


07386 


4SPF 


02854 


F2 


03661 


GEM 


07C94 


NCCIV 


C4770 


ERF8ES 


C495C 


A10 


08C32 


F AC 


02492 


CR2F 


03739 


NCRP 


C5252 


FRRF7E 


05396 


Al 


0IC48 


FA01 


04916 


' KMC 


03338 


OC03 


06178 


FRRF7I 


05002 


A3 


09C32 


F AO 


04090 


HO 


04817 


C004 


06294 


EXPENT 


03373 


AS 


01032 


Miei 


07062 


HRC 


09428 


CCC6 


06334 


FINOIN 


€3603 


A6 


08032 


FAXB 


04298 


MVPE 


04602 


OltlR 


07310 


FINISH 


C3803 


A7 


0IC32 


FAXII 


06400 


KURT 


09380 


ONE! 


03C38 


FIXEMO 


C376C 


A8 


08C32 


FAX I 


04234 


icon 2 


09438 


OUT 


04901 


FLTENO 


038IC 


A9 


01032 


FCHN8 


04974 


ICONS 


09342 


P44CI 


06269 


Ft 2 At P 


03348 


ADO 


01204 


FC1 


05494 


IC0M9 


04938 


P44C2 


06214 








•» ♦ * ■» « 




£'.!€> 


3 ICCN6 


09491 


P44C 


C6210 





1620- 1**1 


PCNI ICR 


1 VERSICN 2 


FORTRAN 


ll-C SUIS SEf 1 


1*6 POS 




PAGE 


50 




C63C2 


RCFCH 


0*152 


SIX 


03219 


HAS 


0*625 


M 


022*0 


PAR 


C3J78 


REAOA 


05C7* 


SLASH 


0C674 


MACC1 


05610 


XTVPC 


C739* 


PC F 


C3333 


Rf AOI 


05C1* 


SCS 


06918 


MACD 


0*330 


2ERC 


02767 


P I0V2 


03163 


RECLC 


022*3 


START 


03191 


MAM 


096C2 


SLASH! 


04708 


P ICV* 


C 31 9 1 


RfC*K 


02*03 


SIC* 


02399 


MAPT1 


C5598 


ST2ERC 


C6423 


P 1 


C11 33 


RFDCA 


07C70 


SMC 


06090 


MART 


043C6 


SMCAOJ 


C6152 


PR A I 


C$578 


REDO 


07026 


SNF 


099*9 


MA 


072*1 


UKFLCM 


09372 


PR A 


C*35* 


REFSM 


0*620 


SKI 


060*2 


MATY 1 


05538 


MEFOEC 


09218 


PRKEV 


C6927 


REP 2 


07191 


f AFE 


02999 


MATY 


C*282 


MICTM2 


04C64 


PSI 


C6076 


REP3 


07230 


TAN6 


03268 


MICTH 


C5799 


KRITEl 


06940 


RAC01 


C601C 


Rf P 


07126 


TEN3* 


03278 


MR ITE 


06816 


MRITEA 


09290 


RACO 


0*426 


REPS* 


0565* 


TERP 


07093 


MI1A2 


C5382 


MRITEI 


04470 


RAPT I 


C599C 


RSGM 


0*816 


TCFAC 


03*08 


MRTA 


05338 


MRIT11 


04622 


RAPT 


C**C2 


RSGN 


0*C20 


TRAC1 


035** 


MRTE2 


C*6*6 


MRTAlP 


C9422 


RATV I 


C597C 


Rli2A 


05778 


TRAC2 


03520 


MRTE 


05CC2 


MRTE2S 


09006 


RATV 


C*378 


RWA2 


057*2 


TRACE 


03*96 


MRTF 


C*75C 


taRTFPC 


09C74 


RC1V 


C581* 


RWA 


056 3* 


TRRET 


06358 


MMTFS 


C3812 


NRTFPI 


05C42 


RCAFL 


C523* 


SAVE 


02565 


TM0P1 


03103 


MRTI2 


0*7C2 


MRTS6N 


C4874 


RCAIP 


C6022 


SE 


0577* 




03073 


MRTI3 


0*910 


ZERFAC 


03584 


RCA 


C517C 


SHORT 


05670 


NA2 


07392 


MRU 


0*738 







ENC CF ONE ASSEMBLY. 



061) 



162C-i**3 HCMTCR I VERSICN 2 FCRTRAN ll-C SUBS SET 2 14* POS 



Q0C10 
OOC20 
00C10 
0OC*0 
00C50 

ooceo 

OOC70 

coceo 

0OC90 
001CQ 
001 10 
00120 
00130 
001*0 
00150 
00160 
00170 
00 IPC 
00 ISO 
002CO 
00210 
00220 
00 2 30 
002*0 
00250 
00260 
00270 
00280 
00290 
00 3C0 
00310 
00320 
00330 
003*0 
00350 
00360 
00370 
00 38C 
00390 
004C0 
00*10 

00*20 
00*30 
00**0 
00*50 

00*60 
00*70 
00480 
00490 
00500 
00510 
00520 



ICRBC 

IOPT 

ICSK 

ICGT 

ERRET 

ICRT 

ICCAL 

PCNCAL 

CIC 



PRCGST 

CCHACC 

Nl 

N2 

fa 

RfcCLG 

ENTLN 

ENTEXP 

EMSCl 

ENTSC2 

ENTSC3 

ENTFIC 

ENTREC 

ENTFET 

ENTSMC 

ENTORR 

ENTOEC 

ENTCOS 

ENTSIN 

ENTATN 

ENTSGT 

ENTABS 



RECMK 

OKBUFF 

FAC 



SAVE 
BETA 

GAM 
TAFE 
INSA 
NESERR 



1620 FCRTRAN I 1-0 SUBROUTINES 
IORT ENTRY POINTS ANO CCNTANTS 
,52C 
.53? 
,55* 

• 566 
,6C2 
,565 

• 716 
,796 
,816 

1620 FCRTRAN II-C IN CORE AREAS 
COMMUNICATION AREA 
OORG 2218 

CS 2,, FLCATING POINT MCRD LENGTH 
2,, FIXED PCINT hCRO LENGTH 
5 t , STARTING AOCRESS CF MINLINE PRCGRAP 
5,, STARTING AOCRESS OF CCMPCN AREA 
2,, NUMBER CF MCROS IN LCGICAL RECCRC 
5,, NUMBER CF LCGICAL RECCRCS 
2,, taORC LENGTH 
3., RECCRO LENGTH 

5,, ENTRY ACORESS TC LOG SUBROUTINE 
5,, ENTRY ACTRESS TC EXPONENTIAL SUBROUTINE 
5,. ENTRY ACORESS TC SINGLE SUBSCRIPT SUBROUTINE 
5,, ENTRY ACORESS TC OCUBLE SUBSCRIPT SUBROUTINE 
5,, ENTRY AOORESS TC TRIPLE SUBSCRIPT SUBROUTINE 
5,, ENTRY AOCRESS TC FINO SUBRCUTINE 
5,, ENTRY AOORESS TC RECCRC SUBRCUTINE 
5,, ENTRY AOORESS TC FETCH SUBRCUTINE 
5,, ENTRY AOORESS TC SMITCH SUBRCUTINE 
5,, ENTRY AOORESS TC ARRAY SUBRCUTINE 
5,, ENTRY AOORESS TC OISK ENO SUBRCUTINE 
5,, ENTRY ACORESS TO COSINE SUBRCUTINE 
5,, ENTRY AOORESS TO SINE SUBRCUTINE 
5,, ENTRY ACORESS TC ARCTANGENT SUBROUTINE 
5,, ENTRY ACORESS TC SQUARE RCCT SUBRCUTINE 
5,, ENTRY ACORESS TC ABSOLUTE SUBRCUTINE 
70,, RESERVED FOR ENTRIES TO AOCEC SUBROUTINES 



CS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 



COMMON MORKING AREAS 
OAC 5, STOP* 
STOP • 

CS ,ST0P*8 

OSS 29 
CS 60 

CC 1 • • 



00530 OUOH 



OS 

OS 

CGN 

OS 

OS 

OS 

OAC 

ER E 

OS 



.SAVE-IC 
•SAVE -30 
•BETA -28 



•PESERR 



970 



0C52C 
00532 
CC55* 
CC566 
CC6C2 
CC565 
0C716 
CC796 
CC816 



02218 
C2219 
02221 
02226 
C2231 
02233 
02238 
C22*C 
022*3 
022*8 
02253 
C2258 
C2263 
02268 
02273 
02278 
02283 
02288 
02293 
02298 
023C3 
02306 
02313 
02318 
02323 
02393 

02395 

02*03 
02*04 
02*92 
02493 

02969 
024C3 
02604 
02395 
02939 
02979 
02407 

02407 



162C-1441 PCfcllCH t VCftSICK 2 fCfttiV Il-C SUftSSff I U4 fOS MCf 2 



00940 


El 


CS 


.•-2 




02619 


C 


00990 


etc 


CS 70 






02687 


*c 


00960 




1620 FCMMfc M-C FlCATIKG PCIkf CCM66TS 








00570 




CC 40 


•c 




C2727 


4C 






-occcoocccooccocccocccooocoooccocoocccco 








00980 




OSC 40 


tO 




02721 


4C 






coccooocccccccccccooccoocccooccocccccccc 








00990 


16*0 


OS 






C2767 


C 


ootco 


95CPF 


CC 28 


•9999999999999999999999999999 




02795 








R999999999999999999999999999 
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06448 


-C 


-c-c- 


C-C-C 


047eC 




CO 






,C24681C 


C646C 


-C 


-c-c- 


C-C-C 


04 790 




CO 




f 


,C246810 


C6472 


-c 


-c-c- 


C-C-C 


04 8CQ 




CO 






,C246810 


C6484 


-c 


-C-C- 


C-C-C 


04810 




CO 




» 


,C2468t0 


06496 


-C 


-c-c- 


C-C-C 


04 8 20 




oc 

-0 


2 


#CC 




C65C9 




2 




C4830 


FUERS 


cc 


2 


tC« 




06511 




2 




Q4840 




cs 


5 






C65 16 




5 




04850 


MATRIX 


TOP 


MATS* 


, I 


PACRC TC PROCESS P4TRIC1ES. 


C6518 


15 


C5655 


CCOCl 


04 86 




TDK 


SWL*1 


,9 




06530 


15 


C6C43 


CCCC9 


04870 




TF 


LOCACJ 


,FP2 




06542 


26 


C6574 


C36C5 


04 880 




8NF 


MATRX2-12 


.MATRIX-l 




06554 


44 


C659C 


C6517 


0489Q 




TFM 


LOCACJ 


,0C 


itC 


C6566 


16 


C6574 


CCO-C 


04 900 


LQCAOJ 


CS 


2 


t«-3 


, , ACJUST LCC FOR MATRIX 


06574 




2 




04910 




S 


LOCACJ 


,K 




06578 


22 


C65 74 


C2221 


04920 




S 


MATR! X-l 


.LCCAOJ 




C659C 


22 


C6517 


C6574 


049 30 


MTRX2 


A 


MA TR I X- 1 


iLCCAOJ 


RETURN FRCP SWL. EACH MATRIX ELEMENT 


06602 


21 


C6517 


C6574 


04940 




TF 


LOC 


,MATRIX-1 


,, PCVE ACJUSTEO LCCATICN 


06614 


26 


C6C89 


C6517 


04950 




SM, 


PAR 


. 1 


♦ 10 


C6626 


12 


C3378 


CCC-1 


04 960 




BNE 


• ♦24 






C6638 


47 


C6662 


C12CC 


04970 




TOP 


MAT Sk 


,C 




06650 


15 


C5655 


CCOCC 


04 980 




BNL 


SWC M2 






06662 


46 


C61C2 


C13CC 


04990 




B8 








06674 


42 


CCCCC 


CCCCC 


C5CC0 




OORG 


• -9 






C6676 








05C10 




MACRC FOR AN I/O CARRIAGE RETURN CURING A FCRPAT STATEMENT 










05C2O 


SLASH 


TOP 


C0MEN0*1 






06676 


15 


C6997 


CCCC9 


05C30 




BO 


SLASH2 


, RkEFSh 


BR IF WRITING 


06688 


43 


C67C8 


C6C61 


05C40 




8 


COMENO 






C6700 


49 


C69<6 


CCCCC 


05CSO 




CORG 


•-4 






06707 








05060 


SLASH2 


BO 


I0CR 


.CCPP Sk 


,t BR TC IC CR IF OUTPUT RECORC 8 LANK 


06708 


43 


C6972 


C575C 


05C70 




CP) 


DAT!NM*2 


,C6 


.10 


06720 


14 


C6175 


CCC-6 


05C10 




BM 


WRITE 




., BR IF NCT TYPEWRITER CUTPUT 


06732 


46 


C68U 


CllCC 


05C10 




TF 


LAST 


»Fl ZERS 


.6 


06744 


26 


C1B2- 


C6511 


051CO 




SM 


LAST 


• 02 


,10, ERASE BLANKS FROM ENC CF I/O RECORC 


06756 


12 


C382C 


CCC-2 


09110 




CM 


LAST 


*CC 


.610 


06768 


14 


C5I2- 


CCC-C 


05120 




BE 


•-36 






C678C 


46 


C6744 


C12CC 


05130 




CM 


LAST 


, INH 




06792 


14 


C582C 


J4219 


05140 




BL 


COM END 






06B04 


47 


C6996 


C13CC 


03130 


URITE 


BNR 


HRITEl 


t RttEFSh 




C6816 


45 


C694C 


C6061 


03140 




CM 


INN 


t7C 


.10 


06828 


14 


14211 


CCOPO 


OHIO 




BNH 


♦ ♦32 






06840 


4 7 


C6I72 


CllCC 


Of 110 




TF 


PRKEY 


tINH 


.. SKIP TC CHANNEL CCCE 


06852 


26 


C6927 


14211 


Of lfO 




B7 


PRCNTR 






06864 


41 


C6916 




03JC0 




BNE 


• ♦32 






06B72 


47 


C69C4 


C12CC 


01210 




TFM 


PRKEV 


.52 


«1C. OGUBLf SPACE 


068B4 


16 


C6927 


C0ON2 


01220 




B7 


PRCNTR 






06896 


41 


C6916 




01230 




TFM 


PRKEV 


,51 


.10, SINGLE SPACE 


069C4 


16 


C6127 


CCCM 


01240 


PRCNTR 


K 




,C9C0 


,. CCNTRCl CARRIAGE 


06916 


34 


CCCCC 


CC9C0 


01210 


PR KEY 


OS 


2 






06927 




2 




01210 


PAR 


OS 


1 


,♦-5 




06922 




1 




01270 




TR 


INH-l 


• INM1 




06128 


31 


14211 


14220 


01210 


hRITEl 


TFM 


10RT 


.•♦23 


,7, cutpui 98 


06940 


16 


CC563 


-6963 









1620- 1443 MCMTC" 1 


VERSION 2 FCRTRAN 1 1- C SUBS SET 2 144 


POS 






PAGE 


05290 




B 


I0PT 


.OATINM-4 


,7 




06952 


49 


C0532 


-6169 


053C0 




g 


O0C6 








C6964 


49 


C6334 


CCCCC 


C53 10 




corg 


• -4 








06971 








05)20 


I0CK 


CM 


MAX-) 


.01 


.10 




06972 


14 


C6919 


CCC-0 


05 330 


CK W 


OS 


3 


.•-2 


• 


CEC SPEC PLUS CHAR CF IRC 


06901 




3 




051*0 




BNL 


WRITE 








06904 


46 


C60U 


C13CC 


05 350 


CCMENC 


g 


R WA2- 12 








06996 


49 


C573C 


COOCC 


05360 




00 RC 


• -4 








07CC3 








05370 








PACRC TERMINATING I/C CCNTRCL 










05 300 




CS 


3 








C7CC5 




3 




05390 


CCNPL T 


TDM 


COMENQM 


.2 






07CC6 


15 


C6997 


CC0C2 


05400 


CH AR2 


OS 


3 






TWICE fCCIFIEC CHARACTERISTIC 


07C16 




3 




05410 




g 


SLASHM2 








07C IS 


49 


C660E 


CCCCC 


05420 






• -4 








07C25 










R i CO 


B0 


REOO A*24,MAT SW 






07026 


43 


C7C94 


C5655 








RECOA »2 3 


,CCPP$W 






07C3S 


25 


C7C93 


C575C 


" J: 




f CM 


SWC aoj 


,RECC A 




PACRC PERMITS RECCIfcC CACK TC ( 


7C5C 


16 


C6 152 


-7C7C 








SWL 








C7C62 


49 


C6C42 


CCCCC 






rnar 


• -4 








7C69 








05400 




t ft* 


SWL*l 


* 1 




RETURN FRCP SWL IF WCRE CATA 


07C7C 


15 


C6C43 


CCOCi 


05490 




TOW 


COMPSW 




VCIC RECC USING SWC EFFECT CN COPPSh 


07002 


15 


C575C 


CCCCC 


05500 


TERM 


OS 


5 


, • 




REFERENCE ACR IN I/C RECCRC 


07C93 




5 




05510 




AN 


SwF 


• 5 






07C94 


1 1 


C5969 


-C0C5 


05520 






SWF 


,SWF 


• 11 




071C6 


26 


C5969 


C596R 


05 530 






SLASH 








07110 


49 


C6676 


CCCCC 






rnar 


• -4 








07125 














MACRC TC REPEAT 


FCRPAT SPECS A SPECIFIC MO OF TIMES 










n***n 








SUB FRCP REP SW 


• INITIALLY SET TC ZERC 


















IF REPSW NEG * 


SET TCREPS RECC AMC REPEAT FCRPAT 










J: 








IF REPSW 2£RC, 


LAST FCRPAT REPETITICN IS CCMPLCTE 










n**on 








IF REPSW PLUS, 


STEP OCWN ANC REPEAT FCRMAT SPEC 












RE 




SWF 


, T 






7 126 


1 1 


C5969 


-CCC7 


ns* i n 






REP SW 


,1 


,10, 


CCNTRCL REPETITICN CF FIELCS 


07130 


12 


C5654 


CCC-1 


05620 




BM 


REP 2 








7150 


46 


C7 198 


C 1 ICC 








BSWF 








07162 


46 


C5934 


C12CC 


n*AAr 




* 


REP SW 


iSWF 


• 11 




7174 


2 1 


C 5654 


C596R 


05650 




BNH 


BSWF 








7106 


4 7 


C 5934 


Ci ICC 


0566 


RE P 2 


SM 


SWF 


,2 






7190 


1 2 


C 596 9 


-CCC2 


C56 70 




J F 


SWF 


,SWF 


.11 




7210 


26 


C 5969 


C596R 


0568C 




8 


SWF-23 








7222 


49 


C5946 


CCCCC 






DQRG 


• -<. 








C7229 








1 1 r 






RFPSh 1- 1 








072 30 


32 


C 56 56 


CCCCC 






r« 


5 


, • 




WCRKUG AREA ACR REF TC FAC CR GAM 


07241 








7 In 




AM 


SwF 




• 10 




07242 




C5969 


CCC-7 


* l « 




CM 


REPSW 3 


.1 


,10 




C72S4 


12 


C5657 


CCC-1 


C5 740 




BH 


REP 2 








C7266 




C7198 


C 1 ICC 








BSWF 








07270 


46 


CS934 


C 12CC 


C5 76 






REPSW 3 


1 SWF 


• 11 




0729C 


2 1 


C5657 


C596R 








REP 2-12 








C 73C2 


49 


C7186 


CCCCC 


O570C 




CORG 


• -4 








073C9 








P579C 


E«F9 


TFM 


SWC AOJ 


1 E R CCP 2 




PACRC FCR ERROR F9 WHEN WRITING 


0731C 


16 


C6152 


-7306 


C58CC 




TF 


LAST 


.MAX 2 






07322 


26 


C502C 


C6145 


C5810 




TFM 


EI 


,679 


,9 




C7334 


16 


C2615 


CCC79 


05820 




B 


SWL 








C7346 


49 


C6C42 


CCCCO 


C5830 




CORG 


• -4 








07353 








0584C 


XTVPE 


AM 


SWF 


.3 




PACRC FCR SKIPPING FIELCS 98 1 


07354 


11 


C5969 


-CCC3 








162C-1443 MCNITCR 1 


I VERSICN 2 FCRTRAN 1I-C SUBS SET 2 144 








PAGE 








LAST 


,SWF 


• U 




7 366 


2 1 


C502C 


C596R 


n* ■*n 






BSWF 








7378 


49 


C5934 


CCCCC 






nnnr 
DO 


• -^4 
















n*««n 








,C9*1 






7 306 




CCCCC 


CC 95 1 


ntacn 






5 


f »"5 




WORKING AREA ACR REF TC FAC CR GAM 










n«sarn 




TCM 

TFM 


I0RT 


,•♦23 








la 


rr«5*« 


- 742 1 


059 10 






IOPT 


.OATERR-4 


,7 




«7a 1 n 




CC532 


-6 153 






TO 

I 


EI*l 


,FLZERS-1 


• , 


RESTCRES RECCRC MARK 


r 7^f 


a 1 


C26 1 6 


C6 5 IC 


05930 




° 


BSwF-12 










4Q 


C5922 


CCCCC 


05940 


CPT 


OS 


5 


t • 




TEMP LCC CF CEC PT IN CUTPLT RECCRC 


n7 I! 








«!! « 


t Or 


AM 


SWF 


,3 














05960 




TF 


WJ ICTr- 


,SWF 


.11 




CT450 


3A 


r«7cc 


r SQAO 


05 970 






SWF 


,2 






ml a!^ 


1 1 


c <o*c 


r^QAR 


05960 




TF 


LOC 


,SWF 


.11 




C 7482 


26 


r«A«r 




n^rrn 




TF 


INPLLS 


♦ LAST 






7494 




C6C53 


C502C 


ntr i r 






WICTF 2 


,WlCTH 






n7^?a 


26 


C6C64 


C 5 799 








WIDTH 2 


.WIDTH 










C6C64 


C5 799 


nir*n 




* 


LAST 


.WI0TH2 






J: 


2 1 


C502C 




nir n 






LAST 


.MAX 2 






n it* 1 
r7««f 






C6 145 






BH 


ER F9 










46 


C731C 




nir In 






TERM 


• LAST 








26 


C7C93 


C502C 


^•'^ 




SM 


TERM 


• 2 






n7«7« 
n7^an 












1^ 


CHAR 


, WIDTH 








26 


C0609 


C5799 


0© OBC 






WA 


,FNH 






n7*r» 


26 


C724 1 


C 3 3 1 3 








97 


• c 






07614 


1 5 


C0C9 7 


CCCCC 


nit in 




TCM 


99 


,CC 






07626 


16 


CCC99 


CCO-C 






an 

^_ 


EF WAT 


.RWEFSW 






7638 


43 


07842 


C606 1 


n* ! 3n 
rii »n 




I 


F AC 


,F12ALP 


.11 






26 


C2492 


C 3 34C 


ni i n 






EFTERM* IBtEF TVPE 






n7AA9 








nil en 




TCM 


SWCAOJ 


•REAO EF 






n7A7A 


16 


C6 152 


-4492 


« : • ° 


RCFCH 


AMR 

5, 


• ♦2C 


, INPLUS 


.11. 


CHECK FCR INPUT RECCRO MARK 


fl 7 All A 






C605L 


06 160 




67 


ERRF7E 








nTAaa 


AO 


CA7AA 




06 1 70 




CM 


INPLUS 


,0C 


.610 


• ELIMINATE LEADING PLANKS 


n77CA 


14 


C6C5L 


CCC C 


nit an 




«M^ 


FCH NB 








n77i ■ 


47 


07786 


C 12CC 


n^»rn 






CHAR 


• 1 


.10 




n77tr 




C86 69 


CCC- 1 


niit n 




AM 


INPLLS 


• 2 






07742 


11 


C6053 








r 


INPLLS 


• LAST 






07754 


24 


C6C53 


C582C 


06220 




BL 


RD FCH 










47 


07686 


C 1 3CC 


nioAn 






EFENCM2 








07778 


49 


C8634 


CCCCC 


* ■ 






•-4 








07705 








06250 


FCrNB 


CM 


INPLLS 


• 2C 


•610 


, PRCCESS FIRST NCN BLANK CHARACTER 






C6C5L 


CCOKC 


06260 




BE 


EF MIN 








A77aa 


* 


C8CC6 


C 12CC 


06270 




CM 


INPLUS 


.IC 


• 610 




n7«ir 




C6C51 


CCO JC 


06200 




BE 


EF PLUS 








07822 


46 






06290 




? 


EFTVPE*36 






0783)4 


49 


C8C66 


CCOCC 






DO 


• -4 








0764 1 








06 310 


EFWRT 


C 


LOC 


,F 








24 


C566C 


C22 19 


06320 




BNH 


• ♦24 








07854 


47 


07676 


CI ICO 


06 330 




TF 


LOC D 


• F 






07866 


26 


C566C 


C2219 


06340 




TF 


LOCO 2 


• LCC 








26 


C5676 


C560C 


06 350 




A 


LOCO 2 


• LOC 






07190 


21 


C9676 


C566C 


06 360 




TR 


GAP-59 


•MASK F-l 






07902 


3 1 


C2496 


054)2 


06370 




TF* 


MA 


• GAM 






07914 


16 


07241 


-2555 


06 380 




TFM 


MA2 


•FAC-l 






07926 


16 


07192 


-2491 


06190 




TFM 


SMC AO J 


• EFMM 






07918 


16 


C6I92 


-4914 


064C0 




SM 


MIOTH 


,2 


• 10 


982 


07990 


12 


C1799 


COO-2 



1620- 144 3 HCNtrC* 



I VERSICN 2 FCRTRAA II-C SUBS SET 2 144 PCS 



PACE 



064 10 




BNF 


SWL 


•RhEFSk 






07962 


44 


C6C42 


C6C61 


06420 




sm 


TERM 


.8 






C7974 


12 


C7C93 


-C0C8 


06410 




sm 


WICTH 


.4 


• 10 




07986 


12 


C5799 


CCC-4 


06440 




e 


0004 








7998 


49 


C6294 


CCCCC 


06450 




CO PC 


• -4 








08CC5 








0646 


EFPIN 


SF 


99 








08CC6 


32 


CCC99 


CCOCC 


06470 


IFPLLS 


SM 


CHAR 


,1 


,10 




obcib 


12 


C8689 


CCC-1 


06480 


IF TYPE 


AM 


INPLLS 


.2 






08C3C 


11 


C6C53 


-CCC2 


06490 




Q M 


INPLLS 


,CC 


• 6 1 C 




C8C42 


14 


C6C5L 


CCC-C 


065C0 




BE 


LOG DIG 








C8C54 


46 


C8438 


C12CC 


06510 




CM 


INPLUS 


, 7C 


,610 




08C66 


14 


C6C5L 


CCCPC 


06520 




BH 


EF DIG 








08C78 


46 


C8538 


C 1 ICC 


06530 




BE 


LOG C IG 








0RC9C 


46 


C8438 


C12CC 


06540 




CM 


INPLLS 


,03 


,61C 




08102 


14 


C6CSL 


C00-3 


06550 




BE 


EF OEC 








08114 


46 


C847C 


C12CC 


06560 




8NF 


ERRF7 E 


.RKEFSk 






08126 


44 


CB746 


C6C61 


06570 




TFM 


EXP 


,CCC 


• 9 




08 138 


16 


C81S9 


CC-CC 


06580 




TDM 


E EXP AC* I 


• I 






08150 


15 


C8419 


C00C1 


06590 


EXP 


CS 


3 


• •-2 




VALUE CF CAtC CHAR FCR CLTPUT 


08159 




3 




066C0 




CM 


INPLLS 


#45 


• 610 




08162 


14 


C6C5L 


CCCP5 


06610 




BE 


E EXP 








C8174 


46 


C835C 


C12CC 


06620 




CM 


INPLLS 


• 4C 


• 61C 




08186 


14 


C6C5L 


CCOPC 


06630 




BNL 


ERRF7E 








08198 


46 


C8746 


C13CC 


06640 


EEXP2 


CM 


INPLLS 


• 2C 


,61C 




0821C 


14 


C6C5L 


CCCKC 


06650 




BE 


E FXP C 








08222 


46 


C833E 


C 12CC 


06660 




CM 


INPLLS 


tlC 


• 61C 




08234 


14 


C6C5L 


CCOJC 


06670 




BE 


E EXP 








08246 


46 


CP35C 


C12CC 


066A0 


EEXP22 


BO 


• ♦24 


.97 






08258 


43 


C8282 


CCC97 


06690 




SM 


CHAR 


• 1 


,9 




C827C 


12 


C8689 


CC-C1 


067C0 




C 


INPLLS 


t TERM 






08282 


24 


C6C53 


C7C93 


06 7 1 




BNL 


EEXPAO-12 








08294 


46 


C84C6 


C13CC 


06 720 




TO 


EXP-1 


•INPLUS 


.11 




083C6 


25 


C8158 


C6C5L 


06730 




AM 


INPLLS 


,2 






C8318 


11 


C6C53 


-CCC2 


0674C 




B 


EE XP22* 12 








08330 


49 


0827C 


CCOCC 


06750 




CORG 


• -<, 








08337 








06760 


EEXPP 


TOM 


E EXPADfl 


#2 






C8 338 


15 


C8419 


CCCC2 


06770 


EEXP 


AM 


INPLLS 


,2 






C835C 


11 


C6C53 


-CCC2 


0678C 




SM 


CHAR 


.1 


tlC 




C8362 


12 


C8689 


CCO-1 


06790 




C 


INPLLS 


.TERM 






08374 


24 


C6C53 


C7C93 


C68C0 




BNH 


EEXP2 








C8386 


47 


CR21C 


C11CC 


06810 




87 


ERRF7E 








C8398 


49 


C8746 




06*20 




TO 


EXP 


tIKPLUS 


til 




084C6 


25 


C8159 


C605L 


06830 


EfcXPAC 


A 


CHAR 


• EXP 






08418 


21 


C8689 


C8159 


06840 




B 


EF ENC 








0843C 


49 


C8622 


CCCCC 


06B50 




CORG 


• -4 








C8437 








C6860 


LCC01G 


BNF 


EF OIG 


• 98 






08418 


44 


C8538 


CCC98 


06870 




SM 


CHAR 


• 1 


.10 




084SC 


12 


C8689 


CCC-1 


06880 




B 


EF TERP 








C8462 


49 


C859E 


CCCCC 


0ft890 




CORG 


• -4 








08469 








06SCC 


EFHEC 


BO 


ERRF7 t 


,97 






0847C 


43 


C8746 


CC097 


06910 




TFM 


LOC 


• cc 


,10 




08482 


16 


C568C 


CCC-C 


06920 




TFM 


EF TERM* 18 


•EE PLLS 
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C2*S? 


09110 




SM 


LOC 


,? 






1C586 


12 


C6C8S 


-CCC2 


09120 




TF 


LOC 


.FAC-2 


• 6 




1C598 


26 


C6C8R 


C2*9C 


09130 


ERF 7 


BNF 


BSWF-12 


• f I 


• • 


ER IF NCT ERRCR TYPE F? 


1C61C 


44 


C5922 


C2615 


09140 




CF 


El 






ERASF ERRCR FT INCICAT ION 


1C622 


33 


C2615 


CCCCC 


09 1 50 




B 


ER CCM 2 








1C63* 


*9 


C7396 


CCCCC 


09 160 




CORG 


• -* 






9 8 7 


IC6*1 








09170 


IC0N2 


B 


READ IF 


i 


il 


IC6*2 


4R 


1C5 /* 


CCCCC 


09 1 8 C 




CORG 


• -4 








1C6*9 









09190 •••••• RETURN FRCM SWL VIA SWC IF WRITING I TYPE 

092CC •••••• VALUE PIT IN FAC IN I FCRM.EXPANCEC IC ALPHA IK 



1620- 1**3 KCMTCR I VERSICN 2 FCRTRAN Il-C SUBS SET 2 144 PCS PAGE 

09210 GAMMA RIGHT TC LEFT. HC CCMAINS ACR CF HIGH CRCER 

09220 •••••• CIGIT IN GAM. AFTER VALUE IN GAM IS S IGNEC.CHECKEC 

0923C •••••• FCR WIOTH, MCVE TC CUTPtT RECCRC. 



092*0 • ERF8I RESULTS IF VALUE TCC LARGE FCR FORMAT SPECS. 



09250 


WKITI 1 


TFM 


WA2 , 


»FAC»l 




1C65C 


16 


C73<J2 


-2493 


09260 




TF 


FAC 


,KC.C 


• 11 


1C662 


26 


C2*92 


C608R 


C9270 




BNF 


WRTI 2*12 , 


rFAC-l 




1C674 


** 


IC 742 


C2*91 


09280 


IFWRT 


SM 


LOC , 


,2 




1C686 


12 


C6C8S 


-CCC2 


09290 




TF 


FAC-2 


»LCC 


,11 


1C698 


26 


C2*<;c 


C6C8R 


093C0 




TF 


F 1 X E N ♦ 6 1 


, ICCN3*6 




1 07 IC 


26 


C1766 


C5516 


C9310 




B 


FIX 






10722 


*9 


C385* 


CCCCC 


09320 




OORG 


• -4 






1072*5 








09330 


WRT12 


TOM 


HXENO*! , 


.2 




1C73C 


15 


C3761 


CCCC2 


093*0 




TR 


GAM- 19 , 


.MASK | 




10742 


31 


C2536 


C5*72 


09350 




TFM 


MO , 


,GAM+1 




10754 


16 


ice*; 


-2556 


09360 


WRTI 


SM 


WA 2 1 


.1 




10766 


12 


C7392 


-CCCl 


09370 




SM 


WA 


>2 




10778 


12 


C72*l 


-CCC2 


0938C 




TO 


WA 


iWA 2 


,611 


IC79C 


25 


C72*J 


C739K 


09390 




BD 


I CJG 


rWA 2 


* l 1 


1C8C2 


*3 


IC822 


C739K 


09*CC 




B 


I C I G ♦ 1 2 






1 CP 14 


*9 


1C83* 


CCCCC 


09*10 




OORG 


• -4 






1C821 








09420 


ICIG 


TF 


HO 


.WA 




1C822 


26 


ice*; 


C72*l 


09*30 




CF 


GAM 




PREVENTS PREMATURE TERM. FOR NEG ARG 


1C834 


33 


C2555 


CCCCC 


09**0 


HC 


cs 


5 


, f 


, ACR CF HI CRCER NCK ZERC CIGIT 


1C845 








09450 




BNF 


WRTI 


*WA 


,11 


1C846 


** 


1C766 


C72*J 


09460 




CM 


HO , 


•GAMtl 




1C858 


1* 


108*5 


-2556 


09470 




BNE 


WRT SON 






1C87C 


*7 


IC9C2 


C12CC 


09480 




TFM 


LAST 


,7CC0 


,68 


10882 


16 


C582- 


CPCCC 


09490 




B 


BSWF 






1C894 


*9 


C593* 


CCCCC 


C95CC 




CORG 


• -4 






10901 








09510 


WRTSGN 


BNF 


WRT 13 


,FAC 




109C2 


** 


1C938 


C2*92 


09520 




SM 


HO , 


,2 




1C914 


12 


IC8*5 


-CCC2 


09530 




TFM 


HO 


,2C 


,61C 


1C926 


16 


1C8*N 


CCOKC 


095*0 


WRTI3 


SM 


HO 1 


.1 




10938 


12 


108*5 


-0001 


09550 




TFM 


OUT , 


• GAM 




IC95C 


16 


11CC9 


-2555 


09560 




S 


OUT ', 


• HC 




1C962 


22 


1 1 CCS 


1C8*5 


09570 




C 


OUT , 


•WICTH 2 




1C974 


2* 


nccs 


C6064 


0958C 




BH 


ER F8 I 






1C986 


*6 


UC66 


Ct ICC 


09590 




SF 


OUT 






1C998 


32 


11 CCS 


CCCCC 


096C0 


CUT 


CS 


5 


, • 


• HI CRCER WKC ACR lh I/C RECCRC, I TYPE 


1 1CC9 




5 




09610 




A 


OUT 


• LAST 




11C10 


21 


UCCS 


C5820 


09620 




SM 


OUT 


• 2 




1 1022 


12 


I IOCS 


-00C2 


09630 




TR 


OUT 


,HC 


• 611 


I IC 34 


31 


IICCR 


1C84N 


09640 




TFM 


LAST 


,CC 


,610 


11C46 


16 


C5I2- 


CCC-C 


09650 




B 


BSWF 






11C58 


49 


C593* 


CCCCO 


09660 




CORG 


• -4 






11C65 








09670 


ERF8I 


TR 


OUO H*U, 


•FLIERS* 


67 


UC66 


31 


C2618 


C6444 


09610 




TR 


OUO H*ll , 


,HC 


til 


11C78 


31 


C2618 


1C84N 


onto 




B 


ERCOM 






11C90 


49 


C5346 


CCOCC 


097C0 




CORG 


•-4 






11C97 








09710 


• •••• 


1620 FCRTRAN 1 1-0 


ARITHMETIC SLERCUTINES 










09720 


F I X I 


BP 


• ♦32 . , 


• 




UC98 


46 


1113C 


CllCC 


09730 




TF 


FAC 


• FX2 


• t hC 


U11C 


26 


C2492 


C2815 


09740 




B 


FIXENO 






11122 


♦ 9 


C376C 


COOCO 


097S0 




OORG 


3 




STCRf SIGN 98 S 


11130 








097*0 




TO 


MU-l 1 


.FAC-2 


11130 


25 


C37U 


C249C 









1 62C- 144 3 


MCM TC R 


1 VERSION 2 FORTRAN I I - C SUBS SET 


2 1 44 


POS 






PAGE 








F AC 


• * 




IS CHAR GREATER THAN K 




11142 


24 


C2492 


C222 1 


no n 




BNH 


• ♦4 4 
















C 1 1 CC 








F X E RR ♦ 2 5 


* 1 




SET ERR TYPE 




1 1 166 


I 5 


C37C 1 


CCCC 1 






ft* 


F 1 


• 5 79 


(9 , 


SET E R E9, CVFL IN FIX 




11178 


1 6 


C26 1 5 


C0N79 


n<»« 1 fl 






r I Tit ♦ 1 i 






YES, FAC » FX9 




11190 


49 


1 1 444 


CCOCC 


n on jn 




nnar 












11198 








n q b i p 




re 


c~r 












. j 


C249C 


CCCCC 






TP 

J 


BETA 


• IERO-5 1 




CLEAR ACC AREA 




1 1 2 1 C 


2 1 


C 2 6 C 3 


C2 7 1 6 


nop«;n 






1 M S A 


• F X I 












C 2 5 7 5 


C2 8 1 5 






TC 


• * 3C 


i 1 M S APF 




ALIGN CECIML POINTS 




112 34 


26 


11264 


C 3298 


ft to! 




S 


• ♦18 


• F AC 








J J 3 « ■ 


2 2 


11264 


C2492 


noion 




* 


DUMMY 


• F AC-2 












99999 










F AC 


i 1 M S A 








1 » P7T 


26 


C2492 


C25 75 


099CC 




B 


ML 










1 1 JB3 


49 


C 3 7 1 2 


CCCCO 


09s i C 




DORG 


• -4 










1 1 7 fl Q 

1 no! 








09920 


FXA 1 


B V 


•♦12 










1 1 T 








099 10 




BB 












1 1 3C 2 


42 


rrrrr 
CCCCC 


CCCCC 


C994C 




CORG 


• - 9 










I 1 3C 4 








09950 




CF 


F AC 










11304 


3 3 


C2492 


CCCCC 


C996 




TF 


F XA- I 


»F X 5R- 1 




SET OP ACC 




11316 


26 


C 3 8 7 7 


C 39 2 5 


09970 




B 


F X A 


• 




BRANCH TC FIXEC PCINT ACC 




11326 


49 


C 38 78 


CCOCC 


0998 




DORG 


• - \ 










113 36 








09 99 




SF 


F AC 










113 36 


32 


C2492 


CCCCC 


iftfM ^ 






F X< R 1 ♦ 1 2 










\ i it* 


49 


11316 


CCOCC 


inr in 




OORG 


*~ ' 


















10C20 




SF 


1 OCMK 


• 


,6 






i 1 

. ! « 


* 


«... 


rrrrr 


1 C 3 




I F 


F AC 


t 99 








1 1368 


26 


C2492 


CC099 


1QC4 




BB 












1 1 38C 


4 2 


COCCC 


CCOCC 


10C 50 




OORG 


• - 9 










11382 








10C60 


FXC 1 





I OCMK 


i F XC- I 


• 6 11 






11382 


29 


C 329L 


C 397L 


10C70 




BV 


• + 2t 










11394 




1 1 4 2C 




locec 




TF 


F AC 


,99MK 


• 1 1 






11406 


26 


C2492 


C328C 


IOC90 




BB 












11418 


42 


CCCCC 


CCCCC 


1 I C 




DOB G 












1 1 ^ 5ft 








10 110 




TFM 


£ 1 


» 5 7 8 


»9 t 


ERRCR E8 




1 1420 


16 




CCN78 


10 12 


FXN INE 


TFM 


FXfRR*iC 


tF I X6NC- 


1 2 t » 


SE T UF ERRCR EXIT 




114 32 


16 


C37C6 


- 3 748 


10 130 




TF 


F AC 


» F *9 




FAC * F X9 




11444 


26 


C2492 


C28C5 


10 1 40 




B 


F X F R R 










11456 


49 


C36 76 


CCCCC 


10 1 50 




CORG 


• - 1 










11464 








10 160 


FxCR 1 


C 


1 OCMK 


• F AC 


»6 






1 1464 


29 


C329L 


C2492 


10 170 




R 


f xr i ♦ 1 2 










114 76 


49 


1 1 394 


CCCCC 


10 1 HO 




DORG 


• - <t 










1148 3 








10 190 


R^fN 1 


BNF 


• »26 


i F AC-2 




FLOATING PCIKT NUMBER 




1 1484 


44 


1 1 5 1 C 


C249C 


1 ?C C 




CF 


F A C - 2 










1 1496 


W 






10? 1 




BB 












1 I 5C8 


42 


COCCC 


CCCCC 


10 220 




OORG 


• - <; 










1 15 IC 








10230 




SF 


F AC- 2 










1 15 IC 


32 


C249C 


CCCCC 


1024C 




BB 












11522 


4 2 


CCCCC 


ccccc 


10250 




CORG 


*~q 










1 1524 








10260 




HNF 


• ♦26 


»FAC 


* * 


FIXEC PC 1 NT NUMBER 




1 1524 


44 


1 1 55C 


C2492 


102 70 




CF 


F AC 










11536 


3 3 


C2492 


CCCCC 


102PC 




BB 












11548 


42 


CCCCC 


CCCCC 


10290 




DORG 


• -<J 










1155C 








103C0 




SF 


F AC 










U55C 


32 


C2492 


CCCCC 


IT310 




BB 










1)8 U 


11562 


42 


CCCCC 


CCOCC 


10 220 




OORG 


• - ^ 










11564 














1 62C- 1443 


MCN I TCP 


I VERSICK 2 FORTRAN II-C SUBS SET 


2 144 


POS 






PAGE 


10 230 


FLCA I 1 


BZ 


ZFRF AC 


• 




YES 




11564 


46 


C 3 5 84 


C 1 2CC 


10 34C 




TO 


99 


t F AC 




STCRE SIGN 




I 1576 


2 5 


C0C99 


C2492 


10 350 




CF 


F AC 










11588 


33 


C2492 


CCCCC 


10 36 




TR 


BE T A- 9 


iF XH 


• 11 






1 IfcCC 


3 1 


C2 594 


C 328L 


10 370 




TF 


F AC-2 


.9SPF-1 




CLEAR FAC 




11612 


26 


C 249C 


C2853 


1038C 




TF 


SAVE 


i K 




CHAR * K 




11624 


26 


C2565 


C 2 2 2 1 


10 390 




TFM 


• *2 3 


( BE T A-9 








1 1636 


16 


11659 


- 2594 


104CO 




BO 


• ^44 


• 




FINC HI CRC CICIT 




1 1648 


4 3 


11692 


CCCCC 


104 1 C 




SM 


SAVE 


t I 


»10t 


ADJUST CHAR 




1 1660 


1 2 


C2565 


CCC- 1 


1042C 




AM 


• - I 3 


« I 








116 72 


1 1 


11659 


-C CC 1 


10430 




B 


• -36 










I 1684 


49 


11646 


CCCCC 


10440 




OORG 


• -3 










I 1692 








10450 




TR 


FNH 


t 33 


• 611 






1 169 2 


3 i 


C 3 3 1L 


1 165R 


10460 




TF 


• ♦35 


,FNH 




FIND ANC CLEAR RECCRC MARK 




1 1 704 


26 


1 1739 


C3313 


10470 




AM 


• ♦2 3 


1 1 








11716 


1 1 


11739 


- C CC 1 


1 4 8 C 




BNR 


• - 1 2 










11728 


45 


11716 


CCOCC 


10490 




TDM 


• - I 


tC 


• 6 






1 1 7 AC 


1 5 


1 1 7 3R 


ccccc 


105C0 




TD 


FAC + I 


•RECMK 




REPLACE RECCRC MARK 




1 1 752 


25 


C2493 


C24C3 


10510 




TF 


BETA 


t ZERG-74 




CLEAR BETA 




1 1 764 


26 


C26C3 


C269 3 


10520 




B 


N0RM^6C 










11776 


49 


1 22CC 


CCCCC 


10530 




DORG 


• -4 










1 1783 








10 540 


FSB I 


TF 


FAD- I 


tF SB- I 








1 1 784 


26 


C4C89 


C4C65 


10550 




B 


F AC I 










1 1 796 


4 9 


1 1 8C4 


CCCCC 


10560 




CORG 


• -3 










1 1 8 C 4 








10570 


F AC I 


TF 


BETA 


iFAC-l 


ill. 


MCVE EXPCNENT 




1 1804 


26 


C26C3 


C408R 


10580 




SM 


FAD- I 


• 2 


• 10 






11816 


12 


C4C89 


CCC-2 


1059C 




TF 


BETA-2 


1 9S PF 




CLEAR BETA-2 TC F*l ZEROS. 




1 1828 


26 


C26C 1 


C2854 


106C0 




A 


BETA-2 


»FAC-l 


.11. 


ADC CR SUIT. MANTISSA 




1 184C 


2 1 


C26C 1 


C4C8R 


106 10 




TF 


SAVE 


,FAC 


• • 


MCVE EXPCNENT. 




1 1852 


26 


C2565 


C2492 


10620 




TF 


FAC-l 


tFAC-2 




RIGHT SHIFT ONE CICIT. 




1 1864 


26 


C249 1 


C249C 


10630 




CF 


FH 


• 


.6, 


CLEAR FLAG CN HIGH CROER DIGIT. 


11876 


33 


C33CC 


CCCCC 


10640 




TOM 


FNH 


tC 


• 611, 


SET NEXT HIGH CIGIT TC FLAG ZERO. 


1 1888 


15 


C331L 


CCCC- 


1065C 




C 


BETA 


(SAVE 




COMPARE EXPONENTS. 




1 19C0 


24 


C2603 


C2565 


10660 




BNH 


• ♦84 


* 




BRANCH IF NC EXCHANGE CF OPERANDS 


11912 


47 


1 1996 


CI ICC 


10670 




TF 


SAVE-2 


iFAC-l 




EXCHANGE MANTISSAS. 




1 1924 


26 


C2563 


C249 1 


10680 




TF 


FAC- I 


(BE TA-2 


t • 






1 1936 


26 


C249 1 


C26C 1 


10690 




TF 


BET A- 2 


»SAVE-2 








1 1948 


26 


C260 1 


C2S63 


10700 




TF 


FAD*8 


t SAVE 




EXCHANGE EXPONENTS. 




1 1960 


26 


C4C98 


C2565 


10710 




TF 


SAVE 


(BETA 








1 1972 


26 


C2565 


C26C3 


10720 




TF 


BETA 


,FAG*8 








1 1984 


26 


C26C3 


C4C98 


10730 




TFM 


ADD* 1 1 


, BETA-2 


t • 


SET UP ACCRESS 




1 1996 


16 


12163 


-26C 1 


10740 




S 


BETA 


t SAVE 




SUBTRACT EXPONENTS 




12C08 


22 


C26C3 


C2565 


10750 




BV 


NOADO 


• 


t • 


NC CPERATICN IF CVERFLCM. 




12020 


46 


12292 


C14CC 


10760 




A 


ADO* 1 1 


(BETA 


* t 


MCCIFV ACCRESS FOR SHIFT, 




12C32 


2 1 


121C3 


C26C3 


10770 




A 


BETA 


»F 


1 1 


AOC F TC BETA 




12044 


2 1 


C26C3 


C2219 


10700 




BNH 


NOADO 


• 




NO CP IF EX IF NCT LE5S THAN 


F 


1 2056 


4 7 


12292 


C 1 1 CC 


10790 




BNF 


ADD 


(BETA-2 


• • 






12C68 




12C92 


C26C 1 


108C0 




SF 


ADD* 1 1 


» 


• 6, 


SET SIGN CF CPERANC. 




1 2CB0 


32 


12 1CI 


CCCCO 


10810 


AGO 


A 


FAC-l 


• 


» • 






12092 


2 1 


C2491 


COOCC 


10820 




61 


ZERFAC* 12 


• 


♦ t 


BRANCH IF ZERO RESULT 




12104 


46 


C3596 


C12CC 


1O830 




TOM 


UNFLCK- 1 


• 2 








12116 


15 


12299 


CC0C2 


10840 




TOM 


OVFLOta- 1 


f i 








12128 


15 


03651 


CC001 


10850 


NORM 


TO 


99 


.FAC-l 


• ♦ 


STORE SIGN CF RESULT 




12140 


25 


C0C99 


02491 


10860 




CF 


FAC-l 










12152 


33 


C2491 


COOCC 


10870 




BO 


LV1 


• FNH 


.lit 






12164 


43 


C3616 


C331L 


10880 




TR 


FNH 




• All, 


LEFT SHIFT CMCE Q 


90 


12176 


31 


C331L 


C33C0 









1620- 1443 


PCM TCR 


1 VERSICK 2 FCRTRAN Il-C SUBS SET 2 144 


PQ S 






PAGE 


10190 




TOP 


FAC- 1 


tC 


* . 


SET LAST CIGIT TC ZERC. 


12188 


15 


C2491 


CCCCC 


109 CO 




SF 


FNH 




• 6 » 




122CC 


32 


C33 1L 


CCCCC 


10910 




BO 


FINISH 


,FNH 


.611 


, TEST LEACING ZERO 


12212 


43 


C38CL 


C33H 


10920 




SM 


SAVE 


. 1 


ilO. 


SUIT CN£ FRCP EXPCNENT • 


1 2224 


\2 


C2565 


C C C- 1 


10930 




BNV 


NORM* 36 








12236 


47 


1 2 176 


C 14CC 


10940 




TFM 


EI 


.572 


.9, 


SSI UP ERRCR CCCE E2. 


12248 


16 


C26 15 


CCN72 


10950 


ONFLO* 


TFM 


FAC 


,-99 


.10, 




1226C 


16 


C2492 


COORR 


10960 




TF 


FAC-2 


,9SPF-1 


• 1 


SET REStLT TC ZERC. 


12272 


26 


C249C 


C2B53 


10970 




B 


ERROR 








12284 


49 


C36 76 


CCOCC 


10980 




OORG 


• -4 








12291 








10990 


NCACC 


SF 


FH 




.6 




12292 


32 


C 3 3 CC 


COOCC 


1 1 CCO 




TR 


FNH 


,FH 


.611 




1 2 304 


3 | 






UC10 




TF 


FAC 


tSAVE 






| W\t 




C2492 


C2565 


11C20 




BB 












*3 

42 


CCCCC 


CCCCC 


UC10 




CORG 


• -9 








i 3iin 








I IC40 


F SBR 1 


CF 


FAC-2 








i a 1 1 p 




C249C 


CCCCC 


1 1 C 5 




TF 


F AO- 1 


t F SBR- 1 




SET UP ACC 


12 342 


26 


C4C 89 


C4 1 1 3 


1 1 C60 




g 


FAC 






BRAKCF TC FtCATING PC INT ACC 


12 354 


49 


C4C9C 


CCCCC 


1 IC 70 




OORG 


• - 3 












1 1 CDO 




SF 


FAC-2 








1 5 1* 5 


13 


1 3l2l 


CCCCC 


1 1 C90 




B 


F SBR I ♦ 1 2 








12374 


*o 


12342 


CCCCC 


11 ICO 




CORG 


• -4 








12 36 1 








11110 


FMP1 


SM 


FMP-l 


t 2 


* 10, 


SUeT* UC FROM ACCRESS. 




^2 


- . _ 


r 


11 120 




ID 


79 


( ZER0-1C 




CLEAR AREA FCR PRCCUCT. 


1 2394 


2 6 


rrr7e 


r 3 7^7 


11 1 30 




M 


FAC-2 


tFPP- 1 


,11, 


MULTIPLY T*C MANTISSAS. 


1 24C6 




r jicr 


r 1 id 


1 1 MO 




BZ 


ZERFAC 








f W 


J' 


r iit«* 
^« » « 


C 1 2CC 


11150 




A 


SAVE 


t F AC 


, t 


AOC EXPCNENTS. 


1 24 30 


2 1 


C2565 


C2492 


11160 




TF 


F AC - 1 


f MNC 


.11. 


PCVE FM CICITS CF PRCCUCT. 


i 


26 


C2491 


C 3 3 3C 


11 170 




TOP 


UNF LC >»- 1 


1 4 




SET UP ERRCR CCCE E4. 




1 5 


12259 


CCCC4 


11 18C 


Ff FAX 1 


BNV 


NORM* 72 






NORMALIZE IF SUM NCT CVERFLOh. 


1 ?4*#! 




12212 


C 14CC 


1 1 190 




BNF 


• ♦2C 


,F AC 




TEST SIGN CF EXPONENT. 


1 34711 








1 1 2CQ 




B 


UNFLCW- 12 






UNCERFLCti 


J ' 


4Q 


i in. 


CCCCC 


11210 




OORG 


• -4 








: _ _ 








11220 




TOM 


QVF LC W- 1 






SET UP ERRCR CCCE E3. 


1 3 ICR 




C365 1 


C C CC 3 


112 30 




BH 


OVFLOte- 12 




, f 


OVERFLCb. 


i 3« i n 


*^ 


36 4 C 


C I 1 C C 


11240 




TFM 


SAVE 


t 99 


• 10, 


SET EXPCNENT TC 99. 


13*33 
1 3« if 


i * 


13?** 


r r ^ 1 


1 1 250 




B 


NORM* 24 




( t 


NCRMLIZE. 




*o 


12164 


CCOCC 


11260 




OORG 


• -4 
















112 70 


Ft; i 


TF 


SAVE 


»F AC 


f ( 


SAVE EXPCNENT CF FAC. 


13*43 


3* 






11280 




SM 


FO- 1 


, 2 


,10. 


SUBTRACT TWC FRCP ACCRESS. 




13 


r* 1 * 1 


rrr \ 


11290 




jf 


79 


t ZERO-*! 


t , 


CLEAR AREA FCR CUCTIENT 




: 


r r rtc 


r 3 it 


11 3CC 




LO 


POT 


, FAC-2 


.6 , 






3* 


r 1 1 1 1 


r 3*or 


1 13 1C 






PO T 


t FC- 1 


,611 


, 




3Q 


c\ 1 \ 1 1 


rt * 1 


11320 




TDM 


VF LC te- I 


t 7 


, , 


SET UP ERRCR CCCE E7 FCR C OIVISCR. 




1 3 


r i* « 1 


f rnr-f 


1 1 3 3C 




BV 


OVFLC 12 




t , 


ClVlCEC BY ZERC. 


1 3*14 






r 1 4f r 


11340 




jf 


F AC- 1 


t PC T 


,11, 


PCVE CLCTIENT. 




3* 


C249 I 


f 1111 


11350 




TD 


99 


f F AC- 1 


t t 


STCRE SIGN CIGIT. 


» 111, 


25 


C0C9S 


C249 I 


1 1 360 




BZ 


ZERFAC* 12 




t f 


ZERC CUCTIENT. 


i 3 «r 


to 






11 370 




SM 


SAVE 




,10, 


SUBTRACT EXPCNENTS . 


13**3 




r 3«*« 




11380 




TOM 


VF LC M- 1 


» 5 


• ' 


SET UP ERRCR CCCE E5. 


12674 


15 


C365 1 


CCCC 5 


1 1390 




BNV 


N0RM*24 








1 26 66 


4 1 


12164 


C 14CC 


11400 




BNF 


OVFLCto-12 


,FAC 




CVERFLCW IF RESULT IS POSITIVE. 


12696 


44 


C364C 


C2492 


11410 




TOM 


UNF LC te- I 


.6 




SET UP ERRCR CCCE E6 . 


1271C 


15 


12259 


CCCC6 


11420 




BN 


UNFLCW-12 






IKCERFIO IF RESULT NEGATIVE. 


12722 


47 


12246 


CI 3CC 


11430 




TF P 


SAVE 


,"99 


,10, 


SET EXPCNENT TC -99. 


12734 


16 


C2565 


COCRR 


11440 




B 


NORM*72 






NCRPALIZE. 


12746 


49 


12212 


CCCCC 














9 ii i 
















162C- 144! 


MCM TC R 


I VERSICN 2 FCRTRAN 1 1 -C SUBS SET 2 144 


PCS 








114 50 




CORG 


•— 4 
















11460 


FCVR I 


TF 


SE* 1 1 


.FAC 






i 




13*7 1 




114 70 




SM 


F D VR- 1 


2 


,10, 




137** 


1 2 




C C C- 2 








79 






CLEAR AREA FCR CUCTIENT. 


12 778 


26 


CC C79 


C2758 


11490 




ID 


POT 


♦FCVR-1 


• 611 


* 


1 3 1 


2 8 


C 3 3 3L 


rt 1 cr 


1 1 5 CO 







POT 


.FAC-2 


,6 




} ,~ , f 


29 






115 10 




TO 


FAC 


.SAVE 


, . 


KEEP SIGN CF CIVICENC EXPCNENT. 


12614 


2 5 


C24S t 


C 2 56 5 


115 20 




B 


FD1*6C 








12626 


49 


1 26C 2 


CCCCC 






CORG 










1 26 3 3 








1 1 54C 




1620 FORTRAN ll-C 


EXPCNEKTIATICK SUBROUTINES 










11550 


F 1 X I 1 


AM 


IMSA 


• CC 


.10* 


IS I • ZERC 


126 34 


1 1 


C 2 5 75 


C C C-C 


11560 




BN Z 


• ♦26 










^ 1 


12872 


C 1 2 C C 


115 70 




TF 


FAC , 


FX1 




YES » J«»I » CNE 


12658 


26 


C2492 


C2825 






BB 










1 26 7C 


42 


COCCC 


CCCCC 


1 1 590 




OORG 


• -9 
















1 1 6CC 




AM 


FAC , 


CC 


,1C. 


IS J « ZERC 


1 3«73 








116 10 




BNZ 


PSI-12 








J * 




1 3Q3B 


r 1 3rr 


11620 




BNF 


• -26 , 


IPSA 




YES, IS I PCSITIVE 


1 3«OA 




1 3fl7r 


r 3^7* 


116 30 




TFM 


El , 


771 


.9, 


KC, ERR Gl, ZERC TC MINUS I PCNER 


i 7«r« 




r?*i \ 


rro7i 


11640 




B 


FXNINE 








1 303T 


ia 


11*13 


rrrrr 
CCCCC 






OORG 


• -4 








1 3Q37 








11660 




TOM 


ODCREVM, 


I 






J ytil 








116 70 


P S I 


CF 


MU-l 




* , 


SET SIGN PCSITIVE 


i 3c*r 


3 3 


C 3 7 1 1 


r r A 


116 80 




SF 


1MSAM 








1 30K3 








11690 




MM 


IMSA 


.05 


.10 




1 30AA 


ii 
* ^ 


r 3«7* 


rr« * 


1 1 7C0 




CF 


1MSA-1 








1 3C1* 




r 3* 7* 




11710 




BD 


• ♦2C , 


99 






1 3 CM* 




1 \ rr a 


rrreo 


i i !in 




B 


•♦32 , 






I EVEN 


1 3C0C 


49 


1 3.C 32 


CCCCC 


1 1 7 in 




OORG 


♦-4 
















ii 7«!n 




BNF 


• ♦36 , 


FAC 




I CCC 


1 3CC8 


"* 


1 3C44 


C2492 






SF 


MU-l 






J KEG, SET SIGN NEGATIVE 


1 3C20 


32 


C371 1 


CCCCC 


1 1 in 




CF 


FAC 








1 3C32 


33 


C2492 


CCCCC 


ii iir 


QCORE V 


NOP 


AXJ 








1 3044 


41 


13426 


CCOCC 


1 1 1«p 




C 


P AC , 


FXl 






! ir*i 


24 


C2492 


C2625 


1 1 ion 




BE 


MU , * 






J » ♦ CR - CNE 




46 


C3 7 1 2 


C 1 2CC 


11 SCO 




BNF 


• ♦56 


.IPSA 




IS I PCSITIVE 


i ir»r 


t A 


r 3* 1 1 




11810 




TFM 


EI 


772 




NC, ERR G2, J TC MINUS 1 POtaER 


i ires 






rro7» 


1 1 *\h 




TF 


FAC , 


FXZ 




FAC » FXZ 


1 1 in* 


fx 


r»*c3 


r 9«i « 






TFM 


FXERROO 


.FIXENC- 


12!, 


SET UP ERRCR EXIT 


13116 


16 


_ 

C37C4 


17*« 


1 1 140 




8 


FXERR 








f Mf ■ 


49 


C3676 


CCOCC 


| | |)Q 




OORG 


•-4 








13135 












TF 


BETA , 


FAC 


* . 


STCRE J 


1 3 1 36 


26 


C26C3 


C2492 


1 1 870 




SM 


IMSA , 


01 


, ic. 


I • 1-1 


t * • ^5 


12 




CCC- 1 






BZ 


MU 








1 3 160 


46 


C37 12 


C 1 2C0 


1 1 190 




M 


FAC • 


BETA 






1 3 172 


23 


C2492 


C26C3 


1 1 9C0 




SF 


100MK 


. 


• 6 






32 






11910 




TF 


FAC • 


99 




TEST CVFl 


***** 


26 




rrnoe 


1 1920 




AM 


99MK , 


00 


,610, 




11 


C32 8G 




1 1930 




BZ 


•-72 








13220 






C12CC 


1 1 




TFM 


EI . 


773 


.9, 


ERR G3, CVFL IN F IV 1 


1 3232 


16 


C26 1 9 


CCP73 


11950 




TOM 


FXERR*25 


• 1 


1 1 


SET UP SIGN 


13266 


11 


C37C1 


CCCC I 


119*0 




B 


FXNINE* 12 








13254 


49 


11444 


COOCC 


11970 




OORC 


•-4 








13263 








UltO 


Mill 


AM 


IMSA 


fOC 


.10, 


IS I ZERC 


13266 


11 


C2573 


CCC-C 


11990 




BNZ 


• ♦38 








13276 


47 


13314 


C12CC 


120C0 


OKEFAC 


TFM 


FAC t 


01 


,10, 


m 992 


13218 


16 


C2492 


coo-i 



1620-1**3 MCMTCR 



I VERSION 2 FCRTRAN I I - C SUBS SET 2 144 POS 



PAGE 



12C10 


tf 


FAC-2 , 


CNEZ 




FAC • FIT PT CN E 


12020 


8B 










12C3C 


CORG 


• -9 








12C*0 


80 


• ♦ ** , 


FNH 


.11. 


IS A ZERC 


12050 


BNF 


• - I* , 


IMSA 




YES. IS 1 NEGATIVE 


12060 


TFM 


E I 


77* 




YES. ERR G*. ZERC TC MINUS 


12C7C 


B 


MAN TP 








12CB0 


OORG 










12C90 


TF 


SAVE , 


FAC 




STORE CHAR 


12 1 CO 


TD 


F AC , 


FAC-2 


» . 


CCNVERT A TC F*2 FCRM 


12110 


CF 


FAC-2 








12120 


TDM 


FAC-l 









12130 


tdm 


ODOREVM 


9 


t i 


SET UP RETURN 


121*0 


B 


PSI 






SET UP SIGN AT MU-l 


12150 


OORG 


• -* 








12160 AXJ 


TDM 


FAC 


C 






12170 


TFM 


N0RM^5* 


.FAC 




SET UF F*2 NORMAL 1 Z AT ICN 


12180 


TFM 


ERRCR ♦ 1 


*9 


.ic. 


SET UP RETURN CN ERRCR 


1219C 


TDM 


FINISH*2 


9 






122C0 


TF M 


F IN 1 SH* 7 


FINISH 


.711 




12210 


BNF 


NCOIV 


IMSA 


. « 


IS I NEGATIVE 


12220 


CF 


I HS A 


i 




YES 


12230 


TF 


79 


ZERO-35 




CLEAR CLCTIENT AREA 




LO 


98MF 


,CNEZ*2 


• 6. 


FINO l/A 


12250 





98MF 


,FAC 


• 6 




12260 


TF 


FAC 


97MF 


.11 




12270 


TFM 


FINISH 


,•♦** 






12280 


TF 


S€ ♦ i I 


.SAVE 






12290 


TF M 


SAVE 


.CI 


. IC 




123CO 


B 


SF 


i 


• t 


GC TC FC FCR CHAR CHECK 


12310 


DOR G 










12 320 


BNF 


NOO I V 


FAC-l 




CIC CVFL CR UNFL CCCUR 


12330 


BNF 


SOS 


FAC 




YFS, CVFL 


12340 


B 


SOS+20 






UNFL 


12 3 50 


CORG 


• -* 








12360 NCTIV 


TF 


GAM 


FAC 




STCRE A 


12370 


TF 


SAVE-2 


SAVE 






12380 


TFM 


FINISH 


SCS-2C 




SET UP RETURN FROM FPP 


12390 


TF ¥ 


FMFAXU23, SAVE-2 






12*C0 


SM 


I MSA 


01 


.10. 


I ■ I - 1 


12*10 


BZ 


Ml* 








12*20 


TF 


79 


ZERC-35 


, f 


CLEAR PRCC AREA 


12*30 


¥ 


FAC 


.GAM 






12**C 


TF 


FAC 


97MF 


.11 




12*50 


A 


SAVE 


SAVE-2 






12*60 


B 


FMFAXI 






GC TC F MP FCR CHAR CHECK 


12*70 


OORG 


• ~<l 








12*80 


BNF 


NOD 1 V**8, 


FAC-l 


» • 


CID CVFL CR UNFL CCCUR 


12*90 


B 


NODI V-2C 






YES 


125C0 


CORG 


• -* 








12510 SCS 


TFM 


El 


775 


.9, 


ERR G5. CVFL IN FAXl 


12520 


B 


• ♦2C 








12530 


OORG 










125*0 


TFM 


E I 


776 


• 9, 


ERR G6, LNFL IN FAXI 


12550 


TFM 


G E H T ♦ 6 


ERRCR 




SET UP TYPE CUT CF ERR 


12560 


B 


MUM2 









9 93 



133CC 


26 


C2*9C 


C3C38 


13312 


*2 


CCCCC 


CCOCC 


1331* 








1331* 


*3 


11358 


C331L 


1 3326 


** 


13312 


C2575 


1 3338 


16 


C26 15 


CCP7* 


1 3350 


*9 


140 1C 


CCCCC 


1 3357 








13358 


26 


C2565 


C2*92 


1337C 


25 


C2*92 


C2*9C 


1 3382 


33 


C2*9C 


CCOCC 


1339* 


15 


C2*91 


CCCCC 


13*C6 


15 


13C*5 


CCCC9 


13*18 


*9 


129*C 


CCCCC 


13*25 








13*26 


15 


C2*92 


CCCCC 


13*38 


16 


1219* 


-2*92 


13*50 


16 


C3677 


CC0M9 


13*62 


15 


C38C5 


CCC( 9 


13*7* 


16 


0381C 


-38CL 


13*86 


** 


1363* 


C2575 


13*98 


33 


C2575 


COOCC 


1351C 


26 


CC079 


C2732 


1 3522 


28 


C332C 


C3C*C 


1 353* 


29 


C332C 


C2*92 


135*6 


26 


C2*92 


C332L 


1 3558 


16 


C38C3 


J36C2 


1 357C 


26 


12673 


C2565 


13582 


16 


C2565 


CCC-l 


1 359* 


*9 


12662 


CCOCC 


136C1 








136C2 


** 


1363* 


C2*9l 


1361* 


** 


13782 


C2*92 


1 3626 


*9 


138C2 


COOCC 


13633 








1 363* 


26 


C2555 


C2*92 


136*6 


26 


C2563 


C2565 


1 3658 


16 


038C3 


J3762 


1 367C 


16 


12*89 


-2563 


13682 


12 


C2575 


CCC-l 


1369* 


*6 


1383* 


C12CC 


137C6 


26 


CC079 


C2732 


13718 


23 


C2*92 


C2555 


1 373C 


26 


C2*92 


C332L 


137*2 


21 


C2565 


C2563 


1 375* 


*9 


12*66 


COOCC 


1 3761 








1 3762 


** 


13682 


C2*91 


1377* 


*9 


1361* 


CCCCC 


13781 








13782 


16 


C2615 


CCP75 


1379* 


*9 


1381* 


CCCCC 


138C1 








13802 


16 


C2615 


CCP76 


1381* 


16 


1392* 


-3676 


1 3826 


*9 


138*6 


CCCCC 



162C-1**3 MCMTCR 



VERSICN 2 FCRTRAN I I - C SUBS SET 2 1** POS 



12570 




OORG 


• -* 








125R0 


MI* 


TF M 


GEH T» 6 , 


ENOC 




REMCVE ERRCR TYPE CLT 


12590 




TD 


99 t 


MU-1 


, • 


SET UP SIGN 


126C0 




TFM 


ERRCR*1 ,3* 


,1C . 


RESET 


126 10 




TFM 


FINISH , 


ENCC 






12620 




TFM 


NORM* 5* 


.FAC-l 






12630 




TDM 


FINISH*2 


.2 






126*0 




TFM 


FMFAX 1*23 


.FAC 






12650 


GEHT 


8 










12660 




DORG 


• -* 








12670 


FAXBl 


SM 


FAXB- 1 


*C2 


• 1C 




12660 




TF 


TAFE-2 


.FAXB-l 


• 11 




12690 




AM 


TAFE-2 


.OC 


• 10* 


IS B ZERC 


127C0 




8Z 


ONE F AC 






YES 


12710 




BO 


• ♦56 


• FNH 


.11. 


IS A ZERC 


12720 




BNF 


F INI SH* 1 


.TAFE-2 




IS B NEGATIVE 


12730 




TFM 


EI 


.777 


• 9, 


YES. ER G7 ZERC TC MINUS 8 


127*0 


MAN TP 


TOM 


99 


,c 


» , 


SET SIGN 


12750 




6 


OVFLCh 








12760 




DORG 


• -* 








12770 




TDM 


OLhR*l 


,9 


• . 


SET UP NC ERR TYPE 


12780 




BNF 


• ♦36 


.FAC-2 




IS A NEGATIVE 


12790 




TDM 


OLhR^ I 


, I 




YES, SET UP ERR TYPE 


128C0 




CF 


FAC-2 








i2eio 




TOM 


FINISM*2 


.9 






12820 




TFM 


FINISH*7 


,•♦20 






12830 






LNENT 




,6 , 


FJNC IN CF A 


128*0 




CORG 


• -* 








12850 




TFM 


FINI$H*7 


• •♦32 






12860 




TFM 


FMP-l 


,TAFE 




SET UP MULTIPLICATION 


12870 




B 


FMP 






MULTIPLY B TIMES LNIAl 


12880 




CORG 










12890 




TFM 


FINISH+7 


,•♦20 






129C0 




B 


eXPENT 




• 6, 


fINO A««B * E««BLMA» 


12910 




OORG 


• -* 








12920 




TDM 


FINISH*2 


• 2 






12930 


CLWR 


NOP 


FINISH* 1 








129*0 




TFM 


EI 


,676 


.9, 


ERR F6, -ATCB 


12950 




TDM 


99 


»c 






12960 




B 


ERROR 








12970 




OORG 


•-* 








12980 




OC 
R 




,9 






12990 


ENCFOR 


DAC 


l.C 








13CC0 


INH 




OS 




.ENOFCR 






13C10 




CS 


292, 








13C20 


IN 


DS 


29*,INH*292 






13C30 




OORG 


19CCC 








130*0 




3* 


83 


•00701 






13C50 




38 


83 


,00702 






13C60 




36 


83 


•0C703 






19070 




8 


• ♦22 








13080 




DORG 


•-3 






99 


13C90 


83 


CSC 


9,016840107 








0168401C7 









1 3833 








1383* 


16 


1392* 


-3768 


138*6 


25 


C0C99 


C37U 


1 3858 


16 


C3677 


CCOL* 


1 387C 


16 


C38C3 


-3768 


13882 


16 


1219* 


-2*91 


1389* 


15 


C38C5 


CC0C2 


13906 


16 


12489 


-2*92 


13918 


*9 


CCCCC 


CCCCC 


13925 








13926 


12 


C4257 


CCO-2 


1 3938 


26 


C2533 


C*25P 


13950 


11 


C2533 


cco-c 


13962 


*6 


13288 


C12CC 


1197* 


*3 


1*C3C 


C331L 


13986 


** 


C38C* 


C2533 


13998 


16 


C2615 


CCP77 


UCIC 


15 


C0C99 


CCCCC 


1*C22 


*9 


C3652 


CCCCC 


1*029 








1*C30 


15 


1*175 


CCCC9 


1*C*2 


44 


1*078 


C2*9C 


UC5* 


15 


1*175 


CCCCl 


1*C66 


33 


C2*9C 


COOCC 


14C78 


15 


C38C5 


CCCC9 


1*C9C 


16 


C381C 


J* 11C 


1*1C2 


49 


C336C 


CCCCO 


1*IC9 








14110 


16 


C381C 


J4142 


1412? 


16 


C4137 


-2535 


14134 


*9 


C4138 


CCOCC 


14141 








14142 


16 


C381C 


J*162 


14154 


*9 


C337L 


CCCCC 


14161 








14162 


15 


C38C5 


00002 


14174 


*1 


C38C4 


CCCCC 


14186 


16 


C2415 


CCQ76 


14198 


15 


C0C99 


CCOCC 


14210 


49 


C3676 


CCOCC 


14217 








14217 








14219 




1 


X 2 


14219 




C 




14911 




292 




14911 




294 




19000 








19CC0 


34 


19044 


CC7C1 


19012 


38 


19044 


CC702 


15024 


36 


15044 


C0703 


15C36 


49 


15058 


CCCCC 


15044 








19044 




9 





11110 
13120 



1620-1443 PCM TCR I VERSIC* 2 *CRTW U-C SUBS S€f 2 144 POS 
OSA SUMO 



TRA 

TCC 



15C57 

15C57 
15C58 
1SC70 
15000 



PAGE 
5 * I 
-1854 

CCCCC CC5CC 
CCCCC CCCCC 



9<K 







1620-1441 PCMTCR 


I VERSION 2 


FCRTRAK 


Il-C SIBS SET 2 


144 POS 




PAGE 


?7 


ATYPE1 


CSlCfc 


ISPFPl 


03303 


EFRCi 


CSC 18 


F X A 


C1878 


PASKF 


C5433 


CIR7CS 


C5156 


ITVPEl 


1C1 14 


EFRC2 


C9C5C 


FXC1 


1 1382 


PASKI 


C5472 


CCPACO 


C2231 


ICCOIG 


08438 


EPHRT 


07842 


FXCR 1 


11444 


PASK 


05421 


COPEND 


06996 


LCCACJ 


06574 


EI 


C2615 


FXCR 


03998 


PAIS* 


05655 


CCPPlT 


C70C6 


PASKEP 


05422 


ENCC 


03768 


FXC 


03974 


PAX2 


C6145 


CCPPSW 


C575C 


PATR1X 


06518 


IMlh 


02248 


FXERR 


01676 


PAX 


C6922 


DATCUC 


C6U5 


PATRX2 


06602 


ERCCP 


05346 


FXH 


01283 


PFCV2 


03746 


OA f ERR 


C6157 


PESERR 


02607 


ERF7A 


C9374 


FXP1 


11356 


PF 


03473 


DAI INH 


C6173 


PCNCAl 


0C796 


ERF7 


1C61C 


FXP 


C395C 


PL 


C3712 


OtCLCA 


C3387 


pCCREV 


13C44 


ERF8E 


05226 


FXSR 1 


111C4 


Nl * 


C2233 


DKBLFF 


C24C4 


ONEF AC 


13288 


ERF81 


11066 


FXSR 


03926 


N2 


02238 


DKOATA 


C337S 


CVFLCb 


03652 


ERF9 


07310 


FXS 


039C2 


NCAOC 


12292 


EEXP22 


C8258 


PRCNTR 


06916 


ERRET 


CC602 


fx; 


C2815 


NCCIV 


13614 


EEXPAC 


C84U 


PRCGST 


C2226 


ERRCR 


03676 


FZERO 


C4974 


NORP 


1214C 


EFALPH 


C963C 


RAC0I1 


0)862 


E TYPE 


04580 


GAP 


0255 5 


C0D3 


06178 


EFCHKS 


C9822 


REAOEF 


0449,2 


EXP 


08159 


CEHT 


13918 


C004 


06294 


EFENC2 


C8654 


REAOIF 


10574 


F2 


03661 


GP2F 


C3715 


CCC6 


C6334 


EFPIUS 


ceoie 


REP$*3 


05657 


F AC 


02492 


HNC 


03138 


OLhR 


14174 


EFTERP 


C8598 


RfcEFSW 


06061 


F AO 1 


11804 


HO 


1C845 


CKEZ 


03C3B 


EFTYPE 


C803C 


ICONIC 


03293 


F AC 


C4C90 


HRC 


0887C 


CUT 


11C09 


ENCFPR 


14219 


IC2PF 


03343 


FAXB1 


13926 


HTYPE 


C46C2 


P44CI 


C6269 


ENTABS 


C2323 


2FPI 


03429 


FAXB 


04258 


HURT 


08938 


P44C2 


06284 


ENTATN 


C2313 


96PF 


03318 


FAXI1 


13264 


IC0N2 


IC642 


P44C 


06210 


ENTCCS 


C23C3 


97P2F 


03363 


FAXI 


04234 


ICCN3 


C551C 


P44E 


C63C2 


ENTCFO 


C2298 


9 7PF 


03323 




07786 


ICCN5 


C55C2 


PAR 


C3376 


ENTCRR 


C2293 


98PF 


03321 


FC1 


125,42 


IC0N6 


05494 


POT 


C3333 


ENTEXP 


C2253 


99PK 


03288 


FC 


04162 


10 IG 


1C822 


PICV2 


031*3 


ENTFET 


C2283 


9SCPF 


02795 


FCVR1 


12754 


IFMRT 


1C686 


PICV4 


03191 


EKTF 10 


C2273 


9SPF 


02854 


f CVR 


04186 


IPSA 


C2575 


PI 


03133 


ENTRFC 


C227e 


ACO 


12C92 


FH 


03308 


INH 


14219 


PRA1 


05578 


ENTSCl 


C2258 


ATVPE 


04536 


FIXl 


11098 


IN 


14511 


PRA 


04354 


EN1SC2 


C2263 


AXJ 


13426 


FIXI1 


12834 


10CAL 


CC716 


PRKEV 


06927 


FKTSC3 


C2268 


81 


1IC44 


FtXI 


04210 


IOCR 


06972 


PS I 


12940 


EN f S IN 


C23C8 


BETA 


02603 


Fl* 


03854 


IOGT 


0C566 


RAC01 


06C10 


FNTSOT 


C2318 


8SMF 


05934 


FROOC 


03427 


IOPT 


0C532 


R ACO 


0442* 


ENTSNO 


C2288 


CHAR2 


07C16 


FICAT 


04042 


IORBC 


0CS20 


RAPT 1 


0599C 


ERCCP2 


C7386 


CHAR 


08689 


FLl 


03353 


IORT 


0C565 


RAPT 


C44C2 


ERRFTE 


C8746 


CKH 


06981 


FP1PF 


03313 


10 SK 


0CSS4 


RAT V 1 


05970 


ERRF7I 


10494 


010 


00816 


FP1 


03625 


IROIG 


1C418 


RATV 


04378 


EXPENT 


C3373 


OPG 


06C84 


FPFAC 


03452 


IREAD 


1C246 


RCTY 


05814 


FINCIN 


C3603 


DPTP2 


08S49 


PPCN 


07954 


ITVPE 


C4448 


ROAFL 


C9394 


FINISH 


C3803 


OPT 


07445 


FPP1 


12382 


K2 


03648 


ROALP 


0*022 


FIXENO 


C376C 


DUOH 


02607 


FPP 


04138 


K 


02221 


ROA 


093)0 


FLOAT I 


11564 


DUO 


02687 


FNHX1 


03358 


LAST 


C5820 


ROFCM 


07*8* 


FL TEND 


C381C 


DUPPY 


99999 


FftH 


03313 


LN10 


0298C 


REAOA 


0923* 


FLf ALP 


C3348 


EEXP2 


08210 


FP1PR 


03283 


IN2 


02887 


RE AO I 


1052* 


FL1IRS 


G65U 


EEXPP 


08338 


FP2 


03605 


LN4 


02918 


RECLG 


02243 


FHPAII 


12466 


EEXP 


083S0 


F 


02219 


LN8 


02949 


RECNK 


02403 


FNCNEZ 


C493C 


EFALP 


09714 


FSB1 


11784 


LNENT 


C33*8 


REOCA 


07C70 


FXNIMf 


11432 


EFCOP 


07446 


FSIRl 


12330 


L0C02 


05678 


REOO 


0702* 


6P1H2F 


03543 


EFOEC 


08470 


FSBR 


04114 


LOCO 


05*80 


REP2 


07198 


HTYPEl 


C8778 


EFOIG 


085)8 


FSB 


040*6 


LOC 


06C89 


REPS 


07230 


IPINUS 


10474 


EFENC 


08622 


FTYPE 


04558 


LOCE 


C3C1C 


REP 


C712* 


IPSAPF 


C3298 


EFPIN 


0800* 


FX1 


02825 


LV1 


03*1* 


REP Ski 


05*54 


INPLUS 


0*033 


EFPUl 


09582 


Fit 


02805 


N14 


1181* 


RSGM 


1148* 


IRBLNK 


104 54 


EFPh 


0451* 


FMA1 


11290 


PARTP 


14C10 


RSGN 


04C20 



996 



162C-14*3 MCNITCft I VERSION 2 FCRTPA* I |-C SUBS SET 2 144 PCS 



PAGE 21 



H W2A 


C 5 7 7f 


T APE 


025 35 


WACC I 


05610 


WRTE 


09998 


W I0TH2 




R W A 2 


C57<»2 


T AN6 


03248 


WACC 


04330 


WP IF 


C4726 




06940 


"J* 


CS6 34 


T EN 14 


32 78 


teAFX 


Of 562 


Wit 12 


1 C 7 3C 


MP ( TE A 


094 50 


SAVE 


C2565 


TERP 


07C93 


WAPI 1 


05951 


MPT I 3 


1 C938 


WRITE I 


044 70 


S E 


1 2662 


TOFAC 


03408 


WAPT 


04306 


Mil 1 


10766 


MP I T I 1 




S 1 1 


C 32 1 9 


TP AC I 


3544 


W A 


0724 1 


K 


C224C 


fcPTALP 


05622 


SLASH 


C6676 


TRAC2 


03520 


WATYi 


05531 


XTVPE 


C7354 


WPTfPC 


05C50 


SCS 


1 3782 


TRACE 


03496 


WATY . 


04282 


2EP0 


02767 


WPTPPE 


05018 


START 


C3851 


TRRET 


06358 


k f or»- 


osm 


SLASH 2 


06708 


WPTSG* 


1C9C2 


STCP 


C2395 


TWCPI 


03103 


kftJTE 


06116 


STIERO 


06423 


2ERFAC 


03584 


SbC 


C609C 


TWOZ 


03C73 


WPT A2 


09542 


SWCAOJ 


C6152 






SWF 


C596S 


kA2 


07392 


WPTA 


09498 


UNFLOta 


1226C 






SWL 


06042 


*A3 


04591 


WPTE2 


04622 


MEPOEC 


05194 







EKC OF CNE ASSEMBLY, 



9 H 7 



162C-14<»3 MONITOR I VERSION 2 FORTRAN I I -0 SUBS SET 3 144 P05 



00010 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
001 10 
U0120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
U0280 
00290 
00300 
00310 
00320 
00330 
003*0 
00350 
00360 
00370 
00380 
00390 
00400 
00410 

00420 
00430 
00440 
00450 



10RBC 

IOPT 

IOSK 

IUOT 

ERR E T 

IORT 

IOCAL 

MGNCAL 

DIO 



PROGST 

COM ADD 

Nl 

N2 

W 

RECLG 

ENTLN 

ENTEXP 

ENTSC1 

ENTSC2 

ENTSC3 

ENTFID 

ENTREC 

ENTFET 

ENTSMD 

ENTORR 

ENTDED 

ENTCOS 

ENTSIN 

ENTATN 

ENTSOT 

ENTABS 



PECMK 

DKBUFF 

FAC 



IN CORE AREAS 



1620 FORTRAN I 1-0 SUBROUTINES WITH FLOATING POINT HARDWARE 
I OR T ENTRY POINTS AND CONSTANTS 
DS ,520 
OS i532 
DS .554 
DS ,566 
DS ,602 
OS ,565 
DS ,716 
DS ,796 
DS ,816 
162C FORTRAN II- 
COMMLN I C A T I ON AREA 

DORG 2218 

OS 2 f . FLOATING POINT WORD LENGTH 

OS 2,, FIXED POINT WORD LENGTH 

DS 5,, STARTING ADDRESS OF MAINLINE PROGRAM 

DS 5,, STARTING ADDRESS OF COMMON AREA 

DS 2,, NUMBER OF WORDS IN LOGICAL RECORD 

DS 5,, NUMBER OF LOGICAL RECORDS 

OS 2, , WORD LENGTH 

DS J,, RECORD LENGTH 

OS 5,, ENTRY ADDRESS TO LOG SUBROUTINE 

DS 5,, ENTRY ADDRESS TO EXPONENTIAL SUBROUTINE 

OS 5,, ENTRY ADDRESS TO SINGLE SUBSCRIPT SUBROUTINE 

DS 5,, ENTRY ADDRESS TO DOUBLE SUBSCRIPT SUBROUTINE 

OS 5,, ENTRY ADDRESS TO TRIPLE SUBSCRIPT SUBROUTINE 

DS 5,, ENTRY ADDRESS TO F I NO SUBROUTINE 

DS 5,, ENTRY ADDRESS TO RECORD SUBROUTINE 

DS 5,, ENTRY ADDRESS TO FETCH SUBROUTINE 

OS 5,, ENTRY AOORESS TO SWITCH D SUBROUTINE 

DS 5,, ENTRY AOORESS TO ARRAY SUBROUTINE 

OS 5,, ENTRY ADDRESS TO DISK END SUBROUTINE 

OS 5,, ENTRY ADDRESS TO COSINE SUBROUTINE 

DS 5,, ENTRY ADDRESS TO SINE SUBROUTINE 

DS 5,, ENTRY ADDRESS TO ARCTANGENT SUBROUTINE 

DS 5,, ENTRY ADDRESS TO SQUARE ROOT SUBROUTINE 

DS 5,, ENTRY ADDRESS TO ABSOLUTE SUBROUTINE 

DS 70,, RESERVED FOR ENTRIES TO ADDED SUBROUTINES 

COMMON WORKING AREAS 

CAC 5, STOP' 
STOP' 
OS 
DSS 
DS 
DC 



.STOP* 8 



00460 SAVE 
00470 BETA 
00400 
00490 GAM 
00500 TAPE 
00510 IMSA 
00520 MESERR DAC 
ER 

00530 OUOH DS 



OS 

DS 

DGM 

DS 

DS 

OS 



29 
60 
1 

72 
38 



6,ER E 



.SAVE-10 
,SAVE -30 
.BETA -28 



, MESERR 



998 



00520 
00532 
00554 
00566 
00602 
00565 
00716 
00796 
00816 



02218 
02219 
02221 
02226 
02231 
02233 
02238 
02240 
02243 
02248 
02253 
02258 
02263 
02268 
02273 
02278 
02283 
02288 
02293 
02298 
02303 
02308 
02313 
02318 
02323 
02393 

02395 

02403 
02404 
02492 
02493 

02545 
02603 
02604 
02555 
02535 
02475 
02607 

02607 



2 
5 
5 
2 
5 
2 
3 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
70 




29 
60 

1 

72 
38 

i 






1620-14*3 MONITOR 1 VERSION 2 FORTRAN I 1-0 SUBS SET 3 144 POS PACE 2 



00540 


EI 


OS 


t— 2 




02615 





00550 


UUU 


OS 70 






02687 


70 


00560 




1620 FORTRAN II-O FLOATING POINT CONTANTS 








00570 




DC 40 


.0 




02727 


40 






-ooooccccooocoocoooooooooooooooooooooooo 








00580 




DSC 40 


»o 




02728 


40 






CO0O0O0CC00OO0000OOOOOOOOOOOOOO0OOOOOOQO 








00590 


ZERO 


OS 


»• 




02767 





00600 


9SCf»F 


DC 28 


,9999999999999999999999999999 




02795 


28 






R 999999999999999999999999999 








00610 




1620 FORTRAN II-O FIXED POINT CONTANTS 








00620 


FX9 


DC 10 


,9999999999 




02805 


10 






R999999S99 










00630 


FXZ 


DC 10 


♦0000000000 




02815 


10 






-COOOOOCOO 








00640 


FXl 


DC 10 


•OOOOQCQCOl 




02825 


10 






-OO00C0GO1 










00650 




CONSTANTS 


FOR RELOCATABLE SUBROUTINES 








00660 




OC 31 


• 




02856 


31 






-OOOOOCOCOOOOOOOOOOOOOCOCOGCQOO 








00670 


9SPF 


OS 


,♦-2 




02854 





00680 


LN2 


OC 31 


,06931471805599453094172 32121458 




02887 


31 






-693147 180559945)094172 32121458 








00690 


LN4 


DC 31 


, 1 386294361 1 1 98906 1 88 344642429 16 




02918 


31 






J 3862 94 36 1 11989061 8834464242 916 








00700 


LN8 


DC 31 


,2079441541679835928251696364375 




02949 


31 






K079441 54 167 98 3 59 282516 96 3 64 375 








00710 


LN10 


DC 31 


,2 302585092994045684017991454684 




02980 


31 






K 3025 8 509299404568401 7991454684 








00720 


LOGE 


DC 30 


,4 3429448190325182 7651 12891891 7 




03010 


30 






M3429448 19Q3251 82765 11 2891 891 7 








00730 




DC 32 


• 1Q0OO0000000000000OOOOO0OOO0O0O0 




03042 


32 






JOOCCCOCOOOOOOOOOOOOOOOCOOOCOOOO 








00740 


ONEZ 


DS 


,•-4 




03038 


o 


00750 




DC 2 
-1 


,01 




03044 


2 


00760 


TMOZ 


OC 29 


•2C00O0O0O0000COOO0OOOOOO0OOOO 




3073 


29 






KOOOOOOCOOOOOOOOQOOOOOOOOOOOO 








00770 


TWOPI 


DC 30 


,6283185 3071795864 7692528676656 




03 1C3 


30 






028 3185 30717958647692 52 86 76656 








00780 


PI 


DC 30 


,3141592 65 35 897932 3846264 338 328 




03133 


30 






L 141592653589793238462 64 3 38328 








00790 


PI0V2 


DC 30 


,15707963267948966192 3132169164 




03163 


30 






J 570 796 3267948966 192 3 1 32 I 69 164 








00800 


PI0V4 


DC 28 


, 7853981633974483096156608458 




03191 


28 






P85 398 16 3397448 30961 5660845 8 








00810 


six 


DC 28 


•6000COOOCOOOOOOOOOOOOOOOOOOO 




03219 


28 






□OOCOCCCCQOOOOOQOOOOOOOOOOQO 








00820 


TAN6 


DC 29 


,5404195002 705 8415 544 357836461 




03248 


29 






N404 195002 70584 15544 35 7836461 








00830 


TEN34 


DC 30 


,218776162 39495525622261 1491638 




03278 


30 






K 187 76162 394,955256222 611491638 








00840 




1620 FORTRAN Il-D INDIRECT ADDRESS BOXES AND 


MODIFIED 






00850 






CONSTANTS (USING K AND F) 








00860 


FXH 


DSA FAC*l 






03283 


5 X I 










<l <l <i 

J J J 










1620-1443 MONITOR I VtRSION 2 FORTRAN II- 


D SUBS SET 3 144 


POS 


PAGE 












03283 


-2493 


008 70 


FP1MK 


DS 


, FXH 




03283 





00880 


99MK 


DC 5 


,99 




03288 


5 






-0099 










00890 


I OOMK. 


DC 5 


,100 




03293 


5 






-0100 










00900 


IMSAPF 


DSA ISSA 






03298 


5 X I 












03298 


-2575 


00910 


I SPFMl 


DSA IMSA-1 






03303 


5 x 1 












03303 


-2574 


00920 


FH 


DSA FAC 






03308 


5 X 1 












03308 


-2492 


00930 


FNH 


DSA FAC-1 






03313 


5 X 1 












3313 


-2491 


00940 


FM1MF 


DS 


,FNH 




03313 





00950 


96MF 


DC 5 


,96 




03318 


5 






-0096 










00960 


97MF 


DC 5 


.97 




03323 


5 






-0097 










00970 


98HF 


DC 5 


,98 




03328 


5 






-0098 










00980 


POT 


DC 5 


,99 




03333 


5 






-0099 










00990 


MNU 


DC 5 


, 100 




03338 


5 






-0100 










1000 


102MF 


DC 5 


,102 




03343 


5 






-0102 










10 10 


FLZ ALP 


DSA ZERO-78 






03348 


5 X I 












03348 


-2689 


01020 


FLZ 


DSA ZERO- 80 






09353 


5 X I 












03353 


-2687 


1030 


FNHNi 


DSA FAC-2 






03358 


5 X I 












03358 


-2490 


01040 


97N2F 


DC 5 


»97 




03363 


5 






-0097 










01050 


LNENT 


OC 5 


,56 




03368 


5 






-0056 










01060 


EXPENT 


OC 5 


.12 




03373 


5 






-0012 










01070 


PAH 


DS 5 


,•♦5 , NO OF ELEMENTS IN 


MATRIX TO PROCESS 


03378 


5 


01010 




OS 5 






03378 


5 


01090 


OK OAT A 


OSC 2 


,00 




03379 


2 






00 










01100 




OS A IOODA 






03385 


5 X 1 












03385 


-3387 


OHIO 




OC I 


f t 


f 00 H 


03)8* 


i 


01120 


01 000 A 


OSC 1 



,0 


03387 


I 



1620-1**3 MONITOR I VERSION 2 FORTRAN I 1-0 SUSS SET 3 14* PQS 



PAGE 



01130 




OC 


5 , 


00000 






03392 




5 








-cooo 
















011*0 




DC 


3 i 


000 






03395 




3 








-00 


















01150 




DSA 


OK BUFF 








03*00 






X 1 
















03*00 




-2*0* 




Oil 60 




DC 


1 • 








03*0 I 




1 




01170 




1620 FORTRAN I I-D IN 


CORE 


SUBROUT I NES 














OS 


5 








03*06 




.j 




n « i on 


TOF AC 


TFL 


FAC , 


TOFAC-l 


• 1 1 




03*08 


06 


02* f J2 


03*0P 


n i jnn 




86 










03*20 


*2 


00000 


00000 






DOR G 


»- 9 








03*22 












TFL 


FAC 


FLZER 






03*22 


06 


02*92 


03760 


J' 




B 


F IN I SH* 1 


ZERO-9* 


t 7 




3* 3* 


*9 


3 7 2 A 


-2673 


12*0 


I FROM 


DS 


b 






ZERO MINUS 9* PLUS TWO TIMES F 


3**5 




*> 




1250 




DS 


5 








03*50 




5 




1260 


FMF AC 


TFL 


FM F AC- 1 


FAC 


»6 




03*52 


06 


3«t«>J 


02*92 


12 70 




BB 










03*6* 


*2 


OOOCG 


ooooo 


01280 




OORG 










03*66 








01290 


UNFLO 


TFL 


FAC 


FLZER 




ERR F5 UNFL IN FEXP 


03*66 


06 


02*9Z' 


03760 






B 


ERXV* 12 


FAC-3 




FAC IS FL PT ZERO 


03*78 


*9 


37 7 


02*89 


I 310 


FNMM2 


DS 


5 






FAC MINUS 3 MINUS F 


03*89 








1320 




DS 


5 








03*9* 




5 




01330 


TRACE 


TFL 


TRACE- 1 


FAC 


16 




03*96 


06 


03*9N 


02*92 


I 3*0 




BNC* 


FMFAC* 12 








03508 


*7 


03*6* 


00*00 




T 2 


TFM 


FMON* 1 I , 


TRACl-START 




03520 


16 


7 765 


-030P 
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06314 


16 


06370 


-6996 


10640 




TPM 


0004*6 


t SML 




06326 


16 


06312 


-6042 


10650 




BB2 








06338 


42 






10660 


0006 


BNI 


TRRET 


,03400 




06340 


47 


06364 


03400 


10670 




K 




,00971 




06 352 


34 


COCOO 


00971 


10690 


TRRET 


B 


COMENO 






06364 


49 


06996 


00000 


10690 




OORG 


•-4 






06371 








10700 




OORG 


6422 






06422 








10710 


STZtERO 


DC 
-0 


2 


,00 




06423 




2 




10720 




Op 






•0246810 


06424 


-0 


-0-0- 


0-0-0 


1073C 




00 






•02*6810 


06436 


-C 


-0-0- 


0-0-0 


10740 




00 




i 


t 02*6810 


06448 


-0 


-0-0- 


0-0-0 


10750 




00 




f 


•02*6810 


06460 


-0 


-0-0- 


0-0-0 


10760 




00 




i 


•0246810 


06*72 


-0 


-0-0- 


0-0-0 


10770 




00 




i 


•02*6810 


06484 


-0 


-0-0- 


0-0-0 


10790 




00 




» 


•02*6610 


06496 


-0 


-0-0- 


0-0-0 


10790 




OC 
-0 


2 


iOO 




065Q9 




2 




10800 


FLIERS 


DC ' 
- • 


2 


»o* 




06511 




2 




10610 




OS 


5 






06516 




5 




10820 


MATRIX 


TOM 


MATSM 


• 1 


•• MACHO TO PROCESS MATRIC IES 


06516 


15 


09699 


00001 


10830 




TOM 


SML*1 


.9 




06530 


19 


06043 


00009 


10640 




TF 


LOCAOJ 


#PP2 




069*2 


2* 


0697* 


03664 


I0B90 




8NF 


MATRX2-rl2,MATRU-l 




06994 


44 


0*990 


06917 


10660 




TFM 


LOCAOJ 


tOO 


• 10 


06966 


16 


0*574 


000-0 


10*70 LOCAOJ 


OS 


2 


.•-3 


it ADJUST LOC FOR MATRIX 


0697* 




2 




10660 




s 


LOCAOJ 


•ft 




06976 


22 


0697* 


02221 


10890 




s 


MATRIX- I 


i LOC AD J 




06990 


22 


06917 


06974 


10900 


MATRX2 


A 


MATRIX- I 


, LOCAOJ 


•» RETURN FROM SML. EACH MATRIX ELEMENT 


0*602 


21 


0*917 


06974 


10910 




TF 


LOC 


,MATRIX-1 


•» MOVE AO JUSTED LOCATION 


0*61* 


26 


0*069 


06917 


10920 




SM 


PAR 


1 1 


flO 


06626 


12 


01171 


000-1 


109)0 




BME 


• ♦2* 






06611 


67 


06662 


01200 


10960 




TON 


MATSM 


•0 




06690 


It 


0§6fl 


00000 


10990 




BNL 


SWC*i2 






066*2 


6* 


0*102 


01100 


10960 




BB 








0**7* 


♦2 


00000 


00000 


10970 




CORG 


•-9 






0**7* 








10910 


•••••• 


MACRO FOR A 


N t/0 CARRIAGE RETURN DURING A FORMAT STATEMENT 










10900 


SLASH 


TOM 


COMENO* I 


t9 




0**7* 


15 


0*997 


00009 


11000 




BO 


SLASH! 


iRMEFSM 


it BR IF MR I TING 


06666 


61 


0*70* 


0*0*1 


1 1010 




• 


COHINO 






06700 


*9 


0*99* 


00000 



|020 
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PAGE 



24 



1 1020 

1 1030 SLASH2 

11040 

1 1050 

11060 

11070 

11080 

1 1090 

11100 

11110 

11120 WRITE 

11130 

11140 

I 1 150 
11160 

II 170 
11180 
11190 
11200 

11210 PRCNTR 
11220 PRKEY 
11230 MAX 
11240 

1 1250 WR ITE1 
1 1260 
1 1270 
11280 

11290 IOCR 
11300 CKW 
11310 

I 1320 COMEND 
1 1330 

11340 ••«••• 
1 1350 

11360 COMPLT 
1 1370 CHAR 2 
11380 
1 I 390 

1 1400 REDO 

11410 

I 1420 

I 1430 

I 1440 

I 1450 RELOA 
11460 

11470 TERM 
I 1480 
1 1490 
U5C0 
1 1510 

11520 •••••• 

11530 •••••• 

11540 

11550 •••••• 

11560 

U570 REP 



DOR G 


*-4 








06 70 7 








BD 


IOCR 


COMP SW 


• « 


BR TO 10 CR IF OUTPUT RECORD BLANK 


06708 


♦ 3 


06972 




CM 


DAT INH + 2 


06 


1 10 




06720 


1 4 


06 175 




BH 


WR I TE 




• • 


BR IF NOT TYPEWRITER CUTPUT 


06 7 32 


46 


06816 


n linn 
ni« i i 


TF 


LAST 


FLZERS 


t6 




06 744 


26 


0582- 




SM 


LAST 


02 


,10, 


ERASE BLANKS FROM END OF I/O RECORD 


06 756 


1 2 


o'f 20 


nnn-> 


CM 


LAST 


00 


,610 




06768 


14 


0582- 


000—0 


BE 


• - 36 








06780 


46 


06 744 


01200 


CM 


LAST 


INH 






06792 


14 


05820 


-7453 


BL 


COM END 








06804 


4 7 


06996 


1 300 


BNR 


WR I TE I 


RWEFSW 






068 16 


45 


06940 


06061 


CM 


I NH 


70 


,10 




06828 


14 


07453 


OOOPO 


BNH 


• ♦32 








06840 


4 7 


06872 


01100 


TF 


PRKEY 


INH 




SKIP TO CHANNEL COOE 


06852 


26 


06927 


07453 


B7 


PRCNTR 








06864 


49 


06916 




8NE 


• ♦32 








068 72 


4 7 


06904 


01200 


TFM 


PRKEY 


52 


,10, 


DOUBLE SPACE 


06884 


16 


06927 


000N2 


87 


PRCNTR 








06896 


49 


06916 




TFM 


PRKEY 


,51 


,10, 


SINGLE SPACE 


06904 


16 


06927 


000N1 


K 




0900 


> , 


CONTROL CARRIAGE 


069 16 


34 


00000 


00900 


DS 


2 


• 






06927 




2 




OS 


5 


• •-5 






06922 




5 




TR 


INH-l 


, INH*1 






06928 


31 


07452 


07454 


TFM 


IORT 


,•♦23 


, 7, 


OUTPUT 


06940 


16 


00565 


-6963 


B 


IOP T 


, DA T I NH-4 


, 7 




06952 


49 


00532 


-6169 


B 


0DD6 








06964 


49 


06340 


00000 


DORG 


• ~<< 








06971 








CM 


MAX-3 


,08 


,10 




06972 


14 


06919 


000-8 


DS 


3 


, — 2 




DEC SPEC PLUS CHAR OF ARG 


06981 




3 




BNL 


WR I TE 








06984 


46 


06816 


01 300 


8 


RWA2-12 








06996 


49 


05730 


00000 


OORG 


• -4 








07003 










MACRO TERMINATING I/O CONTROL 










DS 


3 








07005 




3 




TOM 


COMEND*! 


,2 






07006 


15 


0699 7 


00002 


DS 


3 


,•- I 




TWICE MODIFIED CHARACTERISTIC 


07016 




3 




B 


SL ASH+ 12 








07018 


49 


06688 


00000 


DORG 


• -4 








07025 








BD 


REDO A*24 


,MAT SW 






07026 


43 


07094 


05655 


td 


REU0A^23 


.COMPSW 






07038 


25 


07093 


05750 


TFM 


SWC AD J 


,REDO A 




MACRO PERMITS REDOING BACK TO ( 


07050 


16 


06152 


-7070 


B 


SWL 














uuuuu 


DORG 


• -4 








07069 








TDM 


SWL ♦ 1 


, 1 




RETURN FROM SWL IF MORE DATA 


07070 


15 


06043 


00001 


TDM 


COMPSW 




,, VOIO REDO USING SWC EFFECT ON COMPSW 


7082 


15 


05750 


00000 


DS 


b 






REFERENCE ADR IN I/O RECCRD 


07093 




5 




AM 


SWF 


,5 






07094 


11 


05969 


-0005 


TF 


SWF 


, SWF 


,11 




07106 


26 


05969 


0596R 


B 


SLASH 








07116 


49 


06676 


00000 


DORG 


• -4 








07125 









MACRO TO REPEAT FORMAT SPECS A SPECIFIC NO OF TIMES 
SUB FROM REP SW, INITIALLY SET TO ZERO 
IF REPSW NEG , SET TOREPS REQD ANC REPEAT FORMAT 
IF REPSW ZERO, LAST FORMAT REPETITION IS COMPLETE 
IF REPSW PLUS, STEP DOWN ANO REPEAT FORMAT SPEC 



07126 11 05969 



1 02! 
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POS 






PAGE 


1 1580 




SM 


REP SW 


, 1 


10, 


CONTROL REPETITION OF FIELDS 


071 38 


12 


05654 


000- I 


1 1590 




OH 


REP 2 








07150 


46 


C7198 


01 100 


I 1600 




BE 


B SWF 








07162 


46 


05934 


01200 


1 161U 




A 


REP SW 


,SWF 


1 1 




071 74 


21 


05654 


0596R 


I 1620 




BNH 


BSWF 








C7186 


47 


05934 


01100 


1 1630 


REP2 


SM 


SWF 


,2 






07198 


12 


05969 


- 0002 


11640 




TF 


SWF 


,SWF 


1 1 




72 10 


26 


05969 


0596R 


1 1650 




H 


SWF-23 








07222 


49 


05946 


00000 


11660 




DORG 


• -<♦ 








07229 








11670 


REP 3 


SF 


REPSW3-1 








07230 


32 


05656 


00000 


I 1680 


WA 


DS 


5 


, • 




WORKING AREA ADR REF TO FAC OR GAM 


07241 




5 




I 1690 




AM 


SWF 


, 7 


10 




07242 


11 


05969 


OCO-7 


11700 




SM 


REPSW 3 


,1 


10 




07254 


12 


05657 


000-1 


I 1710 




BH 


REP 2 








07266 


46 


07198 


01100 


11720 




BE 


BSWF 








72 78 


46 


05934 


01200 


11730 




A 


REPSW 3 


♦ SWF 


11 




07290 


21 


05657 


0596R 


11740 




B 


REP 2-12 








07302 


49 


C7186 


00000 


I I 750 




DORG 


• -4 








07309 








11760 


ERF9 


TFM 


SWC AD J 


,ER COM 2 




MACRC FOR ERROR F9 WHEN WRITING 


07310 


16 


06152 


-7386 


I 1770 




TF 


LAST 


,MAX 2 






07322 


26 


05820 


06145 


11780 




TFM 


EI 


,679 


9 




07334 


16 


02615 


00079 


1 1790 




B 


SWL 








07346 


49 


06042 


00000 


1 1800 




DORG 


• -4 








07353 








11810 


X TYPE 


AM 


SWF 


.3 




MACRC FOR SKIPPING FIELDS 


07354 


11 


05969 


-0003 


1 1820 




A 


LAST 


,SWF 


11 




07366 


21 


05820 


0596R 


I 1830 




B 


BSWF 








07378 


49 


05934 


00000 


11840 




DORG 


• -4 








07385 








11850 


ERC0M2 


K 




,0951 






07386 


34 


00000 


00951 


11860 


WA2 


DS 




,•-5 




WORKING AREA ADR REF TO FAC OR GAM 


07392 









118 70 




TFM 


IORT 


,•♦23 






07398 


16 


0056$ 


-7421 


11880 




B 


IOPT 


,DATERR-4 


7 




0741C 


49 


00532 


-6153 


11890 




TR 


EUl 


, FLZERS- I 




RESTORES RECORD MARK 


07422 


31 


02616 


06510 


11900 




B 


BSWF-12 








07434 


49 


05922 


00000 


11910 


DPT 


DS 


5 


t • 




TEMP LOC OF DEC PT IN OUTPUT RECORD 


07445 




5 




11920 


0PTM2 


DS 


5 


,•♦5 




TEMP ADR OF DEC PT IN I/O REC, -2 


07450 




5 




11930 




DS 


5 








07450 




5 




11940 




DC 


1 


,9 






07451 




1 




11950 


ENDFOR 


R 

DAC 


1,0 








07453 




1 


X 2 


11960 


INH 




DS 


i ENDFOR 








07453 









11970 




DS 


292, 








07745 




292 




11980 


IN 


DS 


294,!NH+292 






07745 




294 




11990 




DORG 


O9C0O 








09000 








12000 




38 


A3 


,00702 






09000 


38 


09032 


00702 


12010 




36 


A3 


,00703 






09012 


36 


09032 


00703 


12020 




B 


• ♦22 








09024 


49 


09046 


00000 


12030 




DORG 


»~3 








09032 








12040 


A3 


DSC 


9 


,019433039 






09032 




9 








019433039 
















12050 




OSA 


FIX 








09045 




5 


X 1 
















09045 




-1894 




12060 




TRA 










09046 


34 


00000 


00500 














1022 


09058 


49 


00000 


00000 


12070 




TCD 


09000 








09000 
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144 POS 



PAGE 



12080 ••••«• 

12090 • •••• 

12100 

12110 

12120 

12130 

12140 

12150 

12160 
12170 
12180 

12190 
12200 
12210 

12220 
12230 
12240 

12250 
12260 
12270 

12280 
12290 
12300 

12310 
12320 
12330 
12340 

12350 
12360 
12370 
12380 

12390 
12400 
12410 

12420 
12430 
I244p 

12450 

12460 
12470 

124 80 

12490 
12500 



1620 FORTRAN II-D 
1620 FORTRAN II-D 
OORC START 



I MA FORMAT 

I MA FORMAT - SECONCARV LINKAGE 



OS 
CM 

B 

TFM 

OC 
-I 
B 

TFM 
DC 
-1 
B 

TFM 

OC 

6 

TFM 

DC 

B 

TFM 

DC 
- I 
B 

TFM 

OC 



3 
FAC 
IF IX 
FM0N*11 
2 

FMON 
FMON* I I 
7 

FMON 
FMON* l| 

2 

FMON 
FMON* 11 

2 

FMON 
FMON* 1 1 
2 

FMON 

FMON*U 

2 



B FMON 
OORG •-! 
TFM FM0N*11 
DC 2 
-1 

B FMON 
CORC »-l 
TFM FMON* 11 
OC 2 
-1 
B 

TFM 

DC 
- 1 



TFM 

CC 
-1 
B 

TFM 

OC 
-1 

B 

TFM 

OC 
-1 



FMON 
FMON* 1 1 

2 

FMON 

FMON*U 

2 

FMON 
FMON* 1 1 
2 

FMON 
FMON* 11 
2 



00 
- STAR I 



START 



,10, IS CHAR POSITIVE 



1023 



03851 
03853 
03854 
03866 
03878 
03886 


14 
49 

16 


3 

02492 
051 14 

07765 
2 


03890 
03902 
03910 


49 
16 


07754 
07765 
2 


03914 
03926 
0)934 


49 

16 


07754 
07765 
2 


039)8 
03950 
03958 


49 

16 


07754 
07765 
2 


03962 
03974 
03982 


49 

16 


07754 
07765 
2 


03986 
03998 
04006 


49 

16 


07754 
07765 
2 


04010 
04020 
04020 
04028 


49 

16 


07754 

07765 
2 


04032 
04042 
04042 
04050 


49 

It 


07754 

C7765 
2 


04054 
04066 
04074 


49 
16 


07754 
07765 
2 


04078 
04C90 
04098 


49 
16 


07754 
07765 

2 


04102 
04114 
04122 


49 
16 


07754 
07765 
2 


04126 
04138 
04146 


49 

16 


07754 
CI765 
2 



00000 
-0051 



oocoo 

-0099 



00000 
-0123 



00000 
-0147 



00000 
-0169 

0-000 
-0191 



00000 
-0215 



00000 
-0239 



ocooo 

-0263 



00000 
-0287 
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12510 




B 


FMON 




04150 


49 


C7754 


coooo 


12520 




TFM 


FM0N*1 1 


.•-START 


04162 


16 


07765 


-0)11 


12530 




DC 


2 


,1 ,»-3 


04170 




2 




12540 




-1 

B 


FMON 




C4174 


49 


07754 


ccooo 


12550 




TFM 


FMCN*U 


.•-START 


04186 


16 


07765 


-0335 


12560 




DC 


2 


,1 ,t-3 


04 1 94 




2 




12570 




-1 
B 


FMON 




04198 


49 


C7754 


OCOOO 


12580 




TFM 


FMON* U 


.•-START 


04210 


16 


07765 


-0359 


12590 




DC 


2 


.1 ,*-3 


04218 




2 




12600 




- 1 
B 


FMON 




04222 


49 


07754 


OCOOO 


12610 




TFM 


FMON* U 


.•-START 


042)4 


16 


07765 


-0383 


12620 




DC 


2 


,1 ,•-) 


04242 




2 




12630 




-1 
B 


FMON 




04246 


49 


07754 


COCOO 


12640 




TFM 


FMON* 11 


.•-START 


04258 


16 


07765 


-0407 


12650 




DC 


2 


,1 ,•-) 


04266 




2 




12660 




-1 
B 


FMON 




04270 


49 


C7754 


00000 


12670 


• ••• 






WRITE ALPHAMERIC 










12680 




TF 


SWF 


.WATY-l 


04262 


26 


05969 


04281 


12690 




a 


WATV1 




04294 


49 


055)6 


ooooo 


12700 




TF 


SWF 


•WAPT-l 


04)06 


26 


05969 


C4305 


12710 




a 


WAPTi 




04318 


49 


05556 


OOOOO 


12720 




TF 


SMF 


•WACO- I 


043)0 


26 


05969 


04329 


12730 




8 


WACO I 




04)42 


49 


05610 


OOOOO 


12740 




TF 


SWF 


•PRA-1 


04)54 


26 


05969 


04)51 


12750 




B 


PRAl 




04)66 


49 


05576 


OOOOO 


12760 


• ••• 






READ ALPHAMERIC 










12770 




TF 


SWF 


• RATV-l 


04)78 


26 


05969 


04377 


12780 




B 


RATY1 




04)90 


49 


05970 


OOOOO 


12790 




TF 


SMF 


•RAPT-1 


04402 


26 


05969 


04401 


12800 




6 


RAPT 1 




04414 


49 


05990 


OOOOO 


12810 




TF 


SMF \ 


•RACO-1 


04426 


26 


05969 


04425 


12820 




B 


RACD1 


» »8 


044)8 


49 


06010 


0-000 


12830 




OORG 


•-1 




04446 








12840 




TFM 


FMON* U 


.•-START 


04646 


16 


07765 


-0597 


12850 




DC 


2 


.3 .»-3 


04416 




2 




12860 




-3 
B 


FMON 


» ,8 


04460 


69 


07754 


0-000 


12870 




OORG 


•-1 




04410 








12860 


MRITEI 


TFM 


MA 


«GAM*2 


04470 


14 


Q7241 


-2557 


12690 




B 


WRITIi 


• • 8 


04462 


49 


04422 


0-000 


12900 




OORG 


•-1 




04492 








12910 




TFM 


FMON* 11 


.•-START 


04492 


14 


07765 


-0441 


12920 




OC 


2 


•7 .»-3 


04500 




2 




12930 




-7 
S 


FMON 


t #8 


04S04 


49 


07794 


0*000 


12940 




OORG 


•-1 




04914 








12950 




TFM 


FMON* I I 


• •-START 


04514 


16 


07745 


-044) 


12960 




OC 


2 


•8 »•-) 


04922 




2 




12970 




■ 


FMQN 


• »6 


04926 


49 


07794 


0-000 


12960 




OORG 


•-1 




102* " m 
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PACE 



12990 
13000 

13010 
13020 
13030 
13040 

13050 
1)060 
13070 
13080 

13090 
13100 
13110 
13120 



TFM 
OC 
-7 
8 

OORC 
TFM 

DC 
-5 
B 

OORG 
TFM 

DC 
-5 



DORG 
TFM 

DC = 
-5 



FMQN* 1 1 
2 

FMON 

• -1 

FMONf 1 1 
2 

FMON 
I 

FMON* I I 
2 

FMON 

• - 1 

FMON* 1 1 
2 



•-START 

5 



•-START 

5 



04536 16 
04544 



• -3 

6 

• -3 



13130 B 
13140 DORG 

13150 1 

13160 •*•••♦ 

13170 

13180 

13190 •••••• 

13200 

13210 

13220 WRITI 1 TFM 
13230 TFL 
13240 BNF 
13250 TF 
13260 B 
13270 DORG 

13280 WRT12 TDM 
13290 TR 
13300 TFM 

13310 WRTI SM 
13320 SM 
13330 TD 
13340 BD 
13350 B 
13360 DORG 

13370 ICIG TF 
13380 CF 

13390 HO DS 
13400 BNF 
13410 CM 
13420 BNE 
13430 TFM 
13440 B 
13450 OORG 

13460 WRTSGN BNF 
13470 SM 
13480 TFM 

13490 WRTI3 SM 
13500 TFM 



FMON 

• -4 

620 FORTRAN II-D I WA FORMAT - SUBROUTINES 

RETURN FROM SWL VIA SWC IF WRITING I TYPE 
VALUE PUT IN F AC IN I FORM ,E XPANCEC TO ALPHA IN 
GAMMA RIGHT TO LEFT. HC CONTAINS ADR OF HIGH ORDER 
DIGIT IN GAM. AFTER VALUE IN GAM IS S I GNED, CHECK ED 
FOR WIDTH, MOVE TO CUTPUT RECORO. 

ERF 81 RESULTS IF VALUE TOO LARGE FOR FORMAT SPECS. 
WA2 »FAC*1 
FAC ,LOC ,11 

WRT12M2 »FAC-1 
F I XEND+6 ,ICON3*6 
FIX 

• -4 

FIXENDM ,2 
GAM-19 

HO 

WA 2 



WA 
WA 

I DIG 

I DIG*12 

• -4 
HO 
GAM 
5 

WRTI 

HO 

WRT SGN 

LAST 

BSWF 

♦ -4 

WRT 13 

HO 
HO 
HO 
OUT 



, MA SK l-l 
,GAM* 1 
, 1 
,2 

,WA 2 
• WA 2 



• 611 

• 11 



PREVENTS PREMATURE TERM. FOR NEG ARG 
AOR CF HI ORDER NON ZERO DIGIT 



,FAC 

• 2 
.20 
, 1 

• GAM 



04548 49 
04558 
04558 
04566 



04570 
04580 
04580 
04588 

04592 
046C2 
04602 
04610 

04614 
04621 



16 



07765 -0685 
2 



07754 0-000 



07765 -0707 
2 



49 07754 0-000 



07765 -0729 
2 



49 07754 0-000 



07765 -0751 
2 



49 07754 00000 



10 25 



04622 


16 


07392 


-2493 


04634 


06 


02492 


0608R 


04646 


44 


04690 


02491 


04658 


26 


03686 


05324 


04670 


49 


03854 


00000 


04677 








04678 


15 


03681 


00002 


04690 


31 


02536 


05326 


04702 


16 


04793 


-2556 


04714 


12 


07392 


-0001 


04726 


12 


07241 


-0002 


04738 


25 


0724J 


0739K 


04750 


43 


04770 


0739K 


04762 


49 


04782 


00000 


04769 








04770 


26 


04793 


07241 


04782 


33 


02555 


00000 


04793 




5 




04794 


44 


04714 


0724J 


04806 


14 


04793 


-2556 


04818 


4 7 


04850 


01200 


04830 


16 


0582- 


OPCOO 


04 842 


49 


059 34 


00000 


04 84 9 








04850 


44 


04886 


02492 


04862 


12 


04793 


-CC02 


04874 


16 


0479L 


OOOKO 


04886 


12 


04793 


-0001 


04898 


16 


04957 


-2555 
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13510 




S 


OUT 


• HO 






04910 


22 


04957 


04793 


13520 




C 


OUT 


•WIDTH 2 






04922 


24 


04957 


06064 


13530 




BH 


ER F8 I 








04934 


46 


05014 


01100 


13540 




SF 


OUT 








04946 


32 


04957 


00000 


13550 


OUT 


DS 


5 


, • 


• HI 


ORDER WKG ADR IN I/O RECORD. 


TYPE 04957 




5 




13560 




A 


OUT 


• LAST 






04958 


21 


04957 


05820 


13570 




SM 


CUT 


,2 






04970 


12 


04957 


-0002 


13580 




TK 


OUT 


• HO 


611 




04982 


31 


0495P 


0479L 


13590 




TFM 


LAST 


,00 


610 




04994 


16 


0582- 


000-0 


13600 




B 


BSWF 








05006 


49 


05934 


00000 


13610 




DORG 


• -4 








05013 








13620 


ERF8I 


TR 


UUD H+ll 


.FLZERS-67 






05014 


31 


02618 


06444 


13630 




TR 


OLD H* 1 I 


,H0 


11 




05026 


31 


02618 


0479L 


13640 




TFM 


EI + 2 


,67800 




SETS ERROR F8 AND ERASES REC 


MARK 05038 


16 


02617 


07800 


13650 




8NR 


• ♦2C 


• RWEFSW 






05050 


45 


05070 


06061 


13660 




B7 


ER COM 2 








05062 


49 


07386 




13670 




TF 


DATDUD*2 


,DATINH+2 






05070 


26 


06167 


06175 


13680 




TFM 


IORT 


,•♦23 






05082 


16 


00565 


-5105 


13690 




B 


IOPT 


,0ATDUD-4 


7 




05094 


49 


00532 


-6161 


13700 




B 


ER COM 2 








051C6 


49 


07386 


00000 


13710 




OORG 


• -4 








05113 








13720 


IF IX 


BP 


• ♦32 




. 


YES 


05114 


46 


05146 


01100 


13730 




TF 


FAC 


,FXZ 




NO 


05126 


26 


02492 


02815 


13740 




8 


FIXEND 








05138 


49 


03680 


OCOOO 


13750 




DORG 


•-3 








05146 








13760 




TD 


MU-l 


, FAC-2 


. 


STORE SIGN 


05146 


25 


03631 


02490 


13770 




C 


FAC 


»K 




IS CHAR GREATER THAN K 


05158 


24 


02492 


02221 


13780 




BNH 


• ♦56 








05170 


47 


05226 


01100 


13790 




TDM 


FXERR+25 


• 1 


i . 


SET ERR TYPE 


05162 


15 


03621 


00001 


13800 




TFM 


EI 


.579 


9, 


SET ER E9, OVFL IN FIX 


05194 


16 


02615 


00N79 


13810 




TF 


FAC 


,FX9 




YES. FAC « FX9 


05206 


26 


02492 


02805 


13820 




B 


FXERR 








05218 


49 


03596 


00000 


13830 




DORG 


•-3 








05226 








13840 




CF 


FAC-2 








05226 


33 


02490 


00000 


13650 




TF 


BETA 


.ZER0-51 




CLEAR ACO AREA 


05238 


26 


02603 


02716 


13860 




TF 


IMSA 


,FXZ 






05250 


26 


02575 


02815 


13870 




TF 


• ♦30 


.IMSAPF 


• » 


ALIGN DECIMAL POINTS 


05262 


26 


05292 


03298 


13860 




S 


• ♦18 


,FAC 






05274 


22 


05292 


02492 


13890 




A 


DUMMY 


, FAC-2 






05266 


21 


99999 


02490 


13900 




TF 


FAC 


. I MSA 






05298 


26 


02492 


02575 


13910 




B 


MU 








05310 


49 


03632 


00000 


13920 




OORG 


•-4 








05317 








13930 


I CON 3 


8 


WRT 12 


» 


,1 




05316 


4K 


04678 


00000 


13940 




DORG 


•-4 








05325 








13950 


MASK I 


DAC 


UtOOOOCOOOOO* 






05327 




11 


X 2 






OOOCCCOCCO' 
















13960 




OORG 


08CC0 








08000 








13970 




36 


A5 


.00702 






08000 


38 


08032 


00702 


13980 




36 


A5 


•00703 






08012 


36 


06032 


00703 


13990 




B 


• ♦22 








08024 


49 


0604* 


00000 


14000 




OORG 


•-3 








06032 








14010 


AS 


DSC 


9 


.019472016 






08032 




9 








019472016 
















14020 




DSA 


FIX 






1026 


06045 
08045 




5 

-3894 


X 1 
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PAGE 



14040 

14050 
14060 
14070 
14060 
14090 
14100 

14 UO 
14120 
14130 

14140 
14150 
14160 

14170 
14180 
14190 

14200 
14210 
14220 

142 30 
14240 
14250 

14260 
14270 
142B0 

14290 
14300 
14310 
14320 

14330 
14 340 
14350 
14360 

14 370 
14 380 
14 390 

14400 
14410 
14420 

14430 
14440 
144 50 



TRA 

TCO 080CO 

1620 FORTRAN 11-0 EF-HTVPE 
1620 FORTRAN 11*0 CFtMTVPE 
OORC START 
OS 3 
TFM 
OC 
-1 
B 

TFM 

DC 
-I 
B 

TFM 

DC 
-I 



0804* 36 00000 00500 
06058 49 00000 00000 
08000 



FORMAT 

FORMAT - SECONDARY LINKAGE 



FMON* I 1 
2 

FMON 

FMON*U 

2 

FMON 

FM0N*U 

2 



FMON 
FM0NM1 
2 



TFM 

OC 
. i 

B 

TFM 
DC 
- I 
B 

TFM 

DC 
-1 
B 

TFM 

OC 
'1 

6 FMON 
OORG »-l 
TFM FMON* 11 
DC 2 
-I 

B FMON 
OORG «-l 
TFM FMON* 11 

DC 2 
-I 



FMUN 
FM0N*11 

2 

FMON 
FMON* 11 

2 

FMON 

FM0N*11 

2 



TBM 
DC 
-I 
8 

TFM 

OC 
-1 
B 

TFM 

DC 
•I 



FMON 
FMON* 11 

2 

FMON 
FMON* 11 

2 

FMON 
FMON* 11 

2 



•-START 
1 



•-START 
1 



•-START 
I 



t- START 

I' ■ 



•-START 

I 



•-START 
1 



•-START 

I 



•-START 
1 



03851 
0385) 
03854 
03862 



3 

07765 
2 



0JB66 49 07754 00000 

03878 16 07765 -0027 

03886 2 

03890 49 C7754 00000 

03902 16 07765 -0051 

01910 2 



03914 
0)926 
0)934 



49 07754 COOOO 
16 07765 "0075 

2 



03938 49 07754 00000 
03950 16 07765 -0099 
03958 2 



102 7 



03962 
0)974 
0)982 

0)986 
0)998 
04006 

04010 
04020 
04020 
04028 

040)2 
04042 
04042 
04050 

04054 
04066 
04074 

04078 
04090 
04098 

04102 
04114 
04122 



49 C7754 00000 

16 07765 -012) 
2 

49 07754 00000 

16 07765 -0147 
2 



07765 
2 



07765 
2 



49 07754 
16 07765 
2 

49 07754 
16 07765 
2 

49 07754 
16 07765 
2 



00000 
-0169 

0-000 
-0191 



00000 
-0215 



00000 
-0239 



oocoo 

-0263 



1620-1443 MONITOR I VERSION 2 FORTRAN 11-0 SUBS SET 3 144 POS PAGE 



14460 







FMUN 




04126 


49 


07754 


OOCOO 


14470 




TFH 


FMON* 11 


.•-START 


04138 


16 


07765 


-0287 


144R0 




OC 


2 


,1 ,•-) 


04146 




2 




14490 




- 1 
B 


FMON 




04150 


49 


07754 


ooooo 


14500 




TFM 


FMON* 1 1 


.•-START 


04162 


16 


07765 


-0311 


14510 




OC 


2 


. 1 .•-) 


04170 




2 




14520 




-I 
B 


FMGN 




04174 


49 


07754 


OCOOO 


14530 




TFM 


FMON*ll 


.•-START 


04186 


16 


07765 


-0)35 


14540 




OC 


2 


.1 #•-) 


04194 




2 




14550 




-1 
B 


FMUN 




04198 


49 


07754 


OOOOO 


14560 




TFM 


FMON* 11 


.•-START 


04210 


14 


07765 


-0359 


14570 




OC 


2 


.1 ••-) 


04216 




2 




14580 




-1 
8 


FMON 




04222 


49 


07754 


ooooo 


14590 




TFM 


FMUN* 11 


.•-START 


04234 


16 


07765 


-0)6) 


14600 




OC 


2 


il 


04242 




2 




14610 




-I 
B 


FMON 




04246 


49 


C7754 


OOOOO 


14620 




TFM 


FMON* 11 


.•-START 


04258 


16 


07765 


-0407 


146 30 




DC 


2 


tl t*-3 


04266 




2 




14640 




-I 
B 


FMON 




04270 


49 


07754 


OCOOO 


14650 


• ••• 






WRITE ALPHAMERIC 










14660 




TF 


SWF 


» WATV-1 


04262 


2* 


059*9 


04261 


14670 




B 


WAT VI 




04294 


49 


0553* 


CCOOO 


14680 




TF 


SWF 


• WAPT-I 


04306 


2* 


059*9 


04305 


14690 




B 


WApTl 




04316 


49 


05556 


OOOOO 


14700 




TP 


SWF 


.WACO-1 


04330 


26 


059*9 


04)29 


14710 




B 


WACO I 




04342 


49 


05*10 


ooooo 


14720 




TF 


SWF 


•PRA-1 


04354 


2* 


059*9 


04333 


14730 




B 


PR A I 




043*6 


49 


05576 


OOOOO 


14740 


• ••• 






READ ALPHAMERIC 










14750 




TF 


SWF' 


.RATV-l 


04376 


2* 


05949 


04377 


14760 




B 


RATVt 




04390 


49 


05970 


OOOOO 


14770 




TF 


SWF 


t*APT-l 


04402 


2* 


059*9 


04401 


147B0 




B 


RAPT I 




04414 


49 


05990 


OOOOO 


14790 


EF2SW 


OS 


5 




04425 




5 




14600 




TF 


SWF 


tRACO-1 


0442* 


2* 


059*9 


04425 


14610 




B 


RAC01 


. t6 


04436 


49 


0*010 


0-000 


14820 




OORG 


4-1 




04446 








14830 




TFM 


FMON* 11 


t •-START 


04446 


1* 


077*5 


-05*7 


14640 




OC 


2 


tl t»-3 


0445* 




2 




14850 




-3 
B 


FMON 


t tO 


044*0 


49 


07754 


0-000 


14840 




OORG 


•-1 




0*470 








14870 




TFM 


FMON* 11 


t *-START 


04470 


I* 


077*5 


-0*19 


14660 




DC 


2 


*4 


04471 




2 




14690 




-4 
B 


FMON 


t .8 


04462 


49 


07754 


0-000 


14900 




OORG 


•- 1 




! II 9 k 04M * 








14910 




TFM 


FMON* 11 


.•-START 


1 U I 5 04492 


1* 


077*5 


-0*41 


14910 




OC 


2 


.7 .•-» 


04100 




2 





-7 
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PAGE 



14930 




8 


FMON 


* , 


.8 






04504 


49 


C 7 754 


c-coo 


14940 




OORG 


•-1 










04514 








1 4950 




TFM 


FMON* 1 I 


t »-START 








045 14 


1 6 


7 765 


-*066 3 


14960 




DC 


2 


♦ 8 


.••3 






04522 




2 




14970 




_ g 


_ _ 


* 


f 






04526 


49 


7 754 


0-000 


! toon 




nnn r 












04536 
























045 36 


16 


0/765 


*>0685 


l conn 








* 


i •-3 






04544 








i !njft 






ON 




t 8 










7 754 




i VnTm 




DORG 


• — 1 










04558 








i trtln 


**** 






MACRO run r 


TYPE 


DC in AklH UDfTC 




























04558 


3 j 




liUUUU 


l «nsn 






EF COM 




. o 








49 




0-000 


i *n r 




OORG 


• - I 










04580 








i tnin 








MACRO FOR E 


T 

TYPE 


READ ANO WRITE 












1 tftRft 




SF 


RWEFSW 


















1 509Q 




B 


EFCOM 




t 8 






04592 


A 


04624 


0-000 






DOR G 


• - I 


















IK 11 ft 


T 

TYPE 


AM 


SWF 


,3 








04602 


1 1 




" 7? 


15120 




B 


HTYPE I 


♦ 


. 8 






04614 


49 


05248 


0-000 


1 5 1 30 




OORG 


I 










04624 








I 5 140 


*c** # 


1620 FORTRAN I l-D EF- 


HTYPE 


FORMAT - SUBROUTINES 










15150 


E FC0M 


AM 


SWF 


, 3 








04624 


1 I 




- C003 


15160 




TF 


WIDTH 


, SWF 


. 1 1 






04636 


26 


05799 




15170 




AM 


SWF 


,2 








0464 8 


1 1 


05969 


-0C02 


15180 




TF 


LOC D 


, SWF 


.11 






04660 


26 


05680 


0596R 


15190 




TF 


INPLUS 


• LAST 








046 72 


26 


06051 


05820 


15200 




TF 


WIDTH 2 


.WIDTH 








04684 


26 


06064 


05799 


15210 




A 


WICTH 2 


•WIOTH 








04696 


2 1 


06064 


05799 


I 5220 




A 


LAST 


.WI0TH2 








04708 


2 1 


05820 


06064 


152 30 




C 


LAST 


.MAX 2 








04 720 


24 


05820 


06145 


15240 




BH 


ER F9 










04 732 


46 


07310 


01100 


i 5250 




TF 


TERM 


.LAST 








04 744 


26 


07093 


05820 


1 5260 




SM 


TERM 


.2 








04 756 


1 2 


7093 


-0002 


1 5270 




TF 


CHAR 


.WIOTH 








04 768 


26 


06 100 


05 799 


I 5280 




TF 


WA 


,FNH 








04 780 


26 


7241 


0331 3 


1 5290 




TDM 


97 


tO 








04 792 


1 5 


C0C97 


CCOOO 


1 5300 




TFM 


9 9 


,00 


. 1 






048C4 


16 


00099 


000-0 


15310 




. HQ 


EF WRT 


.RWEFSW 








048 16 


4 3 


05084 


06061 


15 320 




TF 


F AC 


.FLZALP 


. 1 1 






04828 


26 


02492 


3 34Q 


15 310 




TFM 


SWCADJ 


.READ EF 








0484C 


16 


06 152 


-4492 


15340 


R0FCM 


BNR 


RDF CH I 


.INPLUS 


til. 


CHECK FOR INPUT RECORD MARK 


04852 


45 


04884 


0605L 


15350 




TFM 


EF2SW 


• ERRF 7E 








04864 


16 


04425 


-5396 


I 5 360 




87 


0FF2SW 










04876 


49 


05440 




15370 


RDFCHl 


CM 


INPLUS 


.00 


• 61C. 


ELIMINATE LEADING 


BLANKS 


04884 


14 


0605L 


cco-o 


15 380 




BN6 


Ff.H NB 
















01200 


15390 




SM 


CHAR 


. 1 


.10 






04908 


12 


C6100 


CCO-1 


15400 




AM 


INPLUS 


,2 








04920 


11 


06053 


-C002 


15410 




C 


INPLUS 


.LAST 








04932 


24 


06053 


05820 


15420 




BL 


RD FCM 










04944 


47 


04B52 


01300 


154 30 




TFM 


EF2SW 


,EFEND*12 








04956 


16 


C4425 


- 5284 


1544U 




H 


BEF2SW 










04968 


49 


05440 


occoo 


15450 




DORG 


• -4 










04975 








15460 


FCHNB 


CM 


INPLUS 


.20 


.610. 


PROCESS FIRST NON 


BLANK CHARACTER 


04976 


14 


C60 51 


OCOKO 



1 021) 
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154 70 




BNE 


• ♦32 






04988 


47 


05C20 


CI 200 


154 80 




TFM 


EF2SW 


» EF M I N 




05000 


16 


04425 


~<656 


15490 




B 


BFF2SW 






05012 


49 


C5440 


ccoco 


15500 




DORG 


• -4 






05019 








15510 




CM 


INPLUS 


.10 .610 




0502G 


14 


060 5L 


000 JO 


15520 




BNE 


•♦32 






05032 


4 7 


05064 


01200 


15530 




TFM 


EF2SW 


. EF PLUS 




05044 


16 


C4425 


466 8 


15540 




B 


BEF2SW 






05056 


49 


05440 


00000 


15550 




DORG 


• -4 






0506 3 








15560 




TFM 


EF2SW 


»EF TVPE*36 




05064 


16 


04425 


-4116 


15570 




B 


BEF2SW 






05076 


49 


05440 


ooooo 


1 5 580 




DORG 


• -4 






05083 








15 590 


EFWRT 


C 


LOC D 


,F 




05084 


24 


05680 


02219 


15600 




BNH 


• ♦24 






05096 


4 7 


05 120 
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144 POS 



PACE 



I 7950 




COR G 


1 












04448 








17960 




TFM 


FMON* 11 


• »^STAR T 










04446 


16 


07765 


*0597 


17970 




OC 
-3 


2 




• •-3 








044SA 




2 




I 7980 




8 


FMON 




» • 








044A0 


49 


07754 


0-000 


17990 




DORG 


•-1 












04470 








18000 




TFM 


FM0N*1 1 


♦•-5TART 










04470 


16 


07765 


-0619 


18010 




OC 
-4 


2 




• •-3 








04478 




2 




18020 




B 


FMCN 




f 8 








044B2 


49 


07754 


0-000 


18030 




OORG 


I 












04492 








18040 


REAOEF 


BNF 


EF AD 2* 12 


, LOC 










04492 


44 


04A6A 


04069 


18050 




6 


EF RDl 




• 8 








04504 


49 


04A22 


0-000 


18060 




DORG 


1 












04514 








18070 




TFM 


FMON*I 1 


» ••START 










04514 


16 


07765 


-066 3 


18080 




OC 
-6 


2 




.•-3 








04522 




2 




18090 




8 


FMON 




.8 








04526 


49 


07754 


0-000 


1 8 1 00 




QQR6 


•i- 1 












04534 








1 8 1 10 


ATVPE 


AM 


SWF 


3 










04536 


1 1 


05969 


-0003 


18120 




B 


A TYRE 1 




.8 








04546 


49 


04922 


0-000 


18130 




OURG 


• • 1 












04551 








18140 




TFM 


FMON*U 


•••START 










04556 


16 


07765 


-0707 


181 5d 




pc 

-5 


2 




. »-3 








04566 




■ 2 




18160 




3 


FMON 




• 8 








045 70 


49 


07754 


0-000 


18170 




OORG 


»*1 












04580 








18180 




TFM 


FMON* U 


( *-START 










04580 


16 


07765 


-0729 


18190 




CC 
-5 


2 




. •• 3 








04568 




2 




18200 




8 


FMON 




.8 








04592 


49 


7754 


0-000 


18210 




DORG 


•-1 












046C2 








1 8220 




TFM 


FMON* 1 1 


.••START 










04602 


16 


07765 


-075 1 


1 82 30 




DC 
-5 


2 




• •-3 








04610 








182 40 




B 


FMON 












046 14 


49 


7754 


ocooo 


18250 




CORG 


• -4 












0462 1 








18260 




1620 FORTRAN IItO AAEF-ATYPE FORMAT -SUBROUTINES 












18270 


EFR01 


CF 


toe 












04622 


33 


06069 


AflOAO 

WUMVU 


1 8280 




TF 


FIXEND*6 


. I CON 6*6 










046 34 


26 


1664 


04920 


18290 




H 


FIX 












04646 


49 


03654 


U w V w w 


18300 




OURG 


m« 












0465 3 








18310 


EFKD2 


TDM 


FUENO*l 


1 2 










04654 


1 j 


03661 


00002 


16 320 




TFL 


LOC 


tF.AC 


16 












0608R 




18330 


ERF 7S 


BNF 


BSWF- 12 


• Ei 


i • 


BR IF NOT ERROR TYPE 


F7 




046 78 


44 


05922 


026 1 5 


1 8 340 




CF 


El 






ERASE ERROR F7 INDICATICN 






026 1 5 


uuwuu 


1 6350 




B 


ERC0M2 












04 702 


49 


07366 


noonn 






DORG 














04 7C9 








18370 


EFFIX 


BP 


•♦32 






YES 






04710 


46 


04742 


01100 


1H380 




TF 


F AC 


»FXZ 




NU 






04722 


26 


02492 


02815 


18390 




B 


FIXENO 












04 734 


49 


01660 


00000 


10400 




OURG 


• -3 












04742 








18410 




TO 


M.LWl 


.FAC-2 


• • 


STORE SIGN 






04742 


25 


01631 


02490 


18420 




C 


FAC 


,K 




I S CHAR GREATER THAN 


K 




04 754 


24 


02492 


02221 


18430 




BNH 


• ♦56 












047A6 


47 


04622 


01100 


1 B440 




TDM 


FXERR*25 






SET ERR Type 




1 035 


04 778 


15 


162 1 


0000 1 
























162C-1443 


MONI TOR | 


VERSION 2 FORTRAN ll-D 


SUBS SET 3 144 


POS 






PAGE 


1 8450 




TFM 


6 1 


♦ 579 


• 9, 


SET ER E9, CVFL IN FIX 




04 790 


16 


02615 


00N79 


I 8460 




TF 


FAC 


• FX9 




YfcS, FAC > FX9 










02492 


02605 


I 84 70 




B 


FXERR 














4U 


03596 


nnnnn 
uuuuu 


1 8480 




DORG 


• -3 












H4 ft 77 












CF 


FAC^2 




















1 flSOO 




TF 


BETA 


,IER0^51 


» t 


CLEAR AGO AREA 








26 


0260 3 


02716 


ifl«iin 




TF 


IM5A 


,FXZ 










n 4 II 4 4 




nfiilii 




18520 




TF 


»*30 


t 1 MSAPF 




ALIGN DECIMAL POINTS 








26 




n*?ao 


185 30 




5 


• ♦18 


tF AC 












22 






18540 




A 


DUMMY 


.FAC-2 










H4«a7 




00000 


n?4un 


1 8550 




TF 


FAC 


,1MSA 










n4A04 


74 
fa 


A7407 


02575 


1 8560 







MU 














49 


03632 


UUUUU 


185 70 




DORG 


•-4 - 












H401 1 








185 80 


I C0N5 


B 


EFRC 2 


• 


.1 








H4QI4 




* 


nnnnn 
UUUUU 


1 6590 




CORC 


• -4 












fl4Q7 1 








1 8600 


•••••• 




MACRO FOR A 


TYPE 


READ AND WRITE 














1 86 1 


A TYPE I 


TF 


WIDTH 2 


♦ SWF 


.11 








04922 






0596R 


1 86 2 




TF 


INPLUS 


.LAST 










04914 




06051 


05820 


186 30 




A 


LAST 


•WIOTM 2 












21 


05820 




1 8640 




C 


LAST 


.NAX 2 










04956 


24 


05620 


06145 


1 8650 




BH 


ER F9 












04970 








1 8660 




TF 


TERN 


.LAST 










04962 


26 


07093 


05820 


18670 




SM 


TERM 


t2 










04994 


12 


07091 


-0002 


1 8680 




TFM 


SMC ADJ 


.WRITE A 










05006 


16 


04 152 


— 5266 


1 8690 




80 


SWL 


•Am EF SM 










050 16 


41 


06042 


06061 


18700 




TFM 


SMC ADJ 


.READ A 










05010 


It 


06 152 


— 5050 


16710 




e 


SWL 












05042 


49 


06042 


nrfiftfl 

UbUVU 


18720 




OORG 


• -4 




















1 8730 


RE AGA 


CF 


INPLUS 




.6 








n«n«n 


Jf 


AT AC* 


AAAAA 


18740 




AN 


INPLUS 


!l 


• 10 








05062 


1 1 


0605 9 




18750 




C 


INPLUS 


.TERM 










05074 


24 


04051 


07091 


1 8760 




BL 


READ A 












05086 


47 


05050 


Bl 100 


1 8770 




BNF 


ROAFL 


,LOC 










05096 




052 10 


06069 


1 8780 




CF 


LOC 












051 10 


11 


04069 


flflOOO 
wuvwu 


1 8790 




TF 


LOC 


• FX 2 


.6 








05122 


24 


OAOBA 


02615 


18800 




S 


WIDTH 2 


.K 










05 134 


22 


04044 


02221 


18810 


RCA 


BH 


ERF7A 












05146 


44 


OS 190 


01 100 


18820 




A 


LOC 


.WIDTH 2 










05156 


2 1 


04069 


06044 


18830 




TF 


LOC 


• TERN 


.611 








05170 


24 


040 BR 


07091. 


18840 




a 


ERF7S 












05162 


4,9 


04676 


AAAAA 
www 


1885Q 




OORG 


•-4 ■ ' 












05 1 69 








18860 


ERF7A 


TON 


EI 


• 7 


.11. 


SET ER F7 ERROR I NO 


A NO 


SNITCH 


05190 


15 


024 15 


OOOOP 


16670 




8 


ERF7S 












05202 


49 


04476 


00000 


18860 




OORG 


t«f 4 












0S209 








18890 


RCAFL 


TFN 


LOC 


• 00 


.610 








052 10 


14 


0606R 


000-0 


18900 




SM 


LOC 


»2 


• 10 








0§222 


|2 


06069 


000-2 


16910 




TF 


LOC 


• FL2 


• All 








092 14 


24 


040 BR 


0335L 


18920 




S 


WIDTH 2 


• F 










0524A 


22 


04044 


02219 


16910 




6 


RD A 












05266 


49 


05144 


00000 


16940 




OORG 


•-4 












0S2*f 








18950 


MR I TEA 


TF 


FAC 


• LOC 


til 








011*4 


24 


02442 


0406ft 


16960 




BNF 


WA fx 


•FAC- I 








05276 


44 


05176 


02441 


18970 




SM 


LOC 


• 2 










onto 


12 


06089 


-0002 


169*0 




S 


NIQTH I 


• F 








10 30 


05102 


12 


04044 


02219 


16990 


MRTA 


6H 


MRTA I 










Oft 14 


44 


05156 


01100 


19000 




A • 


LOC 


•WIDTH 2 








09114 


II 


06069 


04044 



1620-144} MQNI TOR I VERSION 2 FORTRAN ll-D SUBS SET 3 14* PQS 



PAGE 



1 90 1 




j f 




LOC »61l 


05338 


26 


7091 


0608R 








A CL.B * 
B Star 




05 350 


49 


059 34 


00000 


19030 




DORG 






05 35 7 








19040 


WR T A2 


SM 






05 358 


12 


06064 


000-2 


i oftln 












49 


05314 








DORG 


• 4, 




05 3 7 7' 








19070 


W AFX 


S 


WIDTH 2 t 






22 


06064 


02221 


19080 




B 


WR T A 




05 390 


49 


0.5314 


00000 


19090 




CORG 


• -4 




05397 








19100 




OORG 


08CC0 




08000 








19110 




38 


AS * 


00702 


08000 


38 


080 32 


C 702 


19120 




36 


A8 , 


00703 


08012 


36 


. 08032 


00 70 3 


19130 




B 


•♦22 




08024 


49 


08046 


OOOOO 


19140 




OORG 


.-3 




08032 








19150 


AS 


DSC 


9 , 


019515016 


08032 




9 








019515016 












19160 




OSA 


FIX 




08045 




5 


X 1 












08045 




- 3854 




19170 




TKA 






08046 


36 


00000 


00500 












08058 


49 


00000 


OOOOO 


19180 




TCD 


O80C0 




08000 








19190 




1620 FORTRAN 


II-D 6FMW FORMAT 










1920Q 




1620 FORTRAN 


II-D 6FMW FORMAT - SECONCARY LINKAGE 










19210 




OORG 


START 




03851 








19220 




OS 


3 




03853 




3 




19230 




TFM 


FMON*ll t 


•-START 


03854 


16 


07765 


-C003 


19240 




DC 


2 . 


I »»-3 


03862 




2 




19250 




-1 
B 


FMON 




3866 


49 


C7 754 


OCOOO 


19260 




TFM 


fmon*ii t 


•-START 


03878 


16 


07765 


-0027 


19270 




DC 


2 . 


1 ,»-3 


03886 




2 




19280 




B 


FMON 




03890 


49 


7754 


cccoo 


19290 




TFM 


FMON*ll t 


•-START 


03902 


16 


07 765 


-0051 


19300 




DC 


2 • 


1 »»-3 


0391C 




2 




19310 




- 1 
B 


FMON 




03914 


49 


C 7754 


CCCOO 


19320 




TFM 


FMON*ll , 


•-START 


03926 


16 


07765 


-0075 


19330 




DC 


2 . 


1 »»-3 


03934 




2 




19340 




-1 

b 


FMON 




03938 


49 


7754 


OOOOO 


19350 




TFM 


FMON*ll i 


•-START 


0395C 


16 


07765 


-C099 


19360 




DC 


2 , 


1 »»-3 


03958 




2 




19370 




-I 




FMON 










uuuuu 


19380 




TFM 


FMON* I 1 i 


•-START 


03974 


16 


07765 


-0123 


19390 




DC 


2 t 


I »*-3 


03982 




2 




19400 




-I 

B 


FMON 




03986 


49 


C7 754 


OCOOO 


19410 




TFM 


FMON*U , 


•-START 


03998 


16 


07765 


-0147 


19420 




DC 


2 t 


1 t»-3 


040C6 




2 




19430 




- 1 

b 


FMON 


1037 


04010 


49 


C 7754 


CCOOO 


19440 




OORG 


• -1 




04020 









1620-1443 MON I TOR I 



19450 


TFM 


FMCN* 1 1 


.♦-START 


19460 


DC 


2 


,1 ,»-3 


19470 


- 1 
B 


FMON 


t *8 


19480 


DORG 


•-1 




19490 


TFM 


FMON*ll 


.•-START 


19500 


DC 


2 


tl t»~3 


19510 


-I 
B 


FMON 




19520 


TFM 


FMON*ll 


.•-START 


19530 


DC 


2 


.1 t»-3 


19540 


- 1 
B 


FMON 




19550 


TFM 


FMON* 11 


.•-START 


19560 


DC 


2 


tl t»-3 


19570 


B 


FMON 




19580 


TFM 


FMON* 1 1 


.•-START 


19590 


OC 


2 


tl t»-3 


19600 


-1 
B 


FMON 




19610 


TFM 


FMON* 11 


.•-START 


19620 


DC 
-I 


.2 


tl t»-3 


19630 


B 


FMON 




19640 


TFM 


FMON* 1 1 


.•-START 


19650 


DC 


2 


tl t»-3 


19660 


-I 
B 


FMON 




19670 


TFM 


FMON* 11 


,«-START 


19680 


DC 


2 


tl t»-3 


19690 


- 1 
B 


FMON 




19700 


TFM 


FM0NH1 


.•-START 


19710 


DC 


"2 


tl t»-3 


19720 


- 1 
B 


FMON 




19730 


TFM 


FMON* 1 1 


t «- START 


19740 


DC 


2 


»l t»-3 


19750 


-1 
B 


FMON 




19760 


TFM 


FM0N*11 


.•-START 


19770 


DC 


2 


tl t«-3 


19780 


-1 
B 


FMON 




19790 ••«• 






WRITE ALPHAMERIC 


19800 


TF 


SWF 


.WATY-l 


19810 


B 


WATY1 




19820 


TF 


SWF 


tWAPT-l 


19830 


B 


WAPTi 




19840 


TF 


SWF 


•WACD-1 


19850 


B 


WAC01 




19860 


TF 


SWF 


,PRA-J 


19870 


8 


PRA 1 




19880 •••♦ 






READ ALPHAMERIC 


19890 


TF 


SWF 


,11 A TV- 1 



RSION 2 FORTRAN M-D SUBS SET 3 



14*. POS 

U<.')2 

040*2 
04 04 2 
0405C 

04054 
04066 
04074 

04078 
04090 
04098 

04 102 
04114 
04122 

04126 
04138 
04 146 

04 150 
04162 
04170 

04174 
04186 
04194 

04 198 
04210 
04218 

04222 
04234 
04242 

04246 
04258 
04266 



49 
16 



Ifc 07765 -0169 

? 



C?f><< 0-000 



I 7fc5 
2 

07754 
07 765 
2 

07754 
07765 
2 

07754 
07765 
2 

07754 
07765 
2 

07754 
07765 
2 

07754 
07765 
2 

07754 
07765 
2 

7 754 
07765 
2 

07754 
07 765 

2 



CCOOO 
-0215 



CCCOO 
-0239 



CCCOO 
-0263 



OOOOO 
-0287 



OOOOO 
-0311 



OCOOO 
-0335 



OCOOO 
-0359 



OOOOO 
-0383 



OCOOO 
-0407 



04270 49 07754 OOOOO 



04282 
04294 
04306 
04318 
04330 
04342 
04354 
04366 



26 05969 

49 09538 

26 05969 

49 05558 

26 05969 

49 05610 

26 09969 

49 05578 



04281 
OCOOO 
04305 
OOOOO 
04329 
OOOOO 
04353 
OOOOO 



1038 



04378 26 05969 04377 









162C-1443 MONITOR I 


VERSION 2 FORTRAN 11-0 SUftS SET 3 


144 POS 






PAGE 


19900 




ft 


ft A TV 1 






04390 


49 


05970 


00000 


19910 




TF 


SMF 


»RAPT-1 




04402 


2* 


059*9 


04401 


19920 




ft 


RAMI 






04414 


49 


05990 


ooooo 


19910 




TF 


SWF 


•RACD-1 




0442* 


24 


059*9 


04425 


19940 




ft 


RACD1 


i 


• ft 


0443ft 


49 


0*010 


0-000 


19950 




OORG 


•- 1 






0444ft 






19960 




TFM 


FMON* 1 1 


t • - START 




0444 ft 


1* 


077*5 


-0597 


19910 




DC 
-3 


2 ■ 


♦ 3 


♦ •-3 


0449* 




2 




19910 




8 


FMON 


t 


♦ ft 


044*0 


49 


07754 


0*000 


19990 




DORG 








04470 








20000 




TFM 


FMON* I 1 


•-START 




044 70 


16 


077*5 


-0619 


20010 




DC 
-4 


2 


f 4 


♦ •-3 


0447ft 




2 




20020 




ft 


FMON 


* 


♦ 9 . 


04482 


49 


C7754 


0-000 


20010 




DORG 


I 






04492 








20040 




TFM 


FMON* 1 1 


♦•-START 




04492 


16 


07765 


-0641 


20050 




DC 
-7 


2 


♦ 7 


♦ •-3 


04500 




2 




20060 




ft 


FMON 




♦ 8 


04504 


49 


07754 


0-000 


20070 




DORG 


•- 1 






04514 








200 10 


EFMW 


TF 


FL TEND 


♦I CON** 6 




04514 


26 


03730 


05500 


20090 




ft 


EFMWl 




.8 


04526 


49 


04626 


0-000 


20100 




DORG 








0453* 








20110 




TFM 


CMOkl f 

rWyN* i 1 


• START 




0453* 


16 


07765 


-0*85 


20120 




DC 
-7 


2 


• » 


♦ •-3' 


04544 




2 




2013C 




8 


FMON 




it ' 


04548 


49 


C7754 


0-000 


20140 




DORG 








04558 








20150 




TFM 


r M N * 1 1 


T A ■ f 

t •-STAR I 




04558 


16 


07765 


-0707 


20160 




DC 
-5 


2 


t 5 


♦ •-3 


04566 




2 




20170 




B 


FMON 


• 


♦ ft ■ 


0457C 


49 


07756 


0-000 


20 1 10 




OORC 


•— I 














20190 




TFM 


FMON* 1 1 


♦•-START 




04580 


16 


07765 


-0729 


20200 




DC 
-5 


2 


.5 


♦ •-3 


04588 




2 




20210 




6 


FMON 


♦ 


• 8 


04592 


4«# 


07754 


0-000 


20220 




OORG 


•-1 






04602 








20230 




TFM 


FMON*U 


♦•-START 




04602 


16 


C7765 


-0751 


20240 




DC 
~5 


2 


♦ 5 


♦ •-3 


04610 




2 




20250 




8 


FMON 






04614 


49 


07754 


OOOOO 


?0260 


REFSW 


OS 


■5.. 


• • 




04625 




5 




20270 




1620 FORTRAN 1 1-0 EFMW FORMAT - SUBROUTINES 










20280 


• • » 






E AND F TYPE MANTISSA WRI TING,FLQAT ARC IF REC 










20290 








COMPUTE DEC 


PT IN GAM AND OUTPUT RECORD, MOVE 










20300 








MANTISSA DIGIT BY DIGIT, RIGHT TO LEFT, FROM FAC 










20310 








TO GAM, INSERT SIGN, CHECK WIDTH, AND 2ERC • 










20320 








BR TO WAT F 


FOR F TYfE CONTINUATION 










20330 


£ F M W I 


TFL 


F AC 


♦ LOG 


♦ 11 










20340 




BNF 


EFLOAT 


♦FAC- I 




04638 


44 


05194 


02491 


20350 


EFALPM 


TFM 


FLTEND- 


4 ,20 


.10 


04650 


16 


03726 


OCOKO 


20360 




TF 


DPT 


• TERM 




04662 


26 


07445 


07093 


20370 




S 


OPT 


♦ LOC 2 


103 9 




22 


07445 


05678 


20380 




TFM 


DPG 


♦ GAM 




04686 


16 


04084 


-2555 








1620-1443 MONITOR 1 


VERSION 2 FORTRAN I 1^0 SUBS SET 3 


144 POS 






PAGE 


20390 




S 


DPG 


♦ LOC D 2 




04698 


22 


06084 


05678 


20400 




TF 


DPTM2 


♦ OPT 




04710 


26 


07450 


07445 


20410 




SM 


DPTM2 


♦ 2 




04722 


12 


07450 


^0002 


20420 


EF ALP 


SM 


WA 2 


t 1 




04734 


12 


07392 


-0001 


20430 




TD 


WA 


♦ WA2 


.611 


04 746 


25 


0724J 


0739K 


20440 




CF 


WA 


♦ 


♦ 6 


04758 


33 


0724J 


OOOOO 


20450 




SM 


WA 


♦ 2 




04770 


12 


07241 


-0002 


20460 




C 


WA2 


♦FM IMF 




04782 


24 


07392 


03313 


20470 




BH 


EF ALP 






04794 


4* 


04734 


01100 


20480 




TFM 


MA 


♦ 00 


♦ 610 


04806 


16 


0724J 


000-0 


20490 




BNF 


EF CHKS 


♦FAC-2 




04818 


44 


04842 


02490 


20500 




TFM 


WA 


♦ 20 


♦ 610 


04830 


16 


07 24 J 


OOOKO 


2C510 


EFCMKS 


TFM 


CKW 


♦ COO 


♦ 9 


04842 


16 


04981 


00-00 


20520 




A 


CKW 


♦ LOCO 




04854 


21 


06981 


05680 


20530 




A 


CKW 


♦ FAC 




04866 


21 


06981 


02492 


20540 




TF 


CHAR 


♦ CKW 




04878 


26 


06100 


06991 


20550 




S 


CHAR 


♦ F 




04890 


22 


06100 


02219 


20560 




C 


WIDTH 


♦ LOC D 




04902 


24 


05799 


05680 


20570 




BNL 


♦ ♦32 






04914 


4* 


04946 


01300 


20580 


ERF8ES 


TFM 


REFSW 


•ERF ftE 




0492* 


16 


04*25 


-5250 


20590 




a 


•REFSW 






04938 


49 


05502 


OOOOO 


20600 




OORG 


• *4 






04945 








20610 




CM 


FAC 


.-70 


♦ 10 


0494* 


14 


02492 


OOOP- 


20620 




BNF 


• ♦20 


• RWEFSW 




04958 


44 


04978 


06061 


20630 




ftT 


• ♦20 






04970 


49 


04990 




2064C 




BL 


• ♦24 






0497ft 


4? 


05002 


01300 


20650 




BD 


• ♦3* 


• FNH 


♦ 11 


04990 


43 


0502* 


0331L 


20660 




TCN 


FLTENO* 


4 .-I 




05002 


15 


0372* 


OOOOJ 


20670 




TFM 


CHAR 


♦ -099 


♦ 9 


05014 


16 


0*100 


00-9R 


20680 




BNF 


WRTFS 


• RWEFSW 




0502* 


44 


05174 


060*1 


20690 








WRITE E TYPE. ASSEMBLE EXP IN GAM USING A MASK, 










20700 








THE CHAR AND SIGN* MOVE LEFT GAM AND RIGHT GAM TO 










20710 


•••••• 






OUTPUT. THEN GO TO INSERT DECIMAL POINT 










20720 


WRTE 


S 


WIDTH 


♦ F 




0503ft 


22 


05799 


02219 


20730 




BL 


•♦32 




•• BRANCH |F F LARGER THAN EFF WIDTH 


05050 


♦ 7 


05082 


01300 


20740 WRTE2S 


TFM 


REFSW 


• WRTE2 




050*2 


1* 


04*25 


-4*44 


20750 




ft 


BREFSW 






05074 


49 


05502 


OOOOO 


20760 




OORG 


•-4 






050ft 1 








20770 




BD 


• ♦3* 


.FLTEND-4 




05012 


63 


0511ft 


0372* 


20780 




S 


CHAR 


♦WIDTH 




05094 


22 


0*100 


05799 


20790 




BO 


ERF8ES 


♦CHAR-2 




0510* 


43 


0492* 


0*098 


20800 




TFM 


• ♦47 


• GAM 




0511ft 


1* 


051*5 


-2555 


20610 




A 


• ♦35 


•WIDTH 




05130 


21 


051*5 


05799 


20120 




A 


•♦23 


♦WIDTH 




05142 


21 


051*5 


05799 


20130 




TF 


GAM 






0915* 


2* 


02555 


OOOOO 


20160 




ft 


WRTE2S 






051** 


49 


050*2 


OOOOO 


20810 




OORG 


•-4 






05 in 








2011*0 


WftTFS 


TFH 


REFSW 


• WRTF 




051?* 


16 


0**25 


-4750 


20170 




ft 


BREFSW 






0518* 


*t 


05502 


OOOOO 


20880 




OORG 


•-4 






09191 








20190 


EFLOAT 


AM 


FAC 


• 00 


•10* IS FAC 2ER0 


0919* 


11 


02492 


000-0 


20900 




•Z 


I ERF AC 




• • VfS 


0920* 


** 


01422 


01200 


20910 




TO 


99 


•FAC 


•• STOftf SIGN 


0521ft 


25 


00099 


02492 


20920 




CF 


FAC 






09210 


11 


02492 


ooooo 


20930 




TR 


BETA-9 


♦ FXH 


•11 '„ , 


05242 


11 


02594 


012tl 


20960 




TF 


FftC-2 


•9SPF-1 


• • CLEAR MC 10 40 


0519* 


2* 


02**0 


02ftftl 



162C-1443 MONITOR I VERSION 2 FORTRAN 1 1-0 SUBS SET 3 144 POS 



PACE 44 



20950 




TF 


SA WE , 


K 


» ♦ 


20960 




TFM 


•♦23 , 


iBE TA-9 




20970 




BO 


• ♦44 i 


,0UMMY 


i i 


20980 




SM 


SAVE i 


01 


,10, 


20990 




AM 


• -13 « 


01 




21000 




B 


• -36 






21010 




DORG 


• -3 






21020 




TR 


FNH t 


,•-33 


,61 1 


21030 




TF 


• ♦35 t 


iFNH 




21040 




AM 


• ♦23 , 


,01 




21050 




BNR 


• -12 ( 


(DUMMY 




21060 




TDM 


•- 1 i 


,0 


,6 


21070 




TO 


fkC*l , 


iRECMK 




21080 




TF 


BETA , 


, ZERO- 74 




21090 




8 


EN0R60 






21100 




OORC 


• - 3 






21110 


EN0R36 


TR 


FNH , 


• FH 


,611, 


21120 




TDM 


FAC-1 


i0 


, , 


21130 


ENUR 60 


SF 


FNH 




,6 


211*0 




BO 


F IN ISH 


, FNH 


,611, 


21150 




SM 


SAVE 


, I 


,10, 


21160 




B 


EN0R36 






21 170 




OORG 


• -4 






21 180 


IC0N6 


R 


EF ALPH 




,1 


21190 




OORG 


• -4 






21200 


BREFSW 


TFM 


MBA SE *5 


.HTYPE+24 




21210 




TFM 


FMON* 1 1 


,HTYPE^24- 


START 


21220 




OC 
-9 


2 


.9 


, »-3 


21230 




e 


FMON 






212*0 




OORG 


• -4 






21250 




OORG 


080C0 






21260 




38 


A9 


.00702 




212 70 




36 


A9 


t 00703 




21280 




B 


• ♦22 






2 1 290 




OORG 


• - 3 






21300 


A9 


DSC 


9 


,01953101 7 








0195310 17 






21310 




DSA 


F I X 






21320 




TRA 








21330 




TCO 


08CC0 






21340 




1620 FORTRAN II-D WRTE-F 1 


21350 


• •«•• 


1620 FORTRAN II-D WRTE-F 1 


21360 




OORG 


HTYPE^24 






21370 




TFM 


MB A SE *5 


• FIX 




2 1 380 




B 


REFSW 




,6 


21390 


W A3 


OS 


5 


.REFSW 




21400 




OORG 


• -4 






21410 


WRTF2 


TR 


GAM ♦ 1 


• MASK 




2 1 420 




OD 


ERF8E 


•CHAR-2 




21430 




TO 


GAM^8 


i CHAR 




21*40 




T D 


GAM *6 


.CHAR-l 










1620-14*3 


MONITOR I 


VER 


21450 




BNF 


• ♦2* 


t CHAR 




21460 




TCM 


GAM ♦ 3 


.2 




21470 




TF 


TFRM 


,GAM^2 


,6 


21480 




TR 


DP T 


,DPG 


.611 


21490 




8 


KEF DEC 






21500 




DORG 


• -* 







FINO HI ORD DIGIT 
ADJUST CHAR 



F I NO AND CLEAR RECORD MARK 



REPLACE RECORD MARK 
CLEAR BETA 



LEFT SHIFT ONCE 

SET LAST DIGIT TO ZERO. 



TEST LEADING ZERO 
SUBT ONE FROM EXPONENT 





2b 


02565 


02221 


C5? 78 


16 


0510 I 


-2594 


05290 


4 3 


05334 


99999 


05302 


12 


02565 


000- I 


05314 


11- 


5 301 


-0001 


05 326 


49 


05290 


OOCOO 


05 3 34 








05 3 34 


3 l; 


3 ML 


0530 J 


05346 


26 


05 3 81 


3 31 3 


05 358 


I I 


0538 1 


-COO 1 


05 3 70 


4 5 


05 358 


99999 






0538 J 


00000 




?s 


0249 3 


0240 3 








0269 3 




. 49 


S 4 5 


00000 










, ' 


3 1 


3 3 IL 


3 30Q 


054 3fl 


1 5 


02491 


OCOOO 


S <> S 


3 2- • 


3 3 I L 


00000 


05Mt>?. 


■■4 3 


3 72L 


0331L 


5*7* 


12 


02565 


000- I 




4<J 


05*26 


OCOOO 


ns4«?t 












04650 

• '■ 


00000 










s s c 2 


1 b 


7962 


-4626 


05 5$.* 


I 6 


7 765 


-0775 






2 




05526 


4 9 


C 7754 


CCCOO 


055 3 3 








08000 










*>! 






p i o U ? 




080 3 2 


OC 70 3 


GR02* 


44 


080*6 


00000 


080 32 








803? 




9 




OH 04 5 




5 


X I 


o t'u* 1 * 




-3«*>* 




OH- a# 


«*» 


1,000.1 


0C5OO 




4 9 


oo uui 


00000 



FORMAT - SUBROUTINES 



TEMP STORE FOR ZERO INSERT AOURESS 



0*62*» 
04<5<>» 

0>*.' 't 



1041 



21510 
21520 
21530 
21540 



3 CASES FOR WRITING F TYPE, CHAR IS EXP-LOCD-F 

CHAR IS NEG, EXP IS NEC 

CHAR IS NEG, EXP IS POSITIVE (WRTFPE) 

CHAR IS POSITIVE (WRTFPC) 



21550 


WR TF 


TR 


GAM ♦ I 


, MASK EP+7 




21560 




80 


F ZERO 


, FL TEND-4 




21570 




BD 


ER F8 E 


.CHAR-2 




21580 




CM 


CK k 


,C00 


. 9 


21590 




BNH 


F ZERO 






21600 




C 


CKW 


.WIDTH 




21610 




BH 


ER F8 E 






21620 




TF 


CHAR 2 


,CHAR 




21630 




A 


CHAR 2 


.CHAR 




21640 




BNF 


WRTFPC 


.CHAR 




21650 




TFM 


• ♦35 


,GAM 




21660 




A 


• ♦23 


•CHAR 2 




21670 




TF 


GAM 






21680 




BNF 


WRTFPE 


,FAC 




21690 




TF 


LAST 


,GAM^2 


,6 


21700 




TF 


0PTM2 


,GM2F 


,611, 


21710 




Tf 


WA3 


,DPT 




21720 


FNCNEZ 


AM 


WA3 


t2 


, • 


21730 




80 


WEF DEC 


,WA3 


,11, 


21740 




TFM 


WA3 


.70 


• 610 


21750 




B 


FNCNEZ 






21760 




DORG 


• -4 






21770 


FZERQ 


TFM 


DPTM2 


,70 


• 610 


21780 




TF 


CHAR 2 


.LOCO 2 




21790 




TDM 


CHAR-2 


,0 


.11 


21800 




B 


CLR70S- 12 






21810 




DORG 


•-* 






21820 


WRTFPE 


TF 


DPTM2 


,DPG 


• 611 


21830 




TR 


DPT 


»0PG 


.611 


21840 




B 


we F DEC 






21850 




DORG 


•-4 






21860 


WRTFPC 


TF 


• ♦30 


.TERM 




21870 




S 


• ♦18 


.CHAR 2 




21880 




TF 




•GAM*2 




21890 




TF 


CLR70SO0 


t TERM 




21900 




C 


CHAR 


,LOCD 




21910 




BNL 


CLR 70S 






21920 




A 


OPG 


,CHAR 2 




21930 




TR 


OPT 


,DPG 


»61l 


21940 




TF 


CLR70SO0 


,LAST 




21950 


CLH 70S 


TFM 


• ♦35 


•MASK Fl 




21960 




A 


• ♦23 


•CHAR 2 




21970 




TF 


TERM 


• 


.6 


21980 


WEFOEC 


TFM 


OPT 


.03 


• 610 


21990 




TFM 


LAST 


• 00 


,610 


22000 




B 


BSWF 







SET SIGN LEFT OF DEC PT 



INSERT ZERO FROM DEC PT TC 
FIRST NON ZERO DIGIT ON RIGHT 



F TYPE OUTPUT EQUALS ZERC 



■ • t t - 5854 
v*ft*N CCOOO 



1042 



04 750 


31 


02556 


05453 


04762 


4 3 


04*998' 


3 7 26 


0*774 


4 3 


05250 


06098 


04 786 


14 


06981 


00-00 


04798 


47 


0*998 


ouoo 


04810 


24 


06981 


05799 


04822 


46 


05250 


OilOO 


04334 


26 


7016 


OfclOO 


04846 


21 


07016 


06100 


04858 


44 


0507* 


06100 


04 870 


16 


0*905 


-2555 


04882 


21 


0*905 


07016 


04894 


26 


02555 


OCOOO 


04906 


44 


050*2 


02492 


04918 


26 


0582- 


02557 


04930 


26 ■ 


0745- 


0365N 


04942 


26 


04625 


07445 


04954 


11 


04625 


-0002 


04966 


43 


05218 


0462N 


04978 


16 


0*62N 


OOOPO 


04990 


49 


0*95* 


00000 


04997 








04998 


16 


7*5- 


OOOPO 


05010 


26 


07016 


05678 


05022 


15 


06098 


0000- 


05014 


49 


05170 


00000 


05041 








05042 


26 


74 5- 


0608M 


05054 


31 


0744N 


0608M 


05066 


49 


05218 


00000 


05073 








05074 


26 


05104 


07093 


05086 


22 


05104 


07016 


05098 


26 


00000 


02557 


05110 


26 


05212 


07093 


05122 


24 


06100 


05680 


05134 


46 


05182 


01300 


05146 


21 


06084 


07016 


05158 


31 


0744N 


0608M 


05170 


26 


05212 


05820 


05182 


16 


0521 7 


-5457 


05194 


21 


05217 


07016 


05206 


26 


0709L 


00000 


05218 


16 


0744N 


000-3 


05230 


16 


0582- 


000-0 


05242 


49 


05934 


00000 



1620-1443 WON 1T0H ! VERSION 2 FORTRAN lt-0 SUBS SET } 144 POS 



PACE 



22010 




OORG 


•-4 








05249 








22020 


ERF8E 


TR 


DUO H*2l 


,FL«RS-57 






05150 


31 


02628 


06454 


22030 




TR 


CAN«l 


•NASK ,, NOVES 


E*00 


ALPHA** RICALLY 


05261 


31 


02556 


05445 


22040 




TO 


GAN*8 


• FAC 






05274 


25 


02563 


02492 


22050 




TO 


GAN*6 


♦FAC-1 






0528* 


23 


02561 


02491 


22060 




TFN 


CAN* 3 


#451 t9 






05298 


16 


02558 


00N51 


22070 




BNF 


• ♦24 


• FAC 






05310 


44 


05334 


02492 


22080 




TON 


GANO 


.2' ■ 






05322 


15 


02558 


00002 


22090 




TR 


OUO M*13 


•CN1N2F ,11 






05334 


31 


02620 


0354L 


22100 




TF 


0U> HM2 


•OUO M*14 






05346 


26 


02619 


02621 


22110 




TFN 


DUO H*U 


•03 ,10 






05 358 


16 


02621 


000* 3 


22120 




TFN 


El*2 


,67800 ,, SETS 


ERROR 


F 8 ERASES REC NARK 


05370 


14 


01617 


07800 


22130 




6NR 


• ♦20 


,RWEPSW 






05382 


45 


05402 


06061 


22140 




B7 


ER CON 2 








05394 


49 


07386 




22150 




TF 


0AT0UO^2 


•0AT1NH*2 






05402 


26 


06167 


06175 


22160 




TFN 


10RT 


• •♦23 






05414 


16 


00565 


-5437 


22170 




6 


IOPT 


•0AT0U0-4 ,7 






05426 


44 


00532 


-6161 


22180 




B 


ERC0N2 








05438 


49 


07386 


CCOOO 


22190 




OORG 


• -4 








05445 








22200 


MASK 


osc 


10 


• 45107C7Q0* 






05445 




10 








451C707CC* 


















N4SKEP 


OS 




•NASK^l 






05446 









22220 


NASKFl 


OAC 


3i,cooooooooococccoccocoooooooooo« 




05457 




31 


x 2 






ooocococcoooooooooooqccooooooo • 














222 30 




OORG 


OBCCO 








08000 








22240 




38 


AlO 


•Q07Q2 






080C0 


38 


08032 


00702 






36 


AlC 


•C0703 






08012 


36 


08032' 


0C703 


22260 




8 


• ♦22 








08024 


49 


08046 


00000 


22270 




OORG 


• -3 








08032 








22280 


AlO 


OSC 


9 


,019548009 






08032 




9 








019548009 
















22290 




OSA 


HTVPE+24 








08045 




5 


X 1 
















08045 




-4626 




22300 




TRA 










08046 


36 


coooo 


00500 
















08058 


49 


00000 


ooooo 


22310 




TCO 


080C0 








08000 








22320 




OORG 


START* 3* 3900 






07754 








22330 


FMON 


SF 


FMQN+9 








07754 


32 


07763 


00000 


22 340 




TFN 


RETURN*6 


• START 






07766 


16 


07940 


-3851 


22350 




TFN 


BAS*11 


,Flt-8 






07778 


16 


07885 


-7963 


22360 




AN 


8AS*ll 


• 8 .10 






07790 


11 


07685 


000-8 


22370 




SN 


FNQN*8 


♦ I .10 






07802 


12 


07762 


QOO-1 


22380 




BNZ 


• -24 








07814 


4 7 


07790 


01200 


22390 




A 


RETLRN*6 


,FHON*ll 






07826 


21 


07940 


07765 


22400 




TF 


ARGOUT* 11 


,RE TURN* 6 






07B38 


26 


07873 


07940 


22410 




SN 


ARGOUT* 1 1 


a 






• 07850 


12 


07873 


-0001 


22420 


AM GOUT 


TF 


RETARG*U 


,0UNNV 






07862 


26 


07933 


99999 


22430 


BAS 


TF 


MRASE 


•OUNNV 






07874 


26 


07957 


99999 


22440 




SF 


NBASE-2 








07886 


32 


07955 


OOOOO 


22450 




TFN 


10HT 


,•♦23 






07898 


16 


00565 


-7921 


22460 




B 


IQGT 


, NOATA ,7 






7910 


49 


00566 


-7941 


22470 


RET ARG 


TFN 


ARGOUT* 11 


, OUNNV ,6 






07922 


16 


07871 


99999 


224 80 


RETURN 


B 








1 i 3 


07936 


49 


00000 


ooooo 


22490 




OORG 


•*4 








7941 















1620-1443 


CON I TOR 1 VERSION 2 FORTRAN II-O SUBS SET 3 


144 POS 






22500 


NC ATA 


DSC 


2 


.02. . • ' ' 


7941 




2 






02 












2251Q 




OSA 


NBASE-8 




0794 7 




5 












07947 




-7949 


22520 




DC 


It* 




7948 




I 


22530 




OSC 


1 


.0 


07949 




1 


22540 


NBASE 




OS 


8 




07957 




8 


22550 




OSA 


FIX 




07962 




5 












07962 




-3854 


22560 




DC 


1 




07963 




I 


22570 


Fit 


DC 


8 


.00000033 


07971 




8 






-COC0O33 










22580 




OC 


8,CC033036 


07979 




8 






-0033036 










22590 




OC 


8 


,00033016 


07987 




8 






-0033014 










22600 




DC 


8 


,00072016 


07995 




6 






-0072C16 










22610 




OC 


8 


,00086017 


08003 




8 






-0088017 










22620 




OC 


8 


•0010501Q 


08011 




8 






-0105010 










22630 




OC 


8 


•00115016 


08019 




8 






-0115016 










22640 




OC 


8 


•00131017 


08027 




8 






-0131017 










22650 




OC 


a 


•00168009 


08035 




8 






-0148009 










22660 




OORG 


06C00 




06000 






22670 




34 


B? 


•C0701 


06000 


34 


06044 


22680 




38 


B2 


•00702 


06012 


38 


06044 


22690 




36 


B2 


•00703 


06014 


36 


0*044 


22700 




B 


• ♦22 




06036 


49 


0*056 


22710 




OORG 


•-3 




0*044 






22720 


62 


OSC 


9 


•016835004 


0*044 




9 






016B35004 










22730 




OSA 


FN0N-56 




0*057 




5 












06057 




-769B 


22760 




TRA 






06091 


3* 


OOOOO 












06070 


49 


OOOOO 


22750 




rco 


060C0 




06000 







22760 



1620-1 44 3 MONITOR I VERSION 2 FORTRAN 1 1 -0 SUBS SET 3 144 POS PAGE 41 



ARGOUT 


07862 


FLZERS 


0651 1 


A TYPE 


04536 


FDl 


05492 


ICON? 


04914 


ATYPEl 


04922 


FNCNEZ 


04954 


AXJ 


06196 


FD 


04162 


ICON* 


05494 


BEF2SW 


05440 


FXNINE 


04956 


Bl 


06044 


FDVR1 


05572 


(DIG 


04770 


BREFSW 


05502 


0M1H2F 


03543 


B2 


06044 


FDVR 


04186 


I F I X 


05114 


CL R 70S 


05182 


MTYPE1 


05248 


BAS 


G7874 


FH 


03308 


I MSA 


02575 


CQMACD 


02231 


IFLOAT 


05126 


BETA 


02603 


FIL 


07971 


INN 


0745J 


COMEND 


06996 


IMINUS 


04982 


BSWF 


05934 


FIX1 


04622 


IN 


07745 


CONPLT 


07006 


IMSAPF 


03298 


CHAR2 


07016 


FIX! 1 


05604 


IOC A I 


00716 


COMPSW 


05750 


I NOR 36 


05346 


CHAR 


06100 


FIXI 


04210 


I OCR 


06972 


OAFMON 


05766 


1 NOR 60 


05370 


CKH 


06981 


FIX 


03854 


I0GT 


00566 


□ALONG 


05758 


INPLUS 


06053 


010 


00816 


FKOOO 


03579 


IOPT 


00552 


OATCUC 


06165 


IRBLNK 


04962 


OPG 


06084 


FLOAT 


04042 


IORBC 


00520 


OAT ERR 


06 157 


ISPFMl 


03303 


0PTM2 


07450 


FL2ER 


03760 


IORT 


00565 


OAT !NH 


0617 3 


I TYPE I 


04622 


OPT 


07445 


FLZ 


03353 


IOSK 


00554 


DDFMUN 


05774 


LOGOIG 


05088 


DUDH 


02607 


FN IMF 


03313 


IR01G 


04926 


CIOCCA 


03387 


LOCAOJ 


06574 


OUO 


02687 


FMl 


03783 


IREAO 


04754 


OK BUFF 


02404 


MASKEP 


05446 


OUMMY 


99999 


FMFAC 


03452 


I TYPE 


04448 


OK CAT A 


03379 


HASKFl 


05457 


EEXP2 


04860 


FMON 


07754 


K2 


03820 


EEXP22 


0490B 


MATRI X 


06518 


EEXPM 


04988 


FHP1 


05460 


K 


02221 


EEXPAC 


05068 


MATRX2 


06602 


EEXP 


05000 


FMP 


04138 


LAST 


05620 


EFALPH 


04650 


MESERR 


026C7 


EF2SW 


04425 


FNHM1 


03358 


LN10 


02960 


EFCHKS 


04842 


HONCAL 


C0796 


EFALP 


04734 


FNHM2 


3489 


LN2 


02687 


EFEN02 


05304 


NORM 36 


05308 


EFCOM 


04624 


FNM 


03313 


LN4 


02916 


EFLOAT 


05194 


NORM60 


05332 


EFDEC 


05120 


FP1MK 


03283 


LN8 


02949 


EFPLUS 


04668 


ODDSET 


05602 


EFOIG 


05188 


FP2 


03664 


LNENT 


03)66 


EFTERM 


05248 


ODOREV 


05814 


EFENC 


05272 


F 


02219 


L0CD2 


05678 


EF TYPE 


04660 


ONEFAC 


06058 


EFFIX 


04710 


FSBR1 


05408 


LOCO 


05660 


ENOFUR 


07453 


OVFLOW 


03572 


EFMIN 


04656 


FSBR 


04114 


LOC 


06069 


ENOR36 


05426 


PRCNTR 


06916 


EFMW1 


04626 


FSB 


04066 


LOGE 


03010 


EMOR60 


05450 


PROGST 


02226 


EFMW 


04514 


F TYPE 


04*58 


MASKF 


05473 


ENTABS 


02323 


RAOO I T 


05862 


EFR01 


04622 


FX1 


02825 


MASK I 


05327 


ENTATN 


0231 3 


RDFCHl 


04 884 


EFR02 


04654 


FX9 


02805 


MASK 


05445 


ENTCOS 


02303 


REAOEF 


04492 


EFWRT 


05084 


FXAl 


04814 


MATSM 


05655 


ENTCEC 


02298 


READ 1 F 


05082 


E I 


02615 


FX A 


03878 


MAX2 


06145 


ENTORR 


02293 


REPSW3 


05657 


ENOO 


3688 


FXDl 


04906 


MAX 


06922 


ENTEXP 


q2253 


RETARG 


07922 


ENTLN 


02248 


FXDR1 


04988 


MBASE 


07957 


ENTFET 


02283 


RETURN 


07934 


ERF7A 


05190 


FXCR 


03998 


MOATA 


07941 


ENTF I C 


02273 


RWEFSW 


06061 


ERF 7 


05094 


FXC 


03974 


MF0V2 


03622 


ENTREC 


02278 


100MK 


03293 


ERF7S 


04678 


F X ERR 


03596 


MP 


03666 


ENTSC 1 


02258 


102MF 


03343 


ERF8E 


05250 


FX H 


03283 


MU 


03632 


ENTSC2 


02263 


2FM1 


03581 


ERF81 


05014 


FXM1 


04880 


Nl 


02233 


ENTSC3 


02268 


96MF 


03318 


ERF9 


07310 


FXM 


03950 


N2 


02238 


ENTSIN 


02308 


97M2F 


03363 


ERRET 


00602 


FX SRI 


04828 


NODI V 


06348 


ENTSOT 


02318 


97MF 


03323 


ERROR 


03596 


FXSR 


03926 


0003 


06178 


ENTSwO 


Q2288 


98MF 


03328 


ERXV 


03762 


FXS 


039C2 


0004 


06306 


ERC0M2 


7386 


99MK 


03288 


ETYPE 


04580 


F X Z 


02815 


0006 


06340 


ERF8ES 


04926 


9SCPF 


02795 


EXP 


04809 


FZERO 


04998 


OLWR 


06696 


ERR F 7E 


05396 


9SPF 


02854 


F2 


038 18 


GAM 


02555 


ONEZ 


03038 


ERR F 7 I 


05002 


A10 


08032 


FAC 


02492 


GM2F 


03655 


OUT 


04957 


EXP EN T 


03373 


Al 


08068 


FAOl 


05376 


HNC 


03338 


OVFLO 


05540 


FINDIN 


03563 


A3 


09032 


FAD 


04090 


HO 


04793 


P44CI 


06281 


FINISH 


03723 


A5 


08032 


FAX61 


06472 


HRO 


05428 


P44C2 


06296 


F I X END 


03680 


A6 


08032 


FAXB 


04258 


HTVPE 


04602 


P44C 


06210 


FLOAT 1 


05088 


A7 


08032 


FAXI 1 


06034 


HURT 


05360 


P44E 


06314 


FL TEND 


03730 


A8 


08032 


FAX I 


04234 


IC0N2 


05414 


PAR 


03378 


FLZ ALP 


03348 


A9 


08032 


FCHNB 


04976 


10 45 lC0N3 


05318 


POT 


03333 
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PIUV2 


03163 


RECIP 


06256 


STOP 


02395 


W AFX 


05378 


ZERO 


0276 7 


PI0V4 


03191 


RECLG 


02243 


SWC 


06090 


WAPT1 


05558 


SLASH2 


06708 


PI 


03133 


RECMK 


02403 


SWF 


05969 


MAPT 


04306 


STZERO 


06423 


PRAl 


05578 


REOOA 


07070 


SWL 


06042 


WA 


07241 


SWCAOJ 


06152 


PR A 


04354 


REDO 


07026 


TAFE 


02535 


WATYl 


05538 


WEFOEC 


05218 


PRKEY 


06927 


REFSW 


04625 


TAN6 


03248 


WATY 


04282 


WI0TH2 


06064 


PSI 


05710 


REP2 


07198 


TEN34 


03278 


WIOTH 


05799 


WRITE1 


06940 


R AC I 


06010 


REP 3 


07230 


TERM 


07093 


WRITE 


06816 


WR I TEA 


05266 


RACO 


04426 


REP 


07126 


TOFAC 


03406 


WRTA2 


05358 


WRITE I 


04470 


RAPT1 


05990 


REPSW 


05654 


TRACl 


03544 


WRTA 


05314 


WRITU 


04622 


RAPT 


04402 


RSGNl 


05008 


TRAC2 


03520 


WRTE2 


04646 


WRTALP 


05622 


RATY1 


05970 


RSGN 


04 020 


TRACE 


03496 


WRTE 


05038 


WRTE2S 


05062 


RATY 


04378 


RW2A 


05778 


TRRET 


06364 


WRTF 


04750 


WRTF PC 


05074 


RCTY 


05814 


RWA2 


05742 


TWOPl 


03103 


WRTFS 


05174 


WRTFPE 


05042 


HDAFL 


05210 


RWA 


05634 


TwOZ 


03073 


WRTI2 


04678 


WRTSGN 


04850 


RDALP 


06022 


SAVE 


02565 


UNFLO 


03466 


WRTI3 


04886 


ZERFAC 


03422 


RCA 


05146 


SHORT 


05790 


WA2 


07392 


WRTI 


04714 






RDFCH 


04852 


SIX 


03219 


WA3 


04625 


W 


02240 






REAOA 


05050 


SLASH 


06676 


WACD1 


05610 


XTYPE 


01354 






READI 


05034 


START 


03851 


WACC 


04330 


ZEROM 


03445 







END OF ONE ASSEMBLY. 
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R40f 



00010 




1620 


FORTRAN II-D 


SUBROUTINES WITH FLOATING POINT 


00020 


• ••§• 


IORT 


ENTRY 


POINTS A NO CONTANTS 


00030 


10RIC 


OS 






• 520 






00040 


ton 


OS 






• 932 






00090 


IOSR 


OS 






.994 






00060 


I0GT 


OS 






♦ 566 






00070 


ERRIT 


OS 






.602 






OQOIO 


IORT 


OS 






• 969 






00090 


IOCAL 


OS 






• 716 






00100 


MONCAL 


OS 






.796 






00110 


010 


OS 






,816 






00120 




1620 


FORTRAN II-O IN CORE AREAS 


00130 




CONN 


LNICATIQN AREA 






00140 




QORG 


22 


18 








00150 


F 


OS 


2t 


t FLOATING POINT 


WORD LENGTH 


00160 


K 


OS 


2 , 


, FIXED 


POINT WORD 


LENGTH 


00170 


PROGST 


OS 


5 1 


, STARTING ADDRESS 


CF MAINLINE PROGRAM 


00180 


CONAOD 


OS 


5. 


, STARTING AODRESS 


OF COMMON AREA 


00190 


Nl 


OS 


2. 


i NUMBER OF WOROS 


IK LOGICAL RECORD 


00200 


N2 


OS 


5, 


f NUMBER Of LOGICAL RECORDS 


00210 


w 


OS 


2, 


. WORD 


LENGTH 






00220 


RECLG 


OS 


3* 


• RECORD LENGTH 






00230 


ENTLN 


OS 


5. 


, ENTRY 


ADDRESS 


TO 


LOG SUBROUTINE 


00240 


ENTEXP 


OS 


5, 


, ENTRY 


AOORESS 


TO 


EXPONENTIAL SUBROUTINE 


00240 


EN T SCI 


OS 


5, 


. ENTRY 


AODRESS 


TO 


SINGLE SUBSCRIPT SUBROUTINE 


00260 


ENTSC2 


OS 


5, 


t ENTRY 


AOORESS 


TO 


DOUBLE SUBSCRIPT SUBROUTINE 


00270 


ENTSC3 


OS 


5t 


f ' ENTRY 


AODRESS 


TO 


TRIPLE' SUBSCRIPT SUBROUTINE 


00290 


ENTFIO 


OS 


5. 


, ENTRY 


AOORESS 


TO 


FIND SUBROUTINE 


00290 


ENTREC 


CS 


5* 


. ENTRY 


ADDRESS 


TO 


RECORD SLBROUTINE 


00300 


ENTFET 


OS 


5* 


* ENTRY 


AOORESS 


TO 


FETCH SUBROUTINE 


00310 


ENTSWD 


OS 


5» 


, ENTRY 


AOORESS 


TO 


SWITCH SUBROUTINE 


00320 


E NT, CRR 


OS 


5t 


t ENTRY 


ADDRESS 


TO 


ARRAY SUBROUTINE 


00330 


ENTDEO 


OS 


5, 


• ENTRY 


AODRESS 


TO 


DISK END SUBROUTINE 


00340 


ENTCOS 


OS 


5, 


t ENTRY 


ADDRESS 


TO 


COSINE SUBROUTINE 


003)0 


ENTSIN 


OS 


5. 


, ENTRY 


AODRESS 


TO 


SINE SUBROUTINE 


00360 


ENTATN 


OS 


5. 


. ENTRY 


AOORESS 


TO 


ARCTANGENT SUBROUTINE 


0Q370 


ENTSQT 


OS 


5, 


. ENTRY 


AOORESS 


TO 


SQUARE ROOT SUBROUTINE 


00380 


ENTABS 


OS 


5. 


, ENTRY 


AOORESS 


TO 


ABSOLUTE SUBROUTINE 


00390 




OS 


70 


..RESERVED FQR ENTRIES TO ADDED SUBROUTINES 


00400 




CONM 


ON WORKING AREAS 






00410 


STOP 


CAC 


5, 


STOP* 












STOP 












004 20 


«€CMn 


OS 






,ST0P*8 






00430 


DKBUFF 


DSS 


29 










00440 


F AC 


OS 


60 










00450 




DC 


I 










00460 


SAVE 


OS 


72 










00470 


BETA 


OS 


38 










00480 




DGM 












00490 


GAM 


OS 






.SAVE-10 






00500 


TAFE 


OS 






• SAVE -30 






00510 


IMSA 


OS 






•BETA -28 






00520 


MESERR 


OAC 


6» 


ER E » 












ER E 












00530 


OUOH 


OS 






. ME SERR 







1047 



00920 
009|2 
00994 
00966 
00602 
00969 
00716 
00796 
00816 



Q221S 
02219 
02221 
02226 
02231 
02233 
02238 
02240 
02243 
02248 
02293 
02258 
02263 
02268 
02273 
02278 
02283 
02288 
02293 
02298 
02303 
02308 
02313 
02318 
02323 
02393 

02399 

02403 
02404 
02492 
02493 

02565 
02603 
02604 
02555 
02535 
02575 
02607 

026 C 7 



29 
60 






6 X 



1620-1443 MONI TOR I 
t»-2 



VERS I UN 2 FORTRAN II-O SUBS SET 4 144 POS 



00540 EI DS 

00550 DUC OS 70 

00560 1620 FORTRAN II-O FLOATING POINT CONTANTS 

00570 OC 40 .0 

-ooccccccooocooccccococcccccoooooooooooo 

00580 DSC 40 .0 

cooccocccooocoocooccocococcccooooooooooo 



-OOCCCOCOl 

00650 ••••« CONSTANTS FOR RELOCATABLE SUBROLTINES 

00660 OC 31 ,0 

-oooooocoooooooooooooocoooooooo 

00670 9SPF OS »»-2 

00680 LN2 OC 31 •0693147180559945309417232121456 

-69314 7180559945309417232121458 
00690 LN4 DC 31 •13862943611198906188 34464242916 

J 386294 36 1 1 19890618634464242916 
00700 LN8 DC 31 • 20T94415416798>9926251696364375 

K07944 154 1679835928291696364379 
00710 LNIO OC 31 •2302565092994045664017991494684 

K 30256509299404566401 7991494664 
00720 LOGE OC 30 •434294461903251827651128918917 

M3429448 1903251827691 128918917 
00730 DC 32 ,10000000000000000000000000000000 

jgccoccgcoooooogcogooccocooggooo 

00740 ONE* DS »»-4 
00750 DC 2 ,01 

:-l , 

00760 TWO! DC 29 • 2COCOOCC0CCOCCCO0OOOOOOOOOOOQ 

KOOOOOOCCOOOOOOOOOOOOOCCCOOOO 
00770 TWUPI DC 30 •626116910717958647692426676696 

028318530717956647692526676656 
00760 PI DC 30 •314159265196979123646264338128 

L 14159265356979323646264336328 
00790 PI0V2 DC 30 •157079612679669661921112169164 

J57079632679469661923132169164 
00600 PI0V4 OC 26 ,7653961633974463096156606458 

P653981633974483096196606496 
00610 SIX DC 28 • 6000000000000000000000000000 

oooooooocooooooooooooooooooo 

00820 TAN6 OC 29 •94041990027096414944157116441 

N404195CC27056415544357636441 
00830 TEN34 DC 30 ,216776162394939294222611491436 

K 1877616239495525422261 1491636 
00840 ••••• 1620 FORTRAN II-D INOIRECT AOORESS BOXES AND MODIFIED 

00650 ••••• CONSTANTS (USING K ANO F) 

00860 MM OSA FACH 



02615 
02687 



02727 
02728 



02654 
02867 

02916 

02949 

02980 

03010 
03042 

03038 

03044 

03071 
01IC1 
01131 
01161 
01191 
01219 
01246 
03276 

01261 




70 



40 
40 



00590 


ZERO 


DS , 


• 


02767 





00600 


9SCPF 


DC 28 i 


9999999999999999999999999999 


02795 


26 






R999999999999999999999999999 






00610 




1620 FORTRAN 


II-O FIXED POINT CCNTANTS 






00620 


FX9 


DC 10 , 


9999999999 


02805 


10 






R999999S99 








00630 


FXZ 


DC 10 , 


CCOOOOCCOO 


02815 


10 






-OOCCOOCCO 








00640 


FX1 


DC 10 , 


0000000001 


02825 


10 




31 

31 

31 

31 

30 

32 


2 

29 

10 

10 

30 

26 

28 

29 

ib 

9 X 
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03283 


-2493 


00870 


FP INK 


OS 


»F XH 


03283 





ooaao 


99MK 


DC 5 


.99 


03288 


5 






-0099 








00890 


100MK 


OC 5 


,100 


03293 


5 






-0100 




03298 




00900 


INSAPF 


OSA IMS* 




5 










03298 


-2575 


00910 


ISPFMl 


OSA IMSA-1 




03303 


5 










03303 


-2574 


00920 


FH 


CSA FAC 




033C8 


5 










03308 


-2492 


00990 


FNH 


OSA FAC-1 




03313 


5 










03313 


-2491 


00940 


FM IMF 


CS 


.FNH 


03313 





00950 


96MF 


OC 5 


.96 


03318 


5 






-0096 








00960 


97MF 


OC 5 


.97 


03323 


5 






-0097 








00970 


98MF 


OC 5 


1 98 


03328 


5 






-0098 








00980 


PCT 


OC 5 


.99 


03333 


5 






-0099 








00990 


HNO 


DC 5 


* 100 


03338 


5 






-0100 








1000 


102MF 


OC 5 


» 102 


03343 


5 






-01C2 




03348 




01010 


FL Z ALP 


USA ZEHO-78 




5 










03348 


-2689 


01020 


FLZ 


OSA ZERO-80 




03353 


5 










03353 


-2687 


01090 


FNMMl 


OSA FAC-2 




03358 


5 










03358 


-2490 


01040 


97M2F 


OC 5 


.97 


03363 


5 






-0097 








01050 


LNENT 


OC 5 


.56 


03368 


5 






-0056 








01060 


EXPENT 


DC 5 


.12 


03373 


5 






-0012 








01070 


PAR 


DS 5 


,•♦5 


, NC OF ELEMENTS IN MATRIX TO PROCESS 03378 


5 


01080 




US 5 




033 78 


5 


01090 


CKCATA 


DSC 2 


.00 


03379 


2 






00 








01100 




OSA OIOOOA 




03385 


5 



03385 -3387 

OHIO DC 1 .10 4 9 03386 1 

01120 DIOOOA DSC 1 .0 03387 I 





162C-1443 MONITOR I VERSION 2 FORTRAN II-D SUBS SET 4 144 POS 



01130 




DC 


5 


,C000 








-0000 






01140 




OC 


3 


• COO 








-00 








0U5Q 




OSA 


0K8LFF 






01160 




DC 


1 






01170 




1620 FORTRAN II-D 


IN CORE 


01180 




OS 


5 






01190 


TO FAC 


TFL 


FAC 


.TOFAC-i 


.11 


012C0 




BB 








01210 




OORG 








01220 


Z ERF AC 


TFL 


FAC 


.FLZER 




01230 




B 


FINISHM 


.ZERO-94 


.7 


01240 


ZEROM 


CS 


5 


t » 




01250 




DS 


5 






01260 


FMFAC 


TFL 


FMFAC- I 


.FAC 


.6 


01270 




BB 








01280 




OORG 


•-9 






01290 


UNFLO 


TFL 


FAC 


.FLZER 




01 300 




B 


ERXV+12 


.FAC-3 




01310 


FNHM2 


DS 


5 


t » 




01320 




OS 


5 






01330 


TRACE 


TFL 


TRACE- 1 


,FAC 


.6 


01340 




BNC4 


FMFAC* 12 






01350 


TRAC2 


TFM 


FMON+ll. 


TRAC1- 


START 


01360 




OC 


2,2.»-3 






01370 




-2 
B7 


FMON 






01380 


GM1M2F 


OSA 


GAM- 1 






01390 


TRAC1 


TFM 


0CD4+6 


.S,WC 




01400 




B7 


P44C 




01410 


FINOIN 


DC 


1.1 






01420 




J 

OORG 


3572 






01430 


OVFLOW 


TFM 


FAC 


.0199 


.1910 


01440 


2FMI 


DS 


2 


.•-2 




01450 


FKOCO 


DS 


1 


.•-4 


» 


01460 




TF 


FAC- 2 


.9SCPF 


t • 


01470 


ERROR 


K 


FINISH 


.0951 


.6. 


01480 




MA 


MESERR 


.0901 


. . 


01490 




B 


ENDDM2 






01500 


MU 


BNF 


• ♦24 


.MU-l 


» . 


01510 




SF 


FAC 


•GAM 




01520 


GM2F 


OS 








01530 




TDM 


FXERR+25 


,02009 


!79, 


01540 


MF 


DS 


2 


• •-l 


i 


01550 


FP2 


DS 


2 


.•-3 


• 


01560 




TFM 


FXERROO 


,EN00*12 




01570 


FIXENO 


BB 








01580 




OORG 


•-3 






01590 


FX ERR 


DS 




.ERROR 





SUBROUTINES 



ZERO MINUS 94 PLUS TWO TIMES F 



ERR F5 UNFL 
FAC IS 
FAC MINUS 3 



IN FEXP 
FL PT ZERO 
MINUS F 



AND K EVEN 



TWO TIMES F MINUS ONE 
F OR K 000. I F 
SET RESULT TO ALL NINES 
SINGLE CARRIAGE SPACE 
PRINT ERROR MESSAGE 

SET CORRECT SIGN ON FAC 

GAMMA MINUS TWO TIMES F 
RESET ERROR EXIT 
MINUS F 
F PLUS TWO 



I 050 



03392 




5 




03395 




3 




03400 




5 


x 1 


034C0 




-2404 




03401 




1 




03406 




5 




03408 


06 


02492 


0340P 


03420 


42 


00000 


00000 


03422 








03422 


06 


02492 


0376C 


03434 


49 


03724 


-2673 


03445 




5 




03450 




5 




03452 


06 


0345J 


02492 


03464 


42 


00000 


00000 


03466 








03466 


06 


02492 


03760 


03478 


49 


03774 


02489 


03489 




5 




03494 




5 




03496 


06 


0349N 


02492 


03508 


47 


03464 


00400 


03520 


16 


07965 


-030P 


03528 




2 




03532 


49 


07954 




03543 




5 


X 1 


03543 




-2554 




03544 


16 


0*312 


-6090 


03556 


49 


0*210 




03563 




1 




03572 








03572 


16 


02492 


0-JR9 


03581 




2 




03579 




1 




03584 


26 


02490 


02791 


03396 


34 


0372L 


00991 


03608 


39 


02*07 


00901 


03620 


49 


03700 


00000 


03632 


44 


03*5* 


01*31 


03644 


32 


02492 


02599 


03635 









03656 


IS 


03*21 


-2-09 


03646 




2 




03**4 




2 




03**8 


1* 


01*2* 


-1700 


03*80 


42 


00000 


00000 


03688 








0359* 










1620-1443 'MONITOR 1 VERSION 2 FORTRAN ll-.O SUBS SET * 

MOVE EXPONENT 
SET PROPER SIGN 



01600 


ENCC 


TF 


FAC 


• SAVE 




01610 




BNF 


• ♦24 


• 99 


» » 


01620 




SF 


FAC-2 


iENOO 




01630 


FINISH 


OS 




• • 




016*0 


FLT6NC 


OS 




•FINISH^? 


01650 




BB 








01660 




OORG 


•-4 






01670 




DC 


28 


.0 








-OOCOOOCCOQOOOOOOOOQCCCCOOCO 


01680 


FLZER 


oc 


2 


,-99 








RR 








01690 


ERXV 


BNF 


• ♦24 


♦ FAC 




01700 




AM 


E I 


• 0101 


,8911 


01710 


FK1 


OS 


2 


• •-2 


» 


01720 




K 


FMFAC + 12 


• 0951 


» » 


01730 




MA 


MESERR 


.0901 
• 


» • 


01740 




b 


ERXV+3Q 


»6 


01750 




OORG 


• -4 






01760 


F2 


DC 


2 ,0 






01770 


K2 


-0 
OC 


2 ,0 










^0 








01780 


MF0V2 


US 


2 






01790 


OUMMY 


OS 




« 99999 




01800 


START 


OS 




•03851 




01810 


FMON 


DS 




,07954 




01820 




1620 FORTRAN 1 1-0 


ALL SI 


01830 




1620 FORTRAN I I - 


ALL 51 


01840 




OORG 


START 






01850 




OS 


3 






01860 


FIX 


CM 


FAC 


,00 


,10, 


01870 




8 


FIX1 






01880 


FX A 


A 


FAC 


,FXA-1 


• 11 


01890 




B 


FXA1 






019C0 


FXS 


S 


FAC 


,FXS-l 


• 11 


01910 




B 


FXA1 






1920 


FX SR 


BNF 


FXSRU32 


,FAC 




01930 




B 


FXSRl 






01940 


FXM 


M 


FAC 


,FXM-1 




01950 




B 


FXM 1 






1960 


FXC 


LO 


99 


.FAC 


, • 


01970 




B 


FXD1 






01980 


FXQR 


LO 


99 


.FXOR-l 


,11 , 


01990 




B 


F XDR 1 






02000 




OORG 








02010 


RSGN 


BNF 


RSGNU4Q 


.FAC-l 




02020 




B 


RSGNl 




,8 


02030 




OORG 


•- I 






02040 


FLOAT 


AM 


FAC 


,00 


• 10, 


02050 




B 


FL0AT1 






02060 


FSB 


FSUB 


FAC 


.FSB^l 


,11 


02070 




B 


FAD I 






02080 


F AC 


FACC 


FAC 


,FAO»l 


.11 


02090 




B 


FAD I 




02100 


FSBR 


BNF 


FSBRl^32 


,FAC-2 


, , 


02110 




B 


FSBRi 







F MINUS ONE 

SINGLE CARRIAGE SPACE 

PRINT ERROR MESSAGE 



IS CHAR POSITIVE 



CHANCE SIGN ON FAC 



FAC m FAC/J 
FAC « J/ FAC 



IS FAC ZERO 



CHANGE SIGN ON FAC 



105! 



POS 






PAGE 


03618 


26 


02692 


02565 


01700 


44 


03724 


00099 


03712 


32 


02490 


03618 


03723 









03730 









03724 


42 


vuuuu 


vuuvu 


03731 








03751 




28 




03 760 




2 




03762 


44 


03786 


02492 


03774 


11 


02615 


O-J-l 


03783 




2 




03 786 


34 


03464 


00951 










03810 


49 


0379K 


uuuuu 


03817 
















03020 








03822 








99999 

















7954 
















03853 




3 




3854 


14 


02492 


000-0 




t? 


1 1002 


00000 


03878 


2 I 


02492 


387P 


03890 


49 


11194 


ooooo 


03902 


22 


02492 


0390J 


03914 


49 


1 1 194 


OOOOO 


3926 


44 


1 1240 


02492 


03938 


49 


1 1208 


OOOOO 


3950 


23 


02492 


0394R 


03962 


49 


1 1260 


CCOOO 


03974 


28 


00099 


02492 


03986 


49 


1 1266 


OOOOO 


03998 


28 


00099 


0399P 


04Q10 


49 


1 1 368 


OOOOO 


04020 










44 


1 1428 


02491 


04032 


49 


1 1388 


0-000 










04042 


11 


02692 


000-0 


04054 


49 


11468 


OOOOO 


04066 


02 


02492 


0406N 


04078 


49 


11756 


OOOOO 


04090 


01 


02492 


0406R 


04102 


69 


11756 


OOOOO 


04114 


44 


11820 


02490 


04126 


49 


11788 


OOOOO 



1620-1443 MONITOR I VERSION 2 FORTRAN Il-D SUBS SET 4 144 POS 
SET IP ERR E3 CODE 
SET LP ERR E5 CODE 

I MSA « I 
IMSA « I 
LOAD 



02120 


FMP 


TFM 


EI 


,573 


• 9, 


02130 




B 


FMPl 






02140 


FC 


TF* 


EI 


,575 


.9, 


0215G 




B 


FD1 






02160 


FCVR 


TFL 


SAVE 


,FAC 




02170 




B 


FDVR1 






02160 


FIXI 


TF 


IMSA 


.FlXI-1 


,11, 


02190 




B 


F I XI I 






02200 


FAXI 


TF 


IMSA 


.FAXI-l 


,11, 


02210 




B 


FAXIl 






02220 


FAXB 


TFL 


TAFE 


•FAXB-1 


,11, 


02230 




B 


FAXB1 






02240 


• ••• 






WRITE ALPHAMERIC 


02250 


WATY 


TF 


SWF 


•WATY-l 




02260 




B 


WAT Y 1 






02270 


WAPT 


TF 


SWF 


.WAPT-l 




02280 




B 


WAPT1 






02290 


WACO 


TF 


SWF 


• WACOM 




02300 




B 


WACD1 






02310 


PR A 


TF 


SWF 


.PRA-l 




02 320 




B 


PRA1 






02330 


• 






RfAO ALPHAMERIC 


02340 


RATY 


TF 


SWF 


•RATV-1 




02350 




B 


RATY I 






02360 


RAPT 


TF 


SWF 


•RAPT-1 




02370 




B 


RAPT I 






02380 


RACO 


TF 


SWF 


,RACD-1 




02390 




B 


RACOl 


• 


,8 


02400 




OORG 


•-1 






02410 


I TYPE 


AM 


SWF 


• 3 




02420 




B 


I TYPE I 




• 6 


02430 




OORG 


•-1 






02440 


WRITE I 


TFM 


WA . 


•GAM^2 




02450 




B 


WRITll 


• 


• 8 


02460 




OORG 


•-1 






02470 


REACEF 


BNF 


EF *02M2,L0C 




02460 




B 


EF AO I 


• 


.8 


U2490 




OORG 


•- 1 






02500 


EFMW 


TF 


FLTENO 


,IC0N6»6 




02510 




B 


EFNWl 




• 8 


02520 




OORG 


•-1 






02530 


ATYPE 


AM 


SWF 


• 3 




02340 




B 


ATYPE 1 


• 


• 8 


02350 




OORG 


•» 1 






02360 


• ••• 






MACRO FOR 


F TYPE 


02570 


FTVPf 


CF 


RWEFSW 






02580 




• 


EF COM 


• 


• 8 


02590 




OORG 


•-1 






02600 


• ••• 






MACRO FOR 


E TYPE 


02610 


ETYPE 


SF 


RWEFSW 






02620 


MA3 


OS 


5 




• 


02630 




B 


EFCOM 


• 


• 8 


02640 




OORG 


•-1 






02650 


HTYPE 


AM 


SWF 


• 3 




02660 




8 


MTVPf I 






02*70 




OORG 


•«»4 







TEKP STORE FOR ZERO INSERT ADDRESS 



1052 



04138 


16 


02615 


00N73 


04150 


49 


11840 


OOOOO 


04162 


16 


02615 


00N7S 


04174 


49 


11672 


OOOOO 


04186 


06 


02565 


02492 


04198 


49 


11952 


OOOOO 


04210 


26 


02575 


0420R 


04222 


49 


11984 


OOOOO 


04234 


26 


02575 


04231 


04246 


69 


12414 


OOOOO 


04258 


06 


02535 


0425P 


04270 


49 


12652 


OOOOO 


04262 


26 


05969 


04261 


04294 


49 


05536 


OCOOO 


04306 


26 


05969 


04305 


04316 


49 


05556 


ooooo 


04330 


26 


05969 


04329 


04342 


49 


05610 


OCOOO 


04354 


26 


05969 


04353 


04366 


49 


05576 


COOOO 


04 378 


26 


05969 


04377 


04390 


49 


05970 


00000 


04402 


26 


05969 


04401 


04414 


49 


05990 


OCOOO 


04426 


26 


05969 


04423 


04436 


69 


06010 


0-000 


04448 








04448 


11 


03969 


-0003 


04460 


69 


10066 


0-000 


04470 








04470 


16 


07241 


-2557 


04462 


69 


10978 


0-000 


04492 








04492 


44 


09062 


06069 


04504 


49 


09011 


0-000 


04514 








04514 


26 


01730 


0S500 


04526 


49 


09351 


0-000 


06536 








06516 


11 


03969 


•0001 


06568 


69 


09012 


0-000 


06511 








04536 


33 


0*061 


OOOOO 


04570 


49 


07446 


0-000 


04580 








04560 


12 


0*0*1 


OOOOO 


04991 




5 




04592 


69 


0746* 


0-000 


04*01 








04602 


11 


099*9 


-0001 


04614 


69 


06776 


OOOOO 


06*11 









1620- 14*3 MONITOR 1 VERSION 2 FORTRAN I 1-0 SUBS SET 



4 



144 POS 



MCE 



02680 




1620 FORTRAN I 1-0 Al 


02690 


WRTE2 


TR 


GAM* I 


t MASK 


02700 




BD 


ERF 8E 


tCMAR~2 


02710 




TO 


GAM* 8 


i CHAR 


02720 




T D 


GAM *6 


, CHAR- 1 


02730 




BNF 


• ♦ 24 


tCHAR 


02740 




TQM 


GAM 4 3 


2 


02750 




j p 


TERM 


»GAM*2 


02760 




TR 


OP T 


« DPG 


02770 






WEF DEC 




02780 




nr 






02790 








5 Hot J r UK 


02800 








r MAD IC kiC i" 


02810 








CHAR I S Nt G 


02820 








CHAR 1 S POS! 


02830 


WR T F 


TR 


GAM* 1 


i MA SK E P*- 7 


02640 




BD 


F ZERO 


» F L TE ND-4 


02850 




BD 


ER F8 E 




02860 






CK W 


(000 


02870 




r H 


F ZERO 




02880 








* H 


02890 




ftn 






02900 




TC 


r u a d •» 
CHAR 2 


,CHAR 


02910 






*" ic&r 




02920 






*R TF C 


* AO 

»CHAR 


02930 




TC 


• ♦ 35 


»&A 


02940 




A 


•♦23 


tCHAR 2 


02950 




T F 


GAM 




02960 




BNF 


W R T F 3 E 


» F AC 


02970 




I F 


LAST 


t GAM* 2 


02980 




T F 


DP TM2 


t GM2F 


02990 




T F 


MA 3 


• OPT 


3000 


F N C N 1 1 


AM 


WA 3 


t 2 


30 10 




HD 


WEF DEC 


♦ WA 3 


03020 






WA 3 


» 70 


03030 






FNCNE Z 




3040 




DOQ G 


• -4 




3050 


F £ t * 


TFM 


OP TMJf 


v 70 






T F 


C h AR 2 


tLOCD 2 


3070 




TDM 


CHAR-2 


* 


3080 




b 


CL R 70S" 


1 2 


3090 




DOR G 


• -4 




3100 


lift T t p £ 


|[ F 


DP TM2 


»DPG 


3110 




TR 


DPT 


• DPG 


312 




b 


WE F DF l 








Do ft r, 


• -4 




3140 


" 


T F 


• ♦ 3 C 


, TERM 


03150 






• ♦18 




03160 




TF 




,GAM*2 


03170 




TF 


CLR1GS+ 


30, TERM 


03180 




C 


CHAR 


,LOCD 


03190 




BNL 


CLR 70S 




03200 




A 


DPG 


» CHAR 2 


03210 




TR 


DPT 


,DPG 


03220 




TF 


CLR 70S* 


30 , LAS 1 


32 30 


cl. K ii-:; 


IF* 


• ♦35 


.MASK F 



ALL SUBR IN CORE - SUBROUTINES 



WRITING F TYPE, CHAR IS FXP-lOCO-F 
EXP IS NEC 

EXP IS POS! TIVE IWRTFPE ) 
TlVf 1WRTFPCI 



,611, SET SIGN LEFT OF GEC PT 



,11 , 
,61 C 



611 
611 



INSERT ZERC FROM DEC PT TC 
FIRST NON ZERO DIGIT ON RIGHT 



TYPE GL T PUT EQUALS ZERC 



105 3 



04622 


91 


02556 


05421 


04634 


43 


05226 


08687 


04646 


25 


02561 


08689 


04658 


25 


02561 


08688 


04670 


44 


04694 


08689 


04682 


15 


02558 


00002 


04694 


26 


07091 


02557 


04706 


)l 


0744N 


0608* 


04718 


49 


05194 


00000 


04725 








04726 




_ 


05429 


04738 




04974 


03726 


04750 




05226 


08687 


04 762 


14 


0698 1 


00-00 


04774 


47 


04974 


1 100 


04 786 


24 




05799 


04796 


46 


05226 


01 100 




26 


07016 


08689 


04822 


2 i 


7016 


08689 
















~2555 




»1 




m Imam 




J* 




OCOOO 


HAAS 7 


44 


050 1 8 


02492 




26 


0582— 


02557 


° i * 










26 








1 1 


04591 










nita i 


°7 * 






OOOPO 


° 


4Q 




UDUOU 






















7016 


05678 


° ® 


• * 










09146 


uuuuu 




















ia 


i qj! 


0608M 




49 


05194 


OCOOO 










05050 


26 


05080 


07093 


05062 


22 


05080 


07016 


05074 


26 


00000 


02557 


05086 


26 


05188 


07093 


05098 


24 


08689 


05680 


05110 


46 


05158 


01300 


05122 


21 


06084 


C7016 


05134 


31 


0744N 


0608M 


05146 


26 


05188 


05820 


05158 


16 


05193 


-5433 









» 62C- 14^3 


HON! TOR I 


VERSION 2 FORTRAN II-D SUBS SET 4 144 


POS 






PAGE 


3 ?4G 






»*2 3 


: CHAR 2 




051 70 


21 


05193 


07016 


3250 




T'<" 


\ i M , 




,6 


05182 


26 


07091 


00000 


03260 


w F t- C v v 


TFM 


DP T , 


« 3 


,610 


05194 


16 


0744N 


000-3 


03270 




TFM 


LAST 


>00 


,610 


05206 


16 


0582- 


000-0 


03280 




& 


fiSteF 






05218 


49 


059 34 


00000 


03290 




DORG 


*-<, 






05225 








03300 


E k F H { 


TR 


OLD \M2\-. 


f FI. ZERS-S7 




05226 


31 


02628 


06454 


03310 




TR 


GAM* I 


,MASK 


• t MOVES E + 00 AL PHAMES IC ALLY 


05238 


31 


02556 


05421 


03320 




Tn 


GAM*8 , 


i F AC 




05250 


25 


02563 


02492 


03330 




TD 


GAM ♦ 6 , 


,FAC-1 




05262 


25 


02561 


02491 


03340 




TFM 


GAM ♦ 3 , 


.451 


,9 


05274 


16 


02558 


00M51 


03350 




riNF 


• ♦24 , 


,FAC 




05286 


44 


05310 


02492 


03360 




TCM 


GAM ♦ 3 


• 2 




05298 


15 


02558 


0C002 


03370 




TR 


DUD luU, 


i G M l M ? f 


. 1 I 


05310 


31 


02620 


0354L 


03380 




TF 


OLD H*12, 


,DU0 H+14 




05322 


26 


02619 


02621 


03390 




TFM 


DCD H*14 ( 


.03 


,10 


05334 


16 


02621 


0OO-3 


03400 


FRCP.M 


TFM 


E I ♦ 2 


,6 7800 


, , SETS ERROR F 8 ERASES REC MARK 


05346 


16 


02617 


07800 


03410 




BNR 


• ♦20 , 


.RWEFSW 




05358 


45 


05378 


06061 


03420 




B7 


ER COM 2 






05370 


49 


07386 




03430 




TF 


DATDUD+2 . 


. DA T I NH* 2 




05378 


26 


06167 


06175 


03440 




TFM 


IORT 


,•♦23 




05390 


16 


00565 


-5413 


03450 




8 


IOPT , 


.DAT0U0-4 


,7 


05402 


49 


00532 


-6161 


03460 




B 


ERC0M2 






05414 


49 


07386 


OCOOO 


03470 




DORG 


• -4 






05421 








03480 


«•«»<»* 








MASKS 










03490 


MASK 


DSC 


10 < 


,451070700 




05421 




10 








451070700 1 














03500 


MASKEP 


DS 




,MASK*1 




05422 









03510 


M ASK F 


OAC 


31,000000000000000000000000000000* 


05433 




31 


X 2 






OOOOOOOCOOGOOOOOOOOOOOOOOOCOOO* 


05472 








3520 


MASK I 


DS 


1 


.MASKF09 











03530 


ICUN6 


8 


EF ALPH , 




,1 


05494 


4« 


09582 


00000 


03540 




CORG 


• -3 






05502 








03550 


ICONS 


a 


EFRD 2 




«l 


05502 


4R 


09050 


00000 


03560 




DORG 


• -3 






05510 








03570 


IC0N3 


B 


WRT 12 




tl 


05510 


4R 


10634 


00000 


03580 




DORG 


• -3 






05518 








03590 




DS 


20 






05537 




20 




3600 


W ATY 1 


TFM 


MAX 


,06087 




05531 


16 


06922 


-6087 


03610 




8 


WR T ALP 






05550 


49 


05622 


00000 


03620 




DORG 


• -3 






05558 








03630 


WAP f I 


TFM 


MAX 


,08087 




05558 


16 


06922 


-8087 


03640 




B 


WR T ALP 






05570 


49 


05622 


00000 


0365Q 




DORG 


•-3 






05578 








03660 


PRA1 


TFM 


MAX 


,26145 


v 7, PRINT WITH SPACE SUPPRESS 


05578 


16 


06922 


K6145 


03670 




TO 


RWEFSW 


► RECMK 




05590 


25 


06061 


02401 


03680 




87 


RWA 






056C2 


49 


05614 




03690 


MACD1 


TFM 


MAX 


t 10080 




05610 


16 


06922 


J0080 


03700 


WRTAt? 


TDM 


RWEFSW 


• 1 


, , CCMMCW FOR EACH WRITE 


05622 


15 


06061 


0000 v 


03710 


RWA 


TF 


DATINH+2 , 


,MAX-3 




05614 


26 


06175 


06919 


03720 




SF 


MAX-2 






05644 


32 


06920 


00000 


03730 


REPSW 


DS 


2 


,•-3 




05654 




2 




03740 


MATS* 


OS 


1 




, , SET TO 1 WHEN MATRIX HAS CONTROL 


05455 




1 




03750 


REPSW 3 


OS 


2 i 


, • 




05657 




2 




03760 




TFM 


•-1 , 


,00000 




05458 


14 


056S7 


-coo- 


03770 




TDM 


SWL + i , 


'2 


-III* 


05470 


15 


04041 


00002 
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PAGE 



03780 
03790 
03800 
03810 
03820 
03830 
03840 
0)150 
03860 
03870 
03880 
03890 
03900 
03910 
03920 
03930 
03940 
03950 
3960 
03970 
03980 
03990 
04000 
0*010 
04020 
04030 
04040 
04050 
04060 
04070 
04080 
04090 
04100 
04110 
04120 
04130 
04140 
04150 
04160 
04170 
04180 
04190 
0*200 
04210 
04220 
04230 
04240 
04250 
04260 
04270 
04280 
04290 
04300 
04310 
04320 
04330 



LOCO 
L0CC2 



RWA2 
COMPSW 



RW2A 
WIDTH 



RCTY 
LAST 



OS 


2 


.•-I 


OS 


2 


,•-3 


TFM 


HE SEAR ♦ 8 


.*T9 


TFM 


MAX 2 


»1NH 


A 


MAX2 


tMAX 


A 


MAX 2 


• MAX 



tLOC OF DECIMAL AS SPEC 8V FORMAT 

t TWICE LCC 

.9 



CONTINUATION OF RMA. ALSO USED AFTER EACH OUTPUT 
RECORD NOT TERMINATED BY COMMIT MACRO 



-I PROHIBITS, REQUIRES OUTPUT 



SWF 
RATV1 



RACCl 
RCALP 



SMI 

INPLUS 



RWEFSW 
W 1DTH2 



TFM 


LAST 


1 1 NH 




TDM 


COMPSW 


• *l 




OS 




• •-'3 ■ 


»- 1 


TR 




tSTZEROM 




TR 


INH*86 


f ST IE AO 




8 


0003 






CM 


MAX- 3 


.08 


.10 


OS 


3 


.•-2 






• ♦24 






ar tv 








n« 


5 


,•-5 


. A 


BNt 


t*24 






In 


INH+174 


.FLIERS 






BSWF 


• RKEFSW 




TFM 


IQRT 


,•♦23 






IOGT 


.DATINH-4 


.7 


CM 


MAX- 3 


,06 


1 10 


BNE 


•♦24 




. . 


BC4 


RCTY 








FLT ENO-5,2 








CONTROLS POSIT 


AM 


SWF 


.5 




TF 


• ♦18 


.SWF 


• 11 


8 


SWF 


. 


,6, 


OS 


5 


»• 




TFM 


MAX 


.06087 




B 


ROALP 






CORG 


•-3 






TFM 


MAX 


.08087 




B 


ROALP 






OORG 


•-3 






TFM 


MAX 


. 10080 




TDM 


RWEFSW 


,0 




B 


RWA 






OORG 


•-4 







NO. OF EFF. DIGITS IN FIELD 



AOR OF RM AT 6NC OF VARIABLE OUT REC 
PUT IN RM FOR PAPER TAPE CUTPUT 



ALLOWS GCOF SWITCH FOR RATY 



BR TC AOR INDICATED BY FORMAT SPEC. 



SWL IS A TRINARV SWITCH USED TO BRANCH TO THE PROPER SOURCE 
TO OBTAIN THE LOCATION THAT GOES WITH THE FORMAT MACRO 



BEING PERFORMED 



NOP 

OS 

TDM 

OS 

OS 

BO 

NOP 

OS 



MATAX 2 

5 

SWLM 

1 

3 

SWCM2 



9 

.-4 
•-1 
MATSW 

.•-5 



BB FOR OBJECT PROGRAM 
NOP FOR REDO CONTROL 
B FOR MATRIX CONTROL 

WORKING POSITION OF I/O RECORD 
, MATRIX CONTROL SETS SWL TO 49 
1 FOR WRT, FOR RC, FLAG FOR E 



TEMP AOR OF DEC PT IN GAMMA 



1055 



162C-1443 MONITOR I VERSION 2 FORTRAN II-O SUBS SET 4 144 

CORE LOCATION TO BE USED 
TAINED BR TO PROPER MACRO 

BR IF WRITING 

SET TO REQUIRE OUTPUT 
TWICE MAXIMUM CHAR FOR OUTPUT 
RETURN ADD OF MACRO IN CONTROL 



04340 


LOC 


OS 


5 


♦ • »» 


04350 








AFTER LOC AOR 


04360 


SWC 


TDM 


SWLU 


.2 


04370 




BD 


• ♦2C 


.RWEFSW *. 


04380 




B 


SWC AO J 


. .6 


04390 




OORG 


•-4 




04400 




TDM 


COMPSW 


.0 .. 


04410 




CF 


LOC 




04420 


MAX2 


DS 


5 


»• . 


04430 




8 






04440 


SWCAOJ 


OS 




. 5 f , 


04450 




DORG 


•-4 




04460 


DATERR 


DSA 


DDDH 




04470 




DC 


3 


• 18' 






J8» 






04480 


OATCUD 


DSA 


OUDK 




04490 




DC 


3 


.00* 












04500 


DAT INH 


OSA 


INH 




04510 




DC 


3 


.00* 






-0« 






04520 


0CD3 


TR 


INM174 


. STZERQtlB 


04530 




TR 


INH*244 


• ST1ER0**0 


04540 




B7 


RW2AM2 




04550 


P44C 


TFM 


SWC-l 


»FAC 


04560 




TFM 


SWF 


.P44C2-5 


04570 




TFM 


TRRET*6 


• P44E 


04580 




8NF 


PR A 1 


.FAC-l .» 


04590 




TFM 


SWF 


•P44CI-5 


04600 




B7 


PRA1 




04610 


P44C1 


DSA 


ETYPE 




04620 




DC 


3.35 








-35 






04*30 




DC 


2.21 








KB 






04*40 




OS* 


PRCNTR- 


12 


04*50 


P44C2 


DSA 


I TYPE 




04**0 




OC 


3.24 








-24 






04*70 




OSA 


PRCNTR- 


12 


04*80 


0C04 


67 


SWi 


♦ it 


04*90 


P44E 




TftftfT** 


.COMEND 



BRANCH IF FIXED 



NOOIPIEO TO SMC BY TRACE 



05680 




2 




05678 




2 




03*82 




02* 15 


00079 




1* 


OM 1*3 


J 31 21 




2 1 


0*145 


06922 


05718 


2 1 


0* 145 


0*922 


05730 


1* 


05820 


J 3 12 1 


05742 


IS 


05750 


0000 J 


05750 











1 1 


111 20 


(14*94 


057** 


3 1 


1 »I0 f 


0*423 


05778 






uuuuu 


ftiioo 


14 


06919 


000-8 










n«« i f 


** 


0582* 


m inn 






ttnnnn 


00 102 










0582* 




05850 


1200 


05838 


2* 


13295 


06511 


05850 


43 


05934 


0*0*1 


058*2 


la 




— 5885 


AS six 






— * 1*9 


0588* 


14 


0*919 


000"* 


05898 


47 


05922 


01200 


059 1 


4* 


05814 


00400 


05922 


15 


3725 


00002 


■ 

05934 


1 1 


059*9 


-0005 




2* 


05964 


0596R 


05958 


49 


0596R 


OOOOO 


05969 




5 




05970 


I* 


06922 


-6087 


05982 


49 


06022 


ooooo 


05990 








05990 


1* 


06922 


-6087 


06002 


49 


06022 


OCOOO 


06010 








06010 


16 


06922 


JO 080 


06022 


15 


06061 


OCOOO 


06034 


49 


05634 


COOOO 


06041 








06042 


41 


06602 


ooooo 


06053 




5 




06054 


15 


0604 3 


00009 


060*1 




1 




060*4 




3 




0606* 


43 


04102 


05655 


06078 


41 


00000 


OOOOO 


06084 




5 




POS 






PAGE 


06089 




5 




06090 


15 


06043 


00002 


06102 


43 


06122 


06061 


061 14 


49 


0615K 


OOOOQ 


06121 








06122 


15 


05750 


OCOOO 


06134 


33 


06089 


OOOOO 


06145 




5 




06146 


49 


ooooo 


ooooo 


06152 









06153 








06157 




5 


X 1 


06157 




-2607 




06160 




3 




06165 




5 


X 1 


06165 




-2607 




06168 




3 




06173 




5 


X 1 


06173 




J3121 




0617* 




3 




0*1 7B 


11 


11295 


0*441 


0*110 


11 


111*5 


0*4*3 


0*202 


49 


05790 




0*210 


1* 


0*081 


-2*92 


0*222 


1* 


059*1 


-»*291 


0*234 


1* 


0*170 


-4314 


0*|** 


** 


01578 


02491 


0*258 


1* 


091*1 


-4276 


04270 


41 


0557B 




0*281 




5 


X 1 


0*2 tl 




-41B0 




0*284 




1 




0*2 B* 




2 




0*211 




5 


X 1 


0*291 




-*90* 




0*29* 




5 


X 1 


0*21* 




-4448 




0*211 




1 




0*304 




1 


1 1 


0*10* 




-*90* 




0*10* 


41 


0*042 




0*11* 


1* 


0*170 


-*99* 



1 056 
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PACE 



04700 




TFM 


0D04*6 


• SWL 




06326 


16 


06312 


-6042 


04710 




BB2 








06336 


42 






04720 


0CC6 


BNI 


TRRET 


,03400 




06340 


47 


06364 


03400 


04730 




K 




,0C97l 




06352 


34 


00000 


00971 


04740 


TRRET 


B 


COMENO 






06364 


49 


06996 


ooooo 


04750 




DORG 


• -4 






06371 








04760 




DORC 


6422 






06422 








04770 


STZERO 


OC 


2 


,co 




06423 




2 




04780 




-0 
00 




• 


,0246810 


06424 


-0 


-0-0- 


0-0-0 


04790 




00 








06436 




-0—0— 


0*0*0 


04800 




OG 






.0246B10 


06448 


-0 


-0-0- 


0-0-0 


0481 


















0—0—0 


04820 




00 




f 


,0246810 


06472 


-0 


-0-0- 


0-0-0 


04830 




00 






,0246810 


06484 


-0 


-o-o- 


0-0-0 


04840 




00 






,0246810 


06496 


-0 


-0-0- 


0-0-0 


0485Q 




OC 


2 


,00 




06509 




2 




04860 


FLZERS 


-0 
DC 
- • 


2 


,0» 




06511 




2 




04870 




OS 


5 






06516 




5 




04880 


MATRIX 


TDM 


MATSW 


,1 


,, MACRO TO PROCESS MATRICIES 


06518 


15 


05655 


0C001 


04890 




TDM 


SWL ♦ 1 


,9 




06530 


15 


06043 


00009 


049C0 




TF 


LOCADJ 


,FP2 




06542 


26 


06574 


03664 


04910 




BNF 


MATRX2- 


12.MATRIX-1 




06554 


44 


06590 


06517 


04920 




TFM 


LOCADJ 


,00 


• 10 


06566 


16 


06574 


000-0 


04930 


10CA0J 


OS 


2 


,•-3 


ADJUST LOC FOR MATRIX 


06574 




2 




04940 




S 


LOCADJ 


,K 




06578 


22 


06574 


02221 


04950 




s 


MATRIX- 


1 .LOCADJ 




06590 


22 


06517 


06574 


04960 


MATRX2 


A 


MATRI X- 


I .LOCADJ 


RETURN FROM SWL, EACH MATRIX ELEMENT 


066C2 


21 


06517 


06574 


04970 




TF 


LOC 


t MA TR I X- 1 


,, MOVE ADJUSTED LOCATICN 


06614 


26 


06089 


06517 


04980 




SM 


PAR 


,1 


.10 


06626 


12 


C337I 


000-1 


04990 




BNE 


• ♦24 






06638 


47 


06662 


01200 


05000 




TDM 


MATSW 


,0 




06650 


15 


C5655 


OCOOO 


05010 




BNI 


SWC«12 






06662 


46 


06102 


01300 


05020 




BB 








06674 


42 


00000 


OOOOO 


05030 




UORG 


• -<? 






06676 








05040 


•••••• 


MACRU FOR 


AN 1/0 CARRIAGE RETURN DIKING A FORMAT STATEMENT 










05050 


St ASH 


TDM 


COMENO* 


1 ,9 




06676 


15 


06997 


00009 


05060 




BD 


SLASH2 


.RWEFSW 


•• BR IF MRITING 


06688 


43 


06708 


06061 


05070 




B 


COMEND 






06700 


49 


06996 


OOOOO 


05080 




CORG 


• -4 






067C7 








05090 


SL ASH2 


BD 


IOCR 


,COMP SW 


,, BR TO IQ CR IF OUTPUT RECCRD BLANK 


06708 


43 


06972 


05750 


05100 




CM 


DAT 1NH* 


2 ,06 


,10 


06720 


14 


06175 


000-6 


05110 




BH 


WR I IE 




,, BR IF NOT TYPEWRITER OUTPUT 


06732 


46 


06816 


01100 


05120 




TF 


LAST 


, FLZERS 


,6 


06744 


26 


0582- 


06511 


05130 




SM 


LAST 


,02 


,10, ERASE BLANKS FROM END OF I/O RECORD 


06756 


12 


05820 


000-2 


05140 




CM 


LAST 


• CO 


• 61C 


06768 


14 


0582- 


OCO-0 


05150 




BE 


• -36 






06780 


46 


06744 


01200 


05160 




CM 


LAST 


, I NM 




06792 


14 


05820 


J3121 


05170 




BL 


COM END 






06804 


47 


06996 


01300 


05180 


WRITE 


BNR 


WR I TE 1 


,RWEF SW 




06816 


45 


06940 


06061 


05190 




CM 


INH 


, 70 


,10 


06828 


14 


13121 


OOOPO 


05200 




BNH 


• ♦32 






06840 


47 


06872 


01100 


05210 




TF 


PRKEV 


,INH 


,, SKIP TO CHANNEL CODE 


06852 


26 


06927 


13121 


05220 




B7 


PRC N TR 






06864 


49 


06916 





10 5 7 



05230 
05240 
05250 
05260 

05270 PRCNTR 
05280 PRKEV 
05290 MAX 
05300 

05310 WRITEl 
05320 
05330 
05340 

05350 IOCR 
05360 CKW 
05370 

05380 COMEND 
05390 

05400 •••••• 

05410 

05420 COMPLT 
05430 CHAR2 
05440 
05450 

05460 REOO 

05470 

05480 

05490 

05500 

05510 REDOA 

05520 

05530 TERM 

05540 

05550 

05560 

05570 

05580 •••••• 

05590 •••••• 

05600 •••••• 

05610 •••••• 

05620 •••••• 

05630 REP 

05640 

05650 

05660 

05670 

05680 

05690 REP 2 

05700 

05710 

05720 

05730 REP3 

05740 WA 

05750 

05760 

05770 

05780 





162C- 1443 


MONITOR I 


VERSION 2 FORTRAN 1 I -D SUBS SET 4 144 


POS 






PAGE 


BNE 


• ♦32 






06872 


47 


06904 


01200 


TFM 


PRKE Y 


52 


,10, DOUBLE SPACE 


06884 


16 


06927 


000N2 


B7 


PRCNTR 






06896 


49 


06916 




TFM 


PRKEY 


51 


,10, SINGLE SPACE 


069C4 


16 


06927 


0C0N1 


K 




0900 


,, CONTROL CARRIAGE 


06916 


34 


OOOOO 


00900 


OS 


2 






06927 




2 




DS 


5 


• -5 




06922 




5 




TR 


INH- 1 


I NH* 1 




06928 


31 


13120 


13122 


TFM 


IORT 


• ♦23 


,7, OUTPLT 


06940 


16 


00565 


-6963 


B 


IOPT 


DAT I NH-4 


, 7 


06952 


49 


00532 


-6169 


B 


0DD6 






06964 


49 


06340 


OCOOO 


DORG 


• -4 






06971 








CM 


MAX-3 


08 


,10 


06972 


14 


06919 


000-8 


DS 


3 


• -2 


, DEC SPEC PLUS CHAR OF ARG 


06981 




3 




BNL 


WR I TE 






06984 


46 


06816 


01300 


B 


RWA2-12 






06996 


49 


05730 


OOOOO 


CORG 


•-4 






C7003 










MACRO TERMINATING I /C CONTROL 










DS 


3 






07005 




3 




TDM 


COMENO+ 1 


2 




07006 


15 


06997 


00002 


DS 


3 


• -1 


, TWICE MOOIFIED CHARACTERISTIC 


07016 




3 




B 


SLASHM2 






07018 


49 


06688 


OOOOO 


DORG 


•-4 






07025 








80 


REOO A+24 


,MAT SW 




07026 


43 


07094 


05655 


TD 


REDOA^23 


,COMPSW 




07038 


25 


07093 


05750 


TFM 


SWC AOJ 


•REOO A 


, , MACRO PERMITS REDOING BACK TO ( 


07050 


16 


06152 


-7070 


8 


SWL 






07062 


49 


06042 


OOOOO 


DORG 


•-4 







07069 








TDM 


SWLM 


,1 


, • RETURN FROM SWL IF MORE CATA 


07070 


IS 


06043 


00001 


TUM 


COMPSW 




, , VOID REOO USING SMC EFFECT CN COMPSW 


07082 


15 


05750 


OOOOO 


OS 


5 


i* 


, REFERENCE AOR IN I/O RECORD 


07093 




5 




AM 


SWF 


,5 




07094 


11 


05969 


-0005 


TF 


SWF 


.SWF 


,11 


07106 


26 


05969 


0596R 


8 


SLASH 






07118 


49 


06676 


OOOOO 


OORG 


•-4 






07125 









AM 
SM 
BH 
BE 
A 

BNH 
SM 
TF 
B 

DORG 

SF 

OS 

AM 

SM 

BH 

BE 



SWF 

REP SW 
REP 2 
BSWF 
REP SW 
BSWF 
SWF 
SWF 

SWF-23 
•-4 

REPSW3- I 
5 

SWF 

REPSW 3 
REP 2 
BSWF 



MACRO TO REPEAT FORMAT SPECS A SPECIFIC NO OF TIMES 
SUB FROM REP SW, INITIALLY SET TO ZERO 
IF REPSW NEG , SET TOREPS RECO AND REPEAT FORMAT 
IF REPSW ZERO, LAST FORMAT REPETITION IS COMPLETE 
IF REPSW PLUS, STEP OOWN ANO REPEAT FORMAT SPEC 
t7 

CONTROL REPETITION OF FIELDS 



• 1 

• SWF 



.2 

• SWF 



• 10, 



• 10 

,10 



WORKING AREA AOR REF TO FAC OR GAM 



1 058 



07126 


11 


05969 


-0007 


07138 


12 


05654 


000-1 


07150 


46 


07196 


01100 


07162 


46 


05914 


01200 


07174 


21 


05614 


09966 


07186 


47 


05934 


01100 


07198 


12 


05969 


-0002 


07210 


2* 


05969 


01966 


07222 


4t 


05946 


OOOOO 


07229 








072)0 


32 


05656 


OOOOO 


01241 




5 




07242 


II 


05969 


000-7 


07254 


12 


05657 


000- 1 


072*6 


46 


07 191 


01 100 


07276 


46 


059)4 


01200 



1620*144) MONITOR I VERSION 2 FORTRAN ll-O SU1S SET 4 



144 POS 



PAGE 



05790 




A 


REPSM 3 


• SMf 


• 11 


ossoo 




6 


REP 2-12 






058 10 




DORG 


•■— 4 






05120 


ERF 9 


TFM 


SMC AO J 


iER COM 2 


• • 


05630 




TF 


LAST 


•MAX 2 




05840 




TFM 


g 1 


»679 




05850 




g 


SML 






05860 




DORG 








05870 


XTYPE 


AM 


SMF 






05860 






LAST 


t 5Mr 


• 1 1 


05890 




g 


BSMF 






05900 




OORG 


*~ 






059 10 


ERCOM2 






0951 




05920 


M A2 


OS 


5 




i 


05930 




TFM 


IORT 


• •♦2) 




05940 




g 


{OPT 


•DATERR-4 




05950 




TR 


E I ♦ 1 


•FL2ERS-1 




05960 




B 


6SMF-12 






05970 


pp y 


OS 


5 


# 


» 


05980 


EFCQN 


AM 


SMF 






05990 




TF 


M I U TH 


» SWF 


ii 


UQVUU 






SMF 


• 2 




060 10 




Tp 


LOC 




• 1 1 










• LAST 








T« 


H tU In 2 


• Ml OTM 




h!!aka 






M l Q th 2 


t m 1 Th 








* 


LAST 


•m!DTh2 




06060 








• MAX 2 




06070 




n 


ER F9 






06080 




TF 




• LAST 




aj^aa 




SM 


TERM 


• 2 










CHAR 


•MlOTH 




aai i a 
* 




TC 




• FNH 




06120 




TOM 


a j 


» o 




?2 




TFM 




• 00 


1 1 


06140 




■ 

BD 


EF MRT 


tRMEFSW 








I p 


FAC 


•FLZALP 


• 1 1 


06160 




_ ^ 


EF TERM* 16 


•EF TYPE 




06 1 70 




TFM 


SMCADJ 


• READ EF 




061 80 


R OFCH 


BNR 


• ♦20 


• I NPLUS 


• lit 


06190 




B7 « 


ERRF 7E 




: 


06200 




CM 


INPLUS 


• 00 


• 610| 


06210 




BNE 


FCH NB 






06220 




SM 


Char 


» 1 


• 10 


062 30 




AM 


INPLUS 


• 2 




06240 




■■ C 


INPLUS 


• LAST 
















06260 




B 


EFEN0>12 






06270 




DORG 


•-4 






06280 


FCHNB 


CM 


INPLUS 


• 20 


• 610, 


06290 




BE 


EF MIN 






06300 




CM 


INPLUS 


• 10 


.610 


06310 




BE 


EF PLUS 






06320 




B 


EF T YPF ♦ 36 






06 3 30 




OORG 


• -4 






06340 


EFMRT 


C 


LOC D 


,F 





MACRO FOR SKIPPING FIELOS 



RESTORES RECORO MARK 



i us a 



07290 


2 1 


05657 


0596R 


7)02 


49 


07166 


UUUvU 


07309 








7310 


1 6 


06152 


"7386 


07322 


26 


05820 




07)34 


16 


026 15 


00079 


07344 


49 


06042 


AM AAA 

00000 


7)53 








07)54 


1 1 


05969 


-0003 


7366 


2 1 


05820 


0596R 


07376 


49 


05934 


A A AAA 
00000 


07385 








07366 


34 


00000 


0095 1 


7392 




5 




07396 


16 


00565 


— 742 1 


074 1 


t? 


005 32 


- 6 1 5 3 


07422 


3 1 


026 16 


06510 


074 34 


49 


05922 


A A AAA 
00000 












1 1 








ft 


ncala 




atata 


1 1 




— 0002 


7462 


26 


05680 


0596R 


74 94 


26 


06053 


05820 


7504 


26 


06064 


05799 


75 18 


2 I 


06064 


05799 


07530 


21 


05820 


06064 


07542 


24 


05820 


06145 


07554 


46 


07310 


01 100 


07566 


26 


07093 


05820 


07578 


12 


07093 


-C002 


07590 


26 


08669 


05799 


07602 


26 


07241 


03313 


07614 


15 


00097 


OCOOO 


07626 


16 


00099 


000-0 


07638 


43 


07842 


06061 


07650 


26 


02492 


03340 


07662 


16 


08616 


-8030 


07674 


16 


06152 


-4492 


7666 


45 


07706 


0605L 


07696 


49 


08746 




07706 


14 


0605L 


OCO-0 


07718 


47 


07786 


01200 


07730 


12 


08689 


000- 1 


07742 


11 


06053 


-0002 


07754 


24 


06053 


05820 


07766 


4 7 


07686 


1 300 


07778 


49 


08634 


00000 


07785 








07786 


14 


060SL 


CCOKO 


07796 


46 


08006 


01200 


07610 


14 


0605L 


OOOJO 


07822 


46 


08018 


01200 


07834 


49 


08066 


OOOQO 


07841 








07842 


24 


05680 


02219 









1620- 1443 


MONITOR 1 


1 VERSION 2 


FORTRAN II-O SUBS SET 4 


144 POS 






PAGE 


06350 




BNH 


• ♦24 








07854 


47 


07878 


01100 


06360 




TF 


LOC 


• F 






07866 


26 


05480 


02219 


06370 




TF 


LOCO 2 


• LOC 






07878 


26 


05476 


05680 


06380 




A 


LOCO 2 


• LOC 






07690 


21 


05676 


05680 


06390 




TR 


GAM-59 


•MASK F-l 






07902 


31 


02496 


05432 


06400 




TFM 


MA 


• GAM 






07916 


16 


07241 


-2555 


06410 




TFM 


MA2 


•FAC-1 






07926 


16 


07392 


-2491 


06420 




TFM 


SMCAOJ 


• EFMM 






07938 


16 


06152 


-4514 


06430 




SM 


WIDTH 


• 2 


,10 




07950 


12 


05799 


OCO-2 


06440 




BNF 


SML 


•RtyEFSM 






07962 


44 


06042 


06061 


06450 




SM 


TERM 


• 6 






07974 


12 


07093 


-0008 


06460 




SM 


MIpTM 


• 4 


• 10 




07966 


12 


05799 


000-4 


06470 




B 


0004 








07996 


49 


06306 


OCOOO 


06480 




OORG 


•-4 








08005 








06490 


EFMIN 


SF 


99 








08006 


32 


00099 


00000 


06500 


EFPLUS 


SM 


CHAR 


• I 


• 10 




06016 


12 


08669 


OCO-l 


06510 


Ef TYPE 


AM 


INPLUS 


• 2 






080)0 


11 


06053 


-0002 


06520 




CM 


INPLUS 


,00 


,410 




08042 


14 


0605L 


000-0 


06530 




BE 


LOG DIG 








08054 


46 


08436 


01200 


06540 




CM 


INPLUS 


• 70 


• 41C 




08066 


14 


0605L 


OQOPO 


06550 




BH 


EF DIG 








06078 


46 


065)8 


01100 


06560 




BE 


LOG 016 








06090 


44 


08438 


01200 


06570 




CM 


INPLUS 


• 03 


• 41C 




08102 


14 


0405L 


000-3 


06580 




BE 


EF OEC 








08114 


46 


06470 


01200 


06590 




BNF 


ERRF7 E 


• RMEFSM 






06126 


44 


06744 


06061 


06600 




TFM 


EXP 


• 000 


.9 




061)6 


16 


06159 


00-00 


06410 




TOM 


E EXPAO*! 


• i 






06150 


IS 


06419 


00001 


06420 


EXP 


OS 


3 


• •-2 


& VALUE 


OF CALC CHAR FOR OUTPUT 


06199 




) 




04430 




CM 


INPLUS 


• 45 


• 610 




06162 


14 


0405L 


OOOMS 


04440 




BE 


E EXP 








08174 


44 


06)90 


01200 


04450 




CM 


INPLUS 


• 40 


.410 




06164 


14 


0405L 


OOOMO 


06660 




BNL 


ERRF7E 








06196 


44 


06744 


01)00 


06670 


EEXP2 


CM 


INPLUS 


.20 


• 410 




08210 


14 


0405L 


000*0 


06680 




BE 


E EXP M 








08222 


44 


061)6 


01200 


04490 




CM 


INPLUS 


• 10 


.410 




082)4 


14 


0409L 


OOOJO 


04700 




BE 


E EXP 








06244 


44 


06350 


01200 


04710 


EEXP22 


80 


•♦24 


.97 






06296 


4) 


06262 


00097 


04720 




SM 


CHAR 


• I 


• 9 




06210 


12 


06469 


00-01 


04730 




c 


INPLUS 


• TfRM 






06262 


24 


04091 


0709) 


04740 




BNL 


EEXPAO- 12 








06294 


44 


06404 


01)00 


04750 




TP 


EXP- 1 


•INPLUS 


• 11 




06)04 


11 


08196 


0605L 


04740 




AM 


INPLUS 


.2 






06)16 


11 


04091 


-0002 


04770 




8 


EEXP22M2 








061)0 


49 


06270 


00000 


04760 




OORG 


•-4 








06)17 








04790 


fEXPM 


TOM 


E EXPAO+l 


.2 






06116 


15 


06419 


00002 


06600 


EEXP 


AM 


INPLUS 


»2 






06190 


11 


04091 


-0002 


04610 




SM 


CHAR 


• 1 


• 10 




061*2 


12 


06*09 


000- 1 


04620 




C 


INPLUS 


• TERM 






06)74 


14 


0*091 


0709) 


046)0 




BNH 


EEXP2 








0616* 


41 


06110 


01100 


06640 




B? 


ERRF7E 








06196 


44 


0*74* 




046S0 




TO 


EXP 


•INPLUS 


• 11 




0640* 


29 


00194 


0*091 


04640 


EEXPAO 


A 


CHAR 


• EXP 






06416 


21 


01**4 


0*199 


04670 




6 


EF END 








06410 


49 


0*422 


00000 


04660 




OORG 


•-4 








06417 








04690 


LCGOIC 


BMP 


EF OIG 


• 16 






064)6 


44 


06916 


00096 


04900 




SM 


CHAft 


• 1 


• 10 


06410 


II 


06469 


000-1 



1620-14*5 MONITOR I VERSION 2 FORTRAN 1 1-0 SUBS SET * 144 POS 



PACE 



06910 




8 


EF TERM 








08462 


49 


08598 


AAA All 
00000 


06920 




OORG 


• -4 








08469 








069S0 


EFCEC 


00 


ERRF7 E 


• 97 






08470 


43 


08746 


00097 


06940 




TFM 


LOC 


• 00 


• 10 




08462 


16 


05680 


000-0 


06950 




TFM 


EF TERM* 18 


•EF PLUS 






08494 


16 


08616 


-6016 


06960 




TDM 


97 


t- 1 






08506 


15 


00097 


OOOOJ 


06970 




SM 


CHAR 


1 1 


• 10 




08518 


12 


06689 


000-1 


06980 




8 


EF TERM 








085 30 


49 


08598 


00000 


06990 




DORG 


• -4 








08537 








07000 


EFOIG 


CF 


98 








08538 


13 


00098 


00000 


07010 


DPTM2 


OS 


5 


»• 


• 


TEMP AOR OF DEC PI IN I/C REC. -2 


08549 




5 




07020 




CM 


WA 


.FAC-l 






08550 


14 


07241 


-2491 


07030 




BNL 


• ♦ 36 


• 


• » 


TRUNCATES LOW ORDER DIGITS 


08562 


46 


08598 


01300 


07040 




TO 


In A 


• I NPLUS 


• 61 1 




085 74 


25 


0724J 


0605L 


07050 




AM 


WA 


• 1 






08586 


1 1 


07241 


-0001 


07060 


EF TERN 


C 


INPLUS 


• TERM 






08598 


24 


06053 


07093 


07070 




BL 


EF TYPE 








08610 


47 


08030 


01300 


07080 


EFEND 


BNF 


E FEND 2 


• FNH 


• 11 » 


ZERO CHECK 


08622 


44 


06654 


0331L 


07090 




TFM 


FAC 


,99 


• 1011 




08634 


16 


02492 


OOORR 


07100 




B 


SWL 








08646 


49 


06042 


00000 


071 10 




DORG 


• -3 








08654 








07120 


EFEND2 


S 


CHAR 


• LOC D 






08654 


22 


08689 


05680 


7130 




BD 


ERR F7E 


•CHAR-2 






08666 


43 


08746 


08667 


07140 




SF 


CHAR-l 








08678 


32 


08668 


ocooo 


07150 


CHAR 


OS 


5 


• • 


» 


MODIFIED CHARACTERISTIC 


08689 




5 




07160 




TF 


FAL 


• CHAR 






08690 


26 


02492 


08689 


07170 




SF 


FNH 


• 


• 6 




087C2 


32 


0331L 


00000 


07180 




BNF 


SWL 


.99 






08714 


44 


06042 


00099 


07190 




SF 


FAC-2 








08726 


32 


02490 


oocoo 


07200 




B 


SWL 








08738 


49 


06042 


00000 


07210 




OORG 










08745 








07220 


ERRF7E 


TF 


FAC 


•FLZALP 


,11, 


F PLUS 2 ZEROS TO FAC 


08746 


26 


02492 


03340 


07230 




TOM 


E I 


.7 


• lit 


SET ER F7 INDICATION SWITCH 


08758 


15 


02615 


OOOOP 


07240 




B 


EFENU 








08770 


49 


08622 


00000 


07250 




OORG 


• -4 








08777 








07260 


• ••• 




MACRO FOR HOLLERITH TYPE READ AND WRITE 










07270 


HTVPE1 


TF 


W 10TH2 


• SWF 


.11 




08778 


26 


06064 


0596R 


07280 




TF 


INPLUS 


• LAST 






0879C 


26 


06053 


05820 


07290 




A 


LAST 


•WI0TH2 






088C2 


21 


05820 


06064 


07300 




C 


LAST 


• MAX2 






08814 


24 


05820 


06145 


07310 




BNH 


• ♦32 








08826 


47 


08858 


01100 


07320 




A 


SWF 


•WI0TH2 






08838 


21 


05969 


06064 


07330 




B 


ER COM 2 








0885C 


49 


07386 


00000 


07340 




DORG 


• -4 








08857 








07350 




BO 


HWRT 


•RWEFSW 






08858 


43 


08938 


06061 


07360 


HRD 


SM 


WIDTH 2 


• 2 


,10. 


R£ AO H FROM 10 REC TO FORMAT RECORD 


08870 


12 


06064 


000-2 


07370 




01 


BSWF 








08882 


47 


05934 


01300 


07380 




AM 


SWF 


• 2 






08894 


11 


05969 


-0002 


07390 




TF 


SWF 


•INPLUS 


,611 




08906 


26 


0596R 


0605L 


07400 




AM 


INPLUS 


• 2 






08918 


11 


06053 


-0002 


07410 




B 


HRD 








08930 


49 


08870 


00000 


07420 




OORG 


• -4 








08937 








74 30 


HWR T 




WIDTH 2 


.2 


,10, 


WRITE H TO I/O REC FROM FORMAT REC 








COO— 2 


07440 




TDM 


COMPSW 


• 






0895C 


15 


05750 


00000 


07450 




BL 


BSWF 








08962 


47 


05934 


01300 


7460 




AM 


SWF 


.2 






08974 


1 1 


05969 


-0002 














1 061 
















1620-1443 


MONITOR I 


VERSION 2 FORTRAN I I - D SUBS SET 4 144 


POS 






PAGE 


07470 




TF 


INPLUS 


• SWF 


,611 




08986 


26 


0605L 


0596R 


07480 




AM 


INPLUS 


• 2 






08998 


1 1 


06053 


-0002 


07490 




G 


H WRT 








09010 


49 


08938 


00000 


07500 




DORG 


• -4 








0901 7 








07510 


EFRDl 


CF 


LOC 








09018 


33 


06089 


OCOOO 


07520 




TF 


F I XEND+6 


•I CON 5*6 






09030 


26 


3686 


05508 


07530 




B 


FIX 








09042 


49 


03854 


00000 


07540 




DORG 


• -4 








09049 








07550 


EFR02 


TOM 


F IXENO* 1 


• 2 






09050 


15 


03681 


0C002 


07560 




TFL 


LOC 


• F AC 


.6 




09062 


06 


0608R 


02492 


07570 




B 


ER F7 








09074 


49 


10538 


00000 


07580 




DORG 


• -4 








09081 








07590 






MACRO FOR A 


TYPE 


READ AND WRITE 










07600 


A TYPE 1 


TF 


WIDTH2 


• SWF 


• U 




09082 


26 


06064 


0596R 


07610 




TF 


INPLUS 


• LAST 






09094 


26 


06053 


05620 


07620 




A 


LAST 


•WIOTH 2 






09106 


21 


05820 


06064 


07630 




C 


LAST 


• MAX 2 






09118 


24 


05820 


06145 


07640 




BH 


ER F9 








09130 


46 


07310 


01100 


07650 




TF 


TERM 


• LAST 






09142 


26 


07093 


05820 


07660 




SM 


TERM 


• 2 






09154 


12 


07093 


-0002 


07670 




TFM 


SWC AOJ 


•WRITE A 






09166 


16 


06152 


-9426 


07680 




BO 


SWL 


• RW EF SW 






09178 


43 


06042 


06061 


07690 




TFM 


SWC ADJ 


•RE AO A 






09190 


16 


06152 


-9210 


07700 




B 


SWL 








09202 


49 


06042 


00000 


07710 




DORG 


• -4 








092C9 








07720 


REACA 


CF 


INPLUS 




,6 




09210 


33 


0605L 


00000 


07730 




AM 


INPLUS 


.1 


.10 




09222 


11 


06053 


000-1 


07740 




C 


INPLUS 


♦ TERH 






09234 


24 


06053 


07093 


07750 




BL 


RE AO A 






09246 


47 


09210 


01300 


07760 




BNF 


RDAFL 


• LOC 






09258 


44 


09370 


06069 


07770 




CF 


LOC 








09270 


33 


06089 


00000 


07780 




TF 


LOC 


,FX2 


• 6 




09282 


26 


0606R 


02815 


07790 




S 


WIDTH 2 


• K 






09294 


22 


06064 


02221 


07800 


RCA 


BH 


ERF7A 








09306 


46 


09390 


01100 


07810 


A 


LOC 


.WIDTH 2 






09318 


21 


06069 


06064 


07820 




TF 


LOC 


• TERM 


.611 




09330 


26 


0606R 


07091 


07830 




8 


ER F7 








09342 


49 


10536 


00000 


07840 




OORG 


•-4 








09349 








07850 


ERF7A 


TDM 


EI 


,7 


.11, 


SET ER F7 ERROR I NO A NO SWITCH 


093S0 


15 


02619 


OOOOP 


07860 


8 


ER F7 








09362 


49 


10536 


00000 


07870 




OORG 


•-4 








09369 








07880 


RCAFL 


TFM 


LOC 


• 00 


.610 




09370 


16 


0606R 


000-0 


07890 




SM 


LOC 


• 2 


.10 




093B2 


12 


06069 


000-2 


07900 




TF 


LOC 


• FLZ 


.611 




. 09394 


26 


06066 


0335L 


07910 




S 


WIDTH 2 


• F 






09466 


22 


06064 


02219 


07920 




B 


RO A 








09418 


49 


09306 


OCOOO 


07930 




OORG 


• -4 








09429 








07940 


MR I TEA 


TF 


FAC 


• LOC 


.11 




09426 


26 


02492 


0606R 


07950 




BNF 


WA FX 


•FAC-1 






09438 


44 


09911 


02491 


07960 




$M 


LOC 


• 2 






09490 


12 


0608)9 


-0002 


07970 




S 


WIOTH 2 


»F 






09462 


22 


06064 


02219 


07980 


HRTA 


BH 


WRTA 2 






10 62 


09474 


44 


09916 


01100 


07990 


A 


LOC 


.WIDTH 2 




09464 


21 


06069 


06064 


08000 




TF 


TER* 


• LOC 


• 611 


09491 


24 


070*1 


06066 


08010 




B 


BSWF 








09910 


49 


05434 


00000 


08020 




OORG 


•-4 








09917 
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PAGE 



08030 MR T A2 

08040 

08050 

08060 M AFX 

08070 

08080 

08090 •••••• 

08100 •••••• 

08110 ••••♦• 

08120 •••••• 

08130 •••••• 

08140 EFMW1 
08 1 50 

08160 EFALPH 

08170 

08180 

08190 

08200 

08210 

08220 

08230 EF ALP 

08240 

08250 

08260 

08270 

08280 

08290 

08300 

08310 

08320 EFCHKS 

08330 

08340 

08350 

08360 

08370 

08380 

08390 

08400 

08410 

08420 

08430 

08440 

08450 

08460 

08470 •••••• 

08480 •••••• 

08490 •••••• 

08500 WH T 6 

08510 

08520 

08530 

08540 

08550 

08560 

08570 

08580 



DQRG 
S 



TFL 
BNF 
TOM 
TF 

S 

TFM 

S 

TF 
SM 
SM 

TO 
CF 
SM 

C 

BH 

TFM 

8NF 

TFM 

TFM 



TF 

S 

c 

BL 

CM 

BNF 

07 

BL 

HO 

TOM 

TFM 

BNF 



BNL 

BO 

S 

80 
TFM 



MOTH 2 
WRTA 
• -6 

WIDTH 2 
WRT A 



.02 



FAC 

FLOAT 

FLTENO- 

OPT 

OPT 

OPC 

OPG 

DPTM2 

DPTM2 

WA 2 

HA 

WA 

MA 

WA2 

EF ALP 



WA 

CKW 

CKU 

CKW 

CHAR 

Char 
width 

ER F8 E 
FAC 

• ♦2C 

• ♦20 

• ♦24 

• ♦36 

Ft TEND- 
CHAR 
WR TF 



WIDTH 
WRT E2 

• ♦36 
CHAR 
ERF8E 

• ♦47 

• ♦35 

• ♦23 
GAM 



F TYPE MANTISSA WRl T ING .FLOAT ARG IF RE (J. 
TE DEC P T IN GAM ANO OUTPUT RECORD. MOVE 
SSA DIGIT BY DIGIT, RIGHT TO LEFT, FROM FAC 
M. INSERT SIGN* CHECK WIOTH, ANO ZERO. 
WRT F FOR F TYPE CONTINUATION 



ill 



- I 

I 

* 
D 2 



,610 
,9 



E ANO 
COMPU 
MANTI 
TO GA 

OR TO 
,ICC 

• FAC 
5 ,2 

iTER 
,LOC 
-GAM 
,LOC 
,D«'Y 

• 2 

• 1 

,WA2 
.2 

» F M I M 



,00 

.FAC-2 

,20 

,C00 

,L0CD 

,FAC 

,CKW 

,P 

# toe 

,-70 
.RWEFSW 



,FNH ,11 
k ,-1 

,-099 ,9 
,RWEFSW 

WRITE E TYPE. ASSEMBLE EXP IN GAM USING A MASK, 
THE CHAR AND SIGN. MOVE LEFT GAP ANO RIGHT GAM TO 
OUTPUT. THEN GO TO INSERT DECIMAL POINT 
,F 

, ,, BR IF F NOT LARGER THAN EFF MIOTH 

♦FLTEND-4 
, WIDTH 
,CHAR-2 
,GAM 
.WIDTH 
, WIDTH 



1UG3 



162C-1443 MONITOR I VERSION 2 FORTRAN I I-D SUBS SET 4 



08590 




B 


WRTE2 






08600 




OORG 


•-4 






08610 


»••••• 




MACRO FOR I 


TYPE 


08620 


itypei 


TF 


WIDTH2 


,SWF 


til 


08630 




A 


LAST 


,WIDTH2 




08640 




C 


LAST 


,MAX2 




08650 




BH 


ER F9 






08660 




TF 


1NPLUS 


• LAST 




08670 




TFM 


IR DIG*6 


,FAC 




08680 




TFM 


SMC AOJ 


, WRITE I 




08690 




BD 


0DD4 


,RMEFSW 




08700 




TF 


TERM 


, FPIMK 




08710 




TF 


FAC 


,FXl 




08720 




TFM 


SWC AOJ 


.READ I 




08730 




CHAR BY CHAR IS MOVED 


INTO 


08740 




OR 


; M CHAR ARE EXAMINED. 


08750 




ERROR F7 Ml 


ILL OCCUR IF MORI 


08760 


I READ 


SM 


WI0TH2 


,2 


,10 


08770 




BL 


SWL 






08780 




SM 


INPLUS 


,2 




08790 




BNR 


• ♦20 


, INPLUS 


• Hi 


08800 




87 


ERRF7I 






08610 




CM 


INPLUS 


,70 


,610 


08820 




BH 


IR DIG 






08830 




BE 


IR BLNK 






08840 




CM 


INPLUS 


,00 


,610 


08850 




BE 


I R BLNK 






08860 




CM 


INPLUS 


,20 


,610 


08870 




BE 


I MINUS 






08880 




CM 


INPLUS 


,10 


,610 


08890 




BE 


SWL 






08900 




B 


ERR F7I 






08910 




OORG 


•-4 






08920 


IROIG 


TO 




, INPLUS 


,11 


08930 




C 


•-6 


,TERM 




08940 




BL 


ERR FT I 






08950 


IRBLNK 


SM 


IR DIG*6 


rl 




08960 




B 


I READ 






08970 




OORG 


•-4 






08980 


IM1MUS 


SF 


FAC 






08990 




6 


SWL 






09000 




OORG 


•-4 






09010 


ERRF7I 


TF 


FAC 


.FXZ 


• I 


09020 




TFM 


EI 


,677 


,911, 


09030 




8 


SML 






09040 




OORG 


•-4 






09050 


RE AD I 


SF 


FPIMK 




#6 


090*0 




TF 


FLT END 


llCON 2*6 




09070 




BNF 


FLOAT 


,LOC 




09080 




CF 


LOC 






09090 


READIF 


TFL 


LOC 


,FAC 


• 6 


09100 


ERF 7 


BNF 


BSWF-12 


tE! 


» • 


09110 




Cf 


EI 


• 


1 1 


09120 




B 


ER COM 2 






09 ISO 




OORG 


«~4 






09140 


IC0N2 


• 


READ IF 




,1 



THAN K CHAR ARE AVAIL TO READ 



CHECK FOR INPUT RECORD MARK 



SET FIXIO 2ER0 INTO FAC 
SET ERROR F7 INDICATION 



BR IF NOT ERROR TYPE FT 
ERASE ERROR F7 INDICATION 



09518 


12 


060*4 


000-2 


09510 


** 


09474 


COOOO 


09517 








095 IB 


22 


06064 


0222 1 


09550 


49 


09474 




09557 








09558 


06 


02492 


0608R 


nasi * 


t« 






09582 


|' 








ft 


n y22« 






* f 






noAi * 


1 6 






na&tn 


if 












' 
















"nnni 




25 




0739K 


nntn-» 




; 


UUUUU 


097Q2 




0724 1 








07392 


033 1 3 












16 


0724 J 










02490 


09762 


16 


0724 J 


OOOKO 


An II* 


16 


0698 1 


00-00 


09 786 


2 1 


0698 1 


05680 


0979B 


2 1 


0698 1 


02492 


09810 


26 


08689 


06981 


09822 


22 


08689 


0221 9 


09814 


24 


05799 


05680 


09846 


47 


05226 


01300 


09858 


14 


02492 


OOOP- 


09870 


44 


09890 


06061 


09882 


49 


09902 




09890 


47 


099 14 


01 300 


09902 


4 3 


09938 


0331L 


09914 


15 


03726 


0000 J 


09926 


16 


08689 


00- 9R 


09918 


44 


04726 


06061 


09950 


22 


05799 


02219 


09962 


46 


04622 


01300 


09974 


43 


10010 


03726 


09986 


22 


08689 


05799 


09998 


43 


05226 


08687 


10010 


16 


10057 


-2555 


10022 


21 


10057 


05799 


10034 


21 


10057 


05799 


10046 


26 


02555 


CCOOO 


POS 






PAGE 


10058 


49 


04622 


00000 


10065 








10066 


26 


06064 


0596R 


10078 


21 


05820 


06064 


10090 


24 


Q5820 


06145 


10102 


46 


07310 


01100 


10114 


26 


06053 


05820 


10126 


16 


10176 


-2492 


10118 


16 


06152 


-4470 


10150 


43 


06306 


06061 


10162 


26 


07093 


03283 


101 74 


26 


02492 


02815 


10186 


16 


06152 


J0478 


10198 


12 


06064 


000—2 


10210 


47 


06042 


01300 


10222 


12 


06053 


-0002 


10214 


45 


10254 


0605L 


10246 


49 


10446 




10254 


14 


0605L 


OOOPO 


10266 


46 


10370 


01 100 


10278 


46 


10406 


1200 


10290 


14 


0605L 


oco-o 


10102 


46 


1040* 


01200 


10114 


14 


0605L 


OOOKO 


10126 


4* 


10426 


1200 


10318 


14 


0605L 


OOOJO 


10150 


4* 


06042 


01200 


10162 


49 


10444 


occoo 


10169 








10170 


2 5 


coooo 


0605L 


10182 


24 


1017* 


07093 


10194 


47 


1044* 


01300 


10406 


12 


1017* 


<-00Ol 


10418 


49 


10 198 


00000 


10425 








10424 


32 


02442 


nn a 


1 04 IB 


44 


0*042 


00000 


10449 








10446 


2* 


02442 


02615 


1045B 


1* 


02*15 


000 7P 


10410 


49 


0*042 


00000 


10417 








10478 


J2 


0128L 


OOAAA 


10440 


2* 


01710 


1057* 


10502 


44 


04042 


. 0*0*9 


10514 


11 


0*089 


00000 


1052* 


0* 


0408R 


02492 


10518 


44 


05422 


02*15 


10550 


ss 


02*15 


00000 


10542 


44 


OTSB* 


00000 


105*4 








10510 


40 


1052* 


00000 



1064 
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PAGE 



09150 

09160 

09170 •••••• 

09180 

09190 •••••• 

09200 •••••• 

09210 •••••• 

09220 WRl TI 1 

09230 

09240 

09250 

09260 

09270 

09280 MRT12 

09290 

09300 

09310 WRTI 

09320 

09330 

09340 

09350 

09360 

09370 IUIG 

09380 

09 390 HO 

09400 

09410 

09420 

09430 

09440 

09450 

09460 WRTSGN 

09470 

09480 

09490 WRTI3 

09500 

09510 

09520 

09530 

09540 

09550 our 

09560 

09570 

09580 

09590 

09600 

09610 

09620 ERF 8 1 
09630 
09640 
09650 

09660 • •••• 
09670 F IX I 
09680 

09690 
09700 



RETURN FROM SWL VIA SMC IF WRITING 1 TYPE 
VALUE PUT IN F AC IN I FORM . E XPANDEC TO ALPHA IN 
GAMMA RIGHT TO LEFT. HO CONTAINS ADR OF HIGH ORDER 
DIGIT IN GAM. AFTER VALUE IN GAM IS S I GNEO i CHECK ED 
FOR MIOTH, MOVE TO CUT PUT RECORD. 

ERF 81 RESULTS IF VALUE TCO LARGE FOR FORMAT SPECS. 





MA2 






10578 


16 


07392 


-2493 


TCI 


r AC 


' nr 


* 


10590 


06 


02492 


0608R 


BNF 




F AC 




10602 


44 


10646 


02491 


TF 


r I XcNU ♦ 6 


i I C ON 3* 6 




10614 


26 


03686 


05516 




F I X 






10626 


49 


038S4 


00000 


DORG 








10633 








TDM 


c i v c iur\ a. i 
r I XtNU* I 






10634 


15 


03681 


00002 


TR 


GAM- 1 9 


»MASK I 




1 0646 


) I 


02536 


05472 


T FM 


HO 


* GAM* I 
t 1 






16 


10749 


"2556 


SM 


MA 2 




10670 


12 


7392 


-0001 


SM 


MA 


t 2 




i n*af 


1 2 


0724 1 


-0002 


TD 


MA 


t MA 2 


1 6 1 1 






0724 J 


07 39* 


BD 


I DIG 


t MA 2 


til 




* 


10726 


07 39* 


8 


I !&♦ 12 






1 ft71 A 




10738 




DURG 


• -4 






i n?*«s 

1 rtTj! 








TF 


HO 


t MA 








10749 


07241 


CF 


GAM 


» 


it PREVENTS PRcMATUKfc IfcKF.rUK Nfcb *Kb 






02555 


Uv wUw 


DS 


5 


t • 


t ADR CF HI OROER NGN ZERO DIGIT 


1 749 








BNF 


MR T 1 


t MA 


♦ 11 


10750 








CM 


HO 


iGAM* 1 




10762 


14 


* 


— 2556 


HNE 


MR T SGN 






10774 


4 7 


10806 


1200 


TFM 


LAST 


t 7000 


,68 


10786 


16 


0582— 


Or GOO 


e 


BSMF 






10798 


49 


05934 


00000 


OORG 


• -4 






10805 








BNF 


MR T 13 


t F AC 




10806 


44 


10842 


02492 


SM 


HO 


1 2 




• 2s !!! 


*f 






TFM 


HO 


i 20 


♦ 6 I C 


10830 


16 






SM 


HO 


1 1 




10842 


12 


10 749 


—000 1 


TFM 


OLT 


, GAM 




10854 


16 


10913 


-2555 


S 


OL T 


iHO 






\? 


• ! \ 


? 


C 


Oil 


, MIOTH 2 




10878 


24 


109 1 3 


06064 


Bh 


ER F8 I 






10890 


46 


10970 


1 100 


SF 


OUT 






109C2 


32 


10913 


00000 


OS 


5 


, • 


t HI ORDER MKG AOR IN I/O RECGRDt I TYPE 


1091 3 




5 




A 


OLT 


.LAST 




10914 


21 


10913 


05820 


SM 


OUT 


t2 




10926 


12 


10913 


-0002 


TR 


OLT 


• HO 


,611 


IC938 


31 


10911 


1074* 


FFM 


LAST 


tOO 


,610 


10950 


16 


0582- 


000-0 


B 


BSMF 






10962 


49 


05934 


00000 


DORG 


•-4 






10969 








TR 


OLD H*U 


tFLZERS- 


67 


IC970 


31 


02618 


06444 


TR 


DLD H*ll 


,H0 


* 1 1 


10982 


31 


02616 


1C74R 


B 


ERCOM 






10994 


49 


05346 


00000 


DORG 


• -4 






11001 








1620 FORTRAN I I -0 


ARITHMETIC SLBROUTINES 










BP 


•♦32 




YES 


11002 


46 


11034 


01100 


TF 


F AC 


,FXZ 


• , NO 


11014 


26 


02492 


02815 




F I X END 






11026 


49 


03680 


00000 


DORC 


• -3 




i it a r> 


11034 















1620-1443 


MONITOR I 


VERSION 2 FORTRAN I I -D SUBS SET 4 


144 POS 






PAGE 


097 10 




TO 


MO- I 


,FAC-2 




STOKE SIGN 


11034 


25 


03631 


02490 


09720 




C 


F AC 


iK 




I S CHAR GREATER THAN K 


11046 


24 


02492 


02221 


09730 




BNH 


• ♦44 






NU 


11058 


47 


11102 


01100 


09740 




TDM 


FXERR^25 


, 1 




YE S t SET ERR TYPE 


11070 


15 


03621 


00001 


09750 




TFM 


E I 


,579 


• 9, 


SET ER E9, OVFL IN FIX 


11082 


16 


02615 


00N79 


09760 




B 


FXNINE+ 12 




* » 


F AC * FX9 


11094 


49 


11348 


OOCOO 


09770 




CORC 


*-3 








1UC2 








09780 




CF 


FAC-2 








11102 


33 


02490 


00000 


09790 




TF 


BETA 


.ZERO-51 




CLEAR ADC AREA 


11114 


26 


02603 


02716 


09800 




r f 


IMSA 


,FXZ 






11126 


26 


02575 


02815 


09810 




TF 


• ♦30 


, IMSAPF 




ALIGN DECIMAL POINTS 


11138 


26 


11168 


03298 


09820 




S 


•♦18 i 


,FAC 






11150 


22 


11168 


02492 


0983C 




A 


DUMMY 


.FAC-2 






11162 


21 


99999 


02490 


09840 




Tf 


F AC 


.IMSA 






11174 


26 


02492 


02575 


09850 




B 


MU 








11186 


49 


03632 


00000 


09860 




DURG 


• -4 








11193 








09870 


FXA1 


BV 


• ♦12 








11194 


46 


11206 


01400 


09880 




SB 










112C6 


42 


00000 


00000 


09890 




DORG 


•-9 








11208 








09900 


FXSRl 


CF 


FAC 








11208 


33 


02492 


00000 


09910 




TF 


FXA-1 


.FXSR-l 


t t 


SET UP ACD 


11220 


26 


03877 


03925 


09920 




B 


FXA , 






BRANCH TO F1XEC POINT ADO 


11232 


49 


03878 


00000 


09930 




DORC 


•-3 








11240 








09940 




SF 


FAC 








11240 


32 


02492 


00000 


09950 




B 


FXSR 1 ♦ 12 








11252 


49 


11220 


00000 


09960 




DORG 


• -4 








11259 








09970 


FXMl 


SF 


1CCMK , 




• 6 




11260 


32 


0329L 


00000 


09980 




TF 


FAC , 


!99 






11272 


26 


02492 


00099 


09990 




88 










11284 


42 


COOOO 


00000 


10000 




DORG 


•-9 








11286 








10010 


FXD1 





1C0MK 


iFXO-l 


.611 




11286 


29 


0329L 


0397L 


10020 




8V 


• ♦26 








11298 


46 


11324 


01400 


10030 




TF 


FAC , 


.99MK 


til 




11310 


26 


02492 


0328Q 


10040 




BB 










11322 


42 


00000 


00000 


10050 




DORG 


•-9 








11324 








10060 




TFM 


EI 


,578 


,9, 


ERROR 68, ZERO DIVISION 


11324 


16 


02615 


OON76 


10070 


FXNINE 


TFM 


FXERR+30 i 


.FIXEND-12 




SET UP ERROR EXIT 


11336 


16 


03626 


-1666 


10080 




TF 


FAC i 


,FX9 




FAC » FX9 


11346 


26 


02492 


02605 


10090 




B 


FXERR 








11360 


49 


03596 


00000 


10100 




DORG 


• -4 








11367 








10110 


FXDR1 


D 


100MK < 


.FAC 


,6 




11368 


29 


03291 


02492 


10120 




8 


FXD1M2 








11380 


49 


11296 


00000 


10130 




DORG 


• -4 








11367 








10140 


RSGN1 


BNF 


• ♦26 , 


.FAC-2 




FLOATING POINT NUMBER 


11388 


44 


11414 


02490 


10150 




CF 


FAC-2 








1 1400 


33 


02490 


00000 


10160 




BB 










11412 


42 


00000 


00000 


10170 




DORG 


•-9 








11414 








10180 




SF 


FAC-2 








11414 


32 


02490 


00000 


10190 




BB 










11426 


42 


00000 


00000 


10200 




OORG 


•-9 








11426 








10210 




BNF 


• ♦26 , 


.FAC 


» t 


FIXEO POINT NUMBER 


11426 


44 


11454 


02492 


10220 




CF 


FAC 








11440 


31 


02492 


00000 


10230 




BB 










11452 


42 


00000 


00000 


10240 




OORG 


•-9 








11454 








10250 




SF 


FAC 








11454 


12 


02492 


00000 


10260 




BB 








1066 


114*6 


42 


00000 


00000 









1620-144) 


MONITOR 


I VERSION 2 FORTRAN 11-0 SUBS SET 4 


144 POS 






PAGE 


10270 


- 


CORG 


•-9 








11468 








10280 


PLQAT1 


BZ 


ZERFAC 


• 


• » 


YES 


11468 


46 


03422 


01200 


10290 




TO 


99 


.FAC 


» » 


STORE SIGN 


11410 


25 


00099 


02492 


10)00 




CP 


FAC 








11492 


U 


02492 


OCOOO 


10310 




TR 


BET A- 9 


,FXM 


.11 




1 1504 


11 


02594 


0328L 


10120 




TF 


FAC-2 


,9SPf-l 


• ♦ 


CLEAR FAC 


11516 


26 


02490 


02853 


103)0 




TF 


SAVE 


.K 




CHAR • K 


1 1528 


26 


02565 


02221 


10)40 




TFM 


• ♦23 


.BETA- 9 






1 1540 


16 


1 1563 


-2594 


103*0 




80 


• ♦44 


•DUMMY 




FIND HI ORDER CIGI T 


11552 


43 


1 1596 


99999 


10)60 




SM 


SAVE 


.1 


.10. 


AOJUST CHAR 


1 1 564 


12 


02565 


000- 1 


10)70 




AM 


•-12 


• 1 






11576 


1 1 


1 1563 


-0001 


10)80 




8 


•-36 








1 1588 


49 


11552 


00 coo 


10)90 




CORG 


• -3 








1 1596 








10400 




TH 


FNM 


.•-33 


.611 




1 1596 


31 


0331L 


1156L 


10410 




TF 


•♦35 


,FNH 




FIND AND CLEAR RECORD MARK 


1 1608 


26 


1 1643 


03313 


10420 




AM 


• ♦23 


. 1 






1 1620 


1 1 


1 1643 


—000 1 


104)0 




8NR 


•-12 


tOUMMV 






11632 


45 


1 1620 


99999 


10440 




TOM 


•-1 


.0 


.6 




1 1644 


is 


1 164L 


00000 


10490 




TO 


FAC* I 


•REC** 


. . 


REPLACE RECORD MARK 


1 1656 


25 


02493 


0240) 


10460 




TF 


BE TA 


. ZERO- 74 




CLEAR BETA 


1 1668 


26 


02603 


02693 


104 70 




8 


NORM60 








1 1660 


49 


11712 


00000 


10480 




DORG 


•-3 








1 1688 








10490 


NORM36 


TR 


FNh 


,FH 


.611. 


LEFT SHIFT ONCE 


1 1686 


31 


0331L 


0330Q 


10500 




TOM 


FAC-1 


.0 


( ( 


SET LAST DIGIT TO ZERO 


1 1 700 


15 


0249 1 


OCOOO 

UlUU \t 


10510 


N0RM60 


SF 


FNh 




(6 




11712 


32 


0331L 


00000 


10520 




80 


F INISH 


.FNM 


,611, 


TEST LEADING ZERO 


1 1 724 


43 


0372L 


0331 L 


105)0 




SM 


SAVE 


t i 


.10, 


SUBT ONE FROM EXPONENT 




1 2 






10540 




B 


N0RM36 








1 1 748 


49 


1 1 688 


onnnn 
vvuuw 


10550 




CORG 


• -4 








1 1 755 
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06511 


EE XPM 


08338 


FNHM2 


03489 


LN4 


02916 


REDO 


07026 


FNCNEi 


04930 


EEXP 


08350 


FNM 


03313 


LN8 


02949 


REP2 


071 96 


FXNINE 


11336 


EFALP 


09666 


FP1MK 


3283 


LNENT 


03)48 


REP3 


07230 


UM1M2F 


03543 


EFCOH 


07446 


FP2 


03664 


L0C02 


05676 


REP 


07126 


MTVPEl 


08778 


EFOEC 


08470 


F 


02219 


LOCO 


09660 


REPSM 


05654 


IHINUS 


10426 


EFDIG 


08538 


FSBR1 


11788 


LOC 


06069 


RSGM1 


11386 


IMSAPF 


03298 


EFEND 


08622 


FSBR 


04114 


LOGE 


03010 


RSGN 


04020 


INPLUS 


06053 


EFMIN 


08006 


FSB 


04066 


MASKF 


05433 


RM2A 


05776 


IRBLNK 


10406 


EFMW1 


09558 


PTYPE 


04558 


MASK 1 


05472 


RMA2 


05742 


ISPFMl 


03303 


EFMW 


04514 


FXl 


02825 


MASK 


05421 


RMA 


05634 



1 ? J 







162C-1443 MONITOR 


I VERSION 2 


FORTRAN 


II -0 SUBS SET 4 


144 POS 




PAGE 


** 


SAVE 


02565 


TOFAC 


03408 


to AFX 


09538 


WRTF 


04726 


W10TH2 


04064 


SIX 


03219 


TRACl 


03544 


WAPT1 


05558 


WRTI2 


10634 


WRITE I 


06 940 


SLASH 


06676 


TRAC2 


03520 


WAPT 


04306 


WRTI3 


10842 


WRITE A 


09426 


START 


03851 


TRACE 


03496 


HA 


07241 


WRTI 


1C670 


WRITE I 


044 70 


STOP 


02395 


TRRET 


06364 


HAT Yl 


05538 


W 


02240 


WRITU 


10576 


SWC 


06090 


TWOPI 


03103 


HATY 


04282 


XTVPE 


07354 


WRTALP 


05622 


SWF 


05969 


TWOZ 


03C73 


HIOTH 


05799 


ZEROM 


03445 


WRTF PC 


05050 


SWL 


06042 


UNFLO 


03466 


HRITE 


06616 


ZERO 


02767 


WRTFPE 


05016 


TAFE 


02535 


HA 2 


07392 


HRTA2 


09518 


SLASH2 


06706 


WRTSGN 


1C606 


TAN6 


03248 


WA3 


04591 


WRTA 


094 74 


STZERO 


06423 


ZERFAC 


03422 


TEN34 


03278 


MAC 01 


05610 


WRTE2 


04622 


SWCAOJ 


06152 






TERM 


07093 


WACO 


04330 


HRTE 


09950 


WEFCEC 


05194 







ENC OF UNE ASSEMBLY. 
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162C-1443 PCMTCR I VERSK* 2 FCRIRAK ll-C LCACER ELCCR I 



PAGE 



00C10 




CORC 


2426 




C2426 




COCK 


namblf 


CC 


16. C 




02441 , 


U 






-OCCCCCCCCCOCCOC 








COCJC 




CC 

_ • 


2.» 




C2443 


2 


C0C4C 


CVRLAP 


cs 


I 




C2444 


1 


C0C5C 


FLf.RMK 


cs 


t 




C2443 


1 


coctc 


ACDCCfc 


cs 


5 




C245C 




COC7C 


EGACCR 


cs 


5 




C2435 


■ 


cocec 


SCACCR 


cs 


5 




C246C 


« 


cocsc 


1C INC 


cs 


1 




C2461 


1 


COICC 


ML IND 


OS 


1 




C2462 




C011C 


EXTINC 


cs 


1 




C2463 


[ 


CO120 


SECT 


OS 


3 




C2466 


2 


cone 


2R0TST 


OS 


I 




C2467 


1 


CO MO 


ACCSVE 


OS 


5 




C2472 




C015G 




CC 






C2473 


1 


C016C 


LCDOA 


COA 


. i,c,o,sibtbi 




02474 


14 






l-CCCO-CC-2522 








C017C 




CC 






C2488 


1 


oo ice 


SVEOCA 


COA 


. I. C»21,C 




C249C 


14 






l- CCCC-2 l-CCCC 








CO ISO 




CC 
• 


1 1 • 




C25C4 


1 


C02CC 


INCCCA 


COA 


, l.C, 10, SLRIPL 




C25C6 


14 






1-CCCC-1C-2522 








C02 1 




CC 


1 • • 




C252C 


1 


C0220 




CS 


1 




C2521 


1 


C023C 


SIB TBI 


CSS 


iccc 




C2522 


ICCC 


C024C 




CC 


12, • 




C3533 


12 






-OCCCCCCCCC 








C025C 




CORG 


72EC 




C728C 




C026C 


CCAR 


CSS 


20 




C72IC 


2C 


C027C 


CCMSEC 


CSS 


ICC, SYSTEM CC*PLMCATICK 


SECTCP 


C73CC 


ICC 


oo2ec 


IKRK 


CSS 


ICC, RE AO IK AREA FCR 


IKCICATCR RECCRC 


074CC 


ICC 


00290 


6IGPRT 


cs 


,CCMSEC«65 




C7365 


C 


C03CC 


S8PTBL 


cs 


, IKRK 




074CC 


C 



C021C • 

0032C • 

C033C • 

C034C • 

C035C • 



C036C 


ICRT 


CS 


,565 




CC565 




C 




00370 


icr.T 


OS 


,566 




CC566 




C 




cosec 


ICPT 


cs 


,532 




CC532 




C 




C03SC 


PCNCAL 


cs 


,7S6 




CC796 




C 




C04CC 




TFM 


1QRT,"23,, GE1 8LCCK 2 




C75CC 


16 


CC565 


-7523 


00410 




B 


ICGT.FCR,7 




C7512 


49 


CC566 


JC288 


C0420 


IN I T 


TFM 


T0lS«6,PTBL«ll,, INITIALIZE P A IKL IKE TABLE 




C7524 


16 


C7542 


JC693 


0043C 


TCIS 


TDM 






C7536 


15 


CCCCC 


CCCCC 


C044C 




CC 


It • •• 


1 073 


C7547 








C045C 




AM 


T0!S*6,2C1C 


C7548 


11 


C7542 


CCCKC 



162C-1441 MCMTCR I VERSICN 2 FCRTPAK Il-C LCACER BLOCK 1 



0046C 
C047C 
C04PC 
00490 
005CO 
C051C 
C052C 
C0530 
C0540 
C0550 
CO560 
C057C 

opsec 

C059C 
0O6C0 
C06 1C 
C0620 
C063C 
00640 
00650 
00660 
C0670 

ootec 

006SC 
007C0 
C0710 
00720 
0073C 
0074C 
00750 
CO 760 
0O77C 
00780 
00790 

ooeco 

00810 
0OC20 
00830 
0084C 
0065C 
00860 
00870 
0O88C 
00890 
009CO 
00910 
0O920 
0O93C 

00940 
0O9S0 
00960 
00970 
00980 
00990 
OICCO 



INITIALIZE ACCRESS CCLNTER 



StPSET AM 
TDK 
BO 

CNE TFM 
TOM 



CORG 

TFM 

BO 

SM 

TF 

AM 



BIG PRINTER 

ACJUST FCR SPALL PRINTER 



START 
GETOIM 



SB IN IT 

sets 



CM T0IS*6,MTBL«20«51*ll 

BL TO IS 
K ,971 

TO SUBSETH1.CCKSEC4B2,, 
CM SUBSET+11,4,10 
BNH BIAPCTU2 
BTM EPRIST,76,8 
TO SUBSET+1 1,CCMSEC*83 
BD SL8SET,SLBSET*ll 
B7 BLAPCT 

• ♦35, ,1C 
ICINC 

TWCCNEUC 
AD0CCh,8C99 
IOIKC , 1 

• ♦2C 

• -3 

AOOCCW, 14599 
•♦24,BIGPRT,, 
ADCC0*,3C0,9, 
ADOSVE,A0CCCte 
A0CSVE,1,IC 
TF FLCC*19,ACCCCV« 

TF CCCNT,CQPSEC*75, , GET CCNTRCL CARE CCUNT 

I0RT,»*23,. GET FIRST SECTOR CF CIP 
B I0GT,MAP,7 
TFM FLC0*18,C 
A FLC0*16,CCIM27 
A FLC0*16,CCIK»27 
TF FLC0O6,A0CCCU 
SM FLCD*18,21,IC 
TF FLSC0A*5,FLC0*18 
SM FLSD0A*5,1 ,1C 
TF SUBO0A*5,FLSCOA»5 
TF FLC0t7,FLS00A*5 
TF FL00*23»CCIK*44 
TF FLC0*26,CCIN*47 
TF SVEOOA»5,FLCC*18 
TFM SCAOCR,C 
TF SECT,FL0D*26 
TF E0A0DR,FLCD*23 
TO FLGD*99,IC|K0 
TFM EPRINT»49,39 t lC 

CM CCCNT,,IC, ANY CCNTRCL CARDS PRESENT 

BE XEQON 1 » » BRANCH IF NCNE TC REAC INC1CATCR RECORC 

TFM S0IS«6,STBL«U. V INITIALIZE SL8PRCCRAP TAtLf 

TDM 

OC 1, 
• 

AM S0IS*6»9,1C 

TFM S0IS*6,,67 

AM S0IS*6,15,IC 

CM SOIS*6,STBL*20«51*ll 

BL S01S 

TFM SUBCCb 

TR CCIN-l,INTCC, INITIALIZE CCNTRCL Rf AO IN mil 



I (174 



C756C 




C7542 


Jl 713 


C7572 


47 


C7536 


C13CC 


C7584 


14 


CCCCC 


CC971 


C7«96 


25 


C7687 


C7382 


076C8 


14 


C768 7 


CCC-4 


C762C 


47 


C7656 


CI ICC 


C7632 


17 


1C216 


C-C78 


C7644 


25 


C7687 


C7383 


C7656 


43 


C7676 


C7687 


C766I 


49 


C7644 




C7676 


11 


C7711 


CCC-C 


07688 


15 


C2461 


CCOCC 


C77CC 


43 


C7744 


13C34 


C7712 


16 


C245C 


-8C99 


C7724 


IS 


C2461 


CCCC1 


07736 


49 


C7756 


CCOCC 


07744 








C7744 




C245C 


J4599 


C7756 


43 


C778C 


C7365 


07768 


12 


C245C 


CCLCC 


C778C 


26 


C2472 


C245C 


C7792 


11 


C2472 


CCC-l 


C78C4 


26 


12843 


C24SC 


07816 


26 


1C5C4 


C7375 


07828 


16 


CC565 


-7851 


C784C 


49 


CC566 


J2761 


C7852 


16 


12842 


-CCCC 


07864 


21 


1284C 


1C546 


07876 


21 


1284C 


1C546 


07188 


26 


1286C 


C245C 


C79CC 


12 


12842 


CCCR1 


07912 


26 


12937 


12842 


07924 


12 


12937 


CCC-l 


C7916 


26 


12791 


12937 


07948 


26 


12131 


12937 


07960 


26 


12847 


1C563 


07972 


26 


1285C 


1C566 


C7984 


26 


C2495 


12842 


07946 


16 


C246C 


-CCCC 


C8CC8 


26 


C2466 


1285C 


C8C2C 


26 


C2455 


12847 


C8C32 


29 


12923 


C2441 


CIC44 


16 


1C26S 


CCCL9 


06C56 


14 


1C5C4 


CCC-C 


06C68 


44 


C966C 


C12CC 


OICIC 


16 


CIC9I 


J1713 


C8C42 


15 


CCCCC 


CCOCO 


ones 




1 




C61C4 


11 


CIC9I 


CCC-l 


01114 


14 


CIC9C 


-coee 


01126 


11 


CIC9I 


CCCJf 


0I14C 


14 


CtCfl 


J2733 


0IH2 


47 


CIC42 


CI ICC 


01164 


14 


11491 


-coco 


01114 


31 


10911 


lCf9* 



162C-1443 MCMTCR I YEASICK 2 FORTRAN ll-C LCACEA BLOCK 1 RACE 



1 c 1 


RCAGN 


TFM 


TrCt* lit INOY-l 


CI 111 


16 


CI2 35 




01C2C 




TO 


AM|*ll,429,, GET INPlT CE V ICC 


0I2C0 


25 


CI223 


CC429 


01C3C 


AM I 


AM 


TFCC*11,,IC 


C8212 


1 1 


CI235 


CCC-C 


01 C40 


TF CC 


TF 


NEXC*2 


CI224 


26 


12121 


CCCCC 


01CSC 




TFM 


I0RT,**23,, GET CCNTRCL RECCRC 


C823A 


16 


CCS45 


• 1259 


01C4C 




B 


I0GT»NEIC*4,7 


01241 


49 


CC566 


J2722 


C1C70 




CM 


NEXC*2»6,IC, IS IT A TVPEC ENTRY 


C82AC 


14 


12121 


CCC-6 


QlCtC 




BNE 


• ♦2* 


01272 


4 7 


CI296 


C 12CC 


01 C$0 




BC4 


RDAGN-12 


CI284 


46 


CI176 


CC4CC 


01 ICC 




IFP» 


•*23»CC IN*16C 


01296 


16 


CI319 


JC679 


CI 1 10 


SE TRM 


BNR 


SETRM1 


CI3CI 


45 


C8364 


CCCCC 


01120 




SN 


•-1,2, 1C 


C832C 


12 


CI319 


CCC-2 


01I3C 




cm 


SE1RF*U.CCIN 


C8332 


14 


CI 3 19 


JC519 


C 1 14C 




BE 


R0LCC*I2 


C8344 


44 


CI448 


C12CC 


CI 150 




B 


SETRP 


C8356 


49 


CI3C8 


CCCCC 


01 160 




OORG 


• -3 


Cf 364 








01 170 


SETRM1 


CM 


SE TRM* 1 1 , ,6 IC 


C8364 


14 


C831R 


CC0-C 


onto 




BE 


SETRP*12 


01376 


46 


C832C 


C12CC 


01 19C 




AM 


SETRM*l 1 1 2* 1C 


08381 


1 1 


C8319 


CCC-2 


012CC 




TOM 


SE TRM* 1 1 , ,6 


CI4CC 


15 


C831R 


CCCCC 


0121C 




DC 
1 




C841! 




1 




01220 




kh 


CCIN.9CC 


CI412 


39 


10519 


CC9CC 


0123C 




TOM 


SETRP*Il,.6 


01424 


15 


CI31R 


CCCCC 


01240 


RCLOC 


BNR 


•♦32.CCIN ' 


CI436 


45 


CI46I 


1C519 


01250 




BTM 


EPRINT. 71,8 


01448 


17 


1C216 


C-C71 


C1260 




B 


MONCAL 


0I46C 


49 


CC796 


CCCCC 


C1270 




CORG 


• -3 


C8468 








0128C 




CM 


CCIN, 14,10. IS IT A CCNTRCL CARC 


C8468 


14 


10519 


CC0J4 


01290 




BNE 


R0L0C*12 


0848C 


47 


C8448 


C12CC 


013C0 


RMCMK 


TFM 


•*23,CC IN*2 , » CHECK FCR RECCRC 1" ARK IK LCCAl NAME 


08492 


16 


C851S 


JC521 


01310 




BNR 


• ♦2C 


C85C4 


45 


CI524 


CCCCC 


C132C 




B 


RDLCC*12 


C8516 


49 


C844E 


CCCCC 


01330 




OORG 


• -3 


08524 








01 34 C 




AM 


RMCHK*23,2,1C 


C8524 


11 


C8515 


CCC-2 


01350 




CM 


RMCHK*23,CCIN*12 


C8S36 


14 


CISIS 


JC531 


C136C 




BNE 


RMCHK*12 


CS548 


47 


C6SC4 


C12CC 


01370 




C 


CC1N*IC,LCCAL*I,, IS IT A LCCAL RECCRC 


08560 


24 


1C529 


1C449 


C13BC 




BE 


COLNAP, ( , BRANCH IF LCCAl 


C8S72 


46 


CIS92 


C12CC 


CI JSC 




B 


R0L0C*12 


C8584 


49 


C844I 


CCCCC 


C14CC 




OORG 


• -3 


08592 








0M1C 




COLLECT ANO STCRE PAINLINE AKC . SLtPRCGRAP NAMES 










01420 


COLNAP 


BO 


•♦24.CCNT,, CCNT |NLE CARC TEST ••BRANCH IF CN~ 


CI592 


43 


C8614 


1C2I6 


C1430 




TOM 


MLINC.ltt TLRN C* MAINLINE INCICATCR 


CI6C4 


15 


C2462 


CCCC1 






IF M 


CONT.CCICO 


08616 


16 


1C286 


-C1CC 


01450 




TR 


NAMBLF-13,INfCCl-10., INITIALIZE CCLLECT AREA 


0862B 


31 


C2428 


1C442 


Ci4fc0 


RCMKCK 


BNR 


BLNKCK,CCIN*12,.TEST FCR RECCRC MAR* IN NAMf 


C864C 


45 


CI672 


1C531 


CUTO 




BTM 


EPRINT, 72, 8 


C8652 


17 


1C216 


C-C72 


OUEC 




B 


MONCAL 


08664 


49 


CC796 


ccocc 


01*90 




OORG 


• •3 


C8672 








C15CC 


BLNKCtt 


CM 


CCIK*12,,1C, TEST FCR BLANK 


08672 


14 


1C531 


CCC-C 


0151C 




BE 


END 


C8684 


46 


C9944 


C12CC 


0152C 




CM 


CCINM2.23.1C. IE ST FOR COM 


08696 


14 


1C531 


CCCK3 


0153C 




BNE 


SPCHAH 


C87C8 


47 


C874C 


C 12CC 


0154C 




TOM 


CQPINO.l,, TLRN CN CCPMA INCICATCR 11)75 


C872C 


15 


1C265 


CCCC1 


.01 !5C 




B 


ENTER 


C8732 


49 


C886C 


CCCCC 








1620-1*43 MCMTCR 1 VERS1CN 2 FCRTRAN ll-C LCACER BLCCK I 








PAGE 


ClifcO 




OORG 


•-3 


CB74C 








CI 57C 


SPCHAR 


CM 


CCIN«12,4C«1C, TEST FCR SPECIAL CHARACTER 


C874C 


14 


IC531 


CCCMC 


C15HC 




BL 


RCMKCK* 12 


8 752 


47 


C86S2 


C13CC 


01590 




TF 


NAMBLF, CCIK*12.» MCVE CHARACTER INTC CCLLECT AREA 


08764 


26 


C2441 


U531 


cieco 




CM 


NAMBLF . 69 , 1C « TEST FCR ALPHA CHARACTER 


C8776 


14 


C24 41 


ccccs 


016 10 




BH 


• ♦2* 


C8788 


46 


C8812 


ence 


C1620 




TOM 


ALFlNO.C.t TLRN CN ALPHA INCICATCR 


088CC 


15 


1C2I4 


CCOCC 


01630 




CF 


NAMBLF- I 


08812 


33 


C244C 


CCCCC 


C1HC 




TR 


NAMBLF- 15»NAP8LF- 13 . . SHIFT CCLLECT AREA 


C8824 


31 


C2426 


U428 


C165G 




TR 


CC1N*IC,CCIK*12., SHIFT INPLT IRE A 


C8836 


31 


1CS2S 


IC531 


cute 




B 


RCMKCK 


C8848 


49 


C864C 


CCOCC 


0U7O 




DORG 


• -3 


C8eS6 








0168C 




TR 


NAMBLF- 15. NAP6LiF-l].« SHIFT CCLLECT AREA 


C8856 


31 


C2426 


C2428 


C169C 


ENTER 


CM 


NAMBLF-2 . • 1C 


C8868 


14 


C243S 


CCC-C 


017CC 




BNE 


LABFLL 


08880 


47 


C8936 


C12CC 


01710 




BO 


•*2C,MLIN0 


08892 


43 


C8912 


C2462 


01 72C 




B 


RCMKCK* 12 


C8SC4 


49 


CI6S2 


CCCCC 


CI 73C 




CORG 


• -3 


C8912 








01 74C 




INSERT % IF BLANK MAINLINE NAPE 










01750 




TFM 


NAMBLF-2, 13, 10 


C8912 


16 


C2439 


CCCJ3 


01760 




TOM 


ALFINO 


C8924 


15 


1C284 


CCCCC 


01770 


LAPFUL 


TOM 


NAMBLF, . . SET TRAILING BLANK 


08936 


15 


C2441 


CCCCC 


0178 C 




CF 


NAMBLF-1 


08948 


33 


C244C 


CCOCC 


0179C 




CM 


NAMBWF-12,,1C, TEST FCR L E AC INC BLANKS 


0896C 


14 


C2429 


CCC-C 


oieco 




BE 


ENTER-12 


C8972 


46 


CIIS6 


C12CC 


oieio 




CM 


NAMBLF-14,,1C. TEST FCR MAX LENGTH CF SIX CHARACTERS 


CI984 


14 


C2427 


CCC-C 


0182C 




BNE 


RCHKCK*12 


08996 


47 


CIIS2 


CI2CC 


01830 




BO 


RCMKCK*12,ALFINC«, TEST FCR ALL NUMERIC ENTRY 


09CCB 


43 


CI6S2 


1C284 


0184C 




SF 


NAMBLF-13 


09C2C 


32 


C2428 


CCCCC 


01850 




BO 


MLSCH.MLINO,, TEST FCR TVPE CF ENTRY 


C9C32 


43 


C9C76 


C2462 


01 86C 


SUPSCH 


TFM 


SEARCH*ll v $TBL*U,, INITIAL I2E FCR SUBPROGRAM TABLE SEARCH 


09C44 


14 


C9111 


J1713 


01 £70 




TFM 


TBLSZE*U.ST8L*SC«20*U 


09C5* 


16 


C91I7 


J2713 


0188C 




B 


SEARCH 


09C48 


49 


C91CC 


CCCCC 


01890 




CORG 


•-3 


C9C74 








C19CC 


MLSCH 


TFM 


SEARCH* ll.MTBL* 11 


C9C14 


16 


C9111 


JC693 


019 10 




TFM 


TBLSZE*ll f MT6L*9C»20*ll 


C9CII 


16 


C91I7 


J1613 


01920 


SEARCH 


BNR 


•*2C,,, TEST FCR AVAILABLE ENTRY 


091CC 


45 


C912C 


CCCCC 


01930 




• 


LOAO 


09112 


49 


C922C 


CCCCC 


C194C 




OORG 


•-3 


09120 








01950 




C 


SEARCH«ll,NAFBtF-2,6, TEST FCR MULTIPLE ENTRY 


09120 


24 


C911J 


C2439 


01960 




ONE 


•♦32 


C9132 


47 


C9144 


C12CC 


0197C 




BTM 


EPRINT. 73,6 


09144 


17 


1C216 


C-C73 
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C9A2C 


StBCCD 


EPRINT 


IC216 


RNCECl 


09552 


ICPT 


CC532 


RCINC 


C98A8 


SLBCCA 


EQACCR 


C2455 


RCLND1 


09868 


ICRT 


CC565 


SCIS 


C8C92 


SLPSCH 


ERPE5S 


1299S 


API 


08212 


IT 


13088 


SECT 


02466 


SCBSET 


EXTINO 


C246J 


CCCNT 


IC504 


LCCCA 


C2474 


SETRP 


C03C8 


StBTBL 




C2445 


CCIN 


1C519 


ICPN 


13C21 


SSIZE 


C814C 


SVECCA 


FLSCCA 


12932 


CKSTl 


1C516 


LCAC1 


C928C 


START 


07816 


TBLSZE 


GETCIP 


C7826 


CCP 


129A7 


LCAC 


C9220 


STBL 


117C2 


RECCM 


INCCCA 


C25C6 


CCNT 


1C286 


LCCAL 


1C461 


SL0 


12738 


XECCN2 


INTCC1 


1C452 


CCAR 


07280 


PAIN 


09888 


svi 


12979 


2RCTST 


JCBCIT 


1C471 


ENOl 


13CA0 


PAP 


12761 


TCIS 


C7536 





C8224 
C7744 
12734 
C966C 
C6C8C 
074C0 
C2460 
C91CC 
CI 364 
CI74C 
12991 
12746 
09C44 
076 76 
02522 
C249C 
09176 
ICC24 
1C172 
C2467 



ENC OF ONE ASSEPBLY. 



H82 



162C-1443 PCM TCP I VERSICK 2 FCRTRAK I t-C LCACER (LOCK 2 



PAGE 



OOC1C 

oocao 
cocsc 

0OC40 
COC90 

oocto 

0OC70 
0OCI0 

oocic 

OOICO 
OOllO 
00120 
0013C 
00140 
00190 

oouo 

00 17C 

ooitc 

00190 
002CO 
0021C 
00220 
002 90 
00240 
0025C 
00260 
00270 
002IC 
0029C 
C03CC 
CO 3 10 
00320 
00 3 3C 
0034C 
00350 
0036C 
C037C 
C036C 
003S0 
004CC 
C0410 
00420 
0043C 

0044C CO«G 2426 

C04SC NAP81F CC 16.C 

-OCCCOCCCCCCCCCC 



ICRT 
ICCf 
ItRT 

pcmcal 

CM El 
IKCS 
EMOR 
CIC 



F 
K 

P HOC ST 
CCPACC 
Kl 

Hi 
h 

REClG 

ENTLN 

fKTiXP 

ENT5C1 

EKTSC2 

ENTSC 3 

ENTF 1C 

ENTH6C 

EKTFET 

ENTSfcC 

EMDBft 

ENTQEC 

ENTCCS 

ENTSIN 

ENTATN 

ENTSQT 

EMABS 

TEPP 
LCEC 
f PMM 
JCBGLT 
OVRPES 
L IBSLe 



cs 
cs 
cs 

OS 
OS 

OS 

cs 
cs 

CCI 
CO«C 

cs 

OS 
OS 
OS 

cs 

OS 

cs 

cs 
cs 

OS 

OS 

cs 
cs 

CS 

cs 
cs 
cs 
cs 

OS 

cs 
cs 
cs 
cs 
cs 
cs 
cs 
cs 
cs 
cs 
cs 

OSS 

CC 



,912 
964 
969 

m 

6C2 
61C 
632 

au 

MlNICATtCn MM 
218 

. , FLOATING PCIM hCRO LEKGTh 
tt FUEC PCINT hCRC LEKCTh 

<TARTIKG ACCRESS CF PAIKLIM PRCCRAP 

,, sun me accress cf ccppck area 

KUP8ER CF >CRCS IK LCGICAL RECCRC 
KUPBE* CF LCGICAL RECCRCS 
feORC LENGTH 
, , PECCRC LfNCI.P 

,, ENTRY ACTRESS TC LCG SLERClTIKE 

• « E M R V ACCRESS TC EXPCKEKTtAL SUBROUTINE 

*, ENTRY ACCRESS TC SINGLE SUBSCRIPT S18RCIT IKE 

ENTRY ACCRESS TC 0CU8LE SUfSCRIPT SUBRUTINf 

EKTRV ACCRESS TC TRIPIE SUBSCRIPT StBRCtT IKE 

., ENTRY ACCRESS TC FIKC SLBRCLtlM 

, , ENTRY ACCRESS TC RECCRC SUBRCLTIKE 

ENTRY ACCRESS TC FETCK SUBRClT IKE 

ENTRY ACCRESS TC SblTCH C SLBRCUT IKE 

ENTRY ACCRESS TC A»;AY SUPBCLIIKC 

t. ENTRY ACCRESS TC CISK |VC SlBRCl TIKE 

., ENTRY ACCRESS TC CCSINE SU8RCLT IKE 

ENTRY ACCRESS TC SINE SL6RCLT IKE 

ENTRY ACCRESS TC ARCT ANGEKT SUBRCUTIKE 

, , ENTRY ACCRESS TC SQUARE RCCT SUBRCUMNE 

5,, ENTRY ACCRESS TC ABSCllTE SC8RCUTIKE 
7C, RESERVEC FCR EKTRIES TC ACCEC SUBRCt T INES 
.7518 
.TEPP** 
»762C 

• EPR1NIMC3 
•LCEC*S4 

3C » # L IBRAR Y SUiRCLT |KE IKCICATCRS 

l» • 



0C532 
CC966 
CC3A9 
C0796 
CC6C2 

cceic 

CC632 
0CBI4 

C22 It 
C2214 
02221 
0222* 
C2291 
C2231 
02231 
C224C 
C2243 
C2248 
02293 
C2298 
C2263 
C2268 
C2273 
C2270 
C2283 
02288 
C2293 
C2296 
C23C9 
023C8 
02313 
02318 
C2323 
C2393 
C7918 
C7921 
C762C 
C7723 
C7579 
C2194 
C2424 

C2426 
C2441 



7C 
C 
C 
C 

c 
c 

3< 



00470 CVRLAP CC 

C04IC FIGRPK CS 
0049C ACrCCh CS 
C05CC ECARCR CS 
CO«iC SCACCR CS 
0O52C 1CINC CC 



5 
5 

l.C 



1 083 



C2444 

C2449 
C249C 
C2495 
C246C 
C24C1 



U2C- 1443 PCM TCP I VERSICK 2 FCRTRAK II-C LCACER BLOCK 2 



PACE 



0053C 


PL INC 


CC 


l.C 


C054C 


E*TINC 


OS 


I 


C0550 


SECT 


CS 


3 


C05tC 


IRCTST 


CC 


l.C 


C0570 


ACOSYE 


CS 


5 


co«ec 




CC 




C05SC 


LCCOA 


CO A 


.UC.0.SL8TBL 






1-CCC0-CC-2522 


004CC 




CC 


l.« 


dotic 


SVECCA 


COA 


. 1.C.2I.C 






1-CCC0-21-CCCC 


C0€2C 




CC 


!»• 


0Ot3C 


1NC0CA 


COA 


. l.C.lO.StBTBL 






1-CCC0*1C-2S22 


006 4 C 




CC 
• 


l. ( 


00690 


NCCATA 


OSC 


1.1 


cotec 


StfiTBL 


I 

CSS 


ICCC 


C067C 




CC 


12. • 






-OCCCOCCCCO' 


0O66C 




ENTRY FRCP CALL LIKK 


00690 


JAVEKT 


NOP 


TSTVLO.CCCRTP 


007CC 




TFP 


tORT.*«2) 


00 710 




• 


I0GT.CCP.7 


C072C 




TFP 


COTPLOt 13,29, 1C 


0O73C 




TF 


0NE0CA«9,CCPSEC«7l 


0074C 




TF 


NAKBtf ,74<5,U 


00790 




TF 


C0PSEC*39.NAPRtF 


00760 




TFP 


IORT,»«23., GET F 


00770 




8 


IOGT,pPE,7 


0078C 




TP 


SVECCA»5,|NRP*18 


0079C 




TOP 


DME ,2 


008C0 




TF 


AD0CCH,IKiK«16 


00810 




TP 


AOOSVE.ACCCCk 


00I2C 




AM 


AOCSVE,l,tC 


00810 




TF 


LOOOA#5,IMR«*7 


0084C 




TF 


LD00A«ttlNft«*2 


00890 




IF 


SECT,INRK»26 


00880 




TF 


E0ACCR,IMK«23 


00810 




IF 


1NC00A*9,INRK«31 


0086C 




TFP 


•♦it,sutm«u 


00I1C 




TOM 




009CC 




CC 
• 




COS 10 




AM 


•-6,20, 1C 


00920 




CM 


•-lit SLitTpU ton 


0013C 




BME 


•-16 


00940 




TFP 


10RT,**2), t SUM 


00190 




• 


I0PT.IMCT 


00960 




TOM 


LtlKlNOtl 



T08 4 



C2463 




1 




C2466 




3 




C2467 




1 




C2472 




• 




C2473 




1 




02474 




14 




C248B 




I 




024SC 




14 




C29C4 




1 




C25C6 




14 




C292C 




1 




C2921 








C2522 




ICCC 




01931 




12 




C3934 


41 


C4142 


C96CC 


01946 


14 


CC969 


-3969 


03998 


49 


CC964 


-9449 


0197C 


16 


C9I99 


CCCK9 


01982 


26 


C9411 


C7171 


01994 


26 


Ct44| 


C741N 


016C6 


26 


C7119 


C2441 


016 18 


16 


CC949 


-9641 


01610 


41 


CC964 


-9124 


01642 


24 


C2499 


C7416 


01694 


If 


€1124 


CCCC2 


CS666 


14 


CI4SC 


C7414 


03476 


16 


C2472 


C243C 


01690 


II 


C2412 


CCO-l 


017C2 


26 


C2474 


C74C7 


03714 


26 


C2462 


C74C2 


03726 


26 


C2446 


C7426 


03736 


16 


C2499 


C74I3 


03790 


26 


C2911 


C7411 


01762 


16 


C376C 


-till 


03774 


l ' 


CCCCC 


ccoec 


01719 








C3764 


II 


CS76C 


CCCKC 


03716 


14 


CIVIC 


-1993 


OHIO 


4? 


C1774 


C12CC 


Olltl 


16 


C0949 


-1049 


• 1814 


41 


etna 


-1W 


C1I44 


II 


C1CI6 


CCOCl 



1620- 1443 MCMTCR I VERSICK 2 FCRTRAN 1 I-C LCACIR 8LCCK 2 FACE J 



00970 


INK INC 


OS 






C3856 




c 




00980 




TO 


IQIKCt INRK»99 




C3858 


25 


C2461 


C7499 


oossc 




TOP 


EXTINO.l 




03870 


15 


C2463 


CC0C1 


01 ceo 




kQU 1 VALENCE TABLE SEARCH 
















TF 


EQL0CA«5,ECAC0R 




3182 


26 


C6C 19 


C2435 


01 C20 




TFM 


INRK«48,SEC1 




C 3894 


III 


C7448 


-2466 


01 C 30 




TF ¥ 


IORT,«*23», RE AC IN FOUR SECTCRS CF EQUIV. TABLE 


039C6 


16 


CC565 


-3929 






B 


I0GT.E0U.7 




C3918 


49 


CC366 


-6CC5 


01C50 


CCMPER 


TFM 


C0MP«U,SUBT6LMlt, SEARCH ECL1V. TABLE 




C 393C 


16 


C3973 


.2933 






BNR 


•♦2C,CCMP*1 1 til 




3942 


43 


C3962 


C 3971 


01C7C 




B 


NXT«C*24 




39 54 


49 


C4C46 


CCCCC 


OlCcC 




OORG 


• -3 




C3962 










CCMP 


C 


NAMBlF 




C 3962 


24 


£2441 


CCCCC 


1 1 CO 




BE 


FOUNC 




C 39 74 




C4C9C 


C 12CC 


01 1 1C 




AH 


COMP* U ,16, IC. INCREMENT TO NE>T NAPE 






1 1 


C397 3 


CCO J6 


01120 




CM 


C0MP*U,SUBTBL*4ll,, TEST FCR ENC CF TABLE 




03998 


14 


C 3973 


• 2933 


C 1 1 30 




BNE 


C0MPERM2 




C4C IC 


4 j 


C 3942 


C 12CC 


Oil 40 


NITRC 


CM 


INRM48.C.9, TEST FCR ENC CF ECUIV. TABLE 




C4C22 


} 4 


C7448 


CC^CC 


C 1 1 50 




BH 


• ♦?C 








C4C54 


C 1 ICC 


01160 




B 


CDCRTP 




C4C46 


AC 


C56CC 


CCCCC 


C 1 1 TO 




CORC 


• -3 




C4C54 








01180 




SM 


INRK*46*4,IC, CECREPENT SECTCR CCUKT 






. _ 
1 4 


C744E 


CCC-4 


01 ISO 




AM 


EQLCCA«5,4,1C 






1 1 


rter* 


CC0*4 


01 2C0 




8 


COMPER-24 




r *r la 

«!! 


?? 




CCCCC 


01210 


FCUNC 


AM 


C0MP*ll,4.1C, INCREMENT TC GET CIM NUMBER 




C4C9C 


1 1 


C3973 


CCC-4 


01220 




TFM 


DIMCCA*5,48CC 




C4 1C2 


1 6 


C6C63 


-48CC 


0123C 




S 


0IMC0A^6,CCPP*U,ll 






2 2 






01240 




S 


OIM00A*6,CCPPMl,ll 




C4 126 


2 2 


C6C64 


C397L 


01250 




TOM 


DIM0CA«6,,11 




C4 1 38 


1 5 


C6C64 


CCCC- 


01260 




READ IN CIM SECTCR 












G127C 


FCUND 1 


TFM 


10RT.»*23 




04 150 


16 


CC 565 


-4173 


01280 




B 


ICGT.DIM.7 




2? ft? 


t ■ 


5?'*5 


\ «5?f 


01 290 




TO 


SECCT.CCMPMl.il 




C4 1 74 


2 5 


C6 12C 


C 3971 


01 3C0 




CM 


SECCT,5,IC 




«* !!!! 


1 4 


C6 12C 


CCC-5 


01 3 1C 




BL 


• ♦24 




C4 196 




C4222 


C13CC 


01320 




SM 


SECCT.5.1C, CALCULATE CIM ENTRY ACCRESS 




042 IC 


1 2 


C6 12C 


CCC-9 


01330 




mm 


SECCT.2C.9 




C4222 


1 3 


r 


CC-2C 


01340 




AM 


99, INRK 




n !n! 


1 1 


CCC99 




CI 350 




TR 


DIMSVE. 99,11 






3 1 


C6C7,9 


CCC9R 


CI 360 




TO 


DMECDA.CIMSVE 




C4258 


25 






01 370 




TF 


OMECCA*5,CIPSWE»5 




C42 7C 


26 


C5939 


C6C94 


01 380 




TR 


DOAR.DME00A, , PCVE SECTCR CCA TC PRCGRAP CCA 


AREA 


C4282 


3 1 


C728C 


C3934 


CI 39C 




TF* 


10RT,«*23,, RE AC IN INOICATCR RECCRC 




C 4294 


16 


CC56 5 


-431 7 


CI 4CC 




B 


I OG T ,0ME , 7 




C43C6 


49 


CC 566 


-5926 


014 10 




TF 


DDAR*8,DIMSVE^8,, PCVE SECTCR CCUNT 




C43 18 


26 


C728E 


C6C87 


01420 




INDICATOR RECCRO CHECK 












C1430 




TDK 


EXT IND»0 




. C4 33C 


1 5 


C2463 


CCCCC 


01440 


TSTVLC 


C 


1NRK*13 ,INCCCN , .CHECK FCR VALIC INC IC. 


04342 


24 


C7413 


C61C4 


01450 




BE 


RELFRM 




C4354 


46 


C53C6 


C12CC 


C1460 




C 


INRK+5, INDCCN, ♦ CHECK FCR VALICITY IN CORE IMAGE 


C4366 


24 


C74C5 


C61C4 


01470 




BE 


• ♦48 




C4378 


46 


C4426 


C12CC 


01480 




TFM 


EPRINT«61.39tlC 




C439C 


16 


C7681 


CCCL9 


C1490 




TDM 


E PR IKT*73,9 




C44C2 


15 


C7693 


CCCC9 


G15CC 




BTM 


EPRINT, 75,8 




C4414 


17 


C762C 


C-C79 


01510 




TF 


0DAR* 13.ACCSVE 




C4426 


26 


C7293 


C2472 


C1520 




TOP 


INDR*7,,, CCKVER1 OEFINER TC CCRE IMAGE 


1085 


C4438 


15 


C6C44 


CCCCC 








162C-14A3 MCMTCP I VERSICK 2 FCRTRAN I l-C 


LC ACER BLOCK 2 








PAGE 


CI 530 




CC 


1, • i« 




C4449 








01 54C 




AM 


DDAR*5,1,1C, I NCREMEM CISK ICCRESS BY CNE 




C445C 


1 1 


C7265 


CCC-1 


01 55C 




SM 


DOAR*8 ( l v lO. CECREMENT SECTCR CCUNT BY CNE 




C4462 


12 


C728 € 


CCC- 1 


01 56C 




INITIALIZE FORTRAN CCfUMC AT ICN AREA 












C1570 


CCMLC 


TF 


Nit INRK*7 




C4474 


26 


C2233 


C 74C7 


01 58C 




TF 


N2, INRK*12 




C4486 


26 


C223E 


C7412 


01590 




TF 


M, INRK* 14 




C4498 


26 


C224C 


C7414 


016CC 




TF 


RECLG t INRK* 1 7 




C451C 


26 


C2243 


C7417 


016 IC 




BD 


LNK t L NK I NO 




C4522 


4 3 


C4566 


C3 856 


01620 




TF 


F , INRK*24 




C4534 


26 


C22 19 


C 7424 


0163C 




TF 


K,INRK*26 




C4S46 


26 


C222 1 


C 7426 


CI 64C 




B 


ML 




C4S58 


4 9 


C465C 


CCCCC 


CI 650 




OORG 


•-3 




C4566 








01660 


LNK 


C 


INRK*24,F 




C4566 


24 


C7424 


C2219 


C167C 




BNE 


• ♦36 




04578 


47 


C46 14 


C12CC 


C1680 




C 


I NRK* 26 t K 




04590 


24 


C7426 


C2221 


01690 




BE 


ML 








C465C 


C12CC 


O17C0 




TFM 


EPRINU61 .39 *1C V 




C46 14 


16 


C7691 




017 1C 




TDM 


EPRINU73 ,9 . t 




C4626 


1 5 


C7693 


CC0C9 


01720 




BTM 


EPRINT, 76.8 






\ ^ 


C762C 


C-C76 


01730 


ML 


TF 


PRCGST, INRKOl 




C465C 


26 


C2226 


C7431 


01740 




A 


PRCGS T t ACDSVE 




C4662 


2 1 


C2226 


C2472 


01750 




TF 


C0MACD,INRK*36 




5 * *2* 






C 7436 


01760 




TF 


SVECDA+13.CCMACC 




04686 


26 


C2sCj 


C2231 


01770 




TF 


MLLGTH. IKRK+22 




04698 


26 


C6 IC9 


C7422 


C178C 




INITIALIZE L I 8RARY SUBRCUTINE IKCICATCRS 












01 79C 




SF 


INRKOT 




047 10 


32 




ccocc 


018C0 




TF 


LIBSLB*29i INRK*66 




04722 


26 


C2423 


C T466 


C1810 




SAVE CCMMCN AREA 












01820 




TOM 






04734 


15 


CCCCC 


CCCCC 


C183C 




DGM 


■ 












0L840 




TFM 


10RT v **23 V f PUT 21 SECTCRS CF CCMMCK AREA IN 


SCRATCH 


04746 


16 


CC565 


-4769 


01850 




B 


I0PT.SVE.7 




C4758 


49 


C0932 


-6C29 


01860 


CLEAR 1 


TR 


75CC.ZERCS.2 




C477C 


31 


•73CC 


C629C 


01170 




AM 


CLEARS, 5CC, 9 




04712 


1| 


04774 


COMCC 


01880 




C 


CLEARS, COPACC 






24 


C4776 


C2291 


01890 




BL 


CLEAR 




046C4 


41 


0477C 


C13CC 


CISCO 




TR 


EPRINT ,ERRT . . 




C4B18 


31 


C762C 


C339C 


01910 




TOM 


EPRINT+lCl 




04830 


19 


C7721 


eoooc 


01920 




CC 


!••»• 




04841 




1 




01930 


TRVS2E 


i 

TF 


ACDSVE.ACOCCI. 




04842 


26 


C2472 


C245C 


0194C 




AM 


AOOSVE.l.lC 




04894 




C2472 


coo*i 


01930 




A 


AODCO*. INRK*22 




04888 


2| 


C249C 


C7422 


01980 




TOM 


INRK423 




04878 


19 


C7423 


CCCCC 


01970 




CC 
• 


!#•»• 




04889 




I 




01980 




C 


ADOCCh.COMACC 




04890 


24 


C245C 


C2231 


01990 




BH 


ERML 




049C2 


44 


C392C 


CUCC 


02CC0 


SIZECK 


T* 


OVRMES-l.OVPES-l 




04914 


31 


07974 


C618C 


02C10 


TR 


LOED-l.LOEOl-1 




0492* 


31 


0792C 


04120 


02C20 




TF 


TEMP,INRK*22 


1086 


04938 


26 


C7918 


C7422 


02C30 




IF 


TEMP-6,A00SVE 




04990 


J* 


C7912 


C2412 


02C40 




TR 


LDEO*l,NAMBLF-ll 




09982 


31 


C7922 


CI4IC 


02C90 




IFM 


• ♦3CL0E0M4 




04974 


U 


C5CC4 


-7939 
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PAGE 



02C60 




TFP 


• ♦23.TEPP-U 




C4966 


It 


C9CC5 


-75C7 


02C70 




TO 


L0ECM4 r TEPP-U 


04991 


25 


C7S1S 


C75C1 


02CI0 




AM 


•-6.2.10 




05C1C 


1 1 


CSCC4 


CCC-2 


02C90 




AM 


P-lltl.lC 




5C22 


1 1 


C9CC9 


tVv" 1 


021C0 




CM 


•-25»TE»P«1 




C3C14 


14 


C9CC5 


'1519 


02 I IC 




6L 


•-4 a 




C5C44 


41 


C499I 


C13C0 


02 1 20 




K 


t951 




CSC 51 


14 




CC951 


02 1 30 




feA 


LDE0«2.5CC 




C5CTC 


If 


C7523 


CC9CC 


02 1 40 


••••«• 


LOAD PROGRAM RCtllftE 










02 150 


RCPRCG 


80 


COTPLO.EKTINC. 


, MARCH IF PRCGRAP IN CARC CP TAPE 


05012 




C™ 14* 


C2463 


021(0 




TFP 


10RT,*>23 t , 


GET PRCGRAP FRCP CIS* 


C SC44 


If 


CC96S 


"3117 






a 


IOGT, IN0R*7 




C5 IC6 


45 


. CC166 


- 6 C 3 7 
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C045C 


FLGRPP 


CS 


1 




C2445 


1 




00460 


ACCCCh 


CS 


5 




C245C 


5 




004 70 


ECACCR 


CS 


5 




C2455 


5 




C048C 


SCACCR 


CS 


5 




0246C 






00450 


I01N0 


CS 


I 




C246 1 


1 




OOSCC 


PL INC 


CS 


I 




C2462 


1 




00510 


EXT INC 


CS 


I 


t li Ml 


C2463 


1 




00520 


SECT 


CS 


3 


1 11 J J 


C2466 


3 




C053C 


/HCTST 


CS 


I 




C2467 


1 










162C- 1443 KCNITCR 1 VERSION 2 FORTRAN t I-C 


LC ACER BLOCK 3 






PAGE 


0054C 


ACCSVE 


CS 


5 




02472 


c 




00550 




CC 


1, ' 




C 247 3 


1 




CO560 


LCCCA 


COA 


, 1, C,C, SLBTBL 




02474 


14 








l-CCCO-CC-2522 










00570 




CC 


1 ♦ • 






1 




00? ec 


SWFDC A 


DO A 


, l,C,2l ,C 




0249C 


1 4 








1-CCCO-21-0CCC 










C059C 




CC 


I. • 




C25C4 


1 




C06CC 


CAT A 


CC 


1 ,C 




C 25C5 


1 




coe ic 


1NCCCA 


OOA 


, I, C, 1C, SLBTBL 




025C6 


14 








1-CCC0-IC-2522 










00620 




CC 


l,» 




C252C 


1 




C063C 


NCCATA 


CS 


1 




C2521 


1 




00640 


SLBTBL 


CSS 


10CC 




C2522 


1CCC 




00650 




CC 


12. • 




C3533 


12 








-OCCOOCCCCO' 










00660 


RPTBL 


CM 


C0PSEC*75,,1C, BRANCH IF NC LOCAL CARCS 




03534 1 


4 C7375 


CCC-C 


00(70 




BE 


LOCINC 




03546 4 


6 C5126 


C12CC 


C068C 




TFP 


IORT»**23 




C35S8 1 


6 CC565 


-3981 


00690 




B 


I0GT.LC7 




C357C 4 


5 CC566 


-7161 


007CO 




TFP 


•♦23»SUBTBL»ll 




03582 1 


6 C36C5 


-2533 


00710 


SRCH 


BNR 


• ♦32., , TEST FCR ENC CF TABLE 




03554 4 


5 C3626 


CCCCC 


0072C 




TOP 


TBLINO, 1 




C36C6 1 


5 C3615 


CC0C1 


00730 


TBI INC 


OS 


,•-2 




03615 


C 




00740 




B 


LOOINC 




03618 4 


9 C5126 


CCCCC 


00750 




CORG 


•-3 




C3626 






0O760 




C 


C0PSECO5.SRCMMl.il. CCPPARE NAPES 




03626 2 


4 C7339 


C36CN 


00770 




BE 


TBLLO 




03638 4 


6 C45S8 


C12CC 


0078C 




AN 


SRCH411 ,2C,1C, INCREPENT IC NEXT ENTRY 




0365C 1 


1 C36C5 


CCCRC 


00790 




B 


SRCH 




C3662 4 


5 C3S54 


CCCCC 


008CC 


EQSRCH 


TF 


EQUDCA*5,E0AC0R 




03674 2 


6 C6591 


C2435 


00810 




TF 


INRK*48,SECT 




03686 2 


6 C7448 


C2466 


00120 




TFP 


I0RT,«*23,, REAC IK FCUR SECTORS CF EQU IV. 


TABIE 


03658 1 


6 CC565 


-3721 


00830 




B 


I06T.EQU.7 




C371C 4 


9 CC566 


-8977 


0084C 


CCPPER 


TFP 


COPP*ll,SUBTBL*l 1,, SEARCH ECUIV. TABLE 




03122 1 


6 C3765 


-2533 


00190 




BNR 


•♦20,C0PP*ll,ll 




03734 4 


5 C3754 


C376N 


00860 




B 


EQSRCH- I,, 6 




C3746 4 


5 C3671 


CCCCC 


00870 




0OR6 


•-3 




03794 






00880 


CCPP 


C 


NAPBUF 




03754 2 


4 C2441 


CCCCC 


00890 




BE 


FOUNO 




03764 4 


4 C3874 


C12CC 


oo9co 




AM 


C0PP*ll,t6,lC, INCREPENT TC NEXT RAPE 




0377B 1 


1 C3765 


CCCJ6 


00910 




CM 


C0PP*il,SUBTBl*41l,, TEST FCR ENC CF TABIE 




0379C 1 


4 C3789 


-2933 


00920 




8NE 


COPPER* 12 




038C2 4 


7 03734 


C12CC 


00930 


NXTRC 


CM 


INAK*48,0,9, TEST FOB ENO CF ECUIV. TABLE 




03814 1 


4 C7448 


CC-CC 


00940 




BE 


EQSRCH- 1,, 6 




03824 4 


6 C367L 


C12CC 


00950 




SM 


INRK*48,4,1C, CECREPENT SECTCR COUNT 




03838 1 


2 C7448 


CCC-4 


00960 




AM 


E0U0CA*5,4,1C 




03850 1 


1 C6991 


C00-4 


00970 




B 


C0ffP€R-24 




038*2 4 


9 C3698 


CCCCC 


00980 


FOUND 


AM 


C0PPML4.1C, INCREPENT TO GET CIP NUPBER 




03874 1 


1 C3769 


CCC-4 


00990 




TFM 


DIM0CA+S.48CC 




0388* 1 


8 C7C51 


-48CC 


01CC0 




S 


DIM00A4*tC0PP«llttl 




03898 2 


2 C7C52 


C378M 



1094 



1620-1443 PCMKR I VERSICN 2 FCRTRAN H-C LCACER ELCCK 3 



RAGE 



QIC 10 




S 


DIPCCA^6.CCPP*ll,U 








C391C 


22 


C7C92 


C376N 


C1C2G 




10 


SECCT,01PC0A*6 








C3922 


25 


C7C91 


C7C52 


01C30 




REAO IN OIP SECTCR 
















01C4C 




f OP 


0IPCCA^6,,U 








C3934 


IS 


C7C52 


CCCC- 


01C50 




DTP 


1NCGET,*H2 








C3946 


17 


C691C 


-3931 


oiceo 




SF 


ENCTSTMl.,6, «EI -ICACED- INCICATCR 






03958 


32 


C572J 


CCCCC 


01C70 




BTP 


INCPVT,"12 








0397C 


17 


C6I74 


~39I2 


oicic 


FtlNCl 


TFP 


!ORT,**23 








C3982 


16 


CC565 


-4CC5 


01C90 




B 


I0GT.01M.7 








C3994 


49 


CC966 


-7C38 


011C0 




TO 


• ♦'22.SEC.Cf 








04C06 


25 


C4C28 


C7091 


01 110 




TR 


D 1 PSVE , 1 NRK 








04C18 


31 


C7C61 


C74CC 


01120 




TO 


DMECCA.OIPSYE 








04C3C 


25 


C6994 


C7C61 


CU30 




TF 


DMECCA^5,CIFSVE»5 








C4C42 


26 


C6999 


C7C66 


01 uc 




TR 


DOAR.OPECOA 








C4C54 


31 


C72CC 


C6994 


01 150 




TFP 


00AR«13,1 








C4C64 


16 


C7293 


-CCCl 


CI uo 




TFM 


tORT,«*23,, REAC IN INCICATCR RECCRC 








C4C78 


16 


CC565 


-41C1 


01 170 




B 


I0GT,0PE,7 








C4C9C 


49 


CC966 


-6946 


01 lflC 




TF 


DOAR^B.DIPSVE^S,, PCVE 5ECTC" CCUNT 








C41C2 


26 


C728 8 


C7069 


01190 




INDICATOR RECCRC CHECK 
















012C0 


T5TVLC 


C 


INRK*13. INOCCN,, CHECK FCR VALIC INCICATCR 


RECCRC 


04114 


24 


C7413 


C4169 


01210 




be 


RELFRM 








C412* 


46 


C6614 


C12CC 


01220 




c 


INRK*5, INOCCN,, CHECK FCR VAIICITV IN CCRE 


IPACE 


04138 


24 


C74C5 


C4169 


01210 




BE 


• ♦72 








04150 


46 


C4222 


C12CC 


01240 




rctv 










C4162 


34 


CCCCC 


CC1C2 


01250 


1NCCCN 


cc 


6, 987898, «~4 








C4 169 




i 








RB7898 
















01240 




NATY 


NAMBLF-IC , , t 








C4174 


39 


C2431 


CC 1 CC 


01270 




TFP 


EPRINT+61 ,39 ,1C, 








04 186 


16 


C7681 


CCCL9 


G128C 




TOP 


EPRINT^73 ,9 , , 








C419B 


}9 


C7693 


CCCC9 


0129C 




RIP 


EPRINT ,75 tl f 








042 10 


17 


C762C 


C-079 


013C0 




A 


DOARM3,A00CCto 








04222 


2 1 


C7293 


C249C 


OHIO 




TOP 


INDRW,,, CCNVERT CEFINER IC CCRE 


IP AGE 




04234 


15 


C7C32 


CCCCC 


01320 




CC 










C4245 




1 




01 330 




AM 


'00AR«5,1,IC, INCREPENT ClSK ACCRESS 


BY 


CNE 




C4246 


11 


C728S 


CCC-1 


01 340 




SM 


0DAR*B,l,lC. CECREPENT SECTCR CCUNT 


BY 


CNE 




C425B 


12 


C7288 


CCC- 1 


01350 




e 


SU8PRC-24 








C427C 


49 


C66 74 


CCCCC 


onto 




CORC 


• -3 








C427B 








C 1 370 


TftYSZE 


TF 


AOCSVt , ACCCCW 








C4278 


26 


(2472 


C249C 


0138C 




AM 


ADDSVE.l.lC 








C429C 


1 1 


C2472 


CCC-1 


01 390 




A 


SPRCST, ACOSVE 








C43C2 


21 


C6 192 


C2472 


014CC 




A 


ADCCCta, INRK422 








04314 


2 1 


C245C 


C7422 


01410 




TOP 


INRK423 








04326 


15 


C7423 


CCCCC 


01420 




CC 


1 . * »• 








C4337 




} 




C I 4 3C 




C 


ACCCCS.CCPACC 








C4338 


24 


C249C 


C2231 


C1440 




8L 


51/ECK 








C435C 


47 


C62C2 


C13CC 


01450 




S 


AOCCCh, INRK422 








C4362 


22 


C249C 


C7422 


01460 




CVERLAP 1NDICATICN 
















01470 




TDP 


OVRlAP.l,, TURK CN C VERl AP INCtCATCA 








04374 


15 


C2444 


CCCC1 


C14PC 




TR 


OVRMES-1 .NAMBLF-U , , 








C4386 


31 


C7974 


C243C 


01490 




TOM 


0VRMESM2 








C4398 


15 


C7587 


CCCCC 


01 5CC 




TO 


0VRPESM4,INRK4lP 








C441C 


25 


C7989 


C7418 


C 1 5 1 




TO 


0VRPESM6,INRKM9 






I o y 5 


C4422 


25 


C7991 


C7419 


01520 




TD 


OVRPESM8,INRM2C 








C4434 


25 


C7593 


C742C 


01530 




TO 


QVRPES*2C,INRK*2l 








C4446 


25 


C7395 


C 742 1 








162C-1443 PCNITCR I VERSICN 2 FCRfPAN 


1 l-C 










PAGE 


01540 




TD 


OVRMES^22. INRK*22 








C445B 


25 


C7597 


C 7422 


01550 




WA 


VRME S , 9CC 








C44 7C 


35 


C 7 9 7 5 


CC9CC 


01560 




60 


•♦32.EXTINO, , BRANCH IF PRCGRAP CN CARCS 




TAPE 


C4482 


43 


C45 14 


C2463 


01 5 70 




B 


PHASEB ,,, BRANCH TC GET NEXT NAPE 








C4494 


49 


C5666 


CCCCC 


015 80 




CORG 


• -3 








C45C2 








01 590 




ROUTINE TC REAC INCICATCR RECCRC FRCP CARCS CR 


TAPE 










oi 6co 




LOAD CARO CR TAPE STCREC PRCGRAPS 
















C16 IC 




H 










C45C2 


4 E 


CCCCC 


CCCCC 


C 1 6 2C 


PHASEC 


BTP 


!NCGET,^12 








C45 14 


1 7 


C69 IC 


-4526 


016 30 




TD 


CCTP*2,CCMSEC»73 








C 4 5 2 6 


25 


C7C6E 


C7 373 


01 640 




SM 


CCTP42, U1C 








C4538 


1 2 


C7C86 


CCC-1 


C16 50 


RE AC 


TFP 


10RT,"23,, GET INCICATCR RECCRC 








0455C 


16 


C C 5 6 5 


-4573 


01660 




e 


I0GT,CCTP-4,7 








C4562 


49 


CC566 


- 7CB2 


016 70 




TDM 


EXTINC.l 








C45 74 


15 


C2463 


CCCC 1 


0168C 




TFM 


•♦35,SUBT6l-9 








C4586 


It 


C462 1 


-2513 


C169C 


GCNX T 


AM 


ENTSTMl, 20,10 








C 4 59 8 


1 1 


C4621 


CCCKC 


01 7C0 


ENTST 


8NR 


• ♦2C, TEST FCR END CF TABLE 








046 IC 


45 


C463C 


CCCCC 


01 7 IC 




6 


REAC 








C4622 


49 


C495C 


CCCCC 


01 720 




CORG 


•-3 








0463C 








01 73C 




TFP 


•♦23,INRK 








0463C 


16 


C4693 


-74CC 


01 74C 


RPCHK 


BNR 


• ♦2C 








04642 


4j 


C4662 


CCCCC 


01750 




8 


REAC 








C4654 


49 


C499C 


CCCCC 


CI 76C 




CORG 


• -3 








C4662 








CI 770 




AM 


RMCHK^U,l,tC 








C4662 


1 1 


C4653 


CCC- 1 


01780 




CM 


RMCHK^11,1NRK*8C 








C4674 


14 


C4653 


-748C 


C 1 7 9 




8NE 


RMCHK 








C4686 


47 


C4642 


C 12CC 


01 8CC 




SF 


INRK41 








C4698 


32 


C74C 1 


CCCCC 


01810 


GNETNC 


CSC 


5,C0101.»-4 








047C5 




5 








COICI 
















01820 




CF 


INRK42 








0471C 


33 


C74C2 


CCCCC 


C183C 




CF 


INRKO 








C4722 


33 


C74C3 


COOCC 


01 14C 




CF 


INRK^4 








04734 


33 


C74C4 


CCCCC 


018SC 




CM 


INRK+4.4131,1 








04744 


14 


C74C4 


CR 1 3 1 


onto 




tWE 


HEACER 








C4758 


47 


C40C2 


C12CC 


01170 




RCTY 










C4770 


34 


CCCCC 


CC1C2 


01880 


2ER0NE 


CC 


6,l«C00l,»-4 








04777 




< 








JOCCCl 
















01890 




NATY 


CAT A 1 








04112 


3« 


C7171 


CC1CC 


019C0 




B 


PHASEC 








04794 


40 


C9494 


CCOCC 


01910 




CORC 


•-3 








04IC2 








01920 


HEAOER 


C 


INRK4 13, INOCCN,, TEST FCR INCICATCR 


RECORC 




04IC2 


24 


€7413 


C4149 


01930 




one 


REAC 








C4814 


47 


C433C 


C12CC 


01940 




tnr 


• ♦2C.INRKM6 








04126 


44 


04046 


C7414 


01950 




B 


REAC 








04131 


40 


C4ISC 


CCCCC 


01960 




CORC 


•-3 








04046 








01970 




C 


INRK«2StENTST4ll.U» CCPPARE NAPES 








04044 


24 


C7429 


C442J 


01980 




ONE 


GO* XT 








04ISI 


41 


04 SOI 


C12CQ 


01990 




IF 


NAMBliFtCMTST+lltl 1 








0487C 


24 


C2441 


C442J 


02CC0 




AM 


ENTSTU1.4.1C 








04002 


U 


€4021 


CCC-4 


02C10 




IMF 


• ♦32,ENTSTM1,U 








04004 


44 


04024 


C442J 


02C20 




AM 


ENTST^ll.14,10 








04004 


11 


04«21 


C00J4 


02C30 




• 


fNTST 








04010 


40 


C441C 


CCOCC 


02C4C 




CORC 


•-1 








04020 








02C50 




SF 


ENTSTM1,,4, $ff -LCACEC- IROICATCR 








04010 


32 


C442J 


CCOCC 


02C40 




BTM 


lNCRLiT.«H2 








04010 


n 


€0074 


-4fOC 


02C70 




1 


RELFRM 






1096 


04010 


40 


€0014 


CCOCC 
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MCE 



o?ceo 




CORG 


•-3 


04958 








02C90 




FLIP SLBPRCGRAP TABLE SEARCH 










021C0 


IfLLC 


AM 


SRCM 1 1 1 3 • 1C 


C4958 


11 


C3605 


CCC-3 


02110 




TF 


FLPCCA*8,SRCh»lUU 


C497C 


26 


C7C1E 


C36CN 


02120 




am 


SRCM 1 1 • 5 » 1 C 


04962 


11 


C36C5 


CCO-5 


02120 




TF 


FLPCCA*S,SRCM11,11 


04994 


26 


C7C15 


C36CN 


C214C 




TFP 


IORT,«»23 


05CC6 


16 


CC565 


-5C29 


C2150 




e 


IOGT,FLP,7 


C5C 18 


49 


CC566 


-7CC1 


02UC 




SF 


COPPAR 


C5C30 


32 


C5C7E 


CCCCC 


02170 




TFP 


C0PPARM1,SLETBL*11,, INITIALIZE PCIMER 


C5C42 


16 


C5C89 


-2533 


02 180 




TF 


COPPREUl.ACCCCti 


C5C54 


26 


C5169 


C245C 


02190 




am 


COPPRE* 11,1 ,IC 


C5C66 


1 1 


C5169 


CCC- 1 


C22C0 


CCPPAR 


bnr 


COPPRE 


OSC70 


45 


C5 151 


CCOCC 


022 10 




BNF 


COPPRE, CCPPAR 


05C9C 


44 


C5156 


C5C78 


02220 




TFP 


!ORT,**23 


C51C2 


16 


CC565 


-5125 


022 30 




e 


I OPT, Ft P. 7 


C5 1 14 


49 


CC532 


-7CC 1 


0224C 




IN-CORE SLBPRCGRA* TABLE SEARCH INC LCAC 










02250 


tCC INC 


BTP 


INCGET,«M2 


05126 


1 7 


C691C 


-5138 


C2 260 




CF 


COPPAR 


05 1 38 


J 3 


C5C7E 


CCCCC 


02270 




e 


COPPAR-36 


C5 150 


49 


C5C42 


CCCCC 


02 2 8C 




CORG 


•-3 


515 6 








02290 


CCPPRE 


BNR 


SERC»- 


C5 158 


45 


C5 17C 


CCCCC 


023C0 




e 


SERCt-3 


C5 17C 


49 


C5622 


CCCCC 


02 3 1 




CORC 


• -3 


C 5 1 78 








02 320 


SERCh 


80 


•♦32,COPPRE*ll,ll 


05178 


43 


C52 1C 


C5 16R 


02 330 




AM 


C0PPREMI,18,1C 


05 19C 


1 l 


C5 169 


CCC J8 


02 3*0 




e 


COPPRE 


C52C2 


l\ 


C5 156 


CCCCC 


02 35C 




CORC 


• -3 


C 52 1C 








02 36C 




AM 


C0PPRE*11,U,1C 


C 52 IC 


I i 


C 5 169 


CCC J 1 


02 3 70 




BNF 


SERC»-2, CCPPAR 


C5222 


44 


C5462 


C5C78 


02 380 




C 


COPPAR* ll,CCPPRE«ll .611 , CFECK FCR SAME NAPE 


C5234 


24 


C5C8R 


C5 16R 


02 390 




BE 


SERCH 


C5246 


44 


C527E 


C 12CC 


024C0 




AM 


C0PPRE*U,7, 10 


05258 


1 l 


C5169 


CCC-7 


024 10 




e 


COMPRE 


052 7C 


49 


C5 1 56 


CCCCC 


02420 




CORC 


• -3 


C5278 








0243C 


SERCH 1 


SM 


C0PPRE«11,11,1C 


C5278 


12 


C5 169 


CCC J I 


0244C 




TDP 


C0PPREM1,C,6 


C529C 


15 


C5 16R 


CCCCC 


02450 




AM 


C0PPAH*ll,5, 10 


C53C2 


1 i 


C5C89 


CCC-5 


02460 




AM 


COKPPE + 11, U,IC 


C5314 


1 1 


C5 169 


CCC J6 


02 4 70 




A 


COHPBE* 1 1 ,ACCSVE ,6 


C5326 


2 l 


C5 16R 


C2472 






BNF 


•♦56, COPPAR 


C 5 338 


44 


C 5 394 


C5C7e 


02490 




CM 


COPPAR*U,,67 


5 35C 


14 


C 5C8R 


-CCCC 


O25C0 




BNE 


• ♦32 


C 5 36 2 


47 


C5394 


C 1 2CC 






TF 


C0PPAR*U,CCPPRE*U,6ll , PCVE ACCRESS IN 


C5374 


26 


C5C6R 


C516R 


C25 2C 




B 


SERCI-2-2C 


05366 


49 


C5442 


CCCCC 






CORC 


• -3 


C 5 3 9 4 








02540 




ROUTINE TC PLACE INDIRECT ENTRY ACCRESSES INTC SLfPRGGRAPS 










02550 




TF 


• ♦35,COPPARUl,U 


C5394 


26 


C5429 


csceR 


C256C 




TF 


•♦18, COPPRE* 11. 1 1 


C54C6 


26 


C5424 


C516R 


C2570 




TFM 


,,, PCVE ACCRESS INTC PRCCRAP 


C5418 


16 


CCCCC 


-CCCC 


C2580 




SF 


•-6, »6 


C543C 


22 


C542P 


CCCCC 


02590 




AM 


C0PPAR«U,19 ( 1C 


C5442 


11 


C5C89 


CCCJ5 
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11 


C245C 


CCC-2 


C1S8C 




eo 


IAP2.CVRLAP 




C52U 


41 


C53C8 


C2444 


OlSSC 




TF 


TEPP.FLPCCk 




05228 


26 


C7518 


C504 7 


02CC0 




TF 


TEPP-6.STACC 




0524C 


24 


CT512 


C59C4 


C2CIC 




TR 


LDEC*l.FLPPES-l 




C52S2 


31 


C7S22 


C59C6 


C2C20 




TFM 


•♦3C.LCEC*14 




05244 


14 


C5294 


-7535 


02C3C 




TFP 


•♦23,TFPP-11 




05276 


16 


C5299 


-75C7 


02C4C 




TO 


LDEDM4.TEPP-11 




05288 


25 


CT535 


C75C7 


C2C5C 




AM 


•-6.2.1C 




C53CC 


11 


C5294 


CCC-2 


02C60 




AM 


•-13, U1C 




CS312 


11 


CS299 


CCC-1 


C2C7C 




CM 


• -25.1EPPM 




C5324 


14 


CS295 


-7519 


02C8C 




61 


• -48 




05334 


41 


C5288 


C13CC 


C2CSC 




kA 


LDEC»2.9CC 


110 7 


05348 


39 


C7S23 


CC9CC 


C21C0 




B7 
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49 


C5444 
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02110 


LAP2 


TR 


OVHPES-l.FLPPIS-I 


05348 


31 


C7574 


C59C4 


0212C 




TOP 


0VRPES*12 


CS38C 


15 


C7S87 


CCCCC 


02130 




TO 


0VRPES*l4.FlPCCli-4 


C5392 


25 


C7589 


C5043 


C214C 




TO 


OVRPESM4,FlPCC*-3 


C54C4 


25 


CT591 


CS044 


C2150 




TO 


0VRPES*18,FLPCC¥-2 


C5414 


25 


C7593 


C5C45 


C2160 




TO 


0VRPES*2C f FlPCCk-l 


C5428 


25 


C7595 


C5C44 


C217C 




TO 


OVRPES*22,FlPCCk 


C544C 


25 


C7597 


C5047 


02180 




WA 


OVRPE S.9CG 


C5452 


39 


C7575 


CC9CC 


C219C 


CAll,5 


TF P 


IORT.««23 


C5444 


14 


CCS4S 


-5487 


C22C0 




B 


10GT f BL5«7 


C5474 


49 


CCS44 


-5484 


C221C 




TF 


SECLNK46. ACCCCti 


C5488 


24 


CS542 


C24SC 


C2220 




AM 


SECLKK»6,2, 1C 


0S5CC 


11 


C5542 


CCO-2 


C2230 




AM ' 


ADCCCte.19.lC 


CSS12 


11 


C24SC 


CCCJ9 


C224C 




TF 


FLPLNK»16,ACCCCIi 


CS524 


24 


C5B87 


C24SC 


C225C 


S6CLKK 


TR 


, FLPLNK 


05534 


31 


CCCCC 


C5871 


02260 




AM 


SUECK«U V 5.10 


05S4B 


11 


CSISS 


CCC-5 


C227C 




AM 


SECLNK^6,5.1C 


C554C 


11 


CSS42 


CCC-5 


C228C 




TF 


• M8.SI2ECK*ll,U 


C5572 


24 


CSS9C 


C515N 


0229C 




TF 


, SECLNt(»6 


05584 


24 


CCCCC 


C5542 


O23C0 




AM 


SliECK>ll,15.1C 


05594 


11 


C51S5 


CCCJ5 


0231C 




AM 


AOCCCIi.ll.lC 


C56CB 


11 


C245C 


CCCJ1 


C2 32C 




AM 


FLPCCM.3C.1C 


0542C 


11 


C5C41 


CCCLC 


C233C 




C 


AOOCCM.CCPACC 


05432 


24 


C245C 


C2231 


02 340 




BH 


FLPOVR 


05444 


44 


C5444 


CUCC 


C2350 




B 


SIIECK 


05454 


49 


C5144 


CCCCC 


C2360 




CORG 


•-3 


CS444 








02370 


FIPOVR 


TOP 


OVRLAP.l 


05444 


IS 


C2444 


CC0C1 


07380 




B 


FLIP 


05676 


49 


C5CB4 


CCCCC 


0239C 




DORG 


•-3 


C5684 








024C0 


BL5 


CSC 
2K 


2.-22 


C5484 




2 




024 10 




CSC 
C 


l.C 


05484 




I 




02420 




CC 


5.152* 


CS491 




5 








-152 


• 










02430 


Bit 


osc 

2K 


2.-22 


05492 




2 




C244C 




CSC 

c 


l.C 


CS494 




1 




02450 




CC 


5,157* 


05*49 




9 








-157 


• 










02440 


CIPTBL 


cs 


•SL6TBL4S99 


C3121 




C 




02470 


CIMTt 


cs 


• SClBIBl 


02522 




C 




02480 


LC 


osc 

C2 


2.C2 


OS ICC 




2 




02490 




CSA 


LOCOA 


C57C4 




9 


» I 










031C4 




-2414 




025C0 




CC 
• 


l.« 


C9107 




1 




02S1C 


LIB 


OSC 
22 


2,22 


05101 




2 




02520 




OS A 


LtBCCA.C 


09114 




5 


> 2 










1 1 08 09114 




-5122 












09119 




-CCCC 
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0253C 




CC l,« 


C5720 


1 


G2 540 




rr i . i.i ir»7 

if |l ID" f 


C5715 


1 


02550 


L 1 f 0C * 


mi . i .art ? . a .nt pir 


C9722 


14 






1- 4602-C6-2522 






C256G 




CC 1 1 • 


C5736 


\ 


0257C 


p|RS 


CSA 1 1 B StB* 29 i L I 6SLB- 5 • C I PT Bt- 19 


05741 


5 








C5741 


-2423 








C5746 


-238S 








05751 


-31C2 


02510 


PIPCC* 


CC 12.C100CC5CCC2C 


05763 


12 






-1CCC05CCC20 




2C 


02 590 


CRPES 


CAC 20,99999 99999 CVERIAP* 


C 5 76 5 






99999 99999 OVERLAP* 




22 


026C0 


LCEC1 


DAC 22, 77 77777 77777 LCADEC 


C58C5 






77 77777 77777 iriflfTl 
r r ffrrff rrvfr LL ffUCb 






026 10 


CPr 


CSC 2 » 2 2 


C 5648 


2 






22 






02620 




CSA DKEOCA 


05854 










C 5 8 54 


-5856 


026 3C 




CC It' 


C5855 


I 


0264C 


CPECCA 


OOA ,UC*UIKPK 


C5e56 


14 












026 5C 




CC l«' 


C587C 


I 


C266C 


F LPLNK 


CSC 5 , C 


C 567 1 


K 












C267C 




BTP 


C5876 


17 CCCCC 


C268C 




OSC l.l 


C5f St 


1 


C269C 




CC 5 « C 


C 589 3 


c 












C27CC 




CC 6 1 ' 


C56S 9 


t 






-OCCC 






02710 


STAOC 


CS 5 


C59C4 




C272C 




CC 1 1 • ♦ 






0273C 


FIPHES 


OAC 7 # F 1 1 PER • 


C59C7 


7 












C2 74C 


FtP 


CSC 2 1 C 2 


05420 


2 






C2 






C275C 




CSA FLPCCA 


C5926 










C5926 


-354C 


C276C 




CC 1 , ' 


C5927 


1 


C277C 


FIPPPC 


CSC 2.22 


C5928 


2 






22 






C278C 




CSA FLCOA,C 


lit. 9 










C5934 


-5942 



C279C 

02eCC FLCDA 
026. C 



1620-1443 PCMTCR I VEBSICK 2 FCRfRAK I I-C LCACER e^OCK 4 



CC 1,' 

COA , 1, 16195, 99*, 99999 

1J6195R99R9999 

CC 1,' 



C282C OORC 728C 

02830 CCAR CSS 20 

02840 CCPSEC CSS ICC. 

02850 INRK OSS IOC, 

02860 ENC4 SK IT 

02870 HON IT 

02eeo tra 



C28S0 IT 
029C0 



SVSTEP CCPPLMCATIC* SEC1CP 

READ Ih AREA FCft IKCICATCR RECCRC 



OOA v l, 16949,25,3534 

IJ6S49-25-3534 

TCC ENC4 



C5939 




-CCCC 




C594C 




1 




C5942 




14 




C5956 




1 




C728C 








C728C 




2C 




C73CC 




ICC 




074C0 




ICC 




C75CC 


34 


C7548 


CC7C1 


07512 


38 


C7548 


CC7C2 


07524 


36 


CCCCC 


CC5CC 


0753* 


49 


CCCCC 


CCCCC 


C7548 




14 




C75CC 









1110 
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PACE I 



ACCCOtt C24SC 


L B SUB 1 


04296 


C IPCT 


C3579 


lORI CCSC9 


RPI8L 


C4624 


ACCSVE C2472 






C 1 9* 1. C 


C3660 


IT €7548 


sict 


C2446 


CCPACC C2231 




03556 


C IPT B 


C2522 


LAP2 05368 


SRCH ■:■ 


€47 12 


CQPSFC C75CC 


LIBDDA 


05722 


C IC 


OCf 16 


16P 04144 


5TA00 


09904 


IPTPL C 31 2 1 




02 394 


CPf 


Cf 840 


LCCOA C2474 


TBLLC 


C4794 


OPECCA C5856 


LKKACC 


C3518 


ENC4 


C75CC 


LCfCl C98C5 


TEPR 


€7518 


ECACCR C2455 


NAP8LF 


C2441 


B8MT 


CC6C2 


ICfC C75JI 


■ 


C224C 


EXTINO C2463 


GVRIAP 


02444 


ERRCR 


0C624 


LC 051CC 


% 


04904 


FLGIHMC C2445 


CYRPES 


07575 


FLCCA 


C5942 


LIB C97C6 


Y 


04668 


FLPCCta C5047 


PTRCCN 


05763 


FLIP 


C5G64 


PL INC C2462 


SCACCR 


02460 


FLPCCA C354C 


• 15 


05664 


PIP 


CS92C 


MI C2233 


SICtNR 


€9536 


FLPLNK C5871 


ei6 


05692 


l*»CS 


0C610 


N2 02236 


SI2ECK 


09144 


FLPPFS C5907 


CALL5 


05464 


IKRR 


C74CC 


ORPES C9165 


SIB 781 


02922 


FLPCVR C5664 


CALK 


0464t 


IC6T 


CC566 


PTRS C9141 


SV6CCA 


C249C 


FtP PRC C592B 


C ATA 


02 505 


ICIKC 


C2461 


RECLC €2241 


2R0TST 


€2467 


INCCOA C25C* 


CCAR 


07260 


ICPT 


CC532 


RflOC 0498C 
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mi 
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-1**3 KCMK* 


I 
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OOC 10 


• 
















C0C2C 


















C0C3C 


ICPT 


CS 


,532 








CC532 


C 


Q0C4C 


ICGT 


cs 


♦ 546 






cent 


C 


0OC50 


ICRT 


CS 


,565 








CC5«5 


C 


coctc 


KCNCAL 


cs 


• 7^4 








CC796 


C 


C0C7C 


• • • 


CQPPLMCATICN AREA 










OOCf c 




CORG 


2218 






C2216 




00C90 


F 


CS 


2,, 


float i kg pctm 


hCRD LENGTH 


C2219 


2 


C01CO 


K 


CS 


2,, 


FIXEC PCINT kCRC 


LENGTH 


C2221 


2 


C01 1C 


PRCGST 


CS 


5». 


STARTING ACCRESS 


CF PAINLIKE PRCGRAP 


C2226 


i 


C012C 


CCPACC 


CS 


5,, 


STARTING ACCRESS 


CF CCPPCK AREA 


02231 


• 


00130 


Nl 


CS 


2 , , 


KLPBER CF kCROS 


IN LCGICAL RECCRC 


02233 


2 


COMO 


N2 


cs 


5,, 


NLPBER CF LCGICAl RECCRCS 


C 22 38 


5 


C0I5C 


h 


CS 


2»« 


teCRC LENGTH 






C224C 


2 


001(0 


RECLG 


CS 


3,, 


RECCRC LENGTH 






02243 


3 


00170 


ENTLN 


CS 


5,, 


ENTRY ACCRESS 


TC 


LCG SLBRCLT IKE 


C2246 


a 


ooieo 


EN T EXP 


CS 


5,, 


ENTRY ACCRESS 


TC 


EXPCNENTIAL SLBRCUTINE 


C22S3 


> 


00 ISC 


ENTSC1 


CS 


5,, 


ENTRY ACCRESS 


TC 


SINGLE SLBSCRtRT SLBRCLT INE 


C22S6 


« 


002CC 


ENTSC2 


OS 


5, , 


ENTRY ACCRESS 


TC 


00L6LE SLilSCRIPT SLBRCLT INE 


02263 


■ 


00210 


ENTSC3 


CS 


5,, 


ENTRY ACCRESS 


TC 


TRIPLE SUBSCRIPT SLBRCLT INE 


C226I 


5 


00220 


ENTFIC 


OS 


5,, 


ENTRY ACCRESS 


TC 


FINC SLBRCLT IKE 


C2273 


« 


00230 


ENTREC 


OS 


5,. 


ENTRY ACCRESS 


TC 


RECCRC SLBRCLT INE 


C2278 


■ 


0024C 


ENTFET 


OS 


5, , 


ENTRY ACCRESS 


TC 


FETCH SLBRCLT INE 


02263 


• 


002 50 


ENTSkC 


OS 


5*. 


ENTRY ACCRESS 


TC 


ShlTCH C SLBRCLT INE 


02288 


■ 


00260 


ENTCRR 


CS 


5,, 


ENTRY ACCRESS 


TC 


ARRAY SLBRCLT IKE 


02293 


■ 


C027C 


ENTCEC 


CS 


5.. 


ENTRY ACCRESS 


TC 


DISK ENC SLBRCLT INE 


C2298 


■ 


C02IC 


ENTCOS 


OS 


5,» 


ENTRY ACCRESS 


TC 


CCSINE SUBRCLT INE 


C2303 


■ 


0029C 


ENTSIN 


OS 


5,, 


ENTRY ACCRESS 


TC 


SINE SLBRCLT INE 


C23C8 


■ 


C03C0 


ENTATN 


OS 


5,, 


ENTRY ACCRESS 


TC 


ARCTANGENT SLBRCLT INE 


C2313 


> 


00 3 1C 


ENTSCT 


CS 


5,, 


ENTRY ACORESS 


TC 


SCLARE RCCT SUERCUTINE 


C231R 


« 


C0320 


ENTABS 


CS 


5,, 


ENTRY ACORESS 


TC 


ABSOLUTE SLBRCLT INE 


02323 


5 


0O33C 




OS 


70,. 


RESERVEC FCR 


ENTRIES TC ACCfC SUBRCUTINES 


C2393 


7C 


00340 


TEPP 


cs 


• 7516 






C7S18 


C 


00350 


LCEC 


cs 


,TEPP*3 






C7S21 


C 


003CC 


CVRPES 


CS 


tLCEC*54 






07575 


C 


C0370 


EPRINT 


CS 


,762C 






07620 


C 


00360 


L 1BSLB 


OSS 


30,, 


LIBRARY SLBRCLTI 


KE INCICATCRS 


02394 


3C 


0039C 




CC 


It* 








€2424 


1 


C04C0 




PAINLI 


NE TABLE SEARCH 








00410 




OORG 


2426 






02426 




00420 
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16, C 








02441 


16 
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C0430 
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C2449 




0044C 


CVRLAP 
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€2444 




00450 


FLGRPK 


cs 
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02449 




00460 


ACCCCN 


OS 


5 








0249C 
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ECACCR 


cs 


5 








02499 




004 IC 


SCAOCR 


cs 
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02460 
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ICINC 


cs 
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02461 




005 CO 


PL INC 


OS 
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02462 
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CS 


1 
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CS 


5 








02466 
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2 ROT ST 


CS 


1 
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PACE 





ACC SVE 


CS 5 


C24T2 


5 


0055C 




CC 1,* 
t 


02473 


1 


0054C 


LCCPA 


COA ,1,C,C, SLBTBL 


C2474 


14 






l-CCCO-CC-2522 






00* ?c 




CC It' 


q 2408 


I 


G058C 


SVECCA 


COA ,1,C,21,C 


C249C 


14 






1-CCC0-21-CCCC 






G059C 




CC It* 


C 2504 


1 


0O6C0 


CAT* 


cc i iC 

~ 


C 25C 5 


* 


00* 1C 


INCDCA 


OOA t ItCt ICSUBTBL 


G25C6 


* 






1-CCCG-1C-2522 






00*20 




CC I i * 


C2S2C 


1 


00*30 


NCOATA 


CS I 


C2S21 


1 


C0*4G 


SLBTBL 


OSS 1CCC 


C2522 


1CCC 


00*50 




CC 12,' 


03533 


12 






-CCCCCCCCCC 






oo**c 


LNKACC 


CS 5 


C3538 




00670 


FLPOCA 


COA * ItCC. SLBTBL 


0354C 


14 






l-CCCO-CC-2522 






C068C 




CC 1, • 


C3554 


1 



C069G •••••• LCAO OISK-STCREO 5LBPRCGRAMS 

007C0 AM SPRST.218 C3556 11 C6799 -C218 

00710 TF SCNCCA*5,INCCOA«5 03568 2* C6865 C2511 

00720 TF SCHCCA* 11,ACCSVE 0358C 26 C6873 C2472 

00730 PHASES 8TM FLPGET,«*12 035*12 17 C6744 -36C4 

0074C TF LNKPTR, LKKACC C36C4 26 C6784 C3538 

C0750 TFM •♦23t SUB TBI* II 03*1* 1* C363*i -2533 

007*0 ENCTST BNR •♦44,,, TEST FOR ENO CF TABLE 03*28 45 C3*72 CCCCC 

00770 CM PRCCCta.,9 0344C 14 C3822 CC-CC 

0078C BNE PHASEC C3*52 47 C4792 C12CC 

007«JO B CALL* 03**4 49 C*524 CCCCC 

OOECO CORG »-3 C3*72 

00810 TF NAMBlF,ENDTST*ll,ll C3«72 26 C2441 C363R 

00820 AM ENCTST*11,*,1C C3684 11 C3639 CCC-* 

0083C BNF lNC13-56,ENCTST4ll,U, TEST ECU -LCACEC- INC ICATCR 03*96 44 C374C C363R 

00840 AM ENCTST*11,14,1C 037C8 11 C3639 CCCJ4 

00850 AM LNKPTR.3C.1C 0372C 11 C6784 CCClC 

00e*0 B ENCTST C3732 49 C3*2E CCCCC 

C0E7C CORG »-3 0374C 

0O88C BTM FLPPLT,«*12 C374C 17 C67Ce -3752 

00890 B EOSRCH 03752 49 C3932 CCCCC 

0O9C0 CORC »-3 C3760 

00910 •••••• RETURN IF ENTRY NCT FCLNO IN ECU IV. TABLE 

00920 AM E NO T S T* 1 1 , 1 , 10 0376C 11 C3639 CCC-1 

C0930 BTM FLPGET,»»12 C3772 17 C6744 -3784 

0094C BNF •♦32,ENCTSmi.ll C3784 44 C381* C363R 

00950 INC13 AM E NC T S T ♦ 1 1 , 1 3 » IC 1 1 1 3 03796 11 C3639 CC0J3 

00960 B ENDTST 038C8 49 C3628 CCCCC 

00970 CORG «-3 C3816 

C098C •••••• TYPE -LCAC NAME- 
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01310 
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01330 
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01340 
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013S0 
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0136C 
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BTM 


FLPGET,«*12 


01390 
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ENDTST*ll,,6, SET -LCACEO- INCICATCR 


014C0 




BTM 


FLPPUT,»*12 


01410 


FOUND 1 


TFM 


I0RT,*«23 


01420 
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I0GT,0IM,7 


01430 
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SECCT,5,IC 
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BL 
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01450 




SM 


SECCT.5,10. CALCULATE CIM ENTRY ACCRESS 


014*0 




MM 


SECCT.2C9 


01470 




AM 


99.INAK 


01480 




IR 


0IMSVE,99,ll 


014*10 




TO 


0ME00A,0IMSVE 


015C0 




TF 


0ME00A*9 v DIMVfo9 


01510 




TR 


DOAR tOMEODAf t PCVE SECTCR COA TC PACCAAM OCA AREA 


01920 




TFP 


IOAT,~23,, Rf AC IN INCICATCR RECORD 


01530 




■ 


I0GT,0ME,7 



C3816 


34 


CCCCC 


CCIC2 


C 3822 




3 




03828 


39 


C7C17 


CCICC 


C384C 


39 


C2431 


CCICC 


C3852 


17 


C6744 


-3864 


03864 


32 


C363R 


CCCCC 


C3876 


11 


C3022 


CCC-l 


03888 


11 


C6704 


CCCLC 


039CC 


17 


C67CI 


-3912 


03912 


IS 


C2521 


CCCCC 


03924 


49 


C379* 


ccccp 


C3932 








C3932 


2* 


C6921 


C2455 


03944 


2* 


C7448 


C246* 


03956 


16 


CC5*5 


-3979 


03968 


49 


CC54* 


-69C7 


0398C 


1* 


C4C23 


-2533 


03992 


45 


C4C12 


C4C2L 


04CC4 


49 


C4C9* 


CCCCC 


04C12 








04C12 


24 


C2441 


CCCCC 


04C24 


4* 


C414C 


C12CC 


04C36 


U 


C4C23 


CCCJ6 


04C48 


14 


C4C23 


-2933 


04C60 


47 


C3992 


C12CC 


04C72 


14 


C744E 


CC-CC 


04C84 


46 


C41C4 


CI ICC 


C4C9* 


49 


C37*C 


CCCCC 


04104 








04104 


12 


C7448 


CCC-4 


0411* 


11 


C6921 


CCC-4 


C4128 


49 


C3956 


CCCCC 


0414C 


11 


C4C23 


CCC-4 


04152 


1* 


C695T 


-48CC 


C4144 


22 


C6950 


C4C2L 


C4176 


22 


C6958 


C4C2L 


C4I88 


15 


C6950 


CCOC- 


042CC 


25 


C7C14 


C4C2L 


04212 


IT 


C6T44 


-4224 


04224 


32 


C363R 


CCCCC 


04236 


IT 


C67C8 


-4248 


04241 


16 


CC545 


-42T1 


042*0 


49 


CC56* 


-A944 


04272 


14 


CTC14 


CCO-3 


04284 


4T 


C43C0 


C13CC 


04294 


12 


CT014 


CCC-9 


043C* 


13 


CTC14 


CC-2C 


04320 


11 


CCC99 


-T4CC 


04332 


31 


C6973 


CCC9R 


04344 


29 


C6804 


C497J 


04354 


24 


C6089 


C69T* 


043*1 


31 


C720C 


06004 


04300 


16 


CC565 


-44C3 


043*12 


49 


CC564 


-6075 



tlH 



U2C-1**3 fCMKP I VfRSlCN 2 KRTRAN ll-C UICER IICCK 9 



MCE 



0154C 




TF 


DDAR«8,0IP5VE*8,, PCVE SECTCR CCUNT 




0**0* 


26 


C7286 


C6961 


01550 




INDICATOR RECCRO CHECK 












01 5*0 


TSTVLC 


C 


1 NR K« 1 3 , 1 NCCCN , , CHECK FCR VAtIC INCKATCR 


RECCRC 


C4* 16 


24 


C74 1 3 


C6998 


01570 




BE 


RELFR* 




C**28 


46 


C966C 


C 12CC 


01S8C 




C 


I NRK« 5 , 1 NOCCN , » CHECK FCR VALIC1TV IN CCRE 


I**QE 


0**4C 


24 


C74C5 


C6998 


01590 




BE 


• ♦*8 




C**32 


46 


C49CC 


C12CC 


01 6C0 






EPRINT*61 ,39 ,1C# 




C**4* 


16 


C7601 


CCCL9 


01*10 




TO* 


EPRIM«73 ,9 , , 




C**?6 


IS 


C7693 


CCCC9 


0162C 




6T* 


EPR INT, 75,8 




0**88 


1 7 


C762C 


C-C7S 


C 1 6 30 




TF 


OOAR* 13,A0C5V£ 




0*5CC 


26 


C7293 


C2472 


01 6*0 




TO* 


lNCR«7,, t CC K VERT CEFJNER TC CCRE (PAGE 




C*S12 


15 


C693E 


CCCCC 


01 (50 




CC 


1 . * »• 




C4523 




1 




1 6 6 




AM 


D0AR«5,1,IC, INCREMENT CISK ACCRESS ev CM 




04524 


1 1 


C7285 


CCC- 1 






sm 


DDAR*8,l,iC, CECREPENT SECTCR CCUNT BY CNE 




C4536 


12 


C728E 


CCC-1 


1 1 tc 




e 


SUBPRC-2* 




C4548 


49 


C57S2 


CCCCC 






CORC 


•-3 




C4SS6 








C 1 7CC 


TR YSZE 


A 


SPRCST.ACCSVE 




C4S56 


21 


C6794 


C2472 


01710 




A 


ACCCCh, INRK*22 




C456I 


21 


C249C 


C7422 


01720 




TF 


ADCR.AOOCOh 




045IC 


26 


C6789 


C245C 






S 


AOOCCh, INRK*22 




04592 


22 


C249C 


C7422 


017*0 




TO* 


INRK#23 




C4604 


15 


£7423 


CCCCC 


01750 




CC 
t 


I » • » • 




C46 IS 




1 








C 


AOOR.CCPACC 




04614 


24 


C6789 


C2231 


pi Tin 




81 


SUECK 




04621 


4 7 


C528C 


C13CC 


r l i ar 
ni !cn 




CVERLAP I K C I C « f I C N 












01 f SO 




TDK 


OVRLAP.l,, TURN CN CVE&LAP INCICATCR 




C464C 


15 


C244* 


CC0C1 


01 8C0 




TR 


OVRMES-l ,NAMBLF-U , , 




04652 


31 


C737* 


C243C 


01 8 1 C 




TO* 


OVR*E5*12 




C4664 


19 


C75e7 


CCCCC 


«! 




TO 


OVR*ES*i*.INRK*ie 




C4676 


25 


C7589 


C7418 


01 6 3C 




TO 


0VR*ES*16,INRKM9 




C46I8 


25 


C7591 


C7419 


1 6 *C 




TO 


OVRMES*18,lNRK»2C 




047CC 


25 


C7593 


C742C 


01850 




TO 


0VR*ES*2C,INRK>21 




04712 


25 


C7595 


C7421 


1 86 




TO 


OVR*ES*22,INRK*22 




C472* 


25 


C7597 


C7422 






teA 


0VR*ES,9CC 




0*736 


39 


C757! 


CC9CC 




CI AP 


AM 


LNKPTR, 30, IC 




0*7*8 


11 


C678* 


CCCIC 


«. 




BO 


•♦2C.EXTIN0, » BRANCH IF PRCGRAP CN CARCS CR 


TAPE 


0476C 


43 


C478C 


C2463 


oi <jcc 




B 


PHASEB ,,, BRANCH TC GET NEXT NAPE 




C4772 


49 


C3592 


CCCCC 


1 9 1 C 




CO«C 


• -3 




C47IC 






019 20 


• • 


ROUTINE TC RE AC INCICATCR RECCRC FRCP CARCS CR 


TAPE 










1 5 3C 










0478C 


48 


CCCCC 


CCCCC 


1 9 *C 


PM5EC 


BT* 






C4792 


17 


C67** 


-46C4 


1 950 




TO 


rnip*>.f ruff *?i 




04804 


25 


C7C 1 1 


C7373 


01960 






(.U lr*< | 1 | 11 




04816 


12 


C7C11 


CCC-1 


01970 


REAC 




I IjK 1 i / J ( i Ufcl IM.IC.AltR RcCCRl 




04828 


16 


CC565 


-4851 


C198C 






IUu 1 tUU lr"| f 




C484C 


49 


CC566 


-7CC5 


C199C 




TO* 






04852 


15 


C2*63 


CCCC1 


02CC0 






1 kltfDTO-l It. if AT T 




04864 


26 


C67t* 


C3538 


C2CIC 






a a. ? a CI (I TBI A 1 t 
• ♦ / J t 3 l< 1 L ♦ I 1 




C4676 


16 


C*699 


-2533 


02C20 


ENTST 




«iir tccr era tkr n tabic 




04880 


45 


C*9C8 


CCCCC 


02C3C 




R 


REAC 




049C0 


49 


C*82E 


ccocc 






p 






C49C8 












TF* 


•♦23 INRK 




C*9C8 


16 


C*931 


-74CC 






8NR 


• ♦ 2 C 




0*920 


45 


C*9*C 


CCCCC 


r? r ir 




g 


REAC 




0*932 


49 


C*82C 


CCCCC 










1115 
















162C- 1**3 'PCM TCP 1 VERSICN 2 FCRTRAN II»C 


LC ACER ELCCK 5 








PAGE 


C2C8C 




CORC 


.-3 




C*9*C 








02C9C 




AM 


RMCHK«M V 1,|C 




0*9*C 


11 


0*931 


CCC-l 


02 ICO 




CM 


RHCHK-U 1 , INRK*8C 




0*952 


1* 


C*931 


-748C 


C2 110 




eNE 


R*CHK 




0*96* 


*7 


C*92C 


C12CC 


C2 120 




SF 


INRK« 1 




C*976 


32 


C7*C1 


CCCCC 


02 1 3C 




CF 


INRK«2 




0*988 


33 


C7*C2 


CCCCC 


02 1*0 




CF 


I NRK ♦ 3 




C5CCC 


3 3 


C7*C3 


CCCCC 


C2150 




CF 


I NRK ♦* 




C5C12 


33 


C7*C* 


CCCCC 


02 160 




CM 


INRK«*,*131 •* 




C5C2* 


1* 


C7*C* 


CM 131 


02 1 70 




BNE 


HE ACER 




C5C36 


*7 


C5C92 


C12CC 


02 1 8C 




RCTY 






C5C*P 


3* 


CCCCC 


CC1C2 


02 ISC 




TF* 


ICRT,«*23 




CSC6C 


16 


CC565 


-5C83 


C22CC 




B 


IOPT, TYPE-*, 7 




C5C72 


*9 


CC532 


-71C1 


C22 10 




B 


PHASEC 




0508* 


*9 


C6*6* 


CCOCC 


02220 




CORC 


• -3 




C5C92 








022 30 


PEACES 


C 


INRKvl3,!N0CCN,, TE ST ' FCR INC ICATCR RECCRC 




05C92 


2* 


C7*13 


C6998 


022*0 




BNE 


REAC 




C51C* 


*7 


C*l2f 


C12CC 


0225C 




8NF 


•♦2C, INRK+16 




05116 


** 


CS136 


C7*16 


02260 






R E AO 




05128 


*9 


C*82E 


CCCCC 


02270 




CORC 


•-3 




05136 








022eC 




C 


INRK*25,ENTST*ll,ll , CCPPARE NAPES 




CS136 


2* 


C7*25 


C489R 


0229C 




BNE 


GONXT 




051*8 


*7 


C52*e 


C12CC 


02 3C0 




TF 


NA*6LF»ENTST*ll ,11 




0516C 


26 


C2441 


C489R 


023 10 




AM 


ENTST4U,6,1C 




05172 


11 


C9t99 


CCC-6 


02 320 




BNF 


•♦32,ENTST*ll,ll 




0518* 


44 


C9216 


C*89R 


02 3 30 




AM 


ENT5T*ll,i*,lC 




5196 


11 


C4899 


CCOJ* 


02 3*0 




B 


GCNXT*12 




092C8 


49 


C526C 


CCCCC 


C2 3 50 




CORG 


•-3 




0S216 








02 360 




SF 


ENTST*11,,6, SET -ICACEC- INC1CATCR 




C5216 


32 


C469R 


CCCCC 


C2370 




BT* 


FLPPLT,«*12 




05226 


17 


C67C6 


-52*C 


02 380 




6 


RELFR* 




C524C 


49 


C94IC 


CCCCC 


02 390 




CORG 


• -3 




05248 








02*C0 


G C N X 1 


AM 


ENTST'U, 20,10 




09248 


11 


C4899 


CCORC 


02*1 




AM 


LNKPTR, 3C1C 




05260- 


11 


C6764 


CCCLC 


02*20 




B 


ENTST 




05272 


49 


C4I68 


CCCCC 


02*30 




OORC 


•-3 




052IC 








02**0 


S I ZECK 


TF 


•♦lB.iCOSVE 




C92IC 


H 


C929I 


C2472 


02*50 




TR 


•ZEROS 




C5292 


31 


CCCCC 


C48CC 


02*60 




AM 


•-6.50.1C 




09304 


11 


C9296 


CCCNC 


02*70 




C 


S!ZECK*18,SPR0ST 




09316 


24 


C3298 


C6794 


02*8C 




BL 


•-16 




09321 


47 


C9292 


C13C0 


02*90 




TF 


TCMP t lNRR«22 




09340 


24 


07918 


C7422 


02 SCO 




IF 


T6MF-6* ACOSVE 




09392 


26 


07912 


C2472 


025 1 




TR 


LOEO* 1 fNAMBLF-1 1 




09364 


31 


€7922 


C243G 


02520 




IF* 


•♦3C,L0E0»1* 




09976 


14 


C94C6 


-7939 


0253C 




TFP 


•♦23tTEMR-ll 




09311 


16 


C9411 


• 7SC7 


02540 




TO 


LDEOU*,TEPP-ll 




054CC 


29 


C7939 


C79C7 


02550 




AM 


•-6.2.1C 




09412 


11 


C94C4 


CCC-2 


02560 




AM 


•-13.1.1C 




09424 


11 


C94I1 


CCO-l 


02 570 




CM 


•-25,T6MF»l 




09416 


14 


C94I1 


-7919 


02580 




BL 


•-*8 




09441 


47 


C94CC 


C13CC 


02590 




NA 


L0E0«2,9CC 




09460 


39 


C7323 


CC4CC 


026CC 


•»•••• 


LOAO PROGRAMS ROUTINE 












02610 


RCPROG 


BO 


COTPLD.EKTINC,, ERANCH IP PRCGRAP IN CARC CR 


TIM 


09472 


43 


C91I6 


C2463 


02620 


SCH.0 


TFP 


I0RT,*«23t, GET PRCGRAP FRCP CIS! 




09414 


1* 


CQ969 


-99C7 


02630 




6 


IOGT,l»tORf7 




05444 


49 


CC944 


-4931 



1116 



162C-1443 PCNITCR 1 VERS1CN 2 FCRTRAN I I — C LCACIR 8LCCK 5 



PACE 



02*40 




8 


LCCINC 


0S5C8 


49 


C596C 


CCCCC 


02650 




OORC 


•-3 


C5516 








02660 




ROUTINE TC LCAC PRCGRAP FRCP CARC CR TAPE 










C26 7C 


CCTPLC 


TOP 


? 


C5516 


15 


C0416 


CCOCC 


02680 




CC 


It t • 


C5527 




1 




02 6 SO 




Ir 


^<(i CLP 5 tL ♦ 13 


C5528 


25 


CC42E 


C7373 


C27CC 




SF 


4 2 P 


0554C 


32 


CC428 


CCCCC 


02710 




CF 


425 


C5552 


33 


CC425 


CCCCC 


02T2C 




TF 


434 , ADD S VE 


C5564 


26 


CC434 


C2472 


0273C 




SF 


485 


C5576 


32 


CC485 


CCCCC 


C274C 




TF 


C0PSEC«9e, INRM75 


C5388 


26 


C7398 


C7475 


02750 




TFP 


IORT,**23t, PLT BACK CCPPLM C AT ICN SECTCR 


C84CC 


16 


CC565 


-5623 


02760 




8 


1 OP T ,CCP 1 7 


C56I2 


45 


CC532 


-7C65 


0277C 




TFP 


IORT,*+23,, GET PRCGRAP 


C5624 


16 


CC565 


-5647 


02 78C 




B 


I OCT, EXT, 7 


C 5636 


49 


CC566 


-7C3,e 


02 750 




SM 


PRCCCktltlC 


C5648 


12 


C3822 


CCC-1 


028C0 




TOP 


EXT INO 


C366C 


15 


C2463 


ccccc 


028 1C 




8 


LOC INC 


CS672 


49 


C396C 


CCCCC 


C282C 




CORC 


• -3 


C568C 








C28 3C 


RELFRP 


TOP 


1 NRK« 8C 


C568C 


15 


C748C 


CCCCC 


c?64C 




CC 




C5651 




1 




C2850 




TR 




05652 


3 1 


C74CC 


C74C8 


02 860 




CF 


427 


057C4 


13 


CC427 


CCCCC 


02e7C 




TF* 


435 , lb 


C5716 


It 


CC435 


-CC75 


028eC 




TFP 


COAR* 13,59959 


C5728 


16 


C7293 


R9959 


02 890 




TF 


1NCR* 11 , ACOSVE 


0574C 


26 


C6942 


C2472 


029C0 




TF 


SPRCST.INRM31 


C5752 


26 


C6754 


C7431 


025 10 




AM 


SPRCST.5.1C 


C5764 


1 1 


C6T54 


CCC-5 


C2S2C 


StfiPRC 


C 


|N«K*24,F t , TEST FCR ECUAl F 


C5776 


24 


C7424 


C2219 


025 10 




BNE 


• ♦36. 


C5788 


47 


C5824 


C12CC 


02540 




c 


INRM26,*, , TEST FCR ECLAL K 


C58CC 


24 


C7426 


C2221 


025 50 




BE 


• ♦24 


C5812 


46 


C5836 


C12CC 


0256C 




BTP 


EPR IM, 76,8 


C5624 


17 


C762C 


C-076 


02970 




TEST FCR NEK SlBRClTlNES CALLEC FRCP FllPPEC SUePRCCRAP 










02 58C 


FLIP 


TFP 


CCSlB+l 1, INRP437 


05836 


16 


C5871 


-7437 


C2 55C 




TFP 


LRSlPMl.LIBSCB 


C5848 


16 


C5535 


-2354 


C3CCC 


CCSUE 


eo 


LB5LB 


05860 


43 


C592E 


CCOCC 


03C 1 




AM 


•-1,1,10 


C5872 


1 1 


C5871 


CCC-1 


03C20 




AM 


LBSLB*11,1,1C 


C5884 


11 


C5935 


CCC-l 


C3C 30 




CM 


L BSLB ♦ I 1 ( L IEStfi«3C 


C5856 


14 


C5535 


-2424 


C3C4C 




BNE 


CCSLB 


059C8 


47 


C586C 


C12CC 


03C50 




B 


TRY SZE 


0592C 


45 


C4556 


CCCCC 


03C6C 




CORG 


• - 3 


C5528 








3C 7 C 


l bsub 


BO 


CCSUEU2 


C5928 


43 


C5e72 


CCCCC 


1 C 6 C 




BTP 


EPR INT, 77,8 


C594C 


17 


C762C 


C-077 


03C90 




B 


CCSUB+12 


C5552 


45 


C5872 


CCCCC 


03 ICO 




CORG 


• -3 


C556C 








CHIC 




IN-CORE SLBPRCGRAP TABLE SEARCF ANC LCAC 










C3120 


LCCINC 


TFP 


I0RT,«W3 


C5960 


16 


CC565 


-5983 


03130 




B 


10GT,INC,7 


C5572 


49 


CC566 


-6855 


0314C 




TF 


CQPPREUNACCR 


C5584 


26 


C6C31 


C6 785 


0315C 




AM 


COPPREMltlflC 


C5596 


1 1 


C6C31 


CCC-1 


C316C 




TFP 


C0PPArt«ll(SL8TBl«ll«t INITIALIZE PC INTER 


C6coe 


16 


C6C5 1 


-2533 


03170 


CCPPRE 


8NR 


SERCH 


C6C20 


45 


C6C84 


CCCCC 








1117 
















162C-1443 PCMTCP 1 VERSICN 2 FCR T RAN Il-C LC ACER ELCCK 5 








PAGE 


C 3 1 8C 




B 


SCHPRC 


C6C 32 


45 


C6256 


CCCCC 


03 1 5C 




CORC 


• -3 


C6C4C 








C 32C0 


CCPP AR 


BNR 


COPPPE 


C6C4C 


45 


C6C2C 


CCCCC 


G32 10 




BTP 


EPRINT,717C,e 


C6C52 


1 7 


C 762C 


CP 17C 


032 2C 




AM 


C0PPRE4H, 18.1C 


C6C64 


1 1 


C6C3 1 


CCO JP 


p 32 30 




6 


COPPHE-12 


C6C76 


49 


C6CC8 


CCCCC 


C324C 




CORG 


• -3 


C6C84 








C 32 5C 


SERCh 


AM 


CCPPRE-Ul.ll.lC 


C6C84 


1 i 


C6C3 1 


CCCJ 1 






C 


C0PPAR-Ul,CCPPREUl,6ll, CHECH FCR SAPE NAPE 


06C96 


24 


C6C5 J 


C603 J 


32 70 




BE 


SERCfl 


06 1C8 


46 


C6152 


C12CC 


3280 




AM 


CCPPAR*11,2C,IC 


06 12C 


1 1 


C6C51 


CCCPC 


C 325C 




SM 


COPPRE*ll.ll,lC 


C6 132 


12 


C6C3 I 


CCCJ1 


3 ICC 




B 


COPPAR 


06144 


49 


C6C4C 


CCCCC 


3 310 




CORG 


• -3 


C6 152 








C3 320 


SEPCh 1 


AM 


COPPRE+11,5,10 


C6 152 


1 1 


C6C3 1 


CCC-5 


3 330 




AM 


C0PPAR*ll,5,lG 


06 164 


U 


C6C51 


CCC-5 


03 3*0 




ROUTINE TC PLACE IN01RECT ENTRY ACCRESSES IMC SUEPRCCRAP S 
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OOOON 


00060 




BO 


• ♦44 


,FNH 


,011, 


IS A ZERO 00042 


M3 


00086 


0331L 


00070 




TFM 


EI , 


,672 


.9, 


YES. ERR F2, LN ZERO 




















00054 


16 


02615 


0007 2 


00080 




SF 


99 i 






SET SIGN 00066 


32 


00099 


00000 


00090 




B 


OVFLOW 






FAC IS NEGATIVE ALL NINES 


















00078 


49 


03652 


00000 


00100 




DORG 


*-4 






00085 








001 10 




TFM 


GOAL+18 


, EN DO* 12 


.07, 


SET UP NO ERR TYPE 




















00086 


J6 


008 16 


-3.780 


00120 




BNF 


♦ ♦48 


,FAC-2 


.0, 


IS A NEGATIVE 00098 


M4 


00146 


02490 


00130 




TFM 


EI 


,673 


.9, 


YES, ERR F3, LN -A 




















00110 


16 


02615 


00073 


00140 




TFM 


GOAL+18 


, ERROR 


.07, 


SET UP ERR TYPE 00122 


J6 


00816 


-3676 


00150 




CF 


FAC-2 




t . 


A EQUALS POSITIVE A 




















00134 


33 


02490 


00000 


00160 




TFM 


CORN-25 


,9SPF*2 


.07, 


SET UP CONSTANT EQUAL ZERO 














00146 


J6 


00573 


-2856 


00170 




TF 


CORN-13 


,FAC 


.0. 


STORE CHAR 00158 


K6 


00585 


02492 


00180 




CF 


FNH 




.6. 


FINO 1 ♦ A MANTISSA 




















00170 


33 


0331L 


00000 


00190 




TDM 


FNHM1 


, 1 


.611 


0018 2 


15 


0335Q 


OOOOJ 


00200 




CM 


FNH 


,15 


.610. 


COMPARE TWO HIGH ORDER 


DIGITS 
















00194 


14 


0331L 


000 J 5 


00210 




BNL 


• ♦44 




.0. 


TO 1.5. IF LESS THAN , NO BR 
















00206 


M6 


002S0 


01300 


00220 




A 


FAC-2 


.FAC-2 




00218 


21 


02490 


02490 


00230 




AM 


CORN-25 


.31 


.010. 


AOJUST CONSTANT TO LN 


.2.4, OR 1 


1 














002 30 


Jl 


00573 


000L1 


00240 




B 


♦ -60 




.0 


00242 


M9 


00182 


00000 


00250 




OORG 


*-4 






00249 








00260 




TF 


BETA 


,TWOZ 




FINO 1 - A MANTISSA 




















00250 


26 


02603 


0307 3 


002 70 




S 


BETA 


,FAC-2 




00262 


22 


02603 


02490 


00280 




TF 


99 


,ZER0-20 


. . 


FINO 1-A MANT/l+A MANT 


















00274 


26 


00099 


02747 


00290 




TF 


97MF 


i BETA 


.6 


00286 


26 


0332L 


02603 


00300 







98MF 


.FAC-2 


.6 


00298 


29 


0332Q 


02490 


00310 




TF 


FAC 


,98MF 


.11* 


STORE IN FAC 00310 


26 


02492 


03320 


00320 




TF 


79 


.ZERO- 39 




FINO FAO*2 00322 


26 


00079 


02728 


00330 




M 


FAC 


iPAC 




00334 


23 


02492 


02492 


00340 




TF 


SAVE 


,97NF 


t . 


STORE IN SAVE 00346 


26 


02969 


0332L 


00350 




A 


FAC 


,FAC 


FAC EQUALS 2*FAC 00351 


21 


02492 


02492 


00360 


COUN 


TP 


IMSA-4 


iFMl 




SET COUNTER EQUAL F-l 




















00370 


26 


02971 


03629 


00370 




TF 


C0UN*7l 


,2FM1 


.0, 


SET DIVISOR P EQUAL TO 


2F 


-1 
















00382 


K6 


00441 


03429 


00380 




TF 


BETA 


.9SPF*1 




BETA EQUALS F*2 {EROS 




















00394 


26 


02603 


02199 
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00390 




TF 


99 


i ZERO- 


19 




F INO 10/P 00406 


26 


00099 


02748 


00400 




TFM 


98 MF 


i 10 




♦ 610 


00418 


16 


03320 


000 JO 


004 10 




DM 


98MF 






* 6t 


IV 10E BV P 004 30 


19 


0332Q 


OOOOO 


00420 




A 


BETA 


♦ 9 7 




1 * 


ADO QUOTIENT TO BETA 






















00442 


21 


02609 


0009 7 


00430 




TF 


79 


♦ Z ERO- 


39 




00454 


26 


00079 


02726 


00440 




M 


BETA 


tSAVE 






00466 


23 


02603 


02565 


00450 




TF 


BETA 


♦ 97MF 




♦ 1 1 ♦ 


BETA EQUALS BETA*$AVE 






















00478 


26 


02603 


0332L 


00460 




SM 


COUN 4 7 1 


,0 2 




♦ 10 ♦ 


P EQUALS °- 2 00490 


J2 


00441 


000-2 


00470 




SM 


IMSA-4 


,0 1 




♦ 10. 


REDUCE COUNTER BY ONE 






















00502 


12 


02571 


000- 1 


004 80 




BNZ 


COUN+36 






♦ t 


IS COUNTER ZERO 005 14 


M7 


00406 


01200 


00490 




TF 


79 


♦ Z ER 0- 


39 




YES 00526 


26 


00079 


02726 


00500 




N 


BETA 


, FAC 






MULT IPLV BETA BY FAC 






















00536 


23 


02603 


02692 


005 10 




A 


97MF 


♦ FAC 




♦ 6 ♦ 


ADO FAC TO PROOUCT 






















00550 


21 


0332L 


02692 


00520 




TF 


FAC 








SET CONSTANT IN FAC 






















00562 


26 


02492 


OOOOO 


005 30 




SF 


FAC 








NEGATE CONSTANT 00574 


32 


02492 


OOOOO 


00540 




s 


FAC 


«97MF 




♦ lit 


SUBTRACT PROOUCT FROM CONSTANT 


















00566 


22 


02492 


0332L 


00 550 


CORN 


T F 


92 


,9SPF - 


I 




00598 


26 


0009 2 


0285) 


00560 






LNIQ 


♦ COR N- 


1 3 


» 1 • 


MULT I PLY CHAR BY LN 10 




















00610 


2L 


029B0 


00565 








99 


* FAC 




* * 


ADO FAC TO PRODUCT 






















00622 


2) 


00099 


02492 


0Q5B0 




AM 


97 


nn 




♦ 1 Oi 


ZERO CHECK 006 34 


11 


00097 


000-0 


0059C 




BZ 


GOAL* 20 






♦ 


00646 


M6 


00818 


01200 


0060C 




TFM 


SAVE 


♦ 3 




, I o, 


SET UP CHAR 00658 


16 


02565 


000-3 






Tf 


F AC* 3 


» 99 




* ' 


NORMALIZE 00670 


26 


02495 


00099 


00620 




CF 


FAG* 3 








00682 


33 


02495 


OOOOO 






TO 


F AC *4 


.RECMK 






SET RECORD MARK 00694 


25 


02496 


02601 














♦ 1 1 


00706 


M3 


00774 


331 L 


00650 




TR 


FNH 


♦ FH ■ 




♦ 61 1 


00718 


31 


0331L 


0330Q 


00660 




TOM 


FAC* 3 


♦ 






007 30 


15 


02495 


QOOOO 


00670 




SF 


FNH 








00742 


32 


0331L 


OOOOO 


OU 6H0 




v>H 


S A Vt 


♦ I 




♦ 10f 


ADJUST CHAR 00754 


12 


02565 


000-1 














♦ 


00766 


M9 


00706 


OOOOO 


00700 




UGRG 


*-4^ 








00773 








007 10 




TOM 


FAC* 4 


♦ 




' ' 


CLEAR RECORD MARK 






















00774 


15 


02496 


OOOOO 


00720 




TO 


FAC* I 


♦ RECMK 






REPLACE RECORD MARK 






















00786 


25 


0249 3 


02403 


00 7 30 


GOAL 


TF 


FAC 


♦ SAVE 






SET CHAR IN FAC 00798 


26 


02492 


02565 


007*0 




6 


END0*12 








00810 


49 


03780 


OOOOO 


00750 




OORG 


*-4 








00817 








00760 




TF 


FAC-2 


i 9SPF*- 


1 




00618 


26 


02*90 


02853 


00 770 




TFM 


FAC 


.-99 




♦ 10 


00830 


16 


02492 


OOORR 


00780 




B 


GOAL* 12 






♦ 


00842 


M9 


00610 


OOOOO 


00790 




OORG 


*-4 








00849 








00800 


FAC 


OS 




♦0 2492 






02492 


ooooo 
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008 10 


FNM 


OS 


,03313 


03313 OOOOO 


00820 


e I 


OS 


.02615 


02615 OOOOO 


00830 


OVFLOW 


DS 


.03652 


03652 OOOOO 


00840 


ENOD 


DS 


♦ 3768 


03768 OOOOO 


00850 


ERROR 


DS 


♦03676 


036 76 OOOOO 


00660 


9SPF 


DS 


♦ 02854 


02854 OOOOO 


00870 


FNHMl 


DS 


♦03358 


033 58 OOOOO 


00880 


BETA 


DS 


♦ 02603 


02603 OOOOO 


00890 


TWOZ 


DS 


♦ 30 73 


03073 OOOOO 


00900 


ZERO 


DS 


♦ 02767 


02767 OOQOO 


009 10 


97MF 


DS 


♦03323 


03323 OOOOO 


00920 


98MF 


OS 


♦ 3328 


03328, OOOOO 


00930 


FN 1 


OS 


♦03625 


0362* OOOOO 


00940 


IMSA 


OS 


♦0 2575 


02575 OOOOO 


00950 


SA,VE 


OS 


♦02565 


025 65 OOOOO 


00960 


2PM1 


DS 


♦ 03429 


03429 OOOOO 


00970 


LN10 


OS 


♦02980 


02980 OOOOO 


00980 


RECMK 


OS 


,02403 


02403 OOOOO 


00990 


FH 


OS 


♦ 3308 


03308 OOOOO 


01000 




OEND 1 




00001 



1122 
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1620 FORTRAN 


I 1-0 


RELOCATABLE FLOATING EXPONENTIAL ROUTINE 


00020 




OSA 


FEXP 






00004 00005 -0006 


00030 


FEXP 


TF 


FAC i 


,FEXP-1 


tllli 


LOAD ARGUMENT 00006 20 02492 


OOOON 


000*0 




SM 


•-13 i 


02 


,010 


00018 J2 00005 


000-2 


00050 




TF 


FAC-2 i 


• -25 


till 


00030 20 02490 


OOOON 


00060 




TFM 


BETA , 


i01 


• 10 


00042 16 02603 


000-1 


00070 




TF 


BETA-2 i 


,0NE2+4 




BETA- FT PT ONE (F*4 FORM) 
















00054 26 02601 


03042 


00080 




80 


• ♦20 i 


i FNH 


,0 11, 


ZERO CHECK 00066 M3 00086 


0331L 


00090 




B 


GOBACK-24) 




,0 


00078 M9 00978 


00000 


00100 




OORG 


*-4 






00085 




oo no 




TO 


MU- 1 i 


,FAC-2 


♦ 1 


STORE SIGN 00086 25 03711 


02490 


00120 




C F 


FAC-2 






00098 33 02490 


00000 


00130 




Tp 


79 , 


.ZERO-42 tt 


CLEAR PRODUCT AREA 
















00110 26 00079 


02725 


00140 






FAC 


• LOGE 


1 • 


MULTIPLY BY LOGE 00122 23 02490 


30 10 


001 50 






SAVE ♦ 2 i 


tFAC 


* » 


STORE CHAR 00134 26 02567 


0249 2 


00 160 




Tn 




r FAC*1 


» » 


MOVE RECORD MARK 00146 25 02496 


02493 


001 70 






F AC ♦ 3 i 


i 102MF 


1 lit 


MOVE F*5 DIGITS OF PRODUCT 
















00158 26 02495 


0334L 


00180 




BD 


• ♦48 


i FNH 


,0 11, 


NORMALIZE 00170 M3 00218 


0331L 


00190 




TR 


FNH 


» FH 


,611 


00182 31 0331L 


0330Q 


00200 






SAVE+2 


• 1 


tlO 


00194 12 02567 


000-1 


002 10 




sp 


FNH 




,6 


00206 32 0331L 


00000 


00220 






SAVE* 2 < 


iMF 


t t 


IS CHAR LESS THAN, EQUAL TO -F 
















00218 24 02567 


03473 


00230 




BNh 


GOBACK-24^ 




tO, 


YES- RFSULT IS F L T PT ONE 
















00230 M7 00978 


1 100 


00240 




BV 


* ♦ 1 2 




tO • 


TURN OFF OVFL IND 
















00242 M6 00254 


1400 


00250 




AM 




,00 


tlO. 


IS CHAR ZERO 00254 11 02567 


000-0 


00260 




J~ 






tOt 


YES 00266 M6 00430 


1 200 


00270 




BL 


r a r 

C A L C ♦ 6 8 




• Ot 


inin LCjj in»n unu 
















00278 M7 00498 


1 300 


00280 




CM 


SAVE ♦ 2 


• 02 


t 10, 




000-2 


00 290 




BH 


E 1 2 




tO , 


CHAR GREATER THAN 2, ERROR 
















003 02 M6 01138 


° :ZZ 


00300 




BL 


♦ ♦44 




tOt 


CHAR LESS THAN 2 003 14 M7 00358 


1 300 


00 310 




A 


BE T A 


♦ FH 


tilt 


CHAR IS 2 00326 21 02603 




00 3 20 




TR 


FNHM1 


, FH 


,611, 


ADJUST MANTISSA 003 38 31 0335Q 


0310Q 












tO 


00350 M9 00406 


00000 


00340 




OORG 


• -4 






00357 




00350 




TDM 


FNMM1 


,0 


,611 , 


CHAR IS 1 00358 15 03350 


0000- 


00360 




CF 


FNH 




,6, 


ADJUST MANTISSA 00370 33 0331L 


00000 


00370 




A 


BETA 


t FNH 


til 


00382 21 02603 


0331L 


00380 




TR 


FNH 


• FH 


,611 


00394 31 0331L 


0330Q 


00390 




BV 


E12 




tO* 


OV ON CHAR ADJUST, ERROR 
















00406 M6 01138 


ouoo 


00400 




SF 


FNH 




,610 


00418 32 0331L 


000-0 


004 10 


CALC 


TFM 


*- 1 


,00 


tOlO, 


SET COUNTER EQUAL TO ZERO 
















00430 J6 00429 


000-0 


00420 




CM 


FH 


,34 


,610, 


ARE HIGH ORDER DIGITS OF MANTISSA 



00442 14 0330Q 000L4 
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00430 


BL 


GORD 




,0 , 


LESS THAN 34, IF YES GO TO GORD 














00454 M7 00570 


01300 


00440 


SM 


FH 


,34 


,610, 


SUB 34 FROM HIGH 0«D DIGITS 














00466 12 0330Q 


000L4 


00450 


AM 


CALC-1 


tOl 


,010, 


AQJUST COUNTER 00478 Jl 00429 


000-1 


00460 


B 


CALC+12 




,0 


00490 M9 00442 


00000 


00470 


DORG 


*-4 






00497 




00480 


TFM 


• ♦59 


,FAC 


,07, 


ADJUST MANT|SSA FOR CASE WHEN 














00498 J6 00557 


-2492 


00490 


A 


♦ ♦47 


tSAVE*2 


,0, 


CHAR LESS THAN ZERO, GREATER THAN 












00510 Kl 00557 


02567 


00500 


TF 


FNHM1 


.9SPF-1 


,6, 


MINUS F 00522 26 0335Q 


02853 


00510 


CF 


FNH 




,6 


00534 33 0331L 


00000 


00520 


TF 


FAC 






00546 26 02492 


00000 


00530 


SF 


FNH 




,6 


00558 32 0331L 


00000 


00540 GORD 


TF 


79 


, ZERO-20 




00570 26 00079 


02747 


00550 


M 


FAC 


tLN10-l 


* , 


MULTIPLY ADJUSTED ARGUMENT 














00582 23 02492 


02979 


00560 


SF 


97M2F 




,6, 


BY LN10 00594 32 03361 


00000 


00570 


TF 


SAVE 


, POT 


,11, 


SET SAVE EQUAL PROOUCT 














00606 26 02565 


0333L 


00580 


TF 


FAC + 2 


tPOT 


,11, 


STORE PRODUCT IN FAC 














00618 26 02494 


0333L 


00590 


TFM 


FACT+11 


,02 


,010, 


SET DIVISOR EQUAL 2, DENOTE AS L 












00630 J6 00713 


000-2 


00600 


A 


BETA-2 


, SAVE 




ADD SAVE TO BETA 00642 21 02601 


02565 


00610 


TF 


79 


,ZERO-38 




00654 26 00079 


02729 


00620 


M 


SAVE 


,FAC*2 




MULTIPLY SAVE BV PRODUCT IN FAC 














00666 23 02565 


02494 


00630 


TF 


99 


, 96MF 


,11 


00678 26 00099 


0331Q 


00640 


TFM 


96MF 


,00 


,610 


00690 16 0331Q 


000-0 


00650 FACT 


DM 


97MF 




,6, 


DIVIDE NEW PRODUCT BY L 














00702 19 0332L 


00000 


00660 


BZ 


FACT+36 




,0, 


BR IF QUOTIENT IS ZERO 














00714 M6 00758 


01200 


00670 


TF 


SAVE 


,97 




PUT QUOTIENT IN SAVE 














00726 26 02565 


00097 


00680 


AM 


FACT+11 


tOl 


,010, 


INCREASE L BY ONE 














00738 Jl 00719 


000-1 


00690 


B 


FACT-60 




,0 


00750 M9 00*42 


00000 


00700 


OORG 


• -4 






00737 




00710 


CM 


CALC-i 


,00 


,010, 


QUpTIENT MAS ZERO, IS COUNTER 














00758 J4 00429 


000-0 


00720 


BE 


• ♦80 




,0, 


ZERO, IF YES §R 00770 M6 00850 


01200 


00730 


TF 


79 


, ZERO- 38 




INDICATOR NOT ZERO 














00782 26 00079 


02729 


00740 


M 


BETA-* 


,TIN34 




MULTIPLY BETA BY 10 TO .34 














00794 23 02599 


03278 


00750 


SF 


97M2F 




t6 


00806 32 0336L 


00000 


00760 


TF 


BETA-4 


t'tSMF 


tilt 


STORE PRODUCT IN IETA 














00818 2* 02599 


0332Q 


00770 


SM 


CALC-l 


tOl 


,010, 


DECREASE COUNTER BY ONE 





00810 J 2 00429 000-1 
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00710 




B 


FACT*6B 


» 


•0 


008*2 


M9 


00770 


OOOOO 


00790 




OORG 


•-* 






008*9 








OOiOO 




BNF 


G06ACK-2* 


♦ MU-1 


.0 . 


COUNTER MAS ZERO, MAS ORIGINAL 
















00850 


M* 


00976 


03711 


00110 




TF 


99 


•2BR0-21 


. . 


ARGUMENT NEGATIVE 


















00862 


26 


00099 


027** 


00120 




TF 


ROT 


♦0NIZ*2 


,*t 


YES* FIND RECIPROCAL 

0087* 


26 


0333L 


030*0 


00130 







mo 


.BITA-* 


.6 


00886 


29 


03330 


02999 


ooi*6 




6 V 


•♦** 




fO 


00896 


M6 


009*2 


01*00 


ootso 




TF 


6ETA-6 


•btmf 


,11 


00910 


26 


02597 


0332L 


00160 




SN 


BETA 


.01 


♦ 10 


00922 


12 


02603 


000-1 


00170 




B 


•♦20 


» 


,0 


0093* 


M9 


0095* 


ooooo 


ootto 




OORG 


•** 






009*1 








001*0 




SN 


BETA 


,02 


,10 


009*2 


12 


02601 


000*2 


00900 




BE 


• ♦2* 


t 




0095* 


M6 


00971 


01200 


00910 




$F 


BfTA 






00966 


32 


02603 


OOOOO 


00920 




TF 


FAC-2 


.BETA-6 


. . 


PUT RESULT IN FAC 

00978 


26 


02*90 


02597 


00910 




TF 


FAC 


tBETA 




00990 


26 


02*92 


02B03 


009*0 


GOB AC K 


TON 


GOBACK+37 


.9 


.0. 


NO ERROR 01002 


J5 


01039 


00009 


00950 




TO 


FAC*1 


tRECMK 


» . 


REPLACE RECORD MARK 

0101* 


25 


02*93 


02*03 


00960 




TFM 


FAC** 


fO 


.9. 


REMOVE RECORO MARKS 

01026 


16 


02*96 


00-00 


00970 




6 


FINISH*! 






01036 


49 


0380* 


ooooo 


00960 




TOM 


99 


• 


* . 


SET SIGN POSITIVE 

01050 


|5 


00099 


ooooo 


00990 




BNF 


• ♦56 


tMU-l 


.0 


01062 


M* 


01 1 IB 


03711 


01000 




TFN 


El 


,675 




ERR F5 UNFL IN FEXP 

0107* 


16 


02615 


00073 


01010 




TFM 


FAC 


,*99 


.10. 


FAC IS FL PT ZERO 

01086 


16 


02*92 


OOORR 


01020 




TF 


FAC-2 


•9SPF-1 




01096 


26 


02*90 


02653 


01030 




b 


ERROR 






OHIO 


*9 


03676 


OOOOO 


010*0 




OORG 


*-* 






01117 








01050 




TFM 


El 


• 67* 


♦ 9, 


ERR F* OVFL IN FEXP 

01118 


16 


02615 


0007* 


01060 




8 


OVFLOH 


f 


* . 


FAC IS FL PT NINES 

1 1 30 


*9 


03652 


OOOOO 


01070 




OORG 


*-* 






01137 








oioto 


E 1 2 


TOM 


G0BACKO7 


, 1 


.0, 


SET ERROR BRANCH 01138 


J5 


01039 


00001 


01090 




B 


G0BACKM2 




.0 


01150 


H9 


0101* 


ooooo 


01100 




OORG 


•-* 






01157 








Oil 10 


FAC 


OS 




•02*92 




02*92 


00000 




01120 


BETA 


OS 




•02603 




02603 


00000 




01130 


ONE I 


OS 




,03036 




03038 


ooooo 




011*0 


FNH 


OS 




•0331) 




03313 


00000 




01150 


MU 


OS 




.03712 




03712 


ooooo 




01160 


ZERO 


OS 




.02767 




02767 


ooooo 




1 1 70 


LOGE 


OS 




.03010 




03010 


ooooo 




1 1 80 


SAVE 


OS 




.02565 




02565 


ooooo 




01190 


102NF 


OS 




.013*3 




033*3 


ooooo 
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01200 


FH 


OS 


.03308 


03308 


OOOOO 


01210 


MF 


OS 


.03*73 


03*73 


OOOOO 


01220 


FNHM 1 


OS 


.03358 


03358 


OOOOO 


01230 


9SPF 


OS 


.0285* 


0285* 


OOOOO 


012*0 


LNIO 


OS 


.02980 


02980 


OOOOO 


01250 


97N2F 


OS 


.03363 


03363 


OOOOO 


01260 


POT 


OS 


.03333 


03333 


OOOOO 


01270 


96MF 


OS 


.03318 


03318 


ooooo 


01280 


97NF 


OS 


.03323 


03323 


ooooo 


01290 


TEN3* 


OS 


.03278 


03278 


ooooo 


01300 


98* F 


us 


.0 3326 


03328 


ooooo 


01310 


HNO 


Ob 


.03338 


033 36 


ooooo 


01J20 


RECMK 


us 


•02*03 


02*03 


ooooo 


01J30 


FINI SH 


US 


.03603 


03603 


ooooo 


013*0 


EI 


PS 


•02615 


02615 


ooooo 


01350 


ERROR 


OS 


•03676 


03676 


ooooo 


01360 


OVFLOM 


OS 


.03652 


03652 


ooooo 


01370 




OENO 1 




00001 
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OOO 10 * 


SUBSCRIPTING SUBROUTINE - RELOCATABLE- FOR ONE, 


TWO OR 








000 20* 




THREE DIMENSIONAL SUBSCRIPTED VARIABLES 








00030* 


LINKAGE BTM ENTR Y X , *♦ 1 2 i , WHERE X«l,2 OR 3 










000*0* 




DSA BASE,D*,D1, I ,D2, J,D3,K.0R/M 










00050* 




IF A DDR FLAGGED BASE IS FIXED 










00060* 




IF BASE IS FLAGGED ARRAY IS FORMAL PARAMETER 








00070* 




IF Dl IS FLAGGED - I/O STMN1 










00080 F P 2 


OS 


,3605 


03605 


00000 




00090 K 


OS 


, 2221 


02221 


00000 




00 I 00 


DSA 


ENTRY 1 , ENTR V 2 t ENTR Y 3 


0000* 


00005 -0006 








00009 


00005 -00*2 








0001* 


00005 -0090 


00 1 10 


OORG 


*-9 


00005 








00120 FNTRY1 TFM 


BRINST + 6, L 1 


00006 


JO 


00336 


-0386 


00 130 


TFM 


EX1 T-l, 22, 10 


000 18 


J6 


00*8 1 


000K2 


001*0 


b 


COM 


00030 


M9 


00 1 26 


00000 


00150 ENTRY2 TFH 


BR INST + 6, L2 


000*2 


JO 


00336 


-0362 


00 160 


TFM 


EX! T-l, 32, 10 


0005* 


J6 


00*8 1 


OOOL 2 


00 170 


TF 


ENTRY 1- 1 , ENTR v 2-1 


00066 


KO 


00005 


000*1 


OOIBO 


b 


COM 


00078 


M9 


001 26 


00000 


00190 ENTRY3 TFM 


BR I N S T ♦ 6 , I 3 


00090 


JO 


00336 


-0338 


00200 


TFM 


EX1 T-l ,*2, 10 


00 102 


J6 


00*8 1 


000M2 


002 10 


TF 


ENTRY 1- 1 , ENTRY 3- 1 


00 1 1* 


KO 


00005 


00089 


00220* 


SET LENGTH OF FX OR F L 










00230 COM 


TF 


X ♦ 1 1 ,FP2 


00126 


K6 


00*33 


03605 


002*0 


bNF 


♦♦*8, ENTRY l-l 


00 I 38 


MM 


00 1 86 


00005 


00250 


SF 


COMM 


00 150 


12 


00127 


00000 


00260 


CF 


ENTRY l-l 


00162 


L 3 


00005 


00000 


00270 


TF 


X ♦ 1 I » K 


0017* 


K6 


00*33 


02221 


00280* 














00290* 


MOVE PARAMETERS TO WORK AREA 










00300* 














00310 


TR 


WKAREA , ENTRY 1- 1 , 11 


00186 


3J 


00000 


OOOON 


00320* 














00330 


CF 


Y ♦ 1 1 


00198 


L3 


00**5 


00000 


00340 


BNF 


•♦36, BASE 


0021 


M<, 


002*6 


0000* 


003*5 


CF 


BASE 


00222 


33 


0000* 


00000 


00350 


SF 


Y*l 1 


0023* 


L 2 


00*i 5 


00000 


00360* 


CHECK 


IF IN 1/0 










00370* 














00380 


BNF 


CF IN S T , COM* 1 


002*6 


MM 


00306 


00 12 7 


00390 


CF 


COM* 1 


0025H 


L 3 


00 1 27 


00000 


00*00 


BNF 


CF INST* 1 2, Dl 


002 70 


M *. 


003 1 8 


0001* 


00* 10 


SF 


X*l 1 


0028? 


L 2 


00*33 


00000 


00*20 


TDM 


Y+1,2,, SET OP TO SUBTRACT 


0029* 


J5 


00*35 


00002 


00*30 CFINST CF 


Dl 


00306 


33 


0001* 


00000 


00**0 


S 


HOLD, HOLD 


003 18 


KK 


00508 


00508 


00*50 BRINST 6 


* - • 


00330 


*9 


00000 


00000 


00*60 


OORG 


*-3 


003 38 








00*70* 














00*80 L3 


M 


D3.KK, 11 


003 38 


23 


0003* 


0003R 


00*90 


TF 


HOLD, 99 


00350 


K6 


00508 


00099 


00500 L2 


M 


02, J, 1 1 


00362 


23 


0002* 


0002R 
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005 10 




A 


H0L0,9S 


0037* 


ki oosofl 


0009 9 


00520 


LI 


M 


01,1,11 


00386 


23 0001* 


000 1R 


00530 




A 


HOLD, 99 


00398 


Kl 00508 


00099 


005*0 




A 


HOLD, D* 


00* 10 


Kl 00508 


00009 


00550 


X 


MM 


HOLD,*-*,, MULTIPLY BY LENGTH 


00*22 


J3 00508 


-0000 


00560 


Y 


A 


99, BASE, 11-, 


00*3* 


21 00099 


OOOOM 


00570 




TDM 


*-ll,l,, IN I T OP TO ADD 


00**6 


J5 00*35 


00001 


00580 




SF 


95 


00*,58 


32 00095 


ooooo 


00590 




AM 


ENTRY l-l , *-* 


00*70 


Jl 00005 


-0000 


00600 


EXIT 


B 


ENTRY 1-1 , ,6 


00*82 


M9 OOOON 


ooooo 


006 10 


WKAREA 


DSS 


*2,0 


00000 


000*2 




00620 


HOLD 


DC 


15,0 


00508 


000 15 




00630 


BASE 


DS 


5,* 


0000* 


00005 




006*0 


0* 


US 


5,9 


00009 


00005 




00650 


Dl 


DS 


5 , 1* 


000 1* 


00005 




00660 


1 


DS 


5,19 


00019 


00005 




00670 


D2 


DS 


5,2* 


0002* 


00005 




00680 


J 


DS 


5,29 


00029 


00005 




00690 


D3 


US 


5,3* 


000 3* 


00005 




00700 


KK 


DS 


5,39 


00039 


00005 




00710 




U END 


3 


00003 
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00010* FORTRAN 01 SK 1/0 WITHOUT FLOATING POINT HARDWARE 

00020* THIS SUBROUTINE REQUIRES 13*2 CORE STORAGE POSITIONS 



00030 


I NOUT 


u s 


,631 








006 3 1 


00000 




000*0 


IOERR 


DS 


i632 










nnnnn 
uuuuu 




00050 


check 


US 


t I 270 








01270 


UUUUU 




00060 


1 


DS 


i8 16 








r^l \t 


uuuuu 




00070 


fc f X I T 


U S 


» 1 6 38 










uuuuu 




000 80 


E RR E T 


DS 


i60 2 










uuuuu 




90 


ADR 


D SA 


F I ND 


, R E C OR D 


, F E T C H , 


S NO » DRAY (DIOE NO 


00004 




-0 1 24 
















00009 


00005 


-0 386 




















-0350 
















000 19 


00005 


"0268 
















00024 


00005 


-0064 
















000 29 


00005 


-0322 


00 1 00 




oriRf 


ADR -4 








00000 






n 






7 I 








n°? 


00000 




00 120 


I OR BC 


OS 


' c 

,520 










uuuuu 




00 1 30 


1 OR T 


OS 


i 565 










uuuuu 




00 1 4Q 


1 OSK 


DS 


t 554 








005 5 


uuuuu 




00 1 50 


1 OGT 


DS 


t 566 








00566 


00000 




00 160 


IOPT 


OS 


♦ 532 








005 32 


00000 




00 1 70 


F AC 


DS 


• 2492 








0249 2 


00000 




00 180 


D I ODD A 


DS 


» 3387 








03387 


00000 




00 190 


FIND IN 


OS 


,3583 








035B3 


00000 




00200 


F P 2 


US 


t 3605 








03605 


00000 




002 10 


FKODO 


US 


.3427 








03427 


ooooo 




00220 


PAR 


OS 


. 3378 








03378 


00000 




002 30 


ERROR 


DS 


♦ 36 76 








03676 


ooooo 




00240 


6 I 


US 


.2615 








26 15 


ooooo 




002 50 


F I XEND 


US 


. 3760 








03 76 


ooooo 




00260 


FLTEND 


US 


. 38 10 








038 10 


ooooo 




00270 


FLOAT 


DS 


»40<t2 








04 04 2 


ooooo 




00280 


DKDAT A 


DS 


. 3379 








033 79 


ooooo 




00290 


ZERO 


D S 


. 2700 








02700 


ooooo 




00300 


FIX 


US 


, 3854 








038 54 


ooooo 




003 10 


RECLG 


DS 


,2243 








2 243 


ooooo 




00320 


w 


DS 


, 2240 








02240 


ooooo 




00330 


N2 




,22 38 








02238 


ooooo 




00340 


Ml 


HQ 


, 2233 








C22 33 


ooooo 




00350 


K 


DS 


♦ 2221 








02221 


ooooo 




00 360 


F 


D S 


,2219 








02219 


ooooo 




00370 


CORSIZ 


DS 


, 7376 








07376 


ooooo 




00380* 


















00390 


NOWLC 


DSC 


2,02 








00000 


00002 




00400 




USA 


DIODDA 








00006 


00005 


- 3387 


00410 




DC 


1,4 








00007 


0000 1 




00420 


MYF.R 


BI 


•♦12,3700,, TURN OFF 


WLRC IND 


00008 


M6 00020 03700 


U0430 




bl 


CHECK" 


12, 1900 


,, LET 


IORT HANDLE DISK OVERFLOW 




















00020 


46 12 


58 01900 


00440 




b7 


FE X I T , 


, ,wiRC 


MA S ONL Y ERROR 


000 3 2 


4<* 1638 OOOOO 


00450 




TF 


N1TEHP 


tNl 






0004Q 


K6 00195 02233 


004 60 


TOBB 


b 


DRAY1, 


,0 






00052 


M9 01074 OOOOO 


004 70 


OR AY 


TDM 


TObB*l 


,9,, 




SFT TOBb 


TO BRANCH 
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0006* 


J5 


00053 


00009 


00480 




bD 


EVfcN.FKOUD, , 


TEST FOR fVEN APURES: 
















00076 


M3 


00 588 


03427 


00440 




bD 


Ad A I N , DDABLK+ 1 , , 


BRANCH IF BUFFER 


PROG IN CORE 
















00088 


ML 


00782 


00300 


00500 




TFM 


OSABLK+5, AGAIN 




00 100 


JO 


003 17 


-0782 


005 10 




b 


SWD+12 




00 112 


M9 


00280 


OOOOO 


00520 


F I NO 


TUM 


F IN0lN,0 , , 


SET FIND INDICATOR ON , 


















00124 


15 


03583 


OOOOO 


00530 




TFM 


RETD2+6, SET1 , , 


BRANCH TO COMPUTE ADDRESS 


AND TESTI 












001 36 


JO 


00202 


-0422 


00540* 


N2 


ERROR ROUTINE (1 GR T 


N2> 










00550 


N2CK 


C 


F IND-1 , ZERO, 6, 


IS I ZERO OR NEG 


00 148 


K4 


0012L 


02700 


00560 




BNH 


BE 2 




00 160 


M7 


00 208 


01 100 


00570 




C 


F IND-1 ,N2,6, 


COMPARE 


I AND N2 

00172 


K.4 


0C12L 


02238 


00580 




BH 


BE 2 




00 184 


M6 


00208 


01100 


00590 


RETD2 


B 






00 196 


49 


OOOOO 


OOOOO 


00600 


BUFF AR 


DS 


, * 




00207 


OOOOO 




00610 


BE2 


TFM 


EI ,472,9, 


I GR T N2 


00208 


16 


02615 


00M72 


00620 




TF 


N 1 T EMP , Nl 




00220 


Kb 


00195 


02233 


0063C 




bD 


ERROR , DDABLK , , BR 


IF CK MADE FROM EVEN 


ARRAY PROGRAM 














00232 


<»L 


03676 


00299 


00640 




TFM 


DSAOTR *5 , ERROR 




00244 


J6 


00475 


-3676 


00650 




fa 


SETRMK 




00256 


M9 


00426 


OOOOO 


00660* 
















00670< 




SWD SUBROUTINE 












00680 


b WD A 


TDM 


SWD*9QQ,0 




00268 


J5 


01 168 


OOOOO 


00690 




TFM 


*-ll,41,10 




00280 


J6 


00269 


000M1 


00700 




b 


SWD1 




00292 


M9 


00478 


OOOOO 


00710 




UORG 


*-3 




003 00 








00720* 


SET 


UP LINKAGE FOR 


FLOAT 










00730 


FETCH5 


TF 


FLTEND, IC0N8*5 




00300 


20 


038 10 


01072 


00740 




B 


FLOAT 




00312 


49 


04042 


OOOOO 


00750 




UORG 


*-4 




003 19 








00760 




UORG 


• ♦4 




00322 








00770 


10END 


TFM 


DSAOTR + 5,01 OENO 




00322 


JO 


00475 


-0322 


00780 




BO 


SETRMK, FR1N0, , 


BRANCH IF FETCH 


003 34 


ML 


00426 


00215 


00790 




C 


N 1 T EMP , Nl 




00346 


K4 


00195 


02233 


00800 




BE 


SETRMK,,, 


BRANCH 


IF BUFFER 1 


EMPTY 














00358 


M6 


00426 


01200 


00810 




TFM 


RETD2*6,**20 




00370 


JO 


00202 


-0390 


00820 




B7 


N2CK 




00382 


M9 


00148 


OOOOO 


00830 




TFM 


10RT,* + 23, , 


WRITE BUFFER TO FILE 
















00390 


10 


00565 


-0413 


00840 




B 


IOPT , DKDAT A, 7 




00402 


49 


00532 


-3379 


00850 




AM 


F IND-1, 1,610 




004 14 


Jl 


0012L 


000-1 


00860 


SETRMK 


TD 


SWD*900,DKBUFF*200 


00426 


KN 


0] 168 


01340 


00870 




TFM 


I0RT,I0REF2*ll 




004 38 


10 


00565 


-0513 


00880 




B 


IOGT 




00450 


49 


00566 


OOOOO 


00890 




OORG 


*-4 




00457 








00900 


DOB 


OSC 


1*1 




00457 


00001 




00910 




DSA 


200 




00462 


00005 -0200 



1 140 



FORTRAN Il-D RELOCATABLE LIBRARY SUBROUTINES WITH AUTOMATIC DIVIOE 



00920 




DC 


3,9 




00*65 


00003 




00930 


DSAOTR 


OSA 


SWDtDIOEND 




00*70 
00*75 


00005 -0268 
00005 -0322 


009*0 




DC 


1,4 




00*76 


00001 




00950 


SWD1 


A 


BUFF AR , W, , 


INCREMENT BUFFER ARROW 


00*78 


Kl 


00207 


022*0 


00960 




BD 


F t TCH 1 , F R I NO t t 


BRANCH IF FETCH 


00*90 


ML 


00802 


00215 


00970** 


RECORO 












00980 


I0REF2 


CF 


SWD- 1 • OATBt 7 i 


CLEAR FLAG 


ON ADDRESS OF DATA 












00502 


LL 


00267 


- 1 1 J 1 


00990 




SH 


N1TEMP » 1 1 10 t 


DECREMENT 


WORD COUNT 
















005 1* 


J2 


00195 


non- 1 


01000 




TF 


BUFFAR, SWO-1, 611 


• SENO WORD 


TO BUFFER 
















005 26 


KO 


0020P 


p 


01010 




SM 


BUFF AR ,2 




00538 


J2 


00207 


0002 


01020 




SH 


SWO- 1,2 




00550 


J2 


00267 


-0002 


01030 




TF 


BUFFAR ,SWD-1»6U 




00562 


KO 


0020P 




10*0 




AM 


BUFF AR . 2 




005 7* 


Jl 


00207 


-0002 


1050 


CK 


CM 


NITbMP ,0 , 10 , 


CHECK FOR 


FULL BUFFER 














005 86 


J* 


00195 


000-0 


01060 




uNZ 


TCuw 




00598 


M7 


00052 




01070 




BO 


TOBB-12, FR I NO, , 


BR IF FETCH 


006 10 


ML 


000*0 


002 15 


oioao 




T FM 


L I NKB* 18 » I OP T 




00622 


J6 


00672 


-05 32 


01090 


CK I 


TFM 


RFT02+6, LlNKB 




006 3* 


JO 


00202 




1 100 




b 


N2CK 




006*6 


M9 


00 1*8 


nnnnn 


1 1 10 




OORG 


*-* 




00653 








01120 


L INKB 


TFM 


IORT,**23» , 


CALL CORRECT 10RT 


ROUT I NE 














0065* 


10 


00565 


-067 7 


01130 




B 


, OK OAT A » 7 




00666 


*9 


00000 


- 3 37 9 


011*0 




TFM 


BUFFAR , DKBUFFt 199 


INITIALIZE 


BUFFER 


ARROW 














00678 


JO 


00207 


- 1 3 39 


01150 




S 


BUFF AR-2,RECLG 




00690 


K2 


00205 


022*3 


01160 




BNF 


•♦2*»FRIND 




O0702 


MM 


00726 


00 2 1 5 


01170 




A 


BUFF AR , W 




007 1* 


Kl 


00207 


22*0 


01180 


A0DT01 


AM 


F IND-1 , 1,610 , 


INCREMENT I 


00726 


J I 


0012L 


000 - 1 


1 190 




A 


DIODDA*5,01OODA*8 


INCREMENT 


SECTOR ADDRESS 














00738 


21 


03392 


03395 


01200 




bO 


FETCH2,FR|ND 




00750 


ML 


008*6 


00215 


01210 




b 


TOBB-12 




00762 


M9 


000*0 


00000 


01220 




UORG 


*-* 




00769 








01230 




A 


ORAY-1 ,FP2 




00770 


Kl 


00063 


03605 


012*0 


AGAIN 


TF 


SWO- 1 , OR AY - 1 




00782 


KO 


00267 


00063 


01250 




b 


SWD 




0079* 


M9 


00268 


00000 


1260 




OORG 


*-* 




008 01 








01270 


FETCH1 


C 


N1TEMP ,N1 




00802 


K * 


00195 


02233 


01280 




BNE 


FETCH2, , , 


BRANCH IF 


BUFFER NOT 


EMPTY 














008 1* 


M7 


008*6 


01200 


01290 




TFM 


LlNKB*18,I0GT 




008 26 


J6 


00672 


-0566 


01300 




B 


CK1 




00838 


M9 


0063* 


00000 


01310 




OORG 


*-* 




008*5 








01320 


FETCH2 


SM 


N1TEMP, 1, 10 




008*6 


J2 


00 J95 


000-1 


01330' 




SEND THE WORD TO FAC 












013*0 




TF 


FACBUFFAR, 11 




00858 


20 


02*92 


0020P 


01350 




SM 


BUHF AR , 2 




00870 


J2 


00207 


-0002 
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1360 


TF 


FAC-2, BUFFAR, 11 






00882 


20 


02*90 


0020P 


01370 


AM 


BUFFAR, 2 






0089* 


Jl 


00207 


-0002 


01380 


BI 


*+12, 1*00 






00906 


M6 


009 18 


01*00 


01390* 


TEST FOR FLOATING ADDRESS 


AT SWO-1 












1*00 


BNF 


FETCH3, SWD-1 






00918 


MM 


01012 


00267 


01*10* 


IT 


IS A FIXED ADORESS 














01*20 


CF 


SWD-1 






009 30 


L3 


00267 


00000 


01*30* 


TEST FOR FLOATING WORD IN 


FAC 












01**0 


BNF 


FETCH*, FAC-1 






009*2 


M* 


0102* 


0?*91 


01*50* 


THE WORD IS FLOATING SET I 


UP LINKAGE FOR 


FIX 










01*60 


TF 


F IXEND+6, 1 CON 7*6 






0095* 


20 


03766 


00979 


01*70 


B 


FIX 






00966 


*9 


0385* 


00000 


01*80 


OORG 


*-* 






00973 








01*90 IC0N7 


OC 


1,4 






00973 


00001 




01500 


OSC 


1 t9 






0097* 


00001 




01510 


OSA 


RETFLT 






0097 9 


00005 -0980 


01520 RETFLT 


TDM 


FIXENO+1,2 






00980 


15 


03761 


00002 


01530 


TDM 


FLTENO-5,2 






00992 


15 


03805 


00002 


015*0* 


BRANCH TO STORE NUMBER 














01550 CKLD 


B 


FETCH* 






0100* 


M9 


01024 


00000 


01560 


OORG 


*-* 






01011 








01570 FETCH3 


BNF 


FE TCH5 1 F AC- 1 ♦ » 


BRANCH 


IF FIXED 


















01012 


M* 


00300 


02*91 


01580* 


STORE THE WORD IN MEMORY 














01590 FETCH* 


TF 


SWD-1, FAC, 6 






0102* 


K6 


0026P 


02*92 


01600 


SM 


SWD-1,2 






01036 


J2 


00267 


-0002 


01610 


TF 


SWD-1, FAC-2, 6 






010*8 


K6 


0026P 


02*90 


01620* 


CHECK FOR EMPTY BUFFER 














01630 


B 


CK 






01060 


M9 


00586 


00000 


01640 


DORG 


*-* 






01067 








01650 ICONS 


OC 


1,9 






01067 


00001 




01660 


OSA 


RETFLT 






01072 


000 05 -0960 


01670 DRAY 1 


SM 


PAR, 1, 10,, 


DECREMENT 


WORD COUNT 
















01074 


12 


03378 


000-1 


01680 


BNZ 


♦ ♦1* 






01086 


M7 


01100 


01200 


01690 


BB 








01098 


42 


00000 


00000 


01700 


DORG 


*-9 






01100 








01710 


BNF 


AGAIN-12.DRAY-1 






01100 


MM 


00770 


00063 


01720 


S 


OR AY- 1 » K 






01112 


K2 


00063 


02221 


01730 


B 


AGAIN 






01124 


M9 


00782 


00000 


017*0 


OORG 


• -4 






01131 








01750 DATB 


DSC 


2,-00 






01131 


00002 




01760 


OSA 


DOB 






01137 


OOOOS -0457 


01770 


OC 


i,a 






01138 


00001 




01780 OKBUFF 


OS 


,DATB*9 






01140 


00000 




01790* 


















01800* 


















01810* 


WRITE 2ND BLOCK 














01820* 


















01830 LD1RD 


OSC 


2,00 






01139 


00002 




01840 


OSA 


0IM1 






01145 


00005 -1147 


01850 


OC 


lti 






0)1*6 


00001 




01860 0IM1 


OSC 


1*1 






01147 


00001 
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01S70 




DSA 


209 






01152 


00005 -0209 


018B0 




DC 


3,9 






01155 


0000 3 


01890 




DSA 


SWD 






01160 


00005 -0268 


01900 




OC 


It*. 






01161 


00001 


01910 




OORG 


SW0A*902 






01170 




01920 


STL 1 


TDM 


DKBUFF*200 ,0 






01 170 


J5 013*0 00000 


1930 




UGM 


* 






01181 


00001 


01940 




TO 


SWD*900,DKBUFF*200 






01182 


KN 01168 013*0 


01950 




CF 


ICON7*2 






0119* 


L3 00975 00000 


01960 




CF 


IC0N8+1 






01206 


L3 01068 00000 


01970 




TFM 


10RT,**23 






01218 


10 00565 -12*1 


01980 




B 


I0PT,LD1RD,7 






01230 


*R 00532 -1139 


01990 




TRA 








012*2 


10 00565 -1261 














0125* 


*9 00716 00000 














01261 


00002 2K 














01263 


00005 -1269 














01268 


ooooi a 














01269 


00006 1J9783 














01275 


00003 -03 














01278 


00006 -ooooa 


02000 




TCD 


STLD1 






01170 




020 10* 
















02020* 




BLOCK 1 OF FETCH FIND 


RECORD 








02030 




DORG 


SWOA 






00 268 




020*0 


swo 


TFM 


DSABLK*5»SWD 






00268 


JO 00317 -0268 


02050 




TFM 


IORT, I0REF*11 






00 28 


10 00565 -0623 


02060 




B 


IOGT 






00292 


*9 00566 00000 


02070 




DORG 


*-* 






00299 




02080 


OOABLK 


DSC 


1.1 






00299 


00001 


02090 




DSA 


209 






003 0* 


00005 -0209 


02 100 




DC 


3.9 






00307 


00003 


021 10 


OSABLK 


DSA 


SWD.SWD 






003 I 2 


00005 -0268 














003 17 


00005 -0268 


02120 




uc 


1.0) 






003 18 


0000 1 


02 1 30 




DORG 


IOEND 






00322 




021*0 


010EN0 


Bl 


♦♦12. 1*00 






00322 


M6 0033* 01*00 


02 150 




bB 








003 3* 


*2 00000 00000 


021 60 




DORG 


*-9 






00336 




02170 


DAT 1 


DSC 


2,-00 






003 36 


00002 


02180 




DSA 


DDABLK 






003*2 


00005 -0299 


02190 




DC 


ltd 






003*3 


00001 


02200 




OS 


5 






003*8 


00005 


022 10 


FETCH 


TF 


FINO-l.FETCH-l, , 




TRANSFER i 


[ 00350 


KO 00123 003*9 


02220 




TDM 


FRIND.1,11, SET 


FETCH- 


RECORD INDICATOR TO 


FETCH 














00362 


J5 00215 OOOOJ 


02230 




b 


AITEST, , , 


BRANCH TO SET 


FIND INOICATOR OFF , 














0037* 


M9 00*10 00000 


022*0* 






COMPUTE ADDRESS 1 


, TEST I , 


, AND TEST 


02250* 






FOR DEFINE STATEMENT . 




02260 


RECORD 


TF 


F IND-1 ,RECORD-l , , 




TRANSFER ! 


I 00386 


KO 00123 00385 


02270 




TDM 


FRIND.O ,, 


SET 


FETCH-RECORD INDICATOR TO RECRD 














00398 


J5 00215 00000 


02280 


AI TE ST 


TDM 


F1NDIN,!,, 


SET 


F IND INDICATOR OFF 
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02290 


SET 1 


TFM 


DIODDA+5. 218 , , 


02300 




M 


F IND-1 .RECLG.6, 


02310 




A 


OIODDA+5,99 


02320 




BO 


*♦** , F I NDI N» » Bl 


02330 


SSEEK 


TFM 


10RT,**23 


023*0 




B 


IOSK , DK DATA, 7 » 


02350 




B 


DIOEND 


02360 




DQRG 


*-3 


02370 




TFM 


BUFF AR , DKBUFF* 199 * , 


02 380 




S 


BUFFAR-2.RECLG 


02390 




TF 


N1TEMP .Nl . . 


02*00 




TF 


DIQD0A*8,RECIG,, 


02*10 




TFM 


DIODDA* 13, DKBUFF+200 i , 


02*20 




S 


DIODDA* il.RECLG, , 


02*30 


OVER 


TDM 


T0BB*1,2,, 


02**0 




BB 




02*50 




DORG 


*-9 


02*60 


EVEN 


TF 


TEMPA,FP2,» 


02*70 




BNF 


* + 36,0RAV-l, , 


02*80 


IOREF 


CF 


DR AY- 1, DAT 1,7 


02*90 




TF 


TEMP A , K , , 


02500 




TF 


DI0DDA+13.DRAY-1, , 


02510 




AM 


D!Q0DA*13tl 


02520 




S 


D10DDA-U3.TEMPA, , 


02530 




TF 


EVENi*ll.0I0DDA*13 


025*0 




M 


TEMP A, PAR 


02550 




SF 


95 


02560 




A 


EVENlt.ll, 99 


02570* 






0*980* 








CARRY 


LM 


tVCNl*U»0 


02600 




t»NE 


•♦2* 


02610 




TFM 


EVEN1*11,0 


02620* 






02630 




AM 


97,1 ,9, ADD ONE FOR I 


026*0 




TO 


•♦23.RECLG 


02650 


8012 


§0 


0VER3.251,, BRANCH IF 


02660 




TO 


•♦23t97 


02670 




BO 


•*2*,210,, BRANCH IF 



00*10 15 03583 00001 
SET SECTOR ADDRESS IN DDA 

00*22 16 03392 -0218 
COMPUTE ADDRESS OF FILE RECORD 

00*3* K3 0012L 022*3 

00**6 21 03392 00099 

BRANCH IF NOT FIND 00*58 M3 00502 03583 

00*70 10 00565 -0*93 
TRANSFER TO IORT TO SEEK 

00*82 *9 0055* -3379 

00*9* M9 00322 00000 
00502 

INITIALIZE BUFFER ARROW 

00502 JO 00207 -1339 

0051* K2 00205 022*3 

00526 K6 00195 02233 
STORE .RECORD LENGTH IN DDA 

00538 26 03395 022*3 
STORE ADORESS OF BUFFER 

00550 10 03*00 -13*0 

SUB LENGTH OF RECORD TO GET FIRST COR 

00562 22 03398 022*3 
INITIALIZE BRANCH BACK 

0057* J5 00053 00002 

005 86 *2 00000 00000 
00588 

STORE FLOATING LENGTH IN TEMP A 

00588 K6 00171 03605 
BRANCH IF FLOATING ARRAY 

00600 MM 00636 00063 

00612 LL 0006 3 -0336 
STORE FIXED LENGTH IN TEMP A 

0062* K6 00171 02221 
STORE ADORESS OF FIRST ELEMENT 

006 36 20 03*00 00063 
006*8 11 03*00 -0001 

HIGH ORDER POSITION OF ARRAY 

00660 2K 03*00 00171 

00672 K6 00919 03*00 

0066* K3 00171 03371 

00696 32 00095 QOOOO 

00708 Kl 00919 00099 
f VALUATE A NO STORE LOW ORDER 
POSITION ♦ 1 OF ARRAY 

007 20 J* 00919 -0000 
00732 M7 00756 01200 
0074* J6 00919 -0000 

EVALUATE SECTOR COUNT 

ROUP NARK 00756 11 00097 00-01 

0076S K5 007*1 0224) 

RECLG IS I 00780 M3 00828 00291 

00792 K5 00815 00097 
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008 04 


MJ 


008 28 


00210 


02680 




AM 


97 » 1 1 10 




00816 


1 1 


00097 


000-1 


02690 


0VER3 


TF 


DlODDA+8,97,. 


SET UP SECTOR COUNT 


008 28 


26 


03395 


00097 


02700 




BD 


0VER2.BD1 2*11, 


1 1 


00840 


ML 


00864 


0079J 


02710 




MM 


DlODDA+8, 50, 10 




00852 


13 


03395 


OOONO 


02720 


OVER 2 


A 


FIND-1 ,97,6, 


ADD NUMBER OF RECORDS TO 


1 00864 


Kl 


0012L 


00097 


02730 




SM 


FINO-l, 1.610 




00876 


J2 


0012L 


000-1 


02740 




TFM 


RET02*6t»*20 




00688 


JO 


00202 


-0908 


02750 




B 


N2CK 




009 00 


M9 


00148 


00000 


02760 




OORG 


• -<, 




00907 








02770 


EVEN! 


TO 


EVEN2+11 




00908 


K5 


0099 1 


00000 


02780 




BO 


FETCH8 ,FRIND» i 


BRANCH IF 


FETCH 
00920 


ML 


01018 


00215 



02790* 
02800 

02810* 

02820 
02830 
02840 

02850 EVEN2 



RECORD 
TD EVEN 1 < 



02860 
02870 

02880 
02890 

02900 FETCH8 



TFM 

B 

TDM 
TOM 

AM 



BB 

DORG 
TFM 



1 1 , DKBUFF*200 ,6, SET GROUP MARK AT END OF ARRAY 

00932 *N 0091R 01340 
WRITE ARRAY ONTO F I L E 

00944 10 00565 -0967 
00956 4R 00520 -0000 
00968 15 03805 00002 
RESTORE DIGIT 

00980 J5 0091R 00000 
00992 Jl 0012L 000-1 
, INCREMENT SECTOR ADDRESS 

01004 21 03392 03395 
01016 42 00000 00000 
01018 

INSERT ADDRESS FOR ERROR ENTRY 



IORT,**23 
IORBCNOWLC .7 
FLTEND-5,2 
EVEN1*11,,6. 

FIND-1, 1,610 
0I000A*5,DI0DDA*8t 



010*35, YTURN, 67, 









01018 10 


0085J 


-1124 


02910 


TFM 


IORT,**23, , 


READ ARRAY FROM FILE 
01030 10 


00565 


-1053 


02920 


B 


IOGT , DKDATA, 7 


01042 49 


00566 


-3379 


02930 


T FN 


1N0UT,CHECK-12, .RESTORE 


SPECIAL IORT ERROR EXIT 

01054 16 


00631 


-1258 


02940* 






TEST FOR NO GROUP MARK 






02950 


BNG 


•♦20 , EVEN I* 1 1.11 


01066 NN 


01086 


009 1R 


02960 


B 


EVEN2 


01078 M9 


00980 


00000 


02970 


DORG 


*-4 


01085 






02980 


TF 


FLTEND,EVENSP*6 


01086 20 


038 10 


01123 


02990 


TFH 


EI ,473,9 


01098 16 


02615 


OOM73 


03000 


b 


ERROR 


01110 49 


03676 


00000 



03010 

03020 EVENSP 

03030 

03040 

03050 Y TURN 

03060 

03070 

03080 
03090 
03100 

03110 TEMPA 



DORG 

DC 

OSC 

DSA 

BI 

BNI 

TFH 



1,4 
1.9 

EVEN2-12 
•♦12.3700,, 
ERRET, 1900 , 
I NOUT , MY ER , 



B IOERR,,, L 

OORG *-4 
DORG SWD^902 
OS 2,N2CK^23 



01117 

01117 00001 

01118 00001 
01123 00005 -0968 

TURN OFF WLRC I ND 01124 M6 011 36 03700 

, GO ON IF NO OTHER ERROR 01136 47 00602 01900 

, SET UP SECOND IORT ERROR EXIT 

01148 10 00631 -0008 

r IORT CHECK ANY OTHER ERRORS 01160 49 00632 00000 

01167 

01170 

00171 00002 
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03120 N1TEMP 

03130 FRIND 

03140* 

03150* 

03160 DIM2 

03170 

03180 

03190 

03200 

03210 LD2ND 

03220 

03230 

03240 STLD2 

03250 

03260 

03270 

03280 

03290 

03300 



OS 2.RETD2-1 
OS 1.BE2+7 

WRITE FIRST BLOCK 



00195 00002 
00215 00001 



DSC 

DSA 

OC 

DSA 

DC 

DSC 

DSA 

DC 

CF 

DGM 

TD 

AM 

TFM 



1*1 
200 
3,9 
SWD 

i,a 

2,00 
DIM2 
1,4 

EVENSP*2 
SWD^900 

CARRY^7,CORSI2 
C ARR Y ♦& , 10, 10 
IORT,*+23 
IOPT . LD2ND, 7 . 



WRITE OUT 2ND PART BLK 1 



033 10 
03320 



TCD STL02 
DEND 6 



01170 
01175 
01178 
01183 
01 184 
01185 
01191 
01192 
01194 
01168 
01206 
01218 
01230 
01242 
01254 
01266 
01273 
01275 
01280 
01261 
01287 
01290 
01194 
00006 



00001 

00005 -0200 
00003 

00005 -0268 

00001 

00002 

00005 -1170 

0000 I 

L3 01119 00000 
00001 

K5 00727 07376 
Jl 00728 OOOJO 
10 00565 -1253 
4R 00532 -1185 
10 00565 -1273 
49 00716 00000 

00002 2K 

00005 -1281 

00001 d 

00006 1J9783 

00003 -03 
00006 -00008 
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000 


1420 FORT A AM 


11-0 


RELOCATABLE SINE A MO COSINE ROUTINES 




UQwW»* 


C0SIXI • 1 . 


11442) /I ♦ (X4441/24 - (X»*4 1/720 ♦ 




00010***« 


SINiA) • COS(P!V02 • 


• A) 






00040 


0SA 


FCOStFSIM 






00004 00005 -0004 












00009 00005 -0042 


00050 


00RG 


*-4 






00005 




00040 FCQS 


TOM 


CLF*11 


♦ 


tOt 


SIT ROUTINE FOR COSINE 














00004 J5 00185 


00000 


00070 


TP 


FS1M-1 


t'COS-1 


,01, 


LOAO AOORESS OF ARGUMENT 














00018 KO 00041 


00005 


00080 


• 


FS1M*12 


i 


,0 • 


00030 M9 00054 


00000 


OOOVO rJIM 


TOM 


CLF*U 


,1 


,011, 


SET ROUTINE FOR SINE 














00042 J5 00185 


OOOOJ 


00 100 


TF 


FAC 


.FSIN-1 


,111, 


LOAO ARGUMENT 00054 20 02492 


0004J 


001 10 


SM 


FSIM-l 


,02 


(010 


00044 J2 00041 


000-2 


00 1 20 


TF 


FAC-2 


.FIIM-1 


,111 


00078 20 02490 


0004J 


00 1 30 


IMF 


• ♦34 


• CLF*U 


tOlt 


BRANCH IF COS 00090 MM 00124 


00185 


00140 


C 


FAC 


»MFOV2 




00102 24 02492 


03744 


00190 


8NH 


FIN! SH*1 


t 




BRANCH IF ANS • - ARG. 














00114 47 03804 


01100 


00140 


CF 


FNM 


f 


,4, 


CLEAR HIGH OROER FLAG 














00124 33 0331L 


00000 


00170 


TOM 


FNHM1 


fO 


.611, 


SET FLAG AT HIGH ORDER DIGIT -1 














00138 15 03350 


0000- 


00110 


TOM 


CLF*10 


.1 


,0, 


SET SWITCH ARG POSITIVE, RESULT 


P0$ 












00150 J5 00184 


00001 


00190 


8MF 


• ♦48 


♦FAC-2 


,0, 


IS ARG NEGATIVE 00142 M4 00210 


02490 


00200 ClF 


CF 


FAC-2 




,9, 


YES, REPLACE BY ABSOLUTE VALUE 














00174 33 02490 


00-00 


002 10 


8MF 


• ♦24 


iCLFMl 


,01, 


IS ROUTINE SINE OR COSINE 














00184 MM 00210 


00185 


00220 


TOM 


CLF + 10 


,o 


tOi 


SINE, S1N(-A)--SIN<A), RESULT NEG 












00198 J5 00184 


00000 


00230 


TF 


IMSAPF 


*9SPF^1 


,4, 


IMSAPF • F*2 ZEROS 














00210 24 03290 


02855 


00240 


CM 


FAC 


,00 


,10* 


CHECK SIGN OF CHARACTERISTIC 














00222 14 02492 


000-0 


00250 


BNL 


POZEXP 


» 


,0, 


BR IF POSITIVE, EQUAL TO ZERO 














00234 M4 00744 


01300 


00240 


C 


FAC 


,MF 


» » 


COMPARE CHAR TO -F 














00244 24 02492 


03473 


00270 


8L 


880 


» 


tOi 


BR IF CHAR LESS THAN -F 














00258 M7 00304 


01300 


00280 


TFM 


•♦35 


,FAC-1 


,07, 


ADJUST MANTISSA (IN IMSAPF) FOR 














00270 J4 00305 


-2491 


00290 


A 


• ♦23 


,FAC 


tOi 


CHAR GREATER THAN OR EQUAL TO -F 














00282 Kl 00305 


02492 


00300 


A 


IMSAPF 




,6, 


ANO LESS THAN ZERO 














00294 21 0329Q 


00000 


00310 BAD 


80 


• ♦24 


tUF^U 


tOli 


BR IF ROUTINE IS SINE 














00304 ML 00330 


00185 


00320 


A 


IMSAPF 


,PI0V2 


,4, 


ADO PI0V2, COS(A) - SIN(PI0V2-A) 





00318 21 0329Q 03143 
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00330 




S 


IMSAPF 


iTWOPI 


,4, 


REDUCE ARGUMENT TO PRINCIPAL VALUE 














003 30 22 0329Q 


03103 


00340 




8H 


•-12 


» 


,0, 


RANGE, MINUS P10V2 TO POS P10V2 
















00342 M6 00330 


01100 


00350 




SF 


IMSA-1 






SET HIGH ORDER FLAG 
















00354 32 02574 


00000 


00340 




A 


IMSAPF 


,PI 


,6 


00364 21 0329Q 


03133 


00370 




BN 


•♦34 




,0, 


BR ARG NEGATIVE 00378 M7 00414 


01300 


00380 




SM 


CLF^IO 


,01 


,010, 


SET SIGN OF RESULT 
















00390 J2 00184 


000- 1 


00390 




SF 


IMSAPF 


f 


,6, 


SET SIGN ON ARGUMENT TO MINUS 
















00402 32 0329Q 


00000 


00400 




A 


IMSAPF 


,PI0V2 


,6, 


ADD P10V2, SINIA)- C0S(PI0V2-A) 
















00414 21 0329Q 


03163 


00410 




TF 


79 


, ZERO- 40 




CLEAR PROOUCT AREA 
















004 26 26 00079 


02727 


00420 




M 


IMSAPF 


, IMSAPF 


,611, 


F1N0 A»»2 00438 23 0329Q 


0329Q 


00430 




TF 


IMSAPF 


(9BMF 


,611, 


PUT RESULT IN IMSA+F 
















00450 26 03290 


0332Q 


00440 




SF 


IMSA-1 




t t 


SET HIGH OROER FLAG 
















00462 32 02574 


00000 


00450 




TF 


FAC 


♦0NEZ*2 


1 1 


FAC * 1 IP*2 DIGITS) 
















00474 26 02492 


03040 


00440 




TR 


A A 8- 3 


t AABS-B 


tOi, 


SET COUNTERS, AB - 2 FACTORIAL 
















00486 LJ 00957 


009*4 


00470 


OVER 


TOM 


SUMfl 


,2 


,0, 


SET SUM TO SUBTRACT 
















00498 J5 00571 


00002 


00480 




TF 


99 


»98MF 


,11, 


SHIFT PROOUCT 00510 24 00099 


03I2Q 


00490 




TFM 


97MF 


,0000 


,68 


00522 14 0332L 


0-000 


00500 







98MF 


» AB 


,16, 


IV IDE BY AB 005 34 2R 0332Q 


009*4 


00510 




BZ 


DONE 


• 


tO 


00544 M4 0049B 


01200 


00520 




TF 


SAVE 


t9$ 


,10, 


STORE QUOTIENT 00558 24 02545 


000*5 


00530 


SUM 


S 


FAC 


t SAVE 




SUBTRACT QUOTIENT FROM FAC 










AAB-2 






00570 22 02492 


02549 


00540 




AM 


,02 


,010, 


AB CONTAINS K FACTORIAL 
















00582 Jl 0095B 


000-2 


00550 




AM 


AAB 


,02 


,010, 


FIND K+2 FACTORIAL M0D1FIE0 FOR 
















00594 Jl 009*0 


000-2 


00540 




M 


AAB 


t AAB-2 


,01, 


PROOUCT DEVELOPMENT, PUT IN At 
















00404 KL 00940 


0099B 


00570 




TF 


A8 




,0 


00416 K4 00944 


00099 


00580 




TF 


79 


•ZfRO-12 




004 30 24 00079 


02T99 


00590 




M 


IMSAPF 


***** 


,6, 


MULTIPLY ARG BY QUOTIENT 
















00442 23 0329Q 


029*5 


00400 




c* 


SUM* I 


.9521 


tOBi 


AOO OR SUBTRACT AT SUM 
















00*54 J4 00571 


OR 921 


00410 




BE 


OVER 


» 


,0, 


SUBTRACT 00*** M4 00448 


01200 


00420 




TDM 


SUN* I 


• 1 


•Of 


SIT SUM TO ADO 00*78 J5 00971 


00001 


00430 




8 


0VEft*l2 


t 


.0 


00*90 M9 OOflO 


ooooo 


00440 




OORG 


4-4 






00*97 




00450 


OONE 


C 


PAC-1 


.♦SM 


• » 


COMPARE RESULT TO ZERO 
















00*9* 24 02441 


01094 


00440 




BE 


ZERPAC 


t 




EQUAL « AfSUiT - ZERO 
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Q0710 


46 035B4 


01200 


00670 




TFM 


SAVE 


,01 


,10, 


SET UP CHARACTERISTIC OF RESULT 
















00722 


16 02565 


000-1 


00680 




BO 


NORM72 


»CLF* 10 


,0 1 , 


SET UP SIGN OF RESULT 


















0073* 


ML 00926 


00184 


00690 




S F 


99 






BR TO NORMAL 1 Z AT ION 


















00746 


32 00099 


00000 


00700 




g 


NORM72 




iO 


00758 


M9 00926 


00000 






DORG 








00765 








POZEXP 






_ 


* ' 


COMPARE CHAR TO F 


















00766 


24 02492 


02219 


00730 




BH 


fc9 


• 


<Q i 


BR TO E9 IF GREATER 


















0077S 


M6 00834 


01100 


00 740 




TF 


* ♦ 30 


« 1 SPFM1 


• , 


ADJUST MANTISSA (IN IMSAPF I FOR 
















00790 


X6 00120 


03303 


00 750 




& 


• ♦ 18 


i FAC 


1 , 


CHAR GREATER THAN OR EQUAL TO ZERO 














00802 


K2 00B20 


02492 


00760 








» F AC-2 


t • 


A NO LESS THAN OR EQUAL 


TO F 
















00814 


26 00000 


02490 


00770 




B 


BR D 




,0 


008 26 


M9 00306 


00000 


00780 




UORG 


*"* 






00833 








E9 






iO 


1 1 


SET SIGN 008 34 


15 00099 


00000 


00800 




TFM 


c I 


,471 


i9, 


SET ERROR Fl, LOSS OF SIGNIFICANCE 














00846 


16 02615 


00071 




nkinci n 
U NO r L u 


TFM 


F AC 


t **99 


1 10 1 


IN FCOS OR FSIN, FAC - 


ZERO 
















00858 


16 02492 


OOORR 


00820 




y p 


F AC-2 


,9SPF- 1 




00870 


26 02490 


02853 








ERROR 






00882 


49 03676 


00000 


nnittn 




DQRG 








00889 










TR 


FNM 


t FH 


1 41 1 1 


LEFT SHIFT ONCE 00890 


31 0331L 


0330Q 


00860 




TOM 


FAC-1 




* * 


SET LAST DIGIT TO ZERO * 
















00902 


15 02491 


00000 


00870 




SF 


FNH 


• 


♦ *» 


00914 


32 0331L 


00000 


00880 


NORM72 


BD 


F I N I SH 


• **** 


,411, 


TEST LEAOING ZERO 


















00926 


43 0380L 


0331L 


00890 




SM 


SAVE 


• 1 


1 10, 


SUBT ONE FROM EXPONENT, 


















00938 


12 02565 


000-1 


00900 




B 


N0RM36 


♦ 


,0 


009 3 


M9 00890 


00000 


00910 




UORG 


*-4 






0095? 






00920 


AAB 


OS 








00960 


00004 








OS 








00964 


00004 




00940 




OS 








00965 


00001 




00950 




oc 


2,01 






009&7 


0000 2 




00960 




DC 


2,0* 






00969 


00002 




00970 


AABS 


OC 


5,0002a 






00974 


00005 




00980 


F AC 


DS 




,02492 




024 «?2 


00000 




00990 


FNM 


OS 




,03313 




03313 


00000 




01000 


FNHMl 


DS 




,03358 




033*58 


00000 




01010 


INSAPF 


OS 




,03298 




03298 


00000 




01020 


9SPF 


OS 




,02854. 




02854 


00000 




01030 


MF 


OS 




,03473 




03473 


00000 




01040 


PI0V2 


OS 




,03U3 




Q3S.A3 


00000 




01050 


TWOPI 


OS 




,03103 




03 103 


00000 
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01060 


IMSA 


OS 


,02575 


02??5 


00000 


01070 


PI 


OS 


,03133 


031 33 


00000 


01080 


ZERO 


OS 


,02767 


02767 


00000 


01090 


98MF 


OS 


,03328 


03329 


00000 


01100 


97MF 


OS 


,03323 


03323 


00000 


onio 


SAVE 


OS 


,02165 




00000 


01120 


ZERFAC 


OS 


,03584 


03584 


00000 


01130 


F 


DS 


,02219 


02219 


00000 


01140 


ISPFM1 


OS 


,03303 


03303 


00000 


01150 


EI 


OS 


,02615 


026 15 


00000 


01160 


ERROR 


DS 


,03676 


03676 


00000 


01170 


FM 


OS 


,03308 


03308 


00000 


01180 


FINISH 


OS 


,03803 


03803 


00000 


01190 


ONEZ 


DS 


,03038 


03038 


00000 


01200 


MF0V2 


DS 


,03746 


03746 


00000 


01210 




OENO 2 




00002 
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000 www 


1620 FORTRAN 


II-D 


RELOCATABLE FLOATING ARCTANGENT ROUTINE 




00020**** 


ARC TAN (X ) • X 


1 - (X**3l/3 ♦ 


IX*»5)/5 - <X**7)/7 ♦ ., 








00030 




OSA 


FATN 






00004 


00005 -0006 


00040 


FATN 


TF 


FAC i 


FATN-1 


till. 


LOAD ARGUMENT 00006 


20 


02492 


OOOON 


oooso 




SM 


•-13 i 


02 


,010 


00018 


J2 


00005 


000-2 


00060 




TP 


FAC-2 . 


• -25 


,111 


00030 


20 


02490 


OOOON 


000T0 




BO 


♦♦20 , 


FNM 


,011, 


IS ARG ZERO 00042 


M3 


00062 


0331L 


00080 




B 


ZERFAC i 




1 1 


YES 00054 


49 


03584 


00000 


00090 




OORG 


*-4 






00061 








00100 




TFM 


TESUll , 




♦ 08, 


RESET INDICATORS 00062 


J6 


00097 


0-000 


oo no 




BNF 


TEST*?.* , 


!FAC-2 


,0, 


BR IF ARG NEGATIVE 

00074 


M4 


00110 


02490 


00120 


TEST 


SF 


•♦9 , 




,0, 


SET INDICATOR. ARG NEG 
00086 


L2 


00095 


00000 


00130 




CF 


PAC-2 i 




i , 


ARG > ABS ARG 00098 


33 


02490 


00000 


00140 




CM 


FAC i 


,00 


,10, 


IS CHAR OF ARG 00110 


14 


02492 


000-0 


00150 




BH 


TESTl*20 , 




,0, 


POSITIVE 00122 


M6 


00894 


01100 


00160 




BE 


AIPH*I2 , 




,0, 


EQUAL ZERO 00134 


M6 


00290 


01200 


00170 




M 


• ♦35 • 


!f 


,0, 


NEGATIVE 00146 


*3 


00181 


02219 


00110 




SM 


9B ( 


05 


,10, 


FIN0-.5(F-1) 00158 


12 


00098 


000-5 


00190 




SF 


97 , 


50 


,10 


00170 


32 


00097 


OOONO 


00200 




TF 


♦ ♦23 i 


,97 


,0 


0018 2 


K6 


00205 


00097 


00210 




CM 


FAC i 




» f 


IF CHAR OF ARG IS 

0019* 


14 


02492 


-0000 


00220, 




BL 


EDO i 




,0, 


LESS THAN ~.S(F-1),BR 

00206 


M7 


0)118 


01300 


00230 




TFM 


ALPM-1 , 


PAC-2 


,07, 


SET UP ADJUST MANTISSA 
00218 


J6 


00277 


-2490 


00240 




A 


ALPH-1 , 


FAC 


,0, 


00230 


Kl 


00277 


02492 


00250 




TF 


FNHM1 , 


»9SPF-1 


,6 


00242 


26 


03350 


02853 


00260 




CP 


FNM , 


i 


,6 


00254 


33 


0331L 


00000 


00270 




TF 


FAC-2 < 




1 1 


ADJUST MANTISSA 00266 


26 


02490 


00000 


00280 


ALPH 


SF 


FNH , 




,6 


00278 


32 


0331L 


00000 


00290 




CM 


FH , 


^29 


,610, 


, COMPARE HI ORO MANTISSA DIGITS 
















00290 


14 


03300 


000K9 


00300 




BL 


•♦132 , 




,0, 


TO 29, IF LESS THAN 29 
00302 


BR 
M7 


00434 


01300 


00310 




TF 


97 , 


»9SPF-1 




00314 


26 


00097 


02853 


00320 




MM 


FAC-2 ( 


,06 


.10, 


FIND 1.6 TIMES MANTISSA 


















00326 


13 


02490 


000-6 


00330 




TOM 


98 MF , 


,1 


.611 


003 38 


15 


03320 


OOOOJ 


00340 




S 


FAC-2 . 


>SIX 




FIND MANTISSA MINUS .6, 


, PUT IN FAC 














00350 


22 


02490 


03219 


00350 




TF 


BETA , 


,99 


» > 


STORE 1.6 MANTISSA IN BETA 
















00362 


26 


02603 


00099 


00360 




TF 


79 , 


iZERO-42 


00374 


26 


00079 


02725 


00370 




LO 


98MF , 


FAC-2 


.6, 


FIND (FAC-.6 ) /< 1.6 X MANTISSA) 
















00386 


28 


0332Q 


02490 


00380 







HNO i 


BETA 


.6 


00398 


29 


0333Q 


02603 


00390 




TF 


FAC-2 . 


,97MF 


,11. 


PUT QUOTIENT IN FAC 

004 10 


26 


02490 


0332L 


00400 




SF 


TEST*11 , 


i 


.0, 


SET INDICATOR, HI ORO GREATER 29 














004 22 


L2 


00097 


00000 
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00410 


TF 


79 


.ZER0-44 




00434 26 00Q79 


02723 


00420 


M 


FAC-2 


.FAC-2 


, . 


SQUARE FAC MANTISSA 














00446 23 02490 


02490 


00430 


TF 


SAVE 


,P0T 


,11. 


STORE IN SAVE 00458 26 02565 


03331 


00440 


TF 


BETA 


,9SPF 


, . 


BETA IS F+l ZEROS 














00470 26 02603 


02854 


00450 


TF 


ATNl+35 


.2FM1 


,0, 


SET DIVISOR EQUAL 2F-1, DENOTE AS W 












00482 K6 00541 


03429 


00460 


TF 


ALPM+11 


,FM1 


.0. 


SET COUNTER EQUAL F-l 














00494 K6 00289 


03625 


00470 ATN1 


TF 


99 


,ZER0-47 




005 06 26 00099 


02720 


00480 


TFM 


98MF 


.10 


.610 


00518 16 0332Q 


OOOJO 


00490 


OM 


98 MF 




,6, 


DIVIDE 10/W 00530 19 0332Q 


00000 


00500 


s 


96 


Ibeta 


, t 


SUBTRACT BETA FROM QUOTIENT 














00542 22 00096 


02603 


00510 


TF 


BETA 


.96 


. t 


REPLACE BETA BY DIFFERENCE 














00554 26 02603 


00096 


00520 


TF 


79 


•ZER0-43 




00566 26 00079 


02724 


00530 


M 


BETA 


t SAVE 




BETA EQUALS BETA TIMES 














00578 23 02603 


02565 


00540 


TF 


BETA 


,PDT 


.11. 


SQUARE OF MANTISSA 














00590 26 02603 


0333L 


00550 


SM 


ATN1+35 


.02 


.010, 


W EQUALS W-2 00602 J2 00541 


000-2 


00560 


SM 


ALPM+ll 


.01 


.010. 


REDUCE COUNTER BY ONE 














00614 J2 00289 


000-1 


00570 


BNZ 


ATN1 




.0. 


IS COUNTER ZERO 00626 M7 00506 


01200 


00580 


TF 


SAVE 


*'0NEZ*2 


. * 


VES, SAVE IS ONE (F+2 DIGITS) 














00638 26 02565 


03040 


00590 


s 


SAVE 


.BETA 


. f 


FIND 1 - BETA 00650 22 02565 


02603 


00600 


TF 


79 


,2ER0-42 




00662 26 00079 


02725 


00610 


M 


SAVE 


»FAC-2 




00674 23 02565 


02490 


00620 


BNF 


TEST2 


tTEST+Il 


•01. 


TEST INDICATOR « HI ORO GREATER i 


29 












00686 MM 00734 


0009 7 


00630 


BNN 


TEST2-12 




.0. 


IS PRODUCT NEGATIVE 














00698 M6 00722 


01300 


00640 


SF 


POT 


» 


.6. 


YES. SET SIGN 00710 32 03331 


00000 


00650 


A 


POT 


. TAN6 


.6. 


ADO ARCTAN OF .6 TO PRODUCT 














00722 21 0333L 


03248 


00660 TEST 2 


BNF 


•♦36 


•T£ST*10 


,01, 


TEST INDICATOR. CHAR POSITIVE 














00734 MM 00770 


00096 


00670 


*P 


POT 




,6, 


SET SIGN 00746 32 0333L 


00000 


006B0 


A 


POT 


,PI0V2 


t*f 


SUB PROOUCT FROM PI0V2 














00758 21 0333L 


03163 


00690 


TFM 


SAVE 


•01 


,10. 


SET CHARACTERISTIC OF RESULT 














00770 16 02565 


000-1 


00700 


TP 


PAC 


♦ HNO 


,11. 


PUT RESULT IN, FAC 














00782 26 02492 


0333Q 


00710 


BO 


T6ST1-24 


f PNHM1 


•on* 


NORMALIZE 00794 MI 00850 


09350 


00720 


TR 


PNHM1 


,PNH 


.611 


008 06 31 03350 


0331L 


00730 


TOM 


PAC 


.0 




00818 15 02492 


00000 


00740 


SM 


SAVE 


,01 


• 10 


008 30 12 025*5 


000- i 


00750 


t 


*-4B 




|0 


00B42 M9 00794 


00000 


00760 


OORG 


*«*4 
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00770 




SF 


FNMN1 


t 


»* 




00850 32 03350 


00000 


00780 




TF 


FAC-2 


tFAC-3 






00862 26 02490 


02489 


00 790 


TEST1 


TO 


99 


,TIST*9 




SET SIGN 


00874 2N 00099 


00095 


00800 




B 


ENOD 


t 


1 1 


RETURN 


00886 49 03768 


00000 


00810 




DORG 


*-4 








00893 




00820 




SF 


TEST*10 


t 


tO, 


SET INDICATOR, 


CHAR POSITIVE 
00894 L2 00094 


00000 


00830 




TF 


99 


♦ZERO-23 






00906 26 00099 


02744 


00840 




TF 


POT 


(ONEZ 


»6 




00918 26 0333L 


03038 


00850 







POT 


.FAC-2 


»6» 


FIND RECIPROCAL 


OF MANT1 SSA 

00930 29 0333L 


02490 


00860 




TF 


FAC-2 


(POT 


illi 


PUT IN FAC-2 


00942 26 02490 


3 33 L 


00870 




BO 


• ♦44 


i FNHN1 


f X 1 1 


NORMALIZE 


00954 M3 00998 




00880 




SF 


FNH 




f 4 




00966 32 03311 


uuuuu 


00890 




SM 


F AC 


, o 1 


♦ 10 




00978 12 02492 




00900 




8 


•♦32 




,0 




00990 M9 01022 


uuuvu 


009 10 




DORG 


*-4 








00997 




00920 




TF 


FAC-2 


»FAC-3 






00998 26 02490 




00930 




SM 


F AC 


t02 


♦ 10 




01010 12 02492 


000-2 


00940 




Bl 


• ♦44 


* 


.0, 


BR NEW CHAR NEGAT IVE 


















01022 M7 01066 




00950 




BE 


ALPH+12 


• 


tOt 


BR NEW CHAR ZERO 01034 M6 00290 


01200 


00960 




SF 


FAC 






NEW CHAR POSITIVE 


















01046 32 02492 


00000 


00970 




B 


TEST*60 




tO 




01058 M9 00146 


00000 


00980 




OORG 


• -4 








01065 




00990 




T FN 


SAVE 


,00 


(10 




01066 16 02565 


000-0 


01000 




TF 


FAC-2 


(PI0V4 






01078 26 02490 


03191 


01010 




B 


TEST1 




(0 




01090 M9 00874 


00000 


01020 




DORG 


• -4 








01097 




1030 




TO 


99 


i TEST*9 


1 1 




01098 2N 00099 


00095 


01040 




g 


ENOD* 1 2 








OHIO 49 03780 


uuuuu 


1050 




OORG 










Oil 17 




1060 


EOO 


BNF 


•-20 


i TEST* 10 


♦ 1 1 


TEST INDICATOR, 


CHAR POSITIVE 
01118 MM 01098 




1070 




TF 


INSAPF 


i FAC-2 


♦ 6» 


CHAR NEG, STORE 


FAC MANTISSA 

01130 26 0329Q 


02490 








FAC-2 


♦ 


t * 


FAC NANT I SSA IS 


F+l DIGIT PI0V2 
01142 26 02490 


03162 


01090 




C 


FAC 


t NF 




COMPARE CHAR TO 


- F 

01154 24 02492 


03473 


OllOU 




BNH 






tO, 


BR IF CHAR NOT 1 


SREATER, EQUAL -F 
01166 M7 01238 


01100 


Oil 10 




Lf 


IM^M+1 




t ( 


SUB OLD FAC MANTISSA FROM PI0V2 


















01178 33 02576 


00000 


01120 




TON 


IMS* 




(11 




01190 15 02575 


0000- 


01130 




TF 


♦ ♦35 


♦ INSAPF 


(0 




01202 K6 01237 


03298 


01140 




A 


•♦23 


iFAC 


(0 




01214 Kl 01237 


02492 


01150 




s 


FAC-2 








01226 22 02490 


00000 


01160 




T FN 


SAVE 


tOl 


,10, 


SET CHAR 


01238 16 02565 


000-1 


01170 




B 


TESTl-12 


t 


(Ot 


NORM AND RETURN 


01250 M9 00862 


00000 


01180 




OORG 


• -4 








01257 




01190 


F AC 


OS 




#02492 






02492 00000 
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01200 


FNH 


OS 


*03313 


03313 


00000 


01210 


ZERFAC 


OS 


(03584 


03584 


00000 


01220 


F 


OS 


(02219 


02219 


00000 


01230 


FNHM1 


OS 


»0335S 


03358 


00000 


01240 


9SPF 


OS 


• 02854 


02854 


00000 


01250 


FH 


OS 


(03308 


03308 


00000 


01260 


98MF 


OS 


(03328 


03328 


00000 


01270 


SIX 


OS 


(03219 


03219 


00000 


01280 


BETA 


OS 


(02603 


02603 


00000 


01290 


ZERO 


OS 


(02767 


02767 


00000 


01300 


HNO 


OS 


(03338 


033 38 


00000 


01310 


97MF 


OS 


(03323 


03323 


00000 


01320 


SAVE 


OS 


(02565 


02565 


00000 


01330 


POT 


OS 


(03333 


03333 


00000 


01340 


2FM1 


OS 


(03429 


03429 


00000 


01350 


FM1 


DS 


(03625 


03625 


ooooo 


01360 


ONEZ 


OS 


(03038 


03038 


00000 


01370 


TAN6 


OS 


(0 3248 


03248 


ooooo 


01380 


PI0V2 


OS 


,03163 


03163 


ooooo 


01390 


ENOD 


US 


• 03768 


03768 


ooooo 


01400 


PI0V4 


OS 


(01191 


03191 


ooooo 


01410 


IMSAPF 


DS 


(01298 


03298 


ooooo 


01420 


MF 


OS 


(03473 


01473 


ooooo 


01430 


IMSA 


OS 


♦02575 


02575 
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01440 
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AAA 1 A A 
000 10 * 
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1 1 -Q 


RELOCATABLE SQUARE ROOT ROUTINE 








00020 




DSA 


SORT 






00004 


00005 -0006 


00030 


SORT 


MM 


SQRT-l i 


t 50 


»0610i 


.HALF THE EXPONENT 


















00006 


J3 


OOOON 


OOONO 


00040 




SM 


SQRT-i 


• 2 


»010» 


GIT ADDRESS OF MANTISSA 












000 IB 


J 2 


00005 


000-2 


00050 




TF 


PAC-2 


i $QR T • 1 


♦ lilt 


MOVE MANTISSA TO FAC-2 








■ 










00030 


20 


02490 


OOOON 


00040 




10 


SOI 


t FNH 


♦ Oil, 


TEST FOR ZERO 00042 


Ml 


00062 


0I31L 


ooo^o 




B 


ZERFAC 


f 


1 1 


RESULT IS ZERO 00054 


49 


03584 


00000 


000B0 




OORG 


• -4 






0006 1 








00090 


SOI 


TDM 


FNHM1 


♦o 


• 611 1 


SET NEXT HIGH OROER DIGIT 


TO ZERO 










00062 


15 


03350 


0000- 


00100 




TOM 


SOEX+1 


• 2 


»0, 


SET EXIT TO BRANCH BACK 














00074 


JS 


00475 


00002 


00 1 10 




BNF 


• ♦48 


•FAC-2 


t0 » 


TEST FOR SIGN 00086 


M4 


00134 


02490 


00 120 




CF 


FAC-2 


t 


• ♦ 


REMOVE MINUS SIGN 


















0009B 


33 


02490 


ooooo 


00 1 30 




TDM 


SQEX+1 


i 9 


tOt 


SET EXIT TO ERROR ROUT! 


NE 


















00110 


J5 


0047 5 


00009 


00140 




TFM 


EI 


1 676 


»9, 


SET ERROR MESSAGE F6 




















00122 


16 


02615 


00076 


00150 




BO 


S03 


♦ 98 


♦ 0, 


BRANCH IF EXPONENT ODD 




















00134 


M3 


0048 2 


00098 


00160 




TF 


SQ2*42 


1 97MF 


♦ f 


SET ADDRESS TO 97-F 




















00146 


K6 


00212 


03323 


00170 




BNF 


SQ2*12 


,99 


tOt 


TEST FOR SIGN 00158 


M4 


00182 


00099 


001B0 


SQ2 


SF 


97 


♦ 


« • 


SET SIGN 00170 


32 


00097 


ooooo 


00190 




TF 


FAC 


t97 


* t 


STORE EXPONENT 00182 


26 


02492 


00097 


00200 




LO 


80 


»9SPF 


♦ 1 


CLEAR PRODUCT AREA 




















00194 


28 


00080 


02854 


00210 




TF 




tFAC-2 


t f 


MOVE MANTISSA INTO 97-F 


OR 98-F 
















00206 


26 


00000 


02490 


00220 




TF 


LOOP* 18 


i97M2F 


tOt 


SET ADDRESS TO 97-2F 




















00218 


K6 


0029 2 


03363 


00230 




TF 


LO0P*23 


,FNMN1 


• , 


SET ADDRESS TO FNH-l 




















002 30 


K6 


00297 


03358 


00240 




TF 


L00P*102 


,97M2F 


,0, 


SET ADDRESS TO 97-2F 




















00242 


K6 


00376 


03363 


00250 




TF 


FAC-2 


iONEZ ♦ 1 




SET RESULT TO 100... 




















00254 


26 


02490 


03039 


00260 




B 


LOOP^ioe 




.0, 


00266 


M<» 


0038 2 


OOOOO 


00270 




OORG 


*-4 






00273 








002 80 


LOOP 


AM 


LOOP*23 


.2 


.0610 


» ADD 2 TO RESULT 00274 


Jl 


0029P 


000-2 


00290 




S 




» 


t » 


SUBTRACT RESULT FROM MANTISSA 
















00286 


22 


00000 


OOOOO 


00300 




BNN 


LOOP 




tO, 


CONTINUE LOOP IF NOT MINUS 
















00298 


M6 


00274 


01300 


003 10 




CM 


LOOP +2 3 


t FAC-2 


.07, 


COMPARE WITH TERMINAL ADDRESS 
















00310 


J4 


00297 


-2490 


00320 




BNL 


SQEX-48 




,0, 


GO TO EXIT IF EQUAL 




















00322 


M6 


00426 


01300 


00330 




A 


LOOP+18 


tLOOP+23 ,0161 


1 « ADD BACK 003 34 


KJ 


0029K 


0029P 
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00340 




CF 


LOOP+18 




,06, 


CLEAR FLAG 00346 


L3 0029K 


ooooo 


00350 




AM 


♦♦18 


, 1 


,010, 


ADO 1 TO ADDRESS 00358 


Ji 00376 


000-1 


00360 




SF 








SET FLAG ON MANTISSA ONE PLACE OVER 














00370 


32 OOOOO 


ooooo 


00370 




AM 


LQ0PM8 


t02 


,010, 


ADO 2 TO MANTISSA 


















00382 


Jl 00292 


000-2 


00380 




AM 


L00P^23 


• 01 


,010, 


ADO 1 TO RESULT ADD 


















00394 


Jl 00 297 


000-1 


00 390 




SM 


LOOP+23 


,9 


,0610 


(SUBTRACT 9 FROM RESULT 


















00406 


J2 0029P 


000-9 


00400 




B 


LOOP+12 




• 0* 


GO TO LOOP 00418 


M9 00286 
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00410 




DORG 


*-4 






00425 






00420 




LD 


80 


,9SPF 
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CLEAR PROOUCT AREA 


















00426 
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02854 


00430 




MM 
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HALF THE RESULT 004 38 
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00440 




TF 


FAC-2 


»97 
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STORE RESULT 00450 


26 02490 


00097 


00450 




SF 
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,6, 


SET FLAG IN HIGH ORDER 
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32 0331L 
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00460 


SOEX 


BB 
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t 
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OORG 
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SQ3 
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00490 




CF 


FNH 


» 
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IN FAC 
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00500 




TF 


SQ2*42 


♦ 98MF 
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SET ADDRESS TO 98-F 
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K6 00212 


03328 


00510 




BNN 
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,0 • 


BRANCH IF NOT NEGATIVE 
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M6 001B2 


01300 
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8 


SO 2 
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GO TO SET SIGN IF NEGATIVE 
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00540 


FAC 


OS 
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OS 
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El 


OS 
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02615 


OOOOO 
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97HF 


OS 
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03323 


OOOOO 




00600 


9SPF 


OS 




,02654 




02B54 


OOOOO 




00610 


97M2F 


OS 




•03143 




03163 


OOOOO 
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ONEZ 


OS 
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OSA 


ABS 
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20 
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SN 


A6S-1 
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TF 


FAC-2 i 
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02490 
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BNF 


• 426 i 


(FAC-1 


»o 


00042 


M4 


00068 


02491 


00070 




CF 


FAC-2 , 
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FLOATING POINT NUMBER 
00054 


33 


02490 


00000 


OOOSO 




BB 








00066 


42 


00000 


00000 


00090 




OORG 


• -9 






00061 








00100 




CF 


FAC , 
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FIXEO POINT NUMBER 

00068 


33 


02492 


00000 


001 10 




BB 








00080 


42 


00000 


00000 


00120 




OORG 
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00130 
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00020 




USA 


FLN 






00004 00005 -0006 


00030 


FLN 


TF L 


FAC 


tFLN-1 


«1U* 


LOAD ARGUMENT. 00006 00 


02492 


OOOON 


00040 




BO 


• ♦44 


, FNH 


.011. 


IS A ZERO 00018 M3 


00062 


0331L 


00050 




TFM 


EI 


,672 


.9, 


YES , ERR F2, LOG ZERO 


















000 30 16 


02615 


00072 


00060 




SF 


99 






SET SIGN 00042 32 


00099 


00000 


00070 




B 


OVFLOH 


* 




FAC IS NEGATIVE ALL NINES 


















00054 49 


03572 


00000 


00080 




OORG 


*-4 






00061 






00090 




TFM 


GOAL+18 


,ENDD*12 


♦07, 


SET UP NO ERR TYPE 


















00062 J6 


00780 


-3700 


00100 




BNF 


♦ ♦48 


iFAC-2 


.0. 


IS A NEGATIVE 00074 M« 


00122 


02490 


001 10 




TFM 


EI 


,673 


.9, 


YES, ERR F3, LOG -A 


















00086 16 


02615 


0007 3 


00120 




TFM 


GOAL* IB 


t ERROR 


.07, 


SET UP ERR TYPE 00098 J6 


00780 


-3596 


00130 




CF 


FAC-2 


t 


» ♦ 


A EQUALS POSITIVE A 


















00110 33 


02490 


00000 


00140 




TFM 


CORN-25 


»9SPF*2 


,07, 


SET UP CONSTANT EQUAL ZERO 
















00122 J* 


00549 


-2856 


00150 




TF 


CORN-13 


i FAC 


,0, 


STORE CHAR 00134 K6 


00561 


02492 


00160 




CF 


FNH 


t 


.6, 


FIND 1 ♦ A MANTISSA 


















00146 33 


0331L 


00000 


00170 




TOM 


FNHM1 


» 1 


,611 


00158 15 


0335Q 


0000 J 


00180 




CM 


FNH 


.15 


,610, 


COMPARE TWO HIGH ORDER DIGITS 
















00170 14 


0331L 


000J5 


00190 




BNL 


• ♦44 




,0, 


TO 1.5, IF LESS THAN, NO BR 
















00162 M6 


00226 


01300 


00200 




A 


FAC-2 


.FAC-2 




00194 21 


02490 


02490 


00210 




AM 


CORN-25 


.31 


.010, 


AOJUST CONSTANT TO LN 2, 4, OR 8 














00206 Jl 


00549 


000 LI 


00220 




B 


• -60 


. 


,0 


00218 M9 


00158 


00000 


002 30 




DORG 


•-4 






00225 






00240 




TF 


BETA 


,TWOZ 


» , 


FIND 1 - A MANTISSA 


















00226 26 


02603 


03073 


00250 




S 


BETA 


» FAC-2 




00236 22 


02603 


02490 


00260 




TF 


99 


.ZERO- 20 


, » 


FINO 1-A NANT/l+A MANT 


















00250 26 


00099 


02747 


00270 




TF 


97MF 


.BETA 


,* 


00262 26 


0332L 


02603 


00280 







98 MF 


♦FAC-2 


.6 


00274 29 


0332Q 


02490 


00290 




TF 


FAC 


,98MF 


.lit 


STORE IN FAC 00266 2* 


02492 


0332Q 


00300 




TF 


79 


, ZERO- 39 


i » 


PINO FAC**2 00296 26 


00079 


02728 


00310 




M 


FAC 


.FAC 




00310 23 


02492 


02492 


00320 




TF 


SAVE 


,97MF 


,11, 


STORE IN SAVf 00322 2* 


02545 


03321 


00)10 




A 


FAC 


»FAC 


f • 


FAC EQUALS 2 MAC 00334 21 


02492 


02492 


00340 


COUN 


TF 


IMSA-4 


.Ml 


1 1 


SET COUNTER EQUAL P-l 


















00346 2* 


02971 


03763 


00350 




TF 


C0UN>71 


,2FN1 


.0, 


SET DIVISOR P EQUAL TO 2F- 


•1 
















00316 K6 


00417 


03961 


00360 




TF 


BETA 


»9SFP*1 


. * 


BETA EQUALS F*2 ZEROS 


















00370 26 


02603 


02699 


00370 




TF 


99 


, ZERO- 19 


• • 


FINO 10/P 00362 2* 


00099 


02741 


003B0 




TFM 


98MF 


.10 


.610 


00394 16 
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00390 




ON 


9BNF 


t 


• ft 

* ( 


DIVIDE 6V P 


00406 


19 


03320 


00000 


00400 




A 


BETA 


(97 


ADO QUOTIENT TO 


BETA 
004 IB 


21 


02603 


00097 


00410 




TF 


79 


.ZEB0-39 






004 30 


26 


00079 


02728 


00420 




M 


BETA 


.SAVE 






00462 


23 


02603 


02969 


00430 




TF 


BETA 


(97MF 


♦ 11. 


BETA EQUALS BETA*SAVE 






















00494 


26 


02603 


0332L 


00440 




SN 


C0UN*71 


♦ 02 


♦010. 


P EQUALS P-2 


00466 


J2 


00417 


000-2 


00490 




SM 


1MSA-4 


tOl 


.10. 


REDUCE COUNTER BY ONE 






















004 78 


12 


02971 


000-1 


00460 




BNZ 


C0UN*36 




♦0. 


IS COUNTER ZERO 


00490 


M7 


003B2 


01200 


00470 




TF 


79 


(ZER0-39 




VIS 


00902 


26 


00079 


02728 


00480 




M 


BETA 


*FAC 


! ! 


MULTIPLY BETA BY 


FAC 
00914 


23 


02601 


02492 


00490 




A 


97NF 


.FAC 


♦ *» 


ADO FAC TO PROOUCT 






















009 26 


21 


0332L 


02492 


00900 




TF 


FAC 




1 ( 


SET CONSTANT IN 


FAC 
009 38 


26 


02492 


00000 


00910 




SF 


FAC 


f 




NEGATE CONSTANT 


00990 


32 


02492 


00000 


00920 




s 


FAC 


(97MF 


,11, 


SUBTRACT PRODUCT 


FROM CONSTANT 
















00962 


22 


02492 


0332L 


00930 


CORN 


TF 


92 


.9SPF-1 






00974 


26 


00092 


02893 


00940 




M 


LN10 


♦CORN- 1 3 


< It 


MULTIPLY CHAR BY 


LN 10 




















009 86 


2L 


02980 


00961 


00990 




A 


99 


♦ FAC 


f f 


ADO FAC TO PROOUCT 






















00998 


21 


00099 


02492 


00960 




AN 


97 


tOO 


«10( 


ZERO CHECK 


00610 


11 


00097 


000-0 


00970 




BZ 


GOAL* 20 




(0 




006 22 


M6 


00782 


01200 


00980 




TFN 


SAVE 


,03 


( 10( 


SET UP CHAR 


00634 


16 


02969 


000-3 


00990 




TF 


FAC+3 


1 99 




NORMALIZE 


00646 


26 


02499 


00099 


00600 




CF 


FAC+3 








00698 


33 


02499 


00000 


006 10 




TO 


F AC*4 


♦RECNK 




SET RECORD MARK 


00670 


29 


02496 


02403 


00620 




BD 


♦ ♦68 


»FNH 


(Oil 




00682 


M3 


00790 


0331L 


00630 




TR 


FNH 


»FH 


(611 




00694 


31 


0331L 


0330Q 


00640 




TON 


FAC + 3 


»o 






00706 


19 


02499 


00000 


00690 




SF 


FNH 




(6 




007 18 


32 


0331L 


00000 


00660 




SN 


SAVE 


»0 1 


, jo, 


ADJUST CHAR 


00730 


12 


02969 


000-1 


00670 




g 


*-40 


* 


(0 




00742 


M9 


00662 


00000 


00680 




OORG 


*-4 








00749 








00690 




TO 


FAC*1 


(RECNK 




REPLACE RECORD MARK 






















00790 


29 


02493 


02403 


00700 


GOAL 


TF 


FAC 


♦ SAVE 


( ( 


SET CHAR IN FAC 


00762 


26 


02492 


02969 


00710 




B 


ENDO+1? 








00774 


49 


03700 


00000 


00720 




00R6 


*-4 








00781 








00730 




TFL 


FAC 


(FLZER 






00782 


06 


02492 


03760 


007*0 




B 


GQAl+12 




(0 




007 94 


M9 


00774 


00000 


00790 




OORG 


*-4 








00801 








00760 


FAC 


OS 




(02492 






02492 


00000 




00770 


FNH 


OS 




(03313 






03313 


00000 




00780 


EI 


OS 




(02619 






02619 


00000 




00790 


OVFLOM 


OS 




(03972 






03972 


00000 




00800 


ENOO 


OS 




(0368B 






03688 


00000 




00810 


ERROR 


OS 




(03996 






03996 


00000 
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00820 


9SPF 


OS 


(02894 


02894 


00000 


00830 


FNHM1 


OS 


(03398 


03398 


00000 


00840 


BETA 


OS 


(0 2603 


02603 


00000 


00890 


TWOZ 


OS 


(03073 


03073 


00000 


00860 


ZERO 


OS 


(02767 


02767 


00000 


00870 


97MF 


OS 


(03323 


03323 


00000 


00680 


98MF 


OS 


.03328 


03328 


00000 


00890 


FM1 


OS 


(03783 


03783 


00000 


00900 


IMSA 


OS 


(02979 


02979 


00000 


00910 


SAVE 


OS 


(02969 


02969 


00000 


00920 


2FM1 


OS 


(039B1 


03981 


00000 


00930 


LN10 


OS 


(02980 


02980 


00000 


00940 


RECMK 


OS 


♦02403 


02403 


00000 


00990 


FM 


OS 


t0330B 


03308 


00000 


00960 


FLZER 


OS 


(03760 
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00970 
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I i -o 


RELOCATABLE FLOATING EXPONENTIAL ROUTINE 


00020 




DSA 


FEXP 






00004 00005 -0006 


00030 


FEXP 


TFL. 
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PEXP-1 


• nit 


LOAD ARGUMENT 00006 00 02492 


0000N 
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TFL 


BETA f 


0NEZ*6 




00018 06 02601 
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BO 
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FNH 


,011, 
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♦ 
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OORG 


*-4 
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TO 


MU- 1 t 


FAC-2 


* 




02490 


00090 




CF 


F AC-2 






00062 33 02490 
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00100 




jf 


79 i 


ZERO-42 




CL TAR PRODUf T ARE * 

) m . / \ 2 b 0007 9 


02725 


001 10 






F AC* 2 i 


LOGE 




MULTIPLY BY LOGE 000f)6 i 3 02490 


030 10 


00120 




TP 


save<-2 i 


FAC 


* 1 


STORE CHAR 00O98 26 02567 


02492 


001 30 




TO 


FAC+4 i 


FAC*1 




MOVE RECORD MARK 00110 25 02496 


02493 


00140 




TF 


FACO • 


10 2MF 


lilt 


MOVE F+5 DIGITS OF PRODUCT 

00 122 26 02495 


334L 


00 150 




BO 


04-48 i 


i FNH 


• 1 1 ♦ 




33 1 L 


00160 




TR 


FNH , 


i FH 


*6ll 


00146 31 0331L 


0330Q 


00 170 




SM 


SAVE** , 


01 


,10 


00 1 5b 1 / 0/56 r 




00180 






FNH , 




i 6 


rtf\ » 7f r\ ^"5 Aim 
UV 1 ( 5 c U3JIL 


AAnnn 

OOOOQ 


00 190 






SAVE*2 . 


>MF 




IS CHAR LESS THAN, EQUAL TO -F 
00 182 24 02567 


3666 


00200 




BNH 


GOBACK-24, 


tO « 


YES- RESULT IS FLT PT ONE 
















00194 M7 00942 


1 100 


002 10 






•♦12 i 




|0 ♦ 


TURN Urr DVrL JNU 


1400 


00220 






SAVE+2 i 


,00 




IS CHAR ZERO 00218 11 02567 


000-0 


002 30 




be 


CALC i 


i 


n 


YES 00230 M6 00394 


1 200 


00240 




BL 


CALC+6B i 




* * 


CHAR LESS THAN ZERO 

00242 M7 00462 


1 300 


00250 




CM 


$AVE*2 i 


>02 


i n 


CHAR POSITIVE 00254 14 02567 


000-2 


002 60 






E12 i 







CHAR GREATER THAN 2, ERROR 

00266 M6 00986 


Oil 00 


00270 




BL 


♦ ♦44 ( 






CHAR LESS THAN 2 00278 M7 00322 


1 300 


002 60 






BETA , 


» FH 


tilt 


CHAR IS 2 00290 21 02603 


03300 


00290 




TR 


FNHM1 i 


) FH 


,611, 


ADJUbl BAN! I A UU302 31 0339U 




00300 




B 


CALC-24 , 




tO 


003 14 M9 00370 


00000 














00321 




00 320 




TDM^ 


FNHH1 , 


>o 


611 


CHAR IS 1 003 22 15 0335Q 


0000- 


00330 




CF 


FNH , 


> 


,6, 


ADJUST MANTISSA 003 34 33 0331L 


00000 


00340 






BETA , 


, FNH 




00346 21 02603 


0331L 


00350 




TR 


FNH , 


»FH 


,611 


00358 31 0331L 


0330Q 


00360 




BV 


E12 , 




tO , 


OV ON CHAR ADJUST, ERROR 

00370 Mfe 00986 


01400 


00370 




SF 


FNH , 




• 610 


00382 32 0331L 


000-0 


00380 


CALC 


TFM 


•-1 i 


,00 


• 010, 


SET COUNTER EQUAL TO ZERO 

00394 J6 00393 


000-0 


00390 




CM 


FH 


,34 


• 610* 


ARE HIGH ORDER DIGITS OF MANTISSA 














OO^Ofe 14 03300 


000L4 


00400 




BL 


GORD 




• 0, 


LESS THAN 34, IF VES GO TO GORD 

004 18 M7 00 534 


01300 


00410 




SM 


FH , 


.34 


,610, 


SU8 34 FROM HIGH ORD DIGITS 

004 30 12 3300 


000L4 



1581 



FORTRAN 1 1 -0 


RELOCATABLE 


LIBRARY 


SUBROUTINES WITH AUTO FLOAi' INC. POJNY 




00420 




AM 


CALC-1 


• 01 




,010. 


ADJUST COUNTER 00442 Jl 0039 3 


000-1 


00430 




b 


CALC+12 






,0 


00454 M<5 £0406 


00000 


00440 




DORG 


• -4 








004 6 1 




00450 




TFM 


• ♦59 


,FAC 




,07, 


ADJUST MANTISSA FOR CASE WHEN 


















00462 J6 00521 


-2492 


OU%bO 




A 


• ♦4 / 


»SAVb*2 


,0 , 


CHAR LESS THAN ZERO, GREATER THAN 
















00*74 IU 00 521 


02567 


00470 




TF 


FNHiU 


•9SPF- 


1 


,6, 


MINUS F 00486 2b 03350 


02853 


00480 




CF 


FNH 


• 




,6 


Qmm 33 033U 


00000 


00490 




TF 


FAC 








005 10 26 02492 


00000 


00500 




SF 


FNH 






,6 


00522 32 033iL 


00000 


00510 


GORD 


TF 


79 


'•ZERO- 


20 




00534 2h 00079 


02747 


00520 




M 


FAC 


•LN10- 


1 




MULTIPLY ADJUSTED ARGUMENT 


















00546 23 02492 


02979 


00530 




SF 


97M2F 






,6, 


BY LN10 00558 32 0336L 


00000 


00540 




TF 


SAVE 


• PDT 




,11, 


SET SAVE EQUAL PRODUCT 


















00570 26 02565 


03331 


00550 




TF 


FAC + 2 


♦ POT 




lilt 


STORE PROOUCT IN FAC 


















00582 26 02494 


0333L 


00560 




TPM 


FACT4-11 


♦ 02 




,010, 


SET DIVISOR EQUAL 2, DENOTE AS I 


















00594 J6 00677 


000-2 


00570 




A 


BETA-2 


♦ SAVE 




♦ » 


ADD SAVE TO BETA 00606 21 02601 


02565 


00580 




TF 


79 


,ZERO- 


38 




006 H8 26 00079 


02729 


00590 




M 


SAVE 


♦f AC*2 




, , 


MULTIPLY SAVE BY PRODUCT IN FAC 


















0O&30 23 02565 


02494 


00600 




TF 


99 


♦ 96MF 




,11 


00642 26 00099 


0331Q 


00610 




TFM 


96MF 


♦ 00 




,610 


00654 16 0331Q 


000-0 


00620 


FACT 


DM 


97MF 


♦ 




♦ 6, 


DIVIDE NEW PROOUCT ®V L 


















00666 19 0332L 


00000 


00630 




BZ 


FACT+56 


» 




♦0, 


BR IF QUOTIENT IS ZERO 


















00678 »6 06722 


01200 


00640 




TF 


SAVE 


♦ 97 






PUT OUOTIENT IN SAVg 


















00690 26 02565 


00097 


00650 




AM 


FACT+ii 


♦ 01 




,010, 


INCREASE L BY ONE 


















00702 Jl 00677 


000-1 


00660 




8 


FACT-60 


t 




,0 


00714 M9 00606 


00000 


00670 




OORG 


•-4 








007 21 




00680 




CM 


CALC-l 


,00 




,010, 


QUOTIENT MAS ZERO, IS COUNTER 


















007 22 J4 ©0193 


000-0 


00690 




BE 


• ♦80 






,0, 


ZERO, IF YES BR 00734 M6 00814 


01200 


00700 




TF 


79 


IziRO- 


SB 


t f 


INDICATOR NOT ZERO 


















00746 26 00079 


02729 


00710 




M 


8ETA-4 


♦TEN14 




• » 


MULTIPLY BETA BY 10 TO .34 


















00758 21 02599 


01278 


00720 






97H2F 






• 6 


00770 12 0116L 


00000 


00790 




TF 


BETA-4 


Ubmf 




,11, 


STORE PROOUCT IN BETA 


















00782 26 02999 


01120 


00740 




SM 


CALC-1 


.01 




tOlOi 


OECREASE COUNTER BY ONE 


















00794 J2 00191 


000- 1 


00730 




B 


FACT+68 


t 




tO 


00806 H9 00714 


00000 


00760 




OORG 


6-4 








006 lit 




0077* 




IMF 


GOB AC X- 


24,MU-1 




,0, 


COUNTER MAS ZERO* HAS ORIGINAL 





00ft* »* 00**2 OMI 



1112 



FORTRAN 11*0 RELOCATABLE LIBRARY SUBROUTINES WITH AUTO FLOATING POINT 



00760 




TF 


99 


t 2ERO-21 


♦ ♦ 


AftfitJMENT NEGATIVE 


26 


00099 


02746 


00790 




TF 


fOT 


♦0NEZ*2 


♦ 6, 


VESt FINO RECIPROCAL 2 * 


















00638 


26 


0333L 


03040 


00800 







HNO 


t BETA-4 


♦ * 


00650 


29 


03330 


02599 


00810 




BV 


• ♦44 


t 


♦0 


00862 


N6 


00906 


1400 


00,620 




TF 


6ETA-6 


i97NF 


♦ 11 


00874 


26 


02597 


0332L 


00630 




S* 


BETA 


♦ 01 


♦ 10 


00886 


12 


02603 


000-1 


0064Q 




6 


• ♦20 


♦ 


♦0 


00898 


N9 


009 IB 


OOOOO 


00850 




DORQ 


• -4 






00905 








00860 




SN 


BETA 


t02 


♦ 10 


00906 


12 


02603 


000-2 


00670 




BE 


• ♦24 


♦ 




00918 


M6 


00942 


01200 


00660 




SF 


BETA 






009 30 


32 


02603 


OOOOO 


00690 




TF 


FAC-2 


f BETA-6 


♦ ♦ . 


PUT RESULT IN FAC 

00942 


26 


02490 


02597 


00900 




TF 


FAC 


♦ BETA 




00954 


26 


02492 


02603 


0091Q 


GO 8 AC K 


TO 


FAC*1 


(RECMK 


♦ ♦ 


REPLACE RECORO MARK 


















00966 


25 


02493 


02403 


00920 




B 


ERXV+30 


♦ 


♦ 6 


00978 


49 


0379K 


OOOOO 


00930 




DORG 


*-4 






00985 








00940 


E12 


TO 


FAC*l 


♦BETA* 1 




00986 


25 


02493 


02604 


00950 




TF* 


EI 


♦ 674 


♦ 9^ 


ERR F4 OVFL IN FEXP 


















00998 


16 


02615 


00074 


00960 




BNF 


OVFLOX 


♦ NU-1 


♦ 


01010 


M4 


01030 


03631 


00970 




B 


UNFLO 






01022 


49 


03466 


OOOOO 


00980 




OORG 


•-4 






01029 








0099Q 


OVFLOX 


TF 


FAC-f2 


♦9SCPP 




01030 


26 


02490 


02795 


01000 




TFM 


FAC 


♦ 99 


♦ 10 


0104 2 


16 


02492 


00OR9 


01010 




B 


ERXV*24 






01054 


49 


03786 


OOOOO 


oio?o 




OORG 


*-4 






01061 








01030 


FAC 


OS 




♦02492 




02492 


00000 




01040 


BETA 


OS 




♦ 0260 3 




02603 


00000 




01050 


ONEZ 


OS 




♦ 03036 




03038 


00000 




01060 


FNH 


OS 




♦ 03313 




03313 


00000 




01070 


MU 


DS 




♦03632 




036 32 


00000 




01080 


ZERO 


OS 




♦02767 




02767 


00000 




01090 


Loce 


OS 




♦ 03010 




03010 


00000 




01100 


SAVE 


OS 




♦02565 




02565 


00000 




01 wo 


10 2MF 


OS 




♦03343 




03343 


00000 




01120 


FH 


OS 




.03308 




03308 


00000 




01130 


HF 


OS 




♦03666 




03666 


00000 




01140 


FNHM 1 


OS 




♦ 03358 




03358 


00000 




01150 


9SPF 


OS 




♦02854 




02854 


00000 




01160 


LN10 


OS 




♦ 02980 




02980 


00000 




01170 


97N2F 


os 




♦03363 




03363 


00000 




01180 


POT 


DS 




?03333 




03333 


00000 




01190 


96NF 


OS 




♦03318 




03318 


00000 




01200 


97HF 


DS 




♦ 03323 




03323 


ooooo 




01210 


TEN34 


OS 




♦03278 




03278 


00000 




01220 


96»F 


OS 




♦ 03328 




03328 


ooooo 




01230 


MNO 


OS 




♦03338 




03338 


ooooo 




01240 


RECMK 


DS 




♦ 240 3 




02403 


ooooo 




01250 


EI 


OS 




♦02615 




02615 


ooooo 





1)63 



FORTRAN I I -0 RELOCATABLE LIBRARY SUBROUTINES WITH AUTO FLOATING POINT 

01260 ERXV DS ,03762 03762 OOOOO 

01270 UNFLO OS f 03466 03466 OOOOO 

01280 9SCPF OS ( 02795 02795 OOOOO 

01290 OENO 1 00001 



116 4 



FORTRAN 11-0 RELOCATABLE LIBRARY SUBROUTINES WITH AUTO FLOATING POINT 



PAGE 8 



00010* SUBSCRIPTING SUBROUTINE - RELOCATABLE 
00020* THREE OtMENSIOMAL SUBSCR 

00030* LINKAGE BTM ENTA YX , •♦ 12 , , WHERE X 
00040 * OSA BASE, 04, 01, I ,02, J, 03, K, 

00050* IF Q A D0« FLAGGEO BASE IS F 

00060* IF BASE IS FLAGGED ARRAY IS 

00070* IF 01 |$ FLAGGEO - I/O STUNT 



FOR ONE t TWO OR 
IPTEO VARIABLES 
■ It 2 OR 3 
OR/N 
IXED 

FORMAL PARAMETER 



OOOBO 




USA 


ENTRY1,|NTRY2»ENTRY3 


00004 


00005 -0006 










00009 


00005 -0042 










000 14 


00005 -0090 


00090 




OORG 


• -9 


00005 








00100 ENTRY I 


TFM 


BRINSU6.L1 


00006 


jn 


00336 


-0386 


00110 




TFM 


EXI7-1, 22* 10 


000 1 8 


J6 


00481 


000K2 


00120 




B 


COM 


000 30 


M9 


00126 


00000 


00130 ENTRY2 


TFM 


BR INST + 6 « L2 


00042 


JO 


00)36 


-0362 


00140 




TFM 


ex I T - 1 1 32 , 10 


00054 


J6 


00481 


0OOL2 


00150 




TF 


ENTRY 1- 1 1 ENTRY 2- 1 


00066 


KO 


00009 


00041 


00160 




B 


COM 


00078 


M9 


00126 


00000 


00170 ENTRY3 


TFM 


BRINST*6,L3 


00090 


JO 


00336 


-0338 


00180 




TFM 


EXIT-1,42, 10 


00102 


J6 


00481 


000M2 


001*0 




TF 


ENTRYl-i,ENTRY3-l 


00114 


KO 


0000 S 


00089 


00200* 


SET LENGTH OF FX OR FL 










00210 COW 




TF 


X»U,FP2 


00126 


K6 


00433 


03644 


00220 




BNF 


• ♦48 i ENTRY 1-1 


00138 


MM 


001B6 


00009 


00230 




SF 


C0M*1 


00150 


L2 


00127 


00000 


00240 




CF 


ENTR Y 1- 1 


00162 


13 


OOOOS 


00000 


00250 




TF 


X*11,K 


00174 


K6 


00433 


02221 


00260* 
















00270* 


MOVE PARAMETERS TO WQM AREA 










00280* 
















00290 




TR 


WKAREAf ENTRYl-lt 11 


00186 


3J 


00000 


OOOON 


00300* 
















00310 




CF 


Y*il 


00198 


L3 


0044 5 


00000 


00320 




BNF 


•♦36, BASE 


00210 


M4 


00246 


00004 


00330 




CF 


BASE 


00222 


33 


00004 


00000 


00340 




SF 


Y*U 


002 34 


L2 


00445 


00000 


00350* 


CHECK 


IF IN I/O 










00360* 
















00370 




BNF 


CFINST, C0M*1 




MM 


00306 


00127 


00380 




CF 


C0M*l 


00258 


L3 


00127 


00000 


00390 




BNF 


CFINST*12,01 


00270 


M4 


00318 


00014 


00400 




SF 


x*u 


00282 


L2 


00433 


00000 


00410 




TOM 


Y*l,2»» SET OP TO SUBTRACT 


00294 


J5 


00435 


00002 


00420 CFINST 


CF 


01 


00306 


33 


00014 


00000 


00430 




S 


HOLD, HOLO 


00318 


KK 


00508 


0050B 


00440 BR INST 


b 




003 30 


49 


00000 


00000 


00450 




OORG 


• -3 


00338 








00460* 
















00470 L3 




M 


03, KK, U 


00338 


23 


00034 


000 3R 


00480 




TF 


HOLD, 99 


00350 


K6 


00508 


00099 


00490 L2 




M 


02, J, 11 


00362 


23 


00024 


000 2R 


00500 




A 


HOLD, 99 


00374 


Kl 


00508 


00099 


00510 LI 




M 


01,1,11 


00386 


23 


00014 


000 1R 












I 


165 





FORTRAN II-O RELOCATABLE LIBRARY SUBROUTINES WITH AUTO FLOATING POINT 



00520 




A 


HOLO, 99 








00398 


Kl 00508 


00099 


00530 




A 


HOLO, 04 








00410 


Kl 00508 


00009 


00540 


X 


MM 


HOLDf *-* 




MULTIPLY BY 


LENGTH 


00422 


J3 00508 


-0000 


00550 


Y 


A 


99, BASE, 


lit 






004 34 


21 00099 


OOOON 


00560 




TOM 


•-11,1,, 




IN1T OP TO 


AOO 


00446 


J5 00435 


00001 


00570 




SF 


95 








00458 


32 00095 


00000 


00590 




AM 


ENTRY 1-1 








00470 


Jl 00005 


-0000 


00590 


EXIT 


6 


ENTRY 1- 1 


«t6 






00482 


M9 OOOON 


00000 


00600 


WKAREA 


OSS 


42,0 








00000 


00042 




00610 


HOLO 


DC 


15,0 








00506 


00015 




00620 


BASE 


OS 


5,4 








00004 


00005 




00630 


04 


OS 


5,9 








00009 


00005 




00640 


01 


OS 


5,14 








00014 


00005 




00650 


I 


OS 


5, 19 








00019 


00005 




00660 


D2 


OS 


5,24 








00024 


00005 




00670 


J 


OS 


5,29 








00029 


00005 




00680 


03 


OS 


5,34 








00034 


00005 




00690 


KK 


OS 


5,39 








000 39 


00005 




00700 


FP2 


OS 




,03664 






03664 


00000 




00710 


K 


OS 




,02221 






02221 


00000 




00720 




DENO 


3 








00003 







1 1 «6 



FORTRAN II-O RELOCATABLE LIBRARY SUBROUTINES WITH AUTO FLOATING POINT 



000 10* 


FORTRAN II 


1-0 OK 


10 


WITH 


FLT 


HARDWARE 








00020* 


THIS SUBROUTINE 


REQUIRES 


1234 CORE 


STORAGE 


POSITIONS 




00030 INOUT 


OS 


.631 














00631 


00000 




00040 10ERR 


OS 


,6 32 














006 32 


00000 




00090 CHECK 


OS 


tl270 














01270 


00000 




00060 010 


us 


,8 16 














00816 


00000 




00070 EEXIT 


PS 


,16 38 














01638 


00000 




00080 ERRET 


OS 


,602 














00602 


00000 




00090 ADR 


OSA 


FINO , 


^RECORD, FETCH, SNO.ORAV, DI 


OEND 


00004 


00005 


-0124 




















00009 


00005 


-0386 




















00014 


00005 


-0350 




















00019 


00005 


-0268 




















00024 


00005 


-0064 




















00029 


00005 


-0322 


00100 


OORG 


AOR-4 














00000 






00110 IOCAL 


OS 


t 716 














00716 


00000 




00120 IORBC 


OS 


,520 














00520 


00000 




00130 I OAT 


OS 


.565 














00565 


00000 




QQ 1*0 IOSK 


us 


.554 














00554 


00000 




00150 I06T 


OS 


,566 














00566 


00000 




00160 IOPT 


OS 


.532 














00532 


00000 




00170 FAC 


OS 


♦ 2492 














02492 


00000 




00180 D IODDA 


OS 


,3387 














03387 


00000 




00190 FINOIN 


OS 


, 3527 














03527 


00000 




UU^UO FP2 


Ufe 


,io©4 














03664 


00000 




0U41U FKUDD 


uS 


tiUVV 














03579 


00000 




00220 PAR 


OS 


.3378 














03378 


00000 




00230 ERROR 


OS 


,3596 














03596 


00000 




00240 EI 


OS 


t2615 














02615 


00000 




002S0 FIXENO 


OS 


,3680 














03680 


00000 




00*60 FLTENO 


OS 


,37 30 














03730 


00000 




00270 FLOAT 


OS 


» 4042 














04042 


00000 




00280 OKDATA 


PS 


,3379 














03379 


00000 




00290 ZERO 


OS 


« 2700 














02700 


00000 




00300 FIX 


OS 


.3854 














03854 


ooooo 




00310 RECLG 


OS 


,2243 














02243 


00000 




00320 W 


OS 


,2240 














02240 


ooooo 




00330 N2 


OS 


,2238 














022 36 


ooooo 




00340 Nl 


os 


,2233 














02233 


ooooo 




00350 K 


OS 


,2221 














02221 


ooooo 




00360 F 


OS 


,2219 














02219 


ooooo 




00370 CORSU 


OS 


,7376 














07376 


ooooo 




00380* 
























00390 NOWLC 


OSC 


2*02 














00000 


00002 




00400 


OSA 


OIOOOA 














00006 


00005 


-3387 


00410 


oc 


i, a 














00007 


00001 




00420 MVER 


BI 


•♦12,3700,, 


TURN 


OFF 


WLRC 


1N0 




00008 


M6 00020 03700 


00430 


BI 


CHECK- 


12,1900,, 


LET IORT 


HANDLE 


OISK OVERFLOW 
























00020 


46 01258 01900 


P0440 


B7 


EEX1T, 


,»WLRC 


WAS 


ONLY 


ERROR 




000 32 


49 01638 OOOOO 


00450 


TF 


NITENP 


.Nl 












00040 


K6 00195 02233 


00460 TOBB 


8 


OR AY 1 , 


,0 












00052 


M9 00966 OOOOO 


004 70 DRAVv 


TON 


T0BB*1 


|9,, 








SET TOBB 


TO BRANCH 





1167 



FORTRAN II-O RELOCATABLE LIBRARY SUBROUTINES WITH AUTO FLOATING POINT 











00064 


J5 


00053 


00009 


00480 


BO 


EVEN ,FKODO, , 


TEST FOR 


EVEN ADDRESS 












00076 


N3 


00588 


03579 


00490 


BD 


AGAIN, 0DABLK*1»» 


BRANCH IF BUFFER PROG IN CORE 














00088 


NL 


00734 


00300 


00500 


TFN 


OSABLK+5, AGAIN 




00100 


JO 


00317 


-0734 


00510 


B 


SWO+12 




00112 


N9 


00280 


OOOOO 


00520 FINO 


TON 


FINOIN, 0,, 


SET FINO INDICATOR ON . 
















00124 


15 


03527 


OOOOO 


00530 


TFN 


RETD2*6*SET1,, 


BRANCH TO COMPUTE ADDRESS 


ANO TESTI 










00136 


JO 


00202 


-0422 


00540* N2 


ERROR ROUTINE (I CRT 


N2) 










00550 N2CK 


C 


FIND-1,ZBR0,6» 


IS I ZERO OR NEG 


00148 


K4 


0012L 


02700 


00560 


BNH 


8E2 




00160 


N7 


00206 


01100 


00570 


C 


FIN0-1,N2,6, 


CONPARE I 


ANO N2 

00172 


K4 


0012L 


02239 


0058Q 


BH 


BE 2 




00184 


N6 


00206 


01100 


00590 RETp2 


B 






00196 


49 


OOOOO 


OOOOO 


00600 BUFFAR 


OS 


,* 




00207 


OOOOO 




00610 BE 2 


TFN 


EI ,472,9, 


I CRT N2 


00208 


16 


02615 


OON72 


00620 


TF 


NITENP ,N1 




00220 


K6 


00195 


02233 


00630 


•0 


ERROR # DDABLK , , BR 


IF CK NAOE FROM EVEN 


ARRAY PROGRAN 












00232 


4L 


03596 


00299 


00640 


TFN 


OS A0TR*5, ERROR 




00244 


J6 


00475 


-3596 


00650 


B 


SETRNK 




00256 


N9 


00426 


OOOOO 


00660* 
















00670***** 


SWD SUBROUTINE 












006B0 SWOA 


TON 


SW 0*900,0 




00268 


J5 


01166 


OOOOO 


00690 


TFN 


•-11,41,10 




00280 


J6 


00269 


000M1 


00700 


B 


SW01 




00292 


N9 


00478 


ooooo 


00710 


00R6 


•-3 




00300 








00720* 


SET UP LINKAGE FOR 


FLOAT 










00730 FETCH5 


TP 


FLTEND,ICON6*5 




00300 


20 


03730 


00964 


00740 


B 


FLOAT 




00312 


49 


04042 


OOOOO 


00750 


DORG 






00319 








00760 


OORG 


•♦4 




00322 








00770 10EN0 


TFN 


0SA0TR*5,0I0END 




00122 


JO 


00475 


-0322 


007B0 


60 


SETRNK,FRIN0,, 


BRANCH IF FETCH 


00314 


ML 


00426 


00215 


007tO 


C 


NITENP, Nl 




00346 


K4 


00199 


02211 


00800 


Bf 


SETRNK,,, 


BRANCH I 


F BUFFER EMPTY 












0035B 


M6 


00426 


01200 


00B10 


TFN 


RETD2*6,»*20 




00370 


JO 


00202 


-01*0 


00920 


B7 


N2CK 




00382 


M9 


00148 


OOOOO 


00830 


TFN 


I0RT,**23,, 


WRITE BUFFER TO PILE 














00390 


10 


00969 


-0411 


00640 


• 


IOPT tOKOATA, 7 




00402 


4* 


00912 


-1179 


00830 


AN 


PIND-1, 1,610 




00414 


Jl 


001 21 


000-1 


00660 SETRNK 


TO 


S W 0*900, OKBUFF* 200 


00426 


KN 


01146 


01212 


00B70 


TM 


IQRT,I0REP2*ll 




00410 


10 


00969 


-0911 


00860 


• 


IOGT 




00490 


49 


00966 


OOOOO 


008*0 


OORG 


•-4 




00457 








00900 OOB 


OSC 


lfl 




00497 


00001 




00910 


PSA 


100 




00442 


00009 -0200 
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00920 


OC 


3*9 




00465 


00003 




00930 OSAOTR 


DSA 


SWD.DIOENO 




00470 


00005 -0261 










00475 


00005 -0322 


00940 


OC 


1*§ 




004 76 


00001 




00990 SWD1 


A 


BUFFAR «W* * INCREMENT BUFFER ARROW 


00478 


Kl 


00207 


02240 


00960 


BO 


FETCH1»FRIN0» t 


BRANCH IF FETCH 


00490 


ML 


00754 


00215 


00970** 


RECORO 












00980 I ORE F 2 


CF 


SWD-1,DATB,7* 


CLEAR FLAG 


i ON ADDRESS OF DATA 










00502 


LL 


00267 


- 1023 


00990 


sm 


NlTEMPtltlO * 


DECREMENT 


WORO COUNT 














00514 


J2 


00195 


000- 1 


01000 


TFL 


BUFF AR i SWD- 1*611 




005 26 


-0 


0020P 


0026P 


01010 CK 


CM 


N1TEMP ,0 , 10 « 


CHECK FOR 


FULL BUFFER 












005 38 


J4 


00195 


000-0 


01020 


BNZ 


TOBB 




00550 


M7 


00052 


01200 


01030 


BO 


T0BB-12* FRIND** BR 


IF FETCH 


00562 


ML 


00040 


00215 


01040 


TFM 


LlNKB* 16 , IOPT 




00574 


J6 


00626 


-0532 


01050 CKI 


TFM 


RE T02*6 * Li NKB 




005 86 


JO 


00202 


-0606 


1060 


B 


N2CK 




00598 


M9 


00148 


00000 


0107Q 


OORG 


• -4 




006 05 








01080 LINKS 


TFM 


IORT,**23* t 


CALL CORRECT IORT 


ROUTINE 












006 06 


10 


00565 


-0629 


01090 


B 


i DKDAT A t 7 




00618 


49 


OOOOQ 


-3379 


1 100 


TFM 


BUFF AR » OKBUFF ♦ 199 1 1 


INITIALIZE 


BUFFER 


ARROW 












00630 


JO 


00207 


-1231 


1 1 10 


S 


BUFF AR-2 iRECLG 




00642 


K2 


00205 


02243 


1 120 


BNF 


•♦24.FRINQ 




00654 


MM 


00678 


00215 


01130 


A 


BUFFAR »W 




00666 


Kl 


00207 


02240 


01140 ADOTOI 


AM 


PlND-l»l,610, 


INCREMENT I 


00678 


Jl 


0012L 


000-1 


1 150 


A 


DIODDA*5*DIOO0A*6 f * 


INCREMENT 


SECTOR ADDRESS 












00690 


21 


03392 


03395 


Oil 60 


BO 


FETCH2 1 FR I NO 




00702 


ML 


00798 


00215 


01170 


B 


TOBB- 12 




00714 


M9 


00040 


00000 


1 180 


DORG 


• -4 




007 21 








01190 


A 


OR AY - 1 1 FP2 




00722 


Kl 


00063 


03664 


01200 AGAIN 


TF 


SMD-1, DRAY-1 




007 34 


KO 


00267 


00063 


01210 


B 


SMD 




00746 


M9 


00268 


00000 


01220 


OORG 


*-4 




00753 








01.230 FETCM1 


C 


N1TEMP,NI 




00754 


K4 


00195 


02233 


1240 


BNE 


FETCH2, » i 


BRANCH IF 


BUFFER NOT 


EMPTY 












00766 


M7 


00798 


01200 


01250 


TFM 


L I NKB* 18 t IOGT 




00778 


J6 


00624 


-0566 


01260 


B 


CKI 




00790 


M9 


00586 


00000 


01270 


DORG 


• -4 




007 97 








01280 FETCH2 


SM 


NITEMP.1,10 




00798 


J2 


00195 


000-1 


0*290* 


SEND THE WORD TO FAC 












01300 


TFL 


F AC* BUFFAR » 1 1 




00810 


00 


02492 


0020P 


01310 


BI 


•♦12*1400 




00622 


M6 


008 34 


01400 


01320* 


TEST FOR FLOATING ADDRESS AT SWD-i 










01330 


BNF 


FETCH3.SWD-1 




008 34 


MM 


00928 


00267 


01340* 


IT 


IS A FIXED ADDRESS 












01350 


CF 


SWD-1 




00846 


L3 


00267 


00000 
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WITH 


AUTO 


FLOATING POINT 


01360* 


TEST FOR FLOATING WORD IN FAC 










01370 


BNF 


FETCH4,FAC-1 






00858 


M4 00940 02491 


01380* 


THE WORD IS FLOATING SET UP LINKAGE 


FOR 


FIX 




01390 


TF 


FlXEND+6, IC0N7*6 






00870 


20 03686 00895 


01400 


B 


FIX 






00882 


49 03854 00000 


01410 


OORG 


*-4 






0088 9 




01420 IC0N7 


DC 


1,4 






00889 


00001 


01430 


DSC 


1,9 






00890 


00001 


01440 


DSA 


RETFLT 






008 95 


00005 -0896 


01450 RETFLT 


TOM 


FIXEND+1,2 






00896 


15 03681 00002 


.01460 


TDM 


FLTENO-5,2 






00908 


15 03725 00002 


01470* 


BRANCH TO STORE NUMBER 










01480 CKLD 


B 


FETCH4 






009 20 


M9 00940 00000 


01490 


OORG 


*-4 






00927 




01500 FETCH3 


BNF 


FETCH5,FAC-1», 


BRANCH 


IF FIXED 














00928 


M4 00300 02491 


01510* 


STORE THE WORO IN MEMORY 










01520 FETCH4 


TFL 


SW0-1,FAC*6 






00940 


-6 0026P 02492 


01530* 


CHECK FOR EMPTY BUFFER 










01540 


B 


CK 






00952 


M9 00538 00000 


01550 


DORG 


• -4 






00959 




01560 IC0N8 


OC 


1*9 






00959 


00001 


01570 


DSA 


RETFLT 






00964 


00005 -0896 


01580 DRAY 1 


SM 


PAR.lv 10,, 


DECREMENT WORD COUNT 










00966 


12 03378 000-1 


01590 


BNZ 


♦ ♦14 






00978 


M7 00992 01200 


01600 


BB 








00990 


42 00000 00000 


01610 


DORG 


*-9 






00992 




01620 


BNF 


AGAIN-12,DRAY-1 






00992 


MM 00722 00063 


016)0 


S 


DRAV-1,R 






01004 


K2 00063 02221 


01640 


B 


AGAIN 






01016 


M9 00734 00000 


01650 


DORG 


*-4 






01023 




01660 DATB 


OSC 


2.-00 






01023 


00002 


01670 


DSA 


DOB 






01029 


00005 -0457 


OIL 680 


OC 


i*a 






01030 


00001 


01690 OKBUFF 


OS 


,0ATB*9 






01032 


00000 


01700* 














01710* 














01720* 


WRITE 2 NO BLOCK 










01,730* 














01740 LD1RD 


DSC 


2*00 






01031 


00002 


©1750 


DSA 


0IM1 






01037 


00005 -1039 


01760 


DC 


1*9 






010 38 


00001 


01770 0IM1 


DSC 


1*1 






01039 


00001 


01780 


OSA 


209 






01044 


00005 -0209 


0(790 


OC 


3*9 






01047 


00003 


01800 


OSA 


SWO 






01052 


00005 -0288 


01810 


OC 


1.8 






01053 


00001 


0&820 STL01 


CF 


IC0N7*2 






01094 


L3 001 tl 00000 


01830 


DGM 


DATB*9*200 






01232 


00001 


01840 


CF 


IC0N8*1 






0108* 


LI 009*0 00000 


01850 


TFM 


IORT, HERE* 11 






01078 


10 00585 -1111 


01860 


70 


SW0*900, OKBUFF *100 






01090 


KN 01168 01251 
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01870 


HERE 


b 


I0PT,L01R0,7 


01102 


4R 0053Z -lull 


01880 




TRA 




01114 


10 00565 -1133 










01126 


49 00716 00000 










01133 


00002 2K 










01135 


00005 -1141 










01 140 


ooooi a 










01141 


00006 1J9783 










01147 


00003 -03 










01150 


00006 -ooooa 


01H90 




TCO 


STL01 


01054 




01900* 










omo* 


BLOCK 1 OF FETCH 


FIND RECORO 




01920 




OORG 


SWOA 


00268 




01930 


SWO 


TFM 


DSABLK*5,SWD 


00268 


JO 00317 -0268 


0194Q 




TFM 


IORT, I ORE F+ 11 


00280 


10 00565 -0621 


01950 




g 


IOGT 


00292 


49 00566 00000 


01960 




OORG 


• -4 


00299 




01970 


DOABLK 


OSC 


1 1 1 


00299 


00001 


01980 




OSA 


209 


00304 


00005 -0209 


01990 




OC 


3 »9 


00307 


00003 


02000 


OSABLK 


OSA 


S W , SMO 


00312 


00005 -0268 










00317 


00005 -0268 


02010 




OC 


1 9 


00318 


00001 


02020 




OORG 


I0EN0 


00322 




02030 


D lOt NO 


B I 




00322 


M6 00334 01400 


02040 








00334 


4 2 00000 00000 


02050 




OORG 


• -9 


003 36 




02060 


0AT1 


OSC 


2 » **00 


00336 


0000 2 


02070 




OSA 


OOABLK 


00342 


00005 -0299 


02080 




OC 


ltd 


00343 


00001 


02090 




OS 


5 


00348 


00005 


02100 


FETCH 


TF 


FIND-liFETCH-l, , 


, TRANSFER I 00350 


KO 00123 00349 


021 10 




TON 


FRIND,1,U, 


SET FETCH-RECORD IN01CAT0K TO 


FETCH 










00362 


J5 00215 0000 J 


02120 




6 


AI TEST » » , 


BRANCH TO SET FIND INDICATOR OFF , 










00374 


M9 00410 00000 


02130* 






COMPUTE ADDRESS ♦ TEST I , 


ANO TEST 


02140* 






FOR OEFINE STATEMENT . 




02150 


RECORO 


TF 


FlN0-l,RECORD-l, 


t t TRANSFER 1 00386 


KO 00123 00385 


02160 




TDM 


FR IND»0 t » 


SET FETCH-RECORD INDICATOR TO RECRD 










00398 


J5 00215 00000 


02170 


A1TEST 


TOM 


FINDIN,!,, 


SET FINO INDICATOR OFF 












00410 


15 03527 00001 


02180 


SET1 


TFM 


010004*5,218, , 


SET SECTOR AOORESS IN DDA 










00422 


16 03392 -0218 


02190 




M 


F1ND-1,RECLG,6* 


COMPUTE ADDRESS OF FILE RECORO 










004 34 


K3 0012L 02243 


02200 




A 


DI0DDA*5,99 


00446 


21 03392 00099 


02210 




BO 


**44,FIN0IN, , 


BRANCH IF NOT FIND 00458 


M3 00502 03527 


02220 


SSEEK 


TFM 


I0RT,**23 


00470 


10 00565 -0493 


02230 




B 


I0SK,DKDATA,7, 


TRANSFER TO IORT TO SEEK 










00482 


49 00554 -3379 


02240 




B 


DIQENO 


004 94 


M9 00322 00000 
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02250 




OORG 


*-3 




005 02 






02260 




TFM 


BUFFAR,DKBUFF*199, , 




INITIALIZE BUFFER ARROW 














00502 JO 


00207 


-1231 


02270 




S 


BUFF AR -2 »R ECLG 




00514 K2 


00205 


02243 


02280 




TF 


N1TEMP,N1, t 




005 26 K6 


00195 


02233 


02290 




TF 


DIODDA+8 ,RECLG , , 




STORE RECORD LENGTH IN DDA 














005 38 26 


03395 


02243 


02300 




TFM 


DIODDA*13tDKBUFF+20Q i t 




STORE ADDRESS OF BUFFER 














00550 10 


03400 


-1232 


02310 




S 


D I ODD A* 1 1 »RECLG , , 


SUB 


LENGTH OF RECORO TO GET 


FIRST 


COR 












00562 22 


03398 


02243 


02320 


OVER 


TOM 


TOBB+1,2,, 




INITIALIZE BRANCH BACK 














00574 J5 


00053 


00002 


02330 




BB 






00586 42 


00000 


00000 


02340 




OORG 


*-9 




005 88 






02350 


EVEN 


TF 


TEMPA, FP2. i 




STORE FLOATING LENGTH IN TEMPA 












00588 K6 


00171 


03664 


02360 




BNF 


•♦36,0RAY-1,, 




BRANCH IF FLOATING ARRAY 














006 00 MM 


00636 


00061 


02 370 


JORfcP 


CF 


DRAY-1,0AT1,7 




00612 LL 


00063 


-0336 


02380 




TF 


TEMP At K , » 




STORE FIXED LENGTH IN TEMPA 












00624 K6 


00171 


02221 


02390 




TF 


D1000A+13»DHAV-1, , 




STORE AOORESS OF FIRST ELEMENT 












00636 20 


03400 


00063 


02400 




AM 


DIO0DA*13i 1 




00648 11 


03400 


-0001 


02410 




S 


DIODDA+13* TEMPAt i 




HIGH ORDER POSITION OF ARRAY 












00660 2K 


03400 


00171 


02420 




TF 


EVENl*ll,0lODDA*13 




00672 K6 


00919 


03400 


02430 




M 


TEMPA, PAR 




00684 K3 


00171 


03378 


02440 




SF 


95 




00696 32 


00095 


00000 


02490 




A 


EVENH-11,99 




00708 Kl 


00919 


00099 


02460 


CARRY 


CM 


EVEN 1* 11.0 




00720 J4 


00919 


-0000 


02470 




BNE 






007 32 M7 


00756 


01200 


024B0 




TFM 


EV6N1*11,0 




00744 J6 


00919 


-0000 


02490* 








EVALUATE ANO STORE LOW ORDER 




02500* 








POSITION ♦ I OF ARRAY 






02510* 








EVALUATE SECTOR COUNT 






02520 




AM 


97,1 ,9, ADO ONE FOR 


GROUP 


MARK 00756 11 


00097 


00-01 


02530 




TO 


•♦23,RECLG 




00768 K5 


00791 


02241 


02540 


6012 


BO 


OVER3,251,, BRANCH IF 


RECLG IS 1 00780 M9 


00828 


00251 


02550 




TO 


•♦23,97 




00792 K5 


00815 


00097 


02560 




BO 


•♦24,210,* BRANCH IF 


EVEN 


I NUMB OF SECTORS 
















00B04 M3 


00828 


00210 


02570 




AM 


97,1,10 




00816 11 


00097 


000-1 


02580 


QVER3 


TF 


0I0D0A*6,97,, SET UP 


SECTOR COUNT 008 2B 26 


03395 


00097 


02990 




BO 


OVER 2, 60 1 2* 11, 11 




00840 ML 


00864 


0079 J 


02600 




MM 


0I0D0A*6,30,10 




00852 13 


03395 


OOONO 


02610 


OVER 2 


A 


FlMO-1,97,6, AOO NUMBER OF 


RECORDS TO I 00864 Kl 


00121 


00097 


02620 




SM 


FINO-l, 1,610 




00876 J2 


0012L 


000-1 


02630 




TFM 


ftET02*6,**20 




008BB JO 


00202 


-0908 


02640 




B 


N2CK 




00900 M9 


00148 


00000 


02650 




OORG 


•-♦ ■ 




00907 






02660 


EVEN1 


TO 


EVEN2*11 




00908 K5 


00991 


00000 
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02670 


BO 


FETCM8, FRIND, , 




BRANCH IF 


FfcTCH , 




















00920 


ML 


01018 


00215 


02680* 


RECORD 
















02690 


T 


EVENl+ll«OKBUFF*200,6i 


SET GROUP 


MARK AT 


END OF ARRAY 














009 32 


KN 


009 1R 


012 32 


02700* 








WRITE 


ARRAY 


ONTO FILE 






027 10 




I OR T i * ♦ 2 3 








00944 


10 


0056 5 


-096 7 


02 720 


B 


IORBCtNOWLC .7 








00956 


4R 


005 20 


-0000 


02730 


TOM 


F LT END- 5 , 2 








00968 


15 


03725 


0000 2 


02740 EVEN2 


TDM 


EVENl*ll»,6, 




RESTORE OIGIT 




















00980 


J5 


009 1 R 


00000 


02750 




FIND-1, 1,610 








00992 


Jl 


00 1 2L 


000- 1 


02760 




D10D0A*5,D100DA*8 


,, INCREMENT 


SECTOR 


ADORESS 




















01004 


21 


03392 


03395 


02770 












01016 


42 


00000 


00000 


027B0 


nnor 


*-9 








01018 








02790 FETCH8 




010*35, YTURN, 67, 


INSERT 


ADORESS 


FDR ERROR ENTRY 


















01018 


10 


0085J 


- 1 1 24 


02800 




IORT ,**23, , 




READ ARRAY FROM FILE 


















01030 


10 


00565 


-1053 


028 10 


b 


1 OG T » DK DAT A, 7 








010*2 


49 


00566 


-3379 


02820 


T FM 


1N0UT.CHECK-12, , RESTORE 


SPECIAL 


IORT ERROR EXIT 




















01054 


16 


00631 


-1258 


02830* 








TEST 


FOR NO 


GROUP MARK 








BNG 


♦♦20 ,EVEN1*U, 11 








01066 


NN 


01086 


0091R 




b 


EVEN2 








01078 


M9 


00980 


00000 




UORG 


*-4 








01085 








02870 


TF 


FLTEND, EVENSP+6 








01086 


20 


03730 


01123 


02 880 


TFM 


EI ,473,9 








01098 


16 


02615 


00M73 




b 


ERROR 








01 110 


49 


03596 


00000 


02900 


DORG 


*-4 








01117 










DC 


1,4 








01117 


0000 1 






DSC 


1,9 








01118 


00001 




02930 


USA 


EVEN2-12 








01123 


00005 -0968 


02940 YTURN 


bi 


♦♦12, 3700 ,, TURN 


OFF WLRC IND 




01124 


M6 


01136 


03700 


02950 


BN1 


ERRET, 1900,, GO ON IF NO 


OTHER ERROR 


01 136 


47 


00602 


01900 


02960 


TFM 


I NOUT , MY ER , , SET 


UP SECOND IORT 


ERROR EXIT 




















011*8 


10 


00631 


-0008 


02970 


b 


IOERR,,, LET IORT 


CHECK 


ANY OTHER ERRORS 01160 


49 


00632 


00000 


02980 


DORG 


• -4 








01167 








02990 


DORG 


SWD+906 








01174 








03000 TEHPA 


OS 


2,N2$K*23 








00 17 1 


00002 




03010 NiTEMP 


DS 


2,RETD2-1 








00195 


00002 




03020 FRIND 


OS 


1,BE2*7 








00215 


00001 




03030* 


WRITE FIRST BLOCK 
















03040* 




















03050 0IH2 


DSC 


1,1 








01174 


00001 




03060 


DS A 


200 








01 179 


00005 -0200 


03070 


DC 


3,9 








01182 


00003 




03080 


DSA 


SWD 








01187 


00005 -0268 


03090 


DC 


1,3 








01188 


00001 




03L00 LD2N0 


use 


2,00 








Q1189 


00002 




03U0 


DSA 


DIM2 








01195 


00005 -1174 
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03120 

03130 STL02 
03140 
03150 GM 
03160 
03170 
03180 
03190 NIO 
03200 



03210 
03220 



DC 

TD 

AM 

CF 

DGM 

DGM 

TFM 

B 

TRA 



i,a 

CARRY*7 f C0RSIZ 

CARRY+8,10,10 

EVENSP+2 

DKBUFF+200 

SW0+900 

I0RT,NI0*11 

I0PT,LD2NDt7 



TCD STLD2 
DEND 6 



01196 
01 198 
01210 
01222 
01232 
01168 
01234 
01246 
01258 
01270 
01277 
01279 
01284 
01285 
01291 
01294 
01198 
00006 



00001 

K5 00727 07376 
Ji 00728 OOOJO 
L3 01119 00000 
00001 
00001 

10 00565 -1257 
4R 00532 -1189 
10 00565 -1277 
49 00716 00000 

00002 2K 

00005 -1285 
00001 a 

00006 1J978 3 

00003 -03 
00006 -00009 
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OOOIO***** 1620 FORTRAN 1 1 -0 RELOCATABLE SINE A NO COSINE ROUTINES 

0002Q**** COS(X) • 1 - (X**2)/2 ♦ (X**4JA24 - lX**6)/720 ♦ ... 

00030**** S1N(A) • C0S(PI0V2 - Al 



00040 




OSA 


r t U 5 t r > 1 N 






00004 


00005 -0006 














00009 


00005 -0042 


00050 




QORG 


• -4 






00005 






00060 


FCQS 


TOM 


CLF*U 


• 


tO t 


SET ROUTINE FOR COSINE 


















00006 


J5 00149 


00000 


00070 




TFL 


FAC 


iPCOS-1 


i lilt 


LOAD ARGUMENT 00018 


00 02492 


OOOON 


OOOBO 




6 


FSIN*48 




tO 


000 30 


M9 00090 


00000 


00090 


FS IN 


TON 


CLP*ll 


1 1 


tOll i 


SET ROUTINE FOR SINE 


















00042 


J5 00149 


OOOOJ 


00100 




TFL 


FAC 


,FSIN-1 


• nil 


LOAD ARGUMENT 00054 


00 02492 


0004J 


00110 




C 


FAC 


>MF0V2 




00066 


24 02492 


03822 


00120 




BNH 


FINISH*1 


» 


» » 


BRANCH IP ANS. • ARG. 


















00078 


47 03724 


01100 


00130 




CP 


FNH 




,6* 


CLEAR HIGH ORDER PL AG 


















00090 


33 0331L 


00000 


001^0 




TON 


FNHM1 


>o 


1 611 » 


SET FLAG AT HIGH OROER 


DIGIT -1 
















00102 


IS 0335Q 


0000- 


00150 




TON 


CLP* 10 


1 1 


• Ot 


SET SWITCH ARG POSITIVE 


, RESULT 


POS 














00114 


J5 00148 


00001 


00160 




BNF 


• ♦48 


»FAC-2 


tO i 


IS ARG NEGATIVE 00126 


M4 00176 


02490 


00170 


CUP 


CF 


FAC-2 




,9, 


YES. REPLACE BY ABSOLUTE VALUE 
















00138 


33 02490 


00-00 


00180 




BNF 


♦ ♦24 


»CLP*11 


»0 1 1 


IS ROUTINE SINE OR COSINE 
















00150 


MM 00174 


00149 


00190 




TON 


CLF*10 


• 


iO i 


SINE. SIN(-A)«-SIN(A>, 


RESULT NEG 














00162 


J5 00148 


00000 


00200 




TP 


INSAPF 


»9SPP*1 


»6» 


IMSA*F « F*2 ZEROS 


















00174 


26 0329Q 


02855 


00210 




CN 


PAC 


.00 


♦ 10, 


CHECK SIGN OF CHARACTERISTIC 
















00186 


14 02492 


000-0 






UNL 


PUtcAP 




fOi 


BR IF POSITIVE, EQUAL TO ZERO 
















00198 


M6 00730 


01300 


00230 




C 


PAC 


,MF 


f t 


COMPARE CHAR TO -P 


















00210 


24 02492 


03666 


00240 




BL 


BRD 




♦o, 


BR IP CHAR LESS THAN -F 


















00222 


M7 00270 


01300 


00250 




TFN 


• ♦35 


,PAC-1 


.07, 


ADJUST MANTISSA (IN IMSAPF) FOR 
















0023* 


J6 00269 


-2491 


00260 




A 


• ♦23 


t FAC 


.0, 


CHAR GREATER THAN OR EQUAL TO -F 
















00246 


Kl 00269 


02492 


00270 




A 


IMSAPF 




.6, 


AND LESS THAN ZERO 


















00258 


21 0329Q 


00000 


00280 


BRO 


BO 


♦ ♦24 


tCLP + U 


,01, 


BR IF ROUTINE IS SINE 


















00270 


ML 00294 


00149 


00290 




A 


INSAPF 


.P10V2 


,6, 


ADD PI0V2, COS(A) « SIN<PI0V2-A) 
















00282 


21 0329Q 


03163 


00300 




S 


IMSAPF 


,TWOPI 


♦ 6 f 


REDUCE ARGUMENT TO PRINCIPAL VALUE 














00294 


22 0329Q 


03103 


00310 




BH 


•-12 




.0, 


RANGE t MINUS PI0V2 TO POS PI0V2 





00306 M6 00294 01100 
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00320 




SF 


IMSA-1 




1 1 


SET HIGH OROER FLAG 
















003 18 32 02574 


00000 


00330 




A 


IMSAPF 


tPI 


.6 


00330 21 0329Q 


03133 


00340 




bN 


♦ ♦36 


t 


,0, 


BR ARG NEGATIVE 00342 M7 00378 


01300 


00350 




SM 


CLP + 10 


,0 1 


,010, 


SET SIGN OF RESULT 
















003 54 J2 00148 


000-1 


00360 




SF 


IMSAPF 




»6» 


SET SIGN ON ARGUMENT TO MINUS 
















00366 32 0329Q 


00000 


00370 




A 


IMSAPF 


»PI0V2 


• 6, 


ADO PI0V2, SIN(A)« C0S(PI0V2-A> 
















00378 21 0329Q 


03163 


Q0380 




TF 


79 


tZEROM 


.Hi 


CLEAR PRODUCT AREA 
















00390 26 00079 


0344N 


00390 




M 


IMSAPF 


tlMSAPP 


.611. 


PINO A**2 00402 23 0329Q 


0329Q 


00400 




TF 


IMSAPF 


,98MF 


,611, 


PUT RESULT IN IMSA+F 
















00414 26 0329Q 


0332Q 


00410 




SF 


IMSA-1 




t . 


SET HIGH ORDER FLAG 
















00426 32 02574 


00000 


00420 




TF 


PAC 


tONEZ+2 


. . 


FAC • 1 (P*2 DIGITS) 
















00438 26 02492 


03040 


00430 




TR 


AAB-3 


.AABS-8 


,01, 


SET COUNTERS. AB - 2 FACTORIAL 
















00450 LJ 00865 


00894 


00440 


OVER 


TDM 


SUM*1 


.2 


.Ot 


SET SUM TO SUBTRACT 
















00462 J5 00535 


0000 2 


00450 




TF 


99 


|98MF 


.11. 


SHIFT PRODUCT 00474 26 00099 


03320 


00460 




TPM 


97MF 


,0000 


• 66 


00466 16 0332L 


0-000 


00470 







96 MP 


t AB 


• 16, 


DIVIDE BY AB 00496 2R 0332Q 


00692 


00660 




BZ 


DONE 


» 


• 


00510 M6 00662 


01200 


00690 




TP 


SAVE 


»95 


,10, 


STORE QUOTIENT 00522 26 02565 


0O0R5 


00900 


SUM 


$ 


PAC 


t SAVE 


• • 


SUBTRACT QUOTIENT FROM FAC 
















005 34 22 02492 


02565 


00510 




AM 


AAB-2 


•02 


•010. 


AB CONTAINS K FACTORIAL 
















00546 Jl 00666 


000-2 


00520 




AM 


AA6 


.02 


.010. 


FINO K+2 FACTORIAL MODIFIED FOR 
















00556 Jl 00666 


000-2 


00530 




M 


AAB 


•AAB-2 


•01. 


PROOUCT DEVELOPMENT, PUT IN AB 
















C0570 KL 00666 


00666 


00560 




TF 


AB 


.99 


.0 


00582 K6 00892 


00099 


00550 




TP 


79 


♦ZEROM 


.11 


00594 26 00079 


0344N 


00560 




M 


IMSAPF 


• SAVE 


.6. 


MULTIPLY ARG BY QUOT \ i v T 
















CC6 06 23 0329Q 


02565 


00570 




CM 


SUMM 


• 9521 


•OS. 


ADO OR SUBTRACT AT SUM 
















00618 J4 00535 


OR 521 


009B0 




BE 


OVEN 


» 


.0, 


SUBTRACT 00630 M6 00462 


01200 


00590 




TOM 


SUM*1 


• 1 


,0, 


SET SUM TO AOO 00642 J5 00535 


0000 1 


00600 




B 


OVER* 12 




•0 


00654 M9 00474 


00000 


00610 




DORG 


*-4 






00661 




00620 


DONE 


C 


PAC-1 


• 9SPF 


• » 


COMPARE RESULT TO ZERO 
















00662 24 02491 


02656 


00630 




M 


ZERPAC 


• 


t • 


EQUAL. RESULT - ZERO 
















00674 46 03422 


01200 


00640 




TFN 


SAVE 


•01 


.10, 


SET UP CHARACTER! ST IC OP RESULT 
















00686 16 02565 


000-1 


00650 




•0 


NORM72 


•CLF*10 


,01, 


SET UP SIGN OF RESULT 
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00698 


ML 00854 




00660 




SF 


99 




1 1 


BR TO NORMALIZATION 

0O710 


32 00099 


00000 


00670 




B 


N0RM72 




,0 


0O7 22 


M9 00854 


00000 


00680 




OCRG 


• -4 






00729 






00690 


POZEXP 


C 


FAC 


,F 


, • 


COMPARE CHAR TO F 

00730 


24 02492 


02219 


00700 




bi 


♦ ♦56 


i 


tO, 


BR IF GREATER 00742 


M6 00798 


01100 


00710 




TF 


• ♦30 


» I SPFM1 


,0 , 


ADJUST MANTISSA (IN IMSAPF ) FOR 
















00754 


K6 00784 


03303 


00720 




S 


• ♦18 


» FAC 


,0 , 


CHAR GREATER THAN OR EQUAL TO ZERO 














00766 


K2 00784 


02492 


00730 




T F 




»FAC-2 


, , 


AND LESS THAN OR EQUAL 
007 7 8 


TO F 

26 00000 


02490 


00740 




b 


BRO 


» 


,0 


00790 


M9 00 27 


00000 


00750 




OORG 


»-4 






0O797 






00760 




TFM 


EI 


,670 


,9, 


SET ERROR Fl, LOSS OF 


SIGNIFICANCE 














0O7 98 


16 02615 


00070 


00770 




B 


UNFLO 




, , 


IN FSIN OR PCOS,FAC - 

008 10 


ZERO 
49 03466 


00000 


00780 




OORG 


• -4 






0O817 






Q0790 


N0RP36 


TR 


PNH 


,FM 


,611, 


LEFT SHIFT ONCE 00818 


31 0331L 


03300 


00800 




TOM 


FAC- 1 


,0 


, , 


SET LAST DIGIT TO ZERO 
008 30 


15 02491 


00000 


00810 




S' c 


FNM 


, 


,6 


00842 


32 033 1 L 


00000 


00820 


NORM72 


BD 


FINISH 


, FNM 


,611, 


TEST LEADING ZERO 

00854 


43 0372L 


0331L 


00830 




SM 


SAVE 


,01 


,10, 


SUB T QNE FROM EXPINENT 
00866 


12 02565 


000-1 


00840 




b 


N0RP36 




tO 


008 78 


M9 008 18 


00000 


00850 




OORG 


♦ -4 






00885 






00860 


AAB 


OS 


4 






00888 


00004 




00870 


AB 


OS 


4 






00892 


00004 




00880 




OS 


1 






008 9 3 


00001 




Q0890 




PC 


2,0 1 






00895 


00002 




00900 




uc 


2,02 






00897 


00002 




00910 


AABS 


OC 


5 ,0002* 






00902 


00005 




00920 


F AC 


OS 




,02492 




02492 


00000 




00930 


FNM 


OS 




,03313 




03313 


00000 




00940 


FNHM1 


DS 




,03358 




03358 


00000 




Q0950 


IMSAPF 


OS 




,03298 




03298 


00000 




00960 


9SPF 


OS 




,02854 




02854 


00000 




00970 


MP 


DS 




,03666 




03666 


00000 




00980 


P I0V2 


OS 




,03 163 




03163 


00000 




00990 


TW0P1 


OS 




,03103 




03 103 


00000 




01000 


IMSA 


OS 




,02575 




02575 


00000 




01010 


PI 


OS 




,03133 




03133 


00000 




01020 


ZERO 


OS 




,02767 




02767 


00000 




01030 


98NP 


OS 




,03328 




03328 


00000 




01040 


97MF 


OS 




,03323 




03323 


00000 




01050 


SAVE 


DS 




,02565 




02565 


00000 




01060 


ZERFAC 


OS 




,03422 




03422 


00000 




01070 


F 


DS 




,02219 




02219 


00000 
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01080 


ISPFM1 


OS 


,03303 


03303 


00000 


01090 


EI 


OS 


,02615 


026 15 


00000 


01100 


FH 


OS 


,03308 


03308 


00000 


oino 


FINISH 


OS 


,03723 


03723 


00000 


01120 


ONEZ 


OS 


,03038 


03038 


00000 


01130 


ZEROM 


OS 


,03445 


03445 


00000 


01140 


UNFLO 


OS 


,03466 


03466 


00000 


01150 


MF0V2 


OS 


,03822 


03822 


00000 


01160 




OEND 2 




00002 





1 178 
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00010»«*»» 


1620 FORTRAN 


1 I -0 


RELOCATABLE FLOATING ARCTANGENT ROUTINE 




OO02O**** 


ARCTAN ( X ) • 


X - (X**3>/3 ♦ 


<X»»5l/5 - <X**7)/7 ♦ . 








00030 




OSA 


FATN 






00004 


00005 -0006 


000*0 


FATN 


TFL 


FAC 


iFATN-l 


♦ 111 


LOAO ARGUMENT 00006 


00 


02492 


OOOON 


00050 




BO 


•♦20 


t FNH 


,011, 


IS ARG ZERO • 00016 


M3 


00038 


0331L 


00060 




B 


ZERFAC 




♦ ♦ 


YES 00030 


49 


03422 


00000 


00070 




OORG 


•-4 






00037 








oooao 




TFM 


TESTUl 




♦ 08 ♦ 


RESET INOICATORS 00038 


J6 


0007 3 


0-000 


00090 




BNF 


TEST*24 


tFAC-2 


.0, 


BR IF ARG NEGATIVE 

00050 


M4 


00086 


02490 


00100 


TEST 


SF 


• ♦9 




♦0, 


SET INDICATOR, ARG NEG 
00062 


L2 


00071 


00000 


001 10 




CF 


FAC"' 2 




, f 


ARG • ABS ARG 00074 


33 


02490 


00000 


00120 




CH 


FAC 


,00 


,10, 


IS CHAR OF ARG 00086 


14 


02492 


000-0 


00130 




BH 


TEST 1*20 




tO, 


POSIT IVE 00098 


M6 


00870 


01100 


00140 




BE 


ALPH* 12 




.0, 


EQUAL ZERO 00110 


M6 


00266 


01200 


00150 




M 


•♦35 


,F 


♦Of 


NEGATIVE 00122 


K3 


00157 


02219 


001*0 




SM 


96 


,05 


♦ 10, 


FIND-.51F-1) 00134 


12 


00098 


000-5 


00170 




SF 


97 


,50 


tlO 


00146 


32 


00097 


OOONO 


00180 




TF 


•♦23 


♦ 97 


♦ 


00158 


K6 


00181 


00097 


00190 




CM 


FAC 




♦ t 


IF CHAR OF ARG IS 

00170 


14 


02492 


-0000 


00200 




BL 


EOO 




♦Ot 


LESS THAN -,5<F-i),BR 
00182 


M7 


01094 


01300 


00210 




TFM 


ALPH-i 


♦FAC-2 


♦ 07, 


SET UP ADJUST MANTISSA 
00194 


J6 


00253 


-2490 


00220 




A 


ALPM-1 


♦ FAC 


♦ 0. 


00206 


XI 


00253 


02492 


00230 




TF 


FNHM1 


♦9SPF-1 


♦ 6 


00218 


26 


03350 


02853 


00240 




CF 


FNH 




♦ 6 


00230 


33 


0331L 


00000 


00250 




TF 


FAC-2 






ADJUST MANTISSA 00242 


26 


02490 


ooooo 


00260 


ALPH 


SF 


FNH 




♦ 6 


00254 


32 


0331L 


00000 


00270 




CM 


FH 


♦ 29 


♦ 610, 


COMPARE HI ORO MANTISSA DIGITS 
















00266 


14 


0330Q 


000K9 


00280 




BL 


• ♦132 




• 0, 


TO 29, IF LESS THAN 29 
00278 


BR 
M7 


00410 


01300 


00290 




TF 


97 


♦9SPF-1 




00290 


26 


00097 


02853 


00300 




MM 


FAC-2 


,06 


♦ 10, 


FIND 1.6 TIMES MANTISSA 


















00302 


13 


02490 


000-6 


00310 




TOM 


98MF 


♦ 1 


♦ 611 


00314 


15 


03320 


OOOOJ 


00320 




S 


FAC-2 


♦ SIX 


♦ ♦ 


FINO MANTISSA MINUS .6, 


PUT IN FAC 














00326 


22 


02490 


03219 


00330 




TF 


BETA 


♦ 99 


♦ ♦ 


STORE 1.6 MANTISSA IN BETA 
















00338 


26 


02603 


00099 


00340 




TF 


79 


, ZERO-42 




00350 


26 


00079 


02725 


00350 




LP 


98 MF 


♦FAC-2 


♦ 6f 


FIND <FAC-.6)/( 1.6 X MANTISSA* 
















00362 


28 


0332Q 


02490 


00360 







HNO 


♦ BETA 


♦ 6 


00374 


29 


0333Q 


02603 


00370 




TF 


FAC-2 


,97MF 


,11. 


PUT QUOTIENT IN FAC 

00386 


26 


02490 


0332L 


00380 




SF 


TEST*ll 




,0, 


SET INDICATOR, HI ORO GREATER 29 














00398 


L2 


00073 


OOOOO 


00390 




TF 


79 


,ZER0-44 




004 10 


26 


00079 


02723 


00400 




M 


FAC-2 


, FAC-2 


♦ ♦ 


SQUARE FAC MANTISSA 
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00422 23 02490 02490 



00410 




TF 


SAVE 


,PDT 


,11, 


STORE IN SAVE 00434 26 02565 


0333L 


00420 




TF 


BETA 


,9SPF 


♦ ♦ 


BETA IS F*l ZEROS 
















00446 26 02603 


28 54 


00430 




TF 


ATN1*35 


♦ 2FM1 


,0, 


SET DIVISOR EQUAL 2F-1, DENOTE AS W 














00458 K6 00517 


03581 


00440 




TF 


ALPH+11 


♦ FM1 


♦o» 


SET COUNTER EQUAL F-l 
















00470 K6 00265 


03783 


00450 


ATN1 


TF 


99 


♦ZERO-47 




00482 26 00099 


02720 


00460 




TFM 


98 MF 


♦ 10 


♦ 610 


00494 16 0332Q 


OOOJO 


00470 




DM 


98MF 




,6, 


DIVIDE 10/N 00506 19 0332Q 


OOOOO 


00480 




S 


96 


♦ BETA 


♦ ♦ 


SUBTRACT BETA FROM QUOTIENT 
















00518 22 00096 


02603 


00490 




TF 


BETA 


♦ 96 




REPLACE BETA BY DIFFERENCE 
















00530 26 02603 


00096 


0U500 




TF 


79 


♦ZERO-43 




00542 26 00079 


02724 


oimo 




N 


at i « 


♦ SAVE 


♦ ♦ 


BETA EQUALS BETA TIMES 
















00554 23 02603 


02565 


00520 




TF 


BETA 


,POT 


,11, 


SQUARE OF MANTISSA 
















00566 26 02603 


0333L 


00530 




SM 


ATN1+35 


♦ 02 


,010, 


W EQUALS W-2 00578 J2 00517 


000-2 


00540 




SM 


ALPH* 1 1 


♦ 01 


♦ 010, 


REDUCE COUNTER BY ONE 
















00590 J2 00265 


000-1 


00550 




BNZ 


ATN1 




,0, 


IS COUNTER ZERO 00602 M7 00482 


1 200 


00560 




TF 


SAVE 


•ONE2+2 


♦ ♦ 


YES ♦ SAVE IS ONE (F+2 DIGITS) 
















00614 26 02565 


03040 


00570 




S 


SAVE 


♦ BETA 




FIND 1 - BETA 00626 22 02565 


02603 


00580 




TF 


79 


♦ZERO-42 




006 38 26 00079 


02725 


00590 




M 


SAVE 


♦FAC-2 




00650 23 02565 


02490 


00600 




BNF 


TEST2 


♦ TEST* 1 1 


,01, 


TEST INDICATOR, Hi ORD GREATER 29 
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00949 


-2997 


009*0 




8 


I0GT.MU1.7, 


RIAO EQUIVALENCE 


TA8LE 
0299* 


49 


009** 


-9490 


00570 


RMK 


9NR 


0IMI0,LIIT*11,7, 


ENO OP LIST TEST 


02999 


45 


09070 


J2011 


005*0 




TM 


!ORT,**29 




09010 


jt 


00949 


-9099 


00990 




9 


10PT.I0U1.7 




09022 


49 


00992 


-9490 


00*00 




AM 


PICK*11.4,10 




09094 


1 1 


02941 


000-4 


00*10 




c 


DR0PDN,P1CK*11 




0904* 


24 


09374 


02041 


00*20 




BE 


MONCAL 




09098 


46 


00794 


01200 


00*90 




87 


PICK 




09070 


49 


02030 


00000 


00*40 


01ME0 


c 


DIMNU*,LIST*15, , 


LOOK FOR DIN NUN8ER 


















09078 


24 


02434 


12019 


00*90 




8N€ 


• ♦24 




09090 


47 


03114 


01200 


00**0 




TP 


OIMEQ+ll, I IftHTSt 4t 


PUT IN 1* EIGHTS 


09102 


26 


O9O0R 


09409 


00*70 




AM 


RMK*11» 16. 10. 


INCREMENT TO NEXT 


NAME 
09114 


11 


09009 


000J4 


00*60 




AM 


DIMEO+11.16.10 




0912* 


11 


09099 


000J4 


00*90 




CM 


0IMfQ*lWLlST44015»« 


ENO OP 40 SECTORS 


09130 


14 


09099 


J4015 


00700 




8L 


RMKffi NO 




09150 


47 


02990 


01900 


00710 




TPM 


IORT»»*23 




03162 


1* 


00949 


-9109 


00720 




m 


IUPT. EOUl. 7. 


WRITE EQUlV. TABLE 


















03174 


49 


00992 


-9490 


00790 




AM 


EQU22+9.40.10 




0318* 


11 


09929 


000 MO 


00740 




87 


RDf QU 




09199 


49 


02990 


00000 


00790 




DC 


2.0 




09204 


00002 




007*0 


SOUS A 


DC 


5.0 




09211 


00005 




00770 




OC 


4.0 




09?19 


00004 




007*0 


DIMMER 


MM 


DIMMER-1.2. 10. 


PINO CORRECT OIM 


ENTRY 
0921* 


13 


09219 


000-2 


00790 




AM 


9*. 48 ,10 




03220 


11 


0009* 


0O0M9 


00800 




TP 


0IM2*5.96 




03240 


26 


09412 


00099 


00*10 




TPM 


D1M2*S»1»9 




03252 


1* 


09419 


00-01 


00120 




TPM 


OIN2M9.LISTDK 




032*4 


1* 


09420 


-9900 


00*90 




TO 


TREC-1.99 




03276 


29 


09939 


00099 


00940 




TPM 


I0RT,»*29 




03286 


1* 


00949 


-9311 


00950 




8 


I06T.0IMU7 




03300 


49 


00944 


-3599 


009*0 




TPM 


TREC+11. L1STDK 




03312 


1* 


03347 


-3000 


00870 




AM 


TREC*10»0|10 




03324 


11 


03344 


000-0 


00880 


TREC 


TR 


DMNXT.Ll STDK 




03336 


31 


03579 


03000 


00890 




882 






03346 


42 


00000 


00000 


00900 


ERR? 


H 






03350 


48 


00000 


00000 


00910 


POINT 


oc 


5,0. 




0336* 


00005 




00920 


SA 


OC 


5.0. 




03371 


00005 





1187 
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00930 


DROPDM 


OC 


5.0. 










03376 


00005 






00940 


ZER019 


oc 


19*0 










03395 


00019 






00950 


IORT 


OS 


.5*5 










00565 


00000 






009*0 


IOGT 


DS 


.5*6 










0056* 


00000 






00970 


IOPT 


OS 


,532 










005 32 


00000 






00980 


MAPI 


OSC 


2.22 










03396 


00002 






00990 




OSA 


MAP 2 










03402 


00005 


-3404 


01000 




DSC 


I.* 










03403 


00001 






01010 


MAP2 


OSC 


1.1 










03404 


00001 






01020 




DC 


5.04800 










03409 


00005 






01030 




DC 


3.2 










03412 


00003 






01040 




OSA 


DIMS 










03417 


00005 


J1B00 


01050 




OSC 


1.8 










03416 


00001 






01040 


SPL1 


DSC 


2.22 










03419 


00002 






01070 




DSA 


SPL2 










03425 


00005 


-3538 


01080 




DSC 


l.a 










03426 


00001 






01090 


LJSTOK 


DAC 


23.S.P. LIST IS 


INCORRECT* 








03429 


00046 






01100 


MONCAL 


DS 


.794 










00796 


00000 






OHIO 


EIGHTS 


OC 












03489 


00016 






01120 


E0U1 


DSC 


2.22 










03490 


00002 






01130 




DSA 


EQU22 










03496 


00005 


-3518 


01140 




DSC 


l.a 










03497 


00001 






01150 


EQU2 


DSC 


20.0 










03498 


00020 






011*0 


E0U22 


DSC 


20.0 










03516 


00020 






01170 


SPL2 


OSC 


20.0 










03538 


00020 






01160 




DC 


1.0 










03558 


00001 






01190 


MAP20 


OSC 


20 .0 










03559 


00020 






01200 


DMNXT 


OSC 


20.0 










03579 


00020 






01210 


DIM1 


DSC 


2.22 










03599 


00002 






01220 




DSA 


01*2 










09605 


00005 


-3607 


01230 




OSC 


l.a 










03606 


00001 






01240 


01M2 


DSC 


l.i.* 


CONTROL HELD 


TO 


RE AO DIMS 






















03607 


00001 






01250 




OC 


5.04600 










03612 


00005 






012*0 




DC 


3.050 










09615 


00003 






01270 




DSA 


DIMS 










09620 


00005 


J 1800 


01200 




DSC 


l.a 










09621 


00001 






01290 




D0R6 


3700 










09700 








013004* 


EDIT THE OIM TABLES 


POR PLA6S OR 


RECORD MARKS 








01310 


SAVE 


MM 


0IMSO46.9.10, 


MAXIMUM NUMBER 


OP 


DIMS 
























03700 


13 118*6 


000-5 


01320 




SP 


9* 










03712 


32 0009* 


00000 


01330 




TP 


MAXDIM.99 










03724 


26 02632 


00099 


01340 




TPM 


OIMNUM.1.6, 


START 


DIM COUNTER 


0373* 


16 02*3* 


0-001 


01350 




TPM 


NAP,DIMS*20». 


IN IT. 


TO 


IN POSITION 1 
























03748 


16 05373 


J1620 


01360 




TR 


EQU2.DINS*40 










03760 


31 09496 


11040 


01370 




TPM 


0R0P0N,USTCM*9 










03772 


16 09976 


-3703 


01360 




TOM 


START*25tl,, 


NOP BRANCH 


TO 


SAVE 
























03764 


15 03629 


0000 1 


01390 




87 


STARTS**.,. 


RETURN 


1 TO 1 


4AIN 


OIM EXIT 
























03796 


49 03652 


00000 


01400 


START 


TPN 


IORT, »+29 










03604 


16 00545 


-3027 



f 188 
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01410 




b 


I00T,DIM1,7, 


REAO DIMS 


038 16 


49 


00566 


-3599 


01420 




8 


SAVE,,, 


CHANGE TO NOP AFTER FIRST 


TIME 














03828 


49 


03700 


00000 


01430 




TFM 


NAP, DIMS*. 


IN I T • TO POSITION 


ZERO 
03840 


16 


05373 


J1800 


01440 




TFM 


CNT2,0, 10, 


NAP+CNT2 IS POINT 


03852 


16 


04270 


000-0 


01450 


TEST 


5NR 


INUSE, MAR, 11, 


IS DIM IN USE 


03864 


45 


04104 


0537L 


01460 




AM 


MAP, 1,(0, 


NO 


03876 


11 


05373 


000-1 


0)470 




AM 


CNT2, 1* 10, 


TEST FIRST POSITION 


















03888 


11 


04270 


000-1 


1480 






TEST1 




03900 


49 


03952 


00000 


01490 


TESTR 


AM 


MAP , 1, 10 




03908 


11 


05373 


000-1 


01500 




AM 


CNT2, 1, 10 




039 20 


11 


04270 


000-1 


01510 




HNF 


• ♦20, MAP, 11 , 


TEST REST OF OIM 


03932 


44 


03952 


0537L 


01520 




B7 


OIMFOR,,, 


FOR UNFL AGGED ZEROS 


















03944 


49 


04264 


00000 


01530 


TEST1 


80 


OIMFOR, MAP, 11 




03952 


43 


04264 


0537L 


01540 




CM 


CNT2, 19, 10, 


' HAS LAST ONE BEEN 


TESTEO 
















03964 


14 


04270 


000 J9 


01550 




8L 


TESTR 




03976 


47 


03908 


01 300 


01560** INCREMENT TO NEXT 01* ENTRY 












01570 


NEXT 


AM 


DlMNUM,l,10t 


NEXT DIM NUMBER 


03988 


11 


02636 


000-1 


01580 




C 


01 MNUM, MAX01 M, , 


END OF OIM TABLE 


04000 


24 


02636 


02632 


01590 




BE 


PUTCYL 




04012 


46 


04622 


01200 


01600 




AM 


MAP, 1, 10 




04024 


11 


05373 


000-1 


01610 




CM 


MAP,01MS*5000, , 


END OF 50 SECTORS 


04036 


14 


05 373 


J6B00 


01620 




OL 


TEST-12 




04048 


47 


03852 


01300 


01630 




TFM 


10RT,**23 




04 060 


16 


00565 


-4083 


01640 




8 


I0PT,DIM1,7, 


WRITE OIM TABLE 


04072 


49 


00532 


-3599 


01650 




AM 


D1M2*5,50, 10, 


YES 


04 084 


11 


03612 


OOONO 


01660 




87 


START,,, 


GO READ NEXT 50 


04096 


49 


03804 


00000 


01670 


INUSE 


TFM 


CA,CFIELO,, 


OIM IS IN USE 


04 104 


16 


04294 


-4534 


01680 




TF 


LP*li,MAP 




04116 


26 


04 1 39 


05373 


01690 


LP 


BNR 


•♦20, MAP,, 


CHECK FOR VALID OIM 


















04128 


45 


04 1 48 


0537 3 


01700 




87 


OIMFOR,,, 


ACCORDING TO CFIELO 


















04140 


49 


04264 


00000 


01710 




no 


AOOl.CA, 11 




04 1*8 


43 


04 184 


04 29M 


01720 




HNF 


NF ,CA,U 




04160 


44 


04252 


0429M 


01730 




BNF 


OIMFOR, LP* 1 1 . 11 




04172 


44 






01740 


A001 


AM 


CA, 1, 10 




04184 


11 


04294 


000- 1 


01750 




AM 


LP*llt 1, 10 




04 196 


11 


04139 


000- 1 


01760 




BNR 


LP,CA, 11 




04208 


45 


04128 


0429M 


01770 




BNR 


OIMFOR, LP*U, 11 




04220 


45 


04264 


0413R 


1780 




AM 


MAP, 19, 10 




042 32 


11 


05373 


000J9 


01790 




87 


NEXT 




04244 


49 


03988 


00000 


01800 


NF 


BNF 


ADDl,LP*ll, 11 




04252 


44 


04184 


0413R 


01810 


OIMFOR 


HCTY 


• ii 


OIM ENTRY IS IN ERROR 


















04264 


34 


00000 


00102 


01820 


CNT2 


OC 


2,0,*-5 




04270 


00002 




01830 




WATY 


FOR MO 




04276 


39 


04501 


00100 


01840 




ftCTY 






04288 


34 


00000 


00102 


01850 


CA 


OC 


5,0,*-5 




04294 


00005 





1 1 8 li 
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01860 




HNTV 


01 MNUM- 3, , , 


TYPE DIM NUMBER 04300 


38 


02633 


00100 


01870 




SPTY 




04312 


34 


00000 


0010 1 


01880 


OBI 


DC 


6, 10000 l,*-4 


043 19 


00006 




01890 




S 


MAP,CNT2 


04324 


22 


05 37 3 


04270 


01900 




TFM 


OUMP , 19980 


043 36 


16 


05397 


J9980 


01910 


TODUMP 


ID 


0UMP,MAP,6U 


04348 


25 


05 39P 


0537L 


01920 




AM 


MAP ,1,10 


04360 


11 


05373 


000-1 


01930 




AM 


DUMP, 1, 10 


04372 


11 


05 397 


000-1 


01940 




BD 


TDDUMP,0UMP-1 


04384 


43 


04348 


05396 


01950 




DNTY 


19980 


04396 


35 


19980 


00100 


01960 




SM 


MAP, 1,10 


044 08 


12 


05373 


000-1 


01970 




TF 


MAP , I ERO 19,6, 


DELETE INVALID OIM ENTRY 














044 20 


26 


0537L 


03395 


01980 




SM 


MAP, 19, 10 


04432 


12 


05 37 3 


000J9 


01990 




TDM 


MAP , ,6 


04444 


15 


0537L 


00000 


02000 




DSC 


ltd** 


04455 


00001 




02010 




AM 


MAP, 19, 10 


04456 


11 


05373 


000J9 


02020 




TF 


DR0P0M,DIMNUM,6 


04468 


26 


03370 


02636 


02030 




AM 


DROP DM, 4, 10 


04480 


11 


03376 


000-4 


02040 




B7 


NEXT 


04492 


49 


03988 


00000 


02050 


FORMO 


OAC 


17, DIM FORMAT ERRORS 


04501 


00034 




02060 


CFIELO 


DSC 


ItO 


04534 


00001 




02070 




OC 


5,0 


045 39 


00005 




02080 




PC 


3.0 


04542 


0000 3 




02090 




OC 


5,1 


C4547 


00005 




02100 




OC 


5,1 


04552 


00005 




02110 




OSC 


ltd 


04553 


00001 




02120 


SAVE1 


TR 


$PL2,OIMS*80 


04 554 


31 


03538 


11880 


02130 




TF 


SCRSCDIMS+28 


04566 


26 


04845 


11828 


02140 




TF 


SCRSA,D!MS*25 


04578 


26 


03211 


11825 


02150 




TO 


SCRSA-5,0!MS+20 


04590 


25 


03206 


11820 


02160 




TOM 


R0LIST+?5,1 


04602 


15 


04835 


00001 


02170 




87 


TRMAP 


04614 


49 


04846 


00000 


02180** MAKE A 


LIST WITH ONLY CYLINDER 


ENTRIES IN IT 








02190 


PUTCYL 


TFM 


LIST*3, 7000,28 


04622 


16 


J2003 


OP 000 


02200 




CP 


LIST, ,2 


04634 


33 


J 2 000 


00000 


02210 




AM 


PUTCYL*6,4,10 


04646 


11 


04*28 


000-4 


02220 




AM 


PUTCVL*lltl»l0 


04658 


11 


04633 


000- 1 


02230 




AM 


PUTCYL+18,4,10 


04670 


11 


04640 


000-4 


02240 




§o 


•♦20,PUTCVL*9,, 


TEST FOR LAST ENTRY DONE 














04682 


43 


04702 


04631 


02250 




87 


PUTCYL 


04694 


49 


04622 


00000 


C2260 




TOM 


PUTCYL+li, ,6, 


A 00 FINAL RECORD MARK 














04702 


15 


0464- 


00000 


02270 




OSC 


Iti,* 


04713 


00001 




022 SO 




SF 


LIST,,, 


FLAG START OF LIST 

04714 


32 


12000 


00000 


02290 




AM 


PUTCVL*1I»4» 10 


04726 


11 


04640 


000-4 


02300 




TM 


PUTCYL* 18,0,68 


047 30 


16 


0464- 


0-000 


02310 




SM 


PUTCYL*lt,3, 10 


04750 


12 


04640 


000-3 


02320 




CP 


PUTCYL*18,,4 


04762 


33 


0444* 


00000 


02330 




AM 


PUTCYL*ll»3»iO 


0*774 


11 


04640 


000-3 


02340 




TFM 


0IMNUM,0002»8, 


START WI7H OIM ENTRY TWO 







1190 
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0*786 


16 


02636 


0-002 


02350 




TFM 


TRMAP*U,OIMS**0 


0*798 


16 


0*857 


J1840 


02360 


ROL 1 ST 


TFH 


IORT,**23», 


RE AO TWO SECTORS OF OIMS 














0*810 


16 


00565 


-*8 33 


02 370 




8 


I0GT»MAP1»7 


0*822 


49 


00564 


-3394 


02380 




8 


SAVE1 


0*83* 


49 


0*55* 


00000 


02390 


SCRSC 


oc 


3,0,* 


0***5 


00003 




02*00 


TRMAP 


TR 


MAP 20,01 MS 


0*8*6 


31 


03559 


11800 


02*10 




BNR 


MONPK-2*,MAP20 


0*858 


*5 


0*942 


03559 


02*20 


NXT 


AM 


DIMNUN»1,10, 


NEXT 01 M ENTRY 0*870 


11 


02434 


000-1 


02*30 




C 


01MNUM,NAXOIM», 


LAST OIM TEST 0*882 


2* 


02434 


02432 


02**0 




BNL 


FILLIM 


0*89* 


46 


05*38 


01300 


02*50 




AM 


TRMAP*U,20il0i 


NEXT ENTRY 0*906 


11 


0*857 


OOOKO 


02*60 




BO 


TRMAP tOlMNUM 


0*918 


*3 


0*8*4 


02434 


02*70 




AM 


MAP2*5,2,10, 


READ NEXT TWO SECTORS 

0*930 


11 


03*09 


000-2 


02*80 




TFM 


TRMAP* 11, 01 MS 


0*9*2 


1* 


0*8 57 


J1800 


02*90 




87 


ROUST 


0*95* 


*9 


0*810 


00000 


02500** DIM REFERS TO MONITOR PACK 
















MAD >ft . 1 « 1 ft 


0*962 


14 


03559 


000-1 


02520 




BM 




0*97* 


46 


0*870 


01100 


02530 


MONPK 


MM 


MAP 20 ♦St 3, 10 1 


CALCULATE CYLINDER OF PROGRAM 












0*986 


13 


0354* 


000-5 


025*0 




TO 


CVL, 94 


0*998 


25 


0519S 


00096 


02550 




TO 


CVL-1,95 


05010 


25 


05192 


00095 


02560 




TFM 


LK*11,LIST*3,, 


INIT. CVL. SEARCH TO FIRST 


ENTRY 












05022 


16 


050*5 


J2003 


0*910 


LK 


I 


CYL.LlST*3,7, 


COMPARE FOR CVL INOER OF 


PROGRAM 












0503* 


2* 


05193 


J2003 


02580 




fcE 


GETR 


050*6 


46 


05078 


01200 


02590 




AM 


LK*li,*,10, 


NEXT ENTRY 05058 


11 


050*5 


000-* 


02*00 




87 


LK 


05070 


*9 


0503* 


00000 


02610 


GETR 


AM 


IK+U,1,10 ( 


GET RIGHT HAND ENTRY H.O. 














05078 


11 


050*5 


000-1 


02620 




BNR 


•♦32,LK*ll,li 


05090 


45 


05122 


0504N 


02630 




AM 


LK*U»3,10 


05102 


11 


050*5 


000-3 


026*0 




B7 


INS,,, 


IF RECORD MARK, INSERT OIM 














0511* 


*9 


05244 


00000 


02650 




AM 


LK+11,3,10 


05122 


11 


050*5 


000-3 


02660 




C 


SEVtlK+Utll 


0513* 


2* 


05217 


050*N 


02670 




6L 


!NS,,» 


IF CYLlNOERt INSERT DIM 
051*6 


*7 


05244 


01300 


02680 




TF 


DNBT*4,LKtil 


05158 


26 


05188 


050*5 


02690 




SM 


0MBT*6,3,10 


05170 


12 


05188 


000-3 


02700 


OMR T 


SF 


LIST,,. 


IT MUST BE A OIM NUMBER 
05162 


32 


12000 


00000 


02710 


CVL 


OC 


4,7000,* 


05193 


0000* 




02720 




BT 


DIMMER«LK+llt 11 


05194 


27 


03214 


050*N 


02730 




CF 


DMBT+4,,4 


05206 


33 


05180 


00000 


027*0 


SEV 


PC 


4,6999,* 


05217 


0000* 




02750 




TF 


HOLD5,MAP20*5 


05218 


24 


05313 


0354* 


02760 




S 


MOLD5,0MNXT*5 


05230 


22 


05313 


0358* 


02 770 




BZ 


ERR 


052*2 


46 


05*04 


01200 



U9I 
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02780 




BP 


GETR 




05254 


46 


05078 


01100 


02790** 


INSERT 


OIM NUMBER INTO LIST 












02B00 INS 




TF 


TF0IM*li,PUTCYL*l8 




05266 


26 


05325 


046*0 


02810 




AM 


PUTCYL*l8,* t 10, 


CONTAINS AOORS. OF RECORD MARK 














05278 


11 


04640 


000-* 


02820 




SM 


L**ll,3»10 




05290 


12 


05045 


000-3 


02830 




SF 


LK*11.»6 




05302 


32 


0504N 


00000 


028*0 H0L05 




OC 


5,0,* 




05313 


00005 




02850 TFDIM 


TF 


PUTCYL*18,LIST*4, 6, 


OPEN FOR OIM NUMBER 
















05314 


26 


0*6*- 


1200* 


02B60 




AM 


LK*ll,3,10 




053 26 


11 


050*5 


000-3 


02870 




TF 


IK*11, DIMNUM,6, 


PUT IN DIM NUMBER 


05338 


26 


0504N 


02434 


02880 




SM 


LK*il,3»10 




05350 


12 


050*5 


000-3 


02890 




CF 


LK* 11, ,6, 


CLEAR FLAG OVER DIM 


















05362 


33 


0504N 


00000 


02900 MAP 




OC 


5,0,* 




05373 


00005 




02910 




AM 


LK*ll,4,l0 




0537* 


11 


050*5 


000-* 


02920 




CF 


LK*il,,6 




05386 


33 


050*N 


00000 


02930 DUMP 




OC 


5,0,* 




05397 


00005 




029*0 




B7 


NXT 




05398 49 


0*670 


00000 


02950** 


TWO PROGRAMS START AT THE SAME 


SECTOR ADDRESS 










02960 ERR 




TF 


OROPDM « D I MNUM , 6 * 




05*06 


26 


03370 


02434 


02970 




AM 


DR0PDM,*,10 




05*18 


11 


03374 


000-4 


02980 




87 


NXT 




05*30 


*9 


0*870 


00000 


02990** 


F 


ILL IN LIST MITH 9-6NTRIES AND DUPLICATE OIMS 










03000 FILL I 


N 


TFM 


SA,0,7, 


INIT. TO START OF 


LIST 
054 38 


16 


03371 


-0000 


03010 




TFM 


POINT, LI ST>3 




05*50 


16 


03344 


J2003 


03020 




TFM 


SC,200,9, 


INIT. SC TO 200 


05*62 


16 


05441 


OOKOO 


03030 NX 




AM 


POINT, I, 10 ♦ 


NEXT ENTRY TO RIGHT H.O. 


















05*7* 


11 


03344 


000- 1 


030*0 




BNR 


•♦32, POINT, 11 




05*84 


*5 


05518 


03340 


03050 




AM 


POINT, 3,10, 


REACHED END OF LIST 


















05498 


11 


03344 


000-3 


03060 




B7 


LST 




05510 


49 


04604 


00000 


03070 




AM 


POINT, 3, 10 




05518 


11 


03344 


000-3 


03080 




C 


SEV, POINT, Ui 


IS IT A CVL INOER 


ENTRY 
05530 


2* 


05217 


03940 


03090 




BNL 


NOCVL 




055*2 


46 


05744 


01300 


03100 




CM 


SCO, 9, 


IS SC DOWN TO ZERO 


















0555* 


I* 


05441 


00-00 


03110 




BE 


NX-12 




05544 


*6 


05*42 


01200 


03120 




TF 


PT9«m,END,, 


YES 


05576 


24 


05437 


0*440 


03130 




AM 


EN0,*,10 




05590 


11 


044*0 


000 -* 


031*0 




SM 


POINT , 3, 10 




05402 


12 


03344 


000-3 


03150 




SF 


POINT, ,6 




0541* 


32 


03340 


00000 


03140 PT9 




TF 


EN0,LIST,4, 


MOVE LIST TO THE 


RIGHT 
05424 


24 


0464- 


12000 


03170 




TF 


NINESCSC 




054 36 


24 


05709 


05441 


03180 




CF 


NINESC-2 




05450 


33 


05707 


00000 


03190 SC 




DC 


3,0,* 




05441 


00003 




03200 




AM 


POINT ,3, 10 




09442 


11 


09344 


000-3 


03210 




TF 


POINT, NINESC4, 


INSERT 9 ENTRY 


0547* 


24 


03340 


05709 



1192 
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03220 




SM 


POINT, 3, 10 


05686 


12 


03366 


000-3 


03230 




CF 


POINT t i 6, 


CLEAR FLAG OVER 9 05698 


33 


03360 


00000 


03240 


NINE St 


UC 


4,9000 ,• 


057 09 


00004 




03250 




AM 


POINT, 4, 10 


05710 


1 1 


03366 


000-4 


03260 




CF 


POINT, ,6, 


CLEAR FLAG SET FOR MOVE 
















05722 


3 3 


03 360 


000 00 


03270 




A 


SA,SC,» 


UPDATE SECTOR AOORS. 
















. 05734 




0337 1 


05661 


03280 




AM 


POINT, 3, 10, 


POINT TO ENTRY ON RIGHT 


OF 














05746 


11 


03366 


000-3 


03290 




67 


NX - 12 


05758 


49 


05462 


00000 


3300 


NOC YL 


TF 


NOCYL + 30 »PQI NT » , 


MUST 8E A OIM NUMBER 
















057o6 


26 


05796 


03366 


03310 




SM 


NOC V L ♦ 30 , 3 , 10 


05778 


12 


05796 


000-3 


03320 




5f 


L I ST , , 2 


05790 


32 


J2000 


00000 


03330 




BT 


01 MMER , POINT ,11* 


GET DIM ENTRY 05802 


27 


03216 


03360 


03340 




CF 


NOC Y L + 30 , i 6 


058 14 


33 


05790 


00000 


03350 






DMNXT+5, SA 


05826 


22 


03584 


0337 1 


03360 




bN 


ERR 1 , , , 


THERE IS AN OVERLAP 
















05838 


47 


06 38 2 


1 300 


03370 




t)Z 


FITS,,, 


NO 9XXX NEEOED 05850 


46 


06066 


1 200 


03380 




SF 


DMNX T+ 3 , , , 


PUT A 9 ENTRY IN FRONT OF OIM 












05862 


32 


03582 


00000 


03390 




TF 


MNESC tDMNXT*5 


05874 


26 


05709 


03584 


03400 




CF 


NINESC-2, , i 


PREPARE TO INSERT REMAINDER 












05886 


33 


05707 


00000 


034 10 




TF 


0P*11,END 


05898 


26 


05957 


04640 


03420 




AM 


END, 4, 10 


05910 


11 


04640 


000-4 


03430 




SM 


PO INT , 3 , 10 


05922 


12 


03366 


000-3 


03440 




SF 


POINT, ,6 


05934 


32 


03360 


00000 


03450 


OP 


TF 


END, LI ST, 6, 


MOVE LIST TO MAKE ROOM FOR 


9XXX 












059*6 


26 


0464- 


1 2000 


3460 




AM 


PO INT » 3 , 10 


05958 


11 


03366 


000-3 


03470 




TF 


POINT, NINESC6, 


INSERT REMAINDER 05970 


26 


03360 


05709 


03480 




SM 


PO IN T » 3 , 10 


05982 


12 


03366 


000- 3 


r\a£nn 






PO I N T t 1 6 , 


CLEAR FLAG OVER 9 0599* 


33 


03360 


nnnnn 


03500 




AM 


pniNT.t. in 


06006 


11 


03366 


000-4 


03510 




CF 


POINT , ,6, 


CLEAR FLAG SET FOR MOVE 
















06018 


33 


03360 


uuuuu 


03520 




A 




UPDATE SECTOR A DORS • 
















060 30 


21 


03371 


3584 










SUBTRACT RFMAIN06R 9 FROM ! 


5.C. 












06042 


22 


05661 


03584 


03540 




AM 


POINT, 3, 10 , 


MOVE POINTER TO DIM 
















06054 


11 


03366 


000-3 


03550 


FITS 


A 


SA,0MNXT*B , , 


UPDATE WITH S,C. OF DIM 
















06066 


21 


03371 


03587 


03560 




S 


SCDMNXT+8, , 


DOES DIM OVERLAP CYLINDER 














06078 


22 


05661 


03587 


03570 




bz 


NX , , , 


JUST FITS 06090 


46 


05474 


01200 


03580 




BP 


NX,,, 


ROOM FOR MORE 06 102 


46 


05474 


01100 


03590 




AM 


POINT, 1, 10 , 


OVERLAPS CYLINDER 06114 


11 


03366 


0"»0-l 


03600 




BNR 


**32, POINT, 1 1, 


IS NEXT POSITION A 









1 11) 3 
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06126 


45 


06158 


03360 


03610 


AM 


POINT, 3, 10, 




CYLINDER ENTRY 06138 


11 


03366 


000-3 


03620 


B7 


LST 




06150 


49 


06806 


00000 


03630 


AM 


POINT, 3, 10 




06 158 


11 


03366 


000-3 


03640 


C 


SEV, POINT, 11 




06170 


24 


05217 


C3360 


03650 


BNL 


ERR 2 




06 182 


46 


06554 


01300 


03660 


AM 


POINT, I, 10, 




YES 06194 


11 


03366 


000-1 


03670 


SF 


POINT, ,6 




06 206 


32 


03360 


00000 


03680 


TF 


•♦35, END 




06218 


26 


06253 


04640 


03690 


AM 


END, 4, 10 




06230 


11 


04640 


000-4 


03700 


TF 


END, LIST, 6, 




OPEN LIST TO RIGHT OF CYLINDER 












06242 


26 


0464- 


12000 


03710 


AM 


POINT, 3, 10 




06 254 


11 


03366 


000-3 


03720 


TF 


POINT, DIMMER-1 , 


6, 


INSERT DIM NUMBER 06266 


26 


03360 


03215 


03730 


SM 


POINT, 3, 10 




06278 


12 


03366 


000-3 


03740 


CF 


POINT, ,6, 




CLEAR FLAG OVER DIM 

06290 


33 


03360 


00000 


03750 


AM 


POINT , 4, 10 




06302 


11 


03366 


000-4 


03760 


CF 


POlNT,t 6, 




CLEAR FLAG FROM MOVE 

06314 


33 


03360 


00000 


03770 


SM 


POINT, 1,10 




063 26 


12 


03366 


000-1 


03780 


AM 


SC200.9, 




ADD 200 FOR NEXT CYLINDER 














063 38 


11 


05661 


OOKOO 


03790 


til 


NX 




06350 


46 


05474 


01200 


03800 


BNF 


NX,SC 




06362 


44 


05474 


05661 


03810 


B7 


FITS+48,,, 




STILL NEGATIVE 06374 


49 


06114 


00000 


038*0** 


PROGRAMS OVERLAP 












03830 ERR 1 


TF 


DR0P0M,DJMMER-1 


,6 


06382 


26 


03370 


03215 


03840 


AM 


DR0PDM,4, 10 




06394 


11 


03376 


000-4 


03890 


AM 


POINT, 1,10 




06406 


11 


03366 


000-1 


03860 


TR 


NOC Y L+ 30 t POINTt 


611, 


OROP OIM FROM LIST 

06418 


31 


05790 


03360 


03870 


v SF 


POINT, ,6 




06430 


32 


03360 


00000 


03880 


TF 


ERR1+42, POINT 




0644 2 


26 


06424 


03366 


03890 


BNR 


* f 20 , POINT, 11 




06454 


45 


06474 


03360 


03900 


B7 


• ♦44 




06466 


49 


06510 


00000 


03910 


AM 


POINT, 3, 10 




06474 


11 


033*6 


000-3 


03920 


C 


POINT, DlMMER-l, 


6 


06486 


24 


03360 


03215 


03930 


BE 


ERR1+24 




06498 


46 


0*406 


01200 


03940 


CF 


ERR1*42,,6 




06510 


33 


0642M 


00000 


03950 


TF 


P0INTtN0CVl*30 




06522 


26 


0336* 


05796 


03960 


SM 


POINT, 1,10 




06534 


12 


03366 


000-1 


039T0 


87 


NX 




06546 


49 


05474 


00000 


03980** 


PROGRAM OVERLAPS CYLINDER, 


BUT NEXT ENTRY IS NOT CYLINDER 






03990 ERR2 


SM 


POINT, 3, 10 




06554 


12 


033*6 


000-3 


04000 


BNR 


•♦20, POINT, 11, 




IS IT END OF LIST 06566 


45 


0*98* 


033*0 


040 10 


•7 


LST 




06578 


49 


0*80* 


00000 


04020 


SF 


POINT, ,6 




06586 


12 


03360 


00000 


04030 


TF 


IRR2+43, POINT,, 




SAVE POINT IN LIST 

06598 


2* 


0*597 


039** 


04040 


AM 


POINT, 3» 10 




04610 


11 


019** 


000-3 


04090 


TF 


SAVOM, POINT, 11 




06*22 


2* 


0*729 


039*0 


040*0 


TF 


DR0PDM,SAVDM,6, 




PUT DIM NUMBER IN OROP LIST 





1194 
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066 34 


26 03370 


04725 


04070 




A* 


0R0P0N,4, 10 


06646 


11 03376 


000-4 


04080 




AM 


POINT, I, 10 


06658 


11 03364 


000-1 


04090 


TR2 


TR 


ERR2*41*P0lNT,61l, 


OROPDIM NUMBER FROM S.P. 


, LIST 












06670 


31 0659P 


01340 


04100 




SM 


POINT ,4,10 


06682 


12 03364 


000-4 


04110 




BNR 


•♦20 .POINT, 11 


06694 


45 04714 


01140 


04120 




V 


FITS**0 


06706 


49 04124 


00000 


04130 




SF 


POINT, ,6 


06714 


32 03S40 


00000 


04140 


SAVON 


oc 


4,0,» 


06725 


00004 




04150 




TF 


TR2*6*P0W 


0472* 


24 04474 


01144 


04160 




AM 


POINT* }« 10 


06738 


11 01344 


000-1 


04170 




C 


P0INT,$AVDM,6 


06750 


24 03340 


04725 


04110 




BE 


TR2-12 


06762 


44 04458 


01200 


04190 




SM 


POINT* St 10 


06774 


12 03144 


000-1 


04200 




CF 


POINT* ,4 


06784 


33 0)340 


00000 


04210 




87 


FITS**0 


0*798 


49 04124 


00000 


04220** RECORD 


MARK MARKS ENO OF THE 


S.P. LIST 






04230 


1ST 


CM 


SCRSA-5* 1« 10* 


1$ SCRATCH ON MONITOR PACK 












048Q4 


14 03204 


000-1 


04240 




BH 


NOSCR 


048 IB 


44 07022 


01100 


042 $0 






SCRSA*5* 10 1 


WHAT IS THE STARTING CHINOER 












04830 


13 03211 


000-5 


04**0 




TU 


CYL*9* 


04842 


25 09193 


00096 


Q*dtQ 




Tu 


CYl-A»95 


04854 


25 05192 


00095 


042 10 




TFM 


Put .*lr*i i • Li ST» l 


04844 


14 04901 


J1999 


04290 




AM 


PUTSCR*11|4, 10 


0487B 


11 04901 


000-4 


04300 


PUTSC* 


C 


C V U»LI $T*i*7t 


FIND FIRST CniNOf R 














04890 


24 05193 


J2003 


04310 




BNE 


PUT SCR* 12 


04902 


47 04878 


01200 


04320 




AM 


P(JT&CR« 1 1 ■ 4. 10 


04914 


11 04901 


000-4 


04330 




C 


N1MF? .*>UT£Pt + l 1.11. 


IS THERE A 9200 04924 


24 04985 


0690J 


04340 




BNE 


ERR3 


04938 


47 03350 


01200 


04J50 




TFM 


PUTSCR*1 I tOOO 1 t *Bt 


REPLACE IT WITH I'M 0001 














04950 


16 0690J 


0-00 1 


04360 




SM 


PUTSCR*ll* 3» 10 


04942 


12 06901 


000-3 


04370 




CF 


PUTSCR*llrt6 


04974 


33 0690J 


00000 


04380 


NINE2 


oc 


4*9200 »• 


04985 


00004 




04390 




AM 


PUTSCR + ll* 11, 10 


04984 


11 06901 


000J1 


04400 




SM 


SCRSC* 1* 10, 


KEEP TRACK OF NUMBER OF 


CYLINOERS 










04998 


12 04845 


000-1 


04410 






PUTSCR*36 


07010 


4 7 06926 


01200 


04420 


NO SCR 


c« 


SCO, 9 


07022 


14 05661 


00-00 


04430 




BE 


WT 


07034 


46 02402 


01200 


04440 




TFM 


N0CVl-2,WT,, 


YES 07046 


16 05764 


-2402 


04450 




B7 


PT9-48 


07058 


49 05578 


00000 


04460 


PATCH 


OSS 


100 


07065 


00100 




044 70 


LIST 


OS 


,12000 


12000 


00000 




04480 


DIMS 


OS 


,11800 


11800 


00000 




04490 


LISTDK 


OS 


,3800 


03600 


00000 




04500 


LISTCH 


OS 


, 3700 


03700 


00000 




04510 


ENO 


OS 


,PUTCVL*18 


04640 


00000 




04520 




OENO 


START 


03804 







1 I 95 



00010 ••• 
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DS 
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ROWR 


DSA 


R01 




02207 




5 


X 1 












022C7 




-5059 




00050 




TFM 


!ORT***23 v , 


PL T CORE If AGE PROGRAM 


022C8 


16 


00565 


-2231 


00060 




H 


I0PT,WR,7 




02220 


49 


00532 


-2251 


00070 




TFH 


10RT.SL I, 7 




02232 


16 


00565 


-2274 


00080 




il 7 


IOCAL 




02244 


49 


00716 




00090 


WR 


OSC 


2,02 




02251 




2 








02 














ooico 




OSA 


*R2 




02257 




5 


X 1 












02257 




-2259 




001 10 




OSC 


1,« 




0225B 




1 




00120 


WR 2 


DSC 


1,0 




02259 




1 




001 30 






DC 


5,0 




02264 




5 








-0000 












00140 




DC 


3,0 




02267 




3 








-00 














00150 




PC 


5.0 




02272 




5 








-0000 












00 1 to 




OSC 
* 


It' 




02273 




1 




00170 


SL1 


OSC 


2.-22 




0227* 




2 








2K 














00180 




DSA 


SL2 




02280 




5 


X 1 












02280 




-2262 




00190 




DSC 


1,» 




02261 




1 




00200 


SL2 


CSC 


1*1 




02282 




1 




00210 




I 

oc 


5*18554 




02287 




5 








J8554 












00220 




OC 


3*041 




02290 




3 








-41 














00230 




OC 


5,2402 




02295 
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-2402 
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DSA 


SOL DON 
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5 


X 1 
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OSC 
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023CI 
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COR 


TFM 


I0RT***23 
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00270 




8 


I0PT,C0RI,T 
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49 


00112 
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02324 
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00000 


00500 
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49 
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DC 
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-0000 












00490 




DC 
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DC 
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02455 












-0000 
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02566 


I 6 


J 799 3 


- 9 7 78 


00620 




S* 


HQLD2.1.10 




25 7 8 


| 


059C 7 




0063Q 




TFM 


IUR T , 2 3 




02590 


16 


00565 


-2613 


00640 







I0GT,LIST1,7 




02602 


4^ 


00566 


-6422 


00650 




TFM 


HFl G* 1 I »RE AO* 1 00 




U2614 


16 


02649 


- 9 8 7 8 


00660 


CT 


TFM 


CNT 1 , 002, 29 




02626 


16 


-6432 


CO-02 


00670 


BFLG 


BNF 


•♦20, READ* 100, 7 




02638 


44 


02658 


- 98 78 


00680 




(37 


NEXT 




02650 


4'» 


02 706 




00690 




AM 


C T *6 * I » 6 10 




02658 


1 1 


0263K 


000- I 


00700 




AM 


BFLG*l 1, 100,9 


1 1 1)7 


02670 


1 1 


02649 


OCJOO 
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00710 




CM • 


BFLG*ll,READ*BGCC 


02682 


14 


C2649 


J 7 7 78 


0C720 




I5L 


BFLG 


02694 


47 


02638 


01 300 


00730 


NEXT 


CM 


KJLD2.0, 10 


027C6 


14 


05907 


000-0 


00740 




HE 


DN 


02 7 18 


46 


02 7/4 


01200 


00750 




AM 


CT«fc, 3, 10 


02730 


1 1 


02632 


OCC- 3 


00760 




AM 


L IS + 6,20, 10 


02742 


1 1 


02572 


OOOKO 


00770 




AM 


L I ST 1*6, 20, 10 


02754 


I I 


06428 


OCOKO 


00780 




B7 


LIS 


C2766 


49 


02566 




00790 


ON 


TFM 


IORT,»*23 


02774 


16 


00565 


-2 797 


00800 




B 


I0GT,SPLSUB,7 


02786 


4 9 


00566 


-6443 


00810 




TF 


SPLPK0*8,CNT1 


02798 


26 


12653 


064 32 


00820 




TP 


SPLPK 1*8.CNT1*3 


02810 


26 


126 76 


06435 


00830 




TF 


SPLPK2*8,CNT1*6 


02822 


26 


12699 


06438 


00840 




TF 


SPLpK3*8,CNTl*9 


02834 


26 


12722 


06441 


00850 


COMPAR 


C 


CNT l,CNTl*3 


02846 


24 


06*32 


064 3 5 


00860 




8H 


• ♦32 


02858 


46 


02890 


01100 


00870 




TR 


CNT l-2,CNTl*l 


02870 


31 


06430 


06433 


00880 




87 


• ♦20 


02882 


49 


02902 




00890 




TR 


CNTl*l,CNTl*4 


02890 


31 


06433 


06436 


00900 




BNR 


COMPAR ,CNT1*1 


02902 


45 


02846 


06433 


00910 




TF 


THR0WS+8,CNTl 


02914 


26 


12745 


06432 


00920 




TF 


CORSIZ.CNTl 


02926 


26 


1248 3 


06432 


00930 




TFM 


10RT,»*23 


02938 


16 


00565 


-2961 


00940 




8 


IOPT.SPLSUB ,7 


02950 


49 


00532 


-6443 


00950 




BTM 


CLR IN,»*12 


02962 


I 7 


05246 


- 2 9 7 4 


0096p 




TO 


H3LD2.SYSCAL 


02974 


25 


05907 


00475 


00970 




CM 


H0LD2.4, 10 


02986 


14 


05907 


OCO-4 


00980 




HE 


CONTCO 


0299B 


46 


03596 


01200 


00990 




CM 


H0LD2.6, 10 


03010 


14 


05907 


000-6 


OlOCO 




BNE 


NOCOMP 


03022 


47 


04692 


01200 


01010 




BNF 


0MP,MCS*22 


03034 


44 


03378 


17800 


01020 




CM 


MCS*39,0,8 


03046 


14 


17817 


0-000 


01030 




BE 


CALLO 


03058 


46 


03118 


01200 


01040 




TF 


NE*DIM,MCS*39 


03070 


26 


05934 


1781 7 


01050 




TFM 


DIMM6R-6,MAP 


03082 


16 


05340 


-5935 


01060 




BTM 


DIMMER»»*12 


03094 


I 7 


05 346 


-3106 


01070 




ONR 


CALRPL, MAP 


03106 


45 


03246 


05935 


01080 


CALLO 


TFM 


I0RT,»*23, , 


CALL IN LOAC ROUTINE 03118 


16 


00565 


-3141 


01090 




B 


IGGT,DDA2,7 


03130 


49 


00566 


-3434 


01100 




TDM 


REPLAC ,0,10 


03142 


15 


02202 


000-0 


OHIO 


CALCOH 


TFM 


I0RT,»*23, , 


CALL IN COMMON ROUTINES 03154 


16 


00565 


-3177 


01120 




B 


I0GT,C0M2,7 


03166 


49 


00566 


-3480 


01130 




TFM 


I0RT,»*23 


03178 


16 


00565 


-3201 


01140 




B 


IQGT,DDA4,7 


03190 


49 


00566 


-3457 


01150 




TFM 


SELECOO, 05800 


03202 


16 


02432 


-5800 


01160 




TR 


DDA,0DA5,, 


SET LP LAST CALL SEQUENCE 03214 


31 


02434 


03503 


01170 




TR 


DCF,DCF5,, 


SP LIST SUBROUTINES 03226 


31 


02442 


03511 


0118Q 




B 


SELEC 


03238 


49 


02402 


00000 


01190 




OORG 


• -3 


03246 








01200 


CALRPL 


BNF 


•♦32,MAP*19 


0)246 


44 


03278 


05954 


01210 




TFM 


DIMERR*22, 7578,8 


03290 


16 


06341 


0P578 


01220 




B 


UP1 


0)270 


49 


05826 


00000 


01230 




OORO 


•-3 


03278 








01240 




C 


MCSO5,ZER0l2 


0)271 


24 


17813 


06 390 


01250 




BE 


• ♦24 


03290 


46 


03314 


01200 


01260 




BTM 


E0UIV,«*12 


03)02 


17 


05538 


-3314 



f 198 



01270 
01210 
01290 
01 100 
01310 

01320 SELERR 

01310 

01340 

01390 OHP 

013*0 

01370 

01310 

01390 

01*00 

01410 0CA2 
01*20 



01430 

01440 0CF2 

014S0 

01460 

01470 

01480 

01490 00A4 

01500 
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TM I0RT,»*2S,, CALL IN REPLACE ROUTtNf 

8 !OGf,O0A$,7 
T0» REPLAC.l 
B CALCOM 
DOR 6 «-3 

TFN 01«ERR*22,7979,8 
B UPl 
0GR6 »-3 

BNP MONCAL ( MCSt23 
TR 0DA.00A6,, 
TR DCF.OCP* 
TFN SELECOO, 02500 
B SELEC 
00 AG »-3 
OSC 2,22 
22 

OS A DCF2 



SET UP (ALL FOR 0UM» ROUTINE 



OSC l,» 
♦ 

OSC 1,1,, 

I 

OC 5,16369 
J 8 369 

OC 3,027 
-27 

OC 9,09000 

-5800 

OSC l.« 

OSC 2,22 
22 

OSA 0CF4 



01510 




osc 


1*' 


01520 


0CF4 


OSC 


111*. 


01530 




1 

OC 


5,18480 






J 84 80 


01540 




OC 


3,031 






-31 




01550 




OC 


5,08600 






-8600 


01560 




OSC 


!»• 


01570 


COM2 


OSC 


2,22 






22 




01580 




OSA 


COH22 


01590 




osc 




01600 


COH22. 


OSC 


1,1 



03314 
0332* 
03338 
03350 
03358 
03358 
03370 
03378 
03378 
03390 
03402 
03414 
0342* 
03434 
03434 

03440 

03440 
03441 

03442 

03447 

03450 

03455 

0345* 

03457 

034*3 

03463 
034*4 

03445 

03470 

01473 

0347B 

03479 

03480 

03486 

C3486 
03487 



1* 009*5 

49 009** 

19 02202 

49 03194 

t* 0*341 
49 0982* 

44 00796 

31 02434 

31 02442 

1* 02432 

49 02402 

2 

9 

-3442 
1 

1 

9 

3 

9 

1 

2 

9 i 

-3469 
1 

1 

3 

3 

5 

1 

2 

5 1 

-3488 

1 



PAGE 

-3337 
-352* 
00001 
00000 

0P979 

00000 

17801 
09959 
099*3 

-2900 
OCOOO 



11 U 
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01610 




OC 


5, 18912 






J8512 


01620 




DC 


3*030 






-30 




01630 




OC 


5, 10600 






J0600 




01640 




DSC 
» 


1,* 


01650 


CCAS 


OSC 


2,22 






22 




01660 




DSA 


0CF5 


U1670 




DSC 


\$* 


01680 


0CF5 


OSC 


l.lt* 


01690 




I 

OC 


5,18298 






J8298 


01700 




CC 


3,033 






-33 




01710 




OC 


5,02498 






-2498 


01720 




OSC 


!»• 


01730 


0CA3 


OSC 


2,22 






22 




01740 




OSA 


0CF3 


01790 




OSC 


l,« 


01760 


0CF3 


OSC 


l,lt. 


01770 




I 

DC 


5,18397 






J8397 


01790 




DC 


3,028 






-28 




01790 




DC 


5. C 5*00 






-9800 


O18Q0 




DSC 
• 




01810 


CCAP* 


osc 


2,22 






22 




01820 




OSA 


DCFP* 


01830 




OSC 
» 


U» 


01840 


0CFP6 


DSC 


1.1 


01850 




1 

DC 


9,19247 






J8247 


01860 




DC 


3,013 






-13 




01870 




DC 


5,05800 






-9800 



SP LIST SUBROUTINES 



1 2 y o 



03493 
03496 

035C1 

035C2 

035C3 

035C9 

035C9 
03510 

03511 

03516 

03519 

03924 

03929 

03926 

03532 

03532 
03933 

03934 

03939 

03942 

03947 

03948 

03949 

03999 

03999 
0399* 

0399T 

039*2 

039*9 

03970 



5 
3 
5 

2 

5 X 



-3511 
I 



1 
5 
3 
5 
1 
2 

5 X 



-3534 
1 



1 
5 
3 
5 
1 
2 

9 X 



-3997 
I 

1 

9 

3 

9 
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01880 




DSC 


1 i • 


0357 1 




1 




01890 


EQUCCA 


DSC 


2,22 


03572 




2 




01900 




22 
OSA 


EQUDCF 


03578 




5 


X 1 










03578 




- 3580 




01910 




DSC 


i, • 


01 >79 








01920 


EQUCCF 


DSC 


1, I 


03580 








01930 




1 

DC 


5, 18278 


03585 




5 








J8278 










0194Q 




DC 


3,020 


03588 




3 








-20 












01950 




DC 


5,08600 


359 3 




5 








-8600 










01960 




use 


1 , • 


03594 




1 




01970 


CONTCO 


TFM 


CARD 10* 2 ,0 , 10 


03596 


16 


06397 


000-0 


01980 




TO 


CARDICH2.426 


03608 


25 


06397 


00426 


01990 




CF 


CARDIO+2 


03620 


33 


06397 


00000 


02000 






CARD 10*2, 5, 10 


03632 


1 1 


06397 


OCO- 5 


02010 




CM 


CARDID+2,06, 10 


036*4 


14 


06 397 


000-6 


02020 




BNE 


t *60 


03656 


4/ 


03716 


01 200 


02030 




RCTV 




03668 


34 


00000 


00 L02 


02040 




TFM 


IORT «*23 


03680 


16 


00565 


-3703 


02050 






lUr 1 |tt INC J *(, I 


03692 


49 


00532 


-6236 


02060 




or t 

RC 




03704 


34 


00000 


00102 


02070 






IORT »*23 


03 716 


16 


00565 


-3739 


02080 




B 


I U 1 ,l*AKUlU-*»t f 


0372tt 


49 


00566 


-639L 


02090 




CM 


CARO!0*2.06,10 


03740 


14 


06397 


000-6 


02100 




BNE 


• ♦2* 


03752 


47 


03776 


01200 


02110 




DC* 


CONTCD*72 


03764 


46 


03668 


00400 


02120 




TFM 


•♦23, INPUT* 159 


03776 


16 


3799 


J 3 7 72 


021 30 


80 TEST 


BD 


• ♦ 32, INPUT 


03788 


43 


J820 


1361 3 


021*0 




SM 


•-1,2,10 


03800 


u? 


03799 


000-2 


02150 




B 


• -2* 


03812 


49 


03788 


00000 


02160 




DORG 


• -3 


03820 








021 70 




AM 


BDTEST*ll,3,lO 


03820 


1 1 


03799 


000- 3 


02180 




CM 


BDTEST*ll,lNPUT*10 


03832 


14 


03799 


J362 3 


02190 




BH 


• ♦32 


03844 


46 


03B76 


01100 


02200 




TDM 


INPITU2, , , 


3 856 


15 


I 3625 


OCOOO 


02210 




OSC 


1, ' ,• 


03867 




1 




02220 




B 


• ♦20 


03868 


49 


C3888 


00000 


02230 




DORG 


• -3 


03876 








022*0 




TDM 


BDTEST* 11, ,6 


03876 


I 5 


0379R 


CiCOOO 


02250 




DSC 


l,'.* 


C3887 




1 




02260 




CM 


CARDIO*2,06,10 


03080 


14 


06397 


COO-6 


02270 




BE 


• ♦72 


3900 


46 


03972 


WOO 


02280 




TFM 


CARDlO+2,06,10 


03912 


16 


06397 


000-6 


02290 




RC T Y 




3924 


34 


00000 


00102 


02300 




TFM 


IORT,«*23 


03936 


1.6 


00565 


-1959 


02310 




8 


lOPT,CARDIQ-4,7 


120 1 ° 3 ^ 8 


49 


00532 


-6391 
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02320 


RCTV 




03960 


34 


00000 


0C102 


02330 


CM 


BDTESTMl,INPUT*10 


03972 


14 


03799 


J3623 


02340 


BH 


• ♦32 


03984 


46 


04016 


01100 


02350 


TDM 


INPUT+12,0 


03996 


15 


13625 


00000 


02360 


B 


• ♦20 


04008 


49 


04028 


00000 


02370 


DORC 


• -3 


04016 








02380 


TDM 


BDTESTUl ,0,6 


04016 


15 


0379R 


00000 


02390 


TDM 


MCS+23,0, 10 


04028 


15 


17B01 


000-0 


02400 


SF 


INPLT-1 


04040 


32 


13612 


OCOOO 


02410 


C 


INPITUO.WRAD 


04052 


24 


13623 


05989 


02420 


BNE 


• ♦56 


04064 


47 


04120 


01200 


02430 


TR 


ODA.ODAPl 


04076 


31 


02434 


05990 


02440 


TR 


DCF.DCFPl 


04088 


31 


02442 


05998 


02450 


TFM 


SELECOO, 02502 


04100 


16 


02432 


-2502 


02460 


B 


SELEC 


0411? 


49 


02402 


00000 


02470 


OORG 


•-3 


04120 








02480 


C 


INPUT*10,ALTR 


04120 


24 


13623 


06024 


02490 


ONE 


• ♦56 


04132 


47 


04188 


01200 


02500 


TR 


0DA,DDAP2 


04144 


31 


02434 


06025 


02510 


TR 


0CF,0CFP2 


04156 


31 


02442 


06033 


02520 


TFM 


SELECOO, 3000 


04168 


16 


02432 


-3CO0 


02530 


B 


SELEC 


04180 


49 


02402 


OCOOO 


02540 


OORG 


• -3 


04188 








02550 


C 


INPUT*10,DUMP 


04188 


24 


13623 


06059 


02560 


BE 


DMP+12 


04200 


46 


03390 


01200 


02570 


C 


INPIT* 10.LOAD 


06212 


2* 


13623 


06071 


02580 


BE 


CALLD 


04224 


46 


03118 


01200 


02590 


C 


INPUT+10,REPL 


042 36 


24 


13623 


06083 


02600 


BE 


CALRPL+68 


04248 


46 


03314 


01200 


02610 


C 


INPUT*10»CQPV 


04260 


24 


13623 


06095 


02620 


BNE 


• ♦56 


042T2 


67 


04328 


01200 


02630 


TR 


D0A.DDAP5 


04284 


31 


02434 


06096 


02640 


TR 


0CF.DCFP5 


04296 


31 


02442 


06104 


02650 


TFM 


SELEC*30. 02700 


04308 


16 


02432 


-2700 


02660 


B 


SELEC 


04320 


69 


02402 


00000 


02670 


OORG 


•-3 


04328 








02680 


C 


INPUT* lOtDELET 


04320 


24 


13623 


06130 


0269Q 


BNE 


•♦92 


0434-0 


47 


04432 


01200 


02700 


TFM 


10RT,**23 


06392 


16 


00565 


-4375 


02710 


B 


I0GT,DDAP6,7 


04366 


69 


00566 


-3549 


02720 


TFM 


IORT, »*21 


063T6 


16 


00565 


-4399 


02730 


8 


I0GT,EQUDDA,7 


042)86 


69 


00566 


-3572 


02740 


TFM 


10RT,#*23 


06400 


16 


00565 


-4423 


02750 


B 


IOGT,COM2,7 


06412 


69 


00566 


-3480 


02760 


B 


CALCOMMI 


06626 


69 


03202 


00000 


0277Q 


OORG 


t-3 


06632 








02780 


C 


INPUmOtFINE 


06632 


26 


13623 


06142 


02790 


BNE 


• ♦56 


©6666 


6T 


06500 


01200 


02800 


TR 


0OA,DDAP7 


06696 


31 


02434 


06143 


02810 


TR 


OCF »0CFP7 


06668 


31 


02462 


06151 


02820 


TFM 


SELECOO, 05000 


©6660 


16 


02632 


-5000 


02890 


B 


SELEC 


©6692 


69 


02402 


00000 


02840 


OORG 


•-3 


06900 








02690 


C 


INPUT* lOtLABL 


06900 


26 


13623 


06177 


02160 


BNE 


• ♦56 


12 2 04112 

1 * W * 06926 


67 


06568 


0L200 


02870 


TR 


00A,0DAP8 


31 


02434 


06178 
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VERSION 2 OUP SELECT ION ROUTINE 



PACE 



02860 




TR 


DCF,DCFP8 




049)6 


11 


02442 


06196 


028^0 




TFM 


SELECOO, 02902 




04548 


16 


02432 


-2502 


029C0 




B 


SELEC 




04960 


49 


02402 


OOOOO 


02910 




0OR6 


•-3 




04968 








02920 




C 


1NPITM0.FUB 




04568 


24 


13623 


06212 


29 30 




8NE 


♦ ♦56 




04580 


47 


04636 


01200 


02940 




TH 


DDA.00AP9 




04592 


31 


02434 


06213 


0295U 




TR 


0CF.0CFP9 




04604 


31 


02442 


06221 


02960 




TFM 


SELEC*30 f 03040 




04616 


16 


02432 


-3040 


02970 




8 


SELEC 




04628 


49 


02402 


OOOOO 


02980 




OORG 


• -3 




04636 








0299Q 




RCTV 






046)6 


34 


ooooo 


00102 


03000 




TFM 


IORT, »*23 




04648 


16 


00565 


-4671 


03010 




8 


I0PT.ERC0-4, 7 




04660 


49 


00532 


-6286 


03020 




H 






04672 


48 


OOOOO 


OOOOO 


03030 




H 


MONCAL 




04684 


49 


00796 


OOOOO 


3040 




DORG 


•-3 




04692 








01050 


NQCQMP 


CM 


HQLD2,5,lO 




04692 


14 


05907 


000-5 


03060 




BNE 


N0C0MP-96 




04704 


47 


04636 


01200 


03070 


HTURNL 


BNF 


MONCAL,428», 


CHANGE TO ERRQR MESS. LATER 


04716 


44 


00796 


00428 


03080 




TO 


DP1*14,REPLAC 




04728 


25 


05840 


02202 


03090 




TFM 


IQRT,»*23, , 


GET TtaQ SECTORS RO t MR 


04740 


16 


00565 


-4763 


03100 




8 


I0GT,SEC2«7 




04752 


49 


00566 


-5082 


03110 




TO 


REPLAC,UP1*14 




04764 


25 


02202 


05840 


03120 




TFM 


H0L02,0,10 




04776 


16 


05907 


coo-o 


031 30 




TO 


hOL02,MCS*88 
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TF LISTfA,CALC2.ll 






01144 


14 


01749 


0274* 


01640 




CF SPL COR,, 6 






01174 


11 


41194 


OOOOO 


01470 


SPLCVL 


OC 5,0,«,CVLIft»fR SPL 


125« 




91197 




9 





162C- 1**3 MONl TOR I VERSION 2 OUP CLOAO-DRE PL-OELET PACE 



016 80 


S TOMP 


CM 


Pim.nn mil Dtrir icor 






1 4 


02773 


0C0-- 


01690 




BE 


WR T S P 




03200 


46 


03268 


1 200 


01 7 




CM 


PACK, CI, 1011 .PACK ONE 








02773 


000- J 


17 10 




BE 


WR T SP 1 




32 24 






01200 


01720 




CM 


PACK, 0?, 1011, PACK TWO 




032 36 


14 


0277 3 


000- K 






BE 


wR T SP 2 








3 332 




ni un 




Q 


WRTSP3,,, PACK THREE 




03260 


49 


336* 


uU UQU 


J 




DOR G 


•- 3 




3268 












ROUTINE FOR RETURNING A P PRC I A TE SPL TO DISK 












017 70 


WR T SP 


TFM 


I OR T , • ♦ 23 




03266 


16 


00565 


- 3 29 1 


i T80 




B 


IOPT.PKODDA, 7 




03260 


49 


00532 


-2637 


1 790 




B 


WHYNUT 




03292 


49 


03388 


ocooo 


01800 




OORG 


• - 3 




03300 








o i b i o 


WR T SP 1 


r f m 


IOHT,«f23 




033C0 


16 


00565 


- 332 3 


01820 




B 


I0PT.PKIDDA.7 




03312 


49 


00532 


-2660 


018 30 




B 


ta> YNOT 




03324 


49 


03388 


00000 


018*0 




CORG 


3 




03332 








01850 


WR T SP 2 


TFM 


IORT,»*23 




033 32 


16 


00565 


- 3355 


01860 




B 


IOPT,PK2DOA,7 




03344 


49 


00532 


-2683 


018 70 




B 


WHYNOT 




03356 


49 


03366 


00000 


01880 




DORG 


• -3 




03364 








1890 


WR T SP 3 


TFM 


IORT, •♦?! 




03364 


16 


00565 


-3387 


01900 




B 


IOPT,PK3DDA,7 




03376 


49 


00532 


-2706 


01910 


WHYNO T 


TFM 


IORT, •♦23, .RESTORES CORE BEFORE RETURNING TC PAINLINE 


03366 


16 


00565 


-341 1 


1 920 


■ •• 
















01930 


• •• 


SUBROUTINE-INSERT 












1 9*0 


• •• 


INSERTS TO THE LEFT OF THE PRESENT ENTRY ANC OPENS LIST 












1 950 




B 


IQGT , THRODA , 7 




03400 


49 


00566 


-2729 


I 960 




BB 






034 12 


42 


00000 


00000 


01970 




DORG 


• -9 




03414 








01980 


INSER T 


TDM 


NOMMON,*, , 




034 1* 


15 


02656 


ocoo* 


1990 




8 


Cl IPPP 




03424 


49 


02864 


00000 


02000 




OORG 


• -3 




03434 








02010 


INSETR 


SF 


SPLCOR, ,6 




03434 


32 


0315J 


00000 


02020 


FOUND 


oc 


5,0, •, FIND SECTOR TOTAL 




344 5 




5 








-0000 












02030 


•• 


ROUTINE TO SEE IF LIST IS ALREADY FULL 












020*0 




TFM 


•♦35,05800,7 




034*6 


16 


03*81 


-5800 


02050 




AM 


•♦23,0*. 10 




03*58 


1 1 


03*8 1 


000-* 


02060 


T IPSY 


BNR 


• - 12,99999, .FINOS RECORD MARK AT ENC OF LIST 




03470 


45 


03456 


99999 


020 70 




TF 


C0NST2,TIPSY*ll 




03*82 


26 


02808 


03*81 


2080 




AM 


C0NST2.0*, 10 




0349* 


1 it 


02808 


000- * 


02090 




TF 


CNST3.CONST2 




03506 


26 


03578 


02808 


02100 




SM 


CNST3, 05800,7 




035 18 


12 


03578 


-5800 


2 1. 1. 




C 


CNST3-2.C0RSIZ,, COMPARES PRESENT SIZE TO DEFINED LIMIT 


03530 


2* 


03576 


02*83 


21. 20 




BL 


NERR 




3542 


*? 


03580 


1 300 


021. 30 




TFM 


DIMERR+22, 7178,8 




0355* 


16 


02507 


0P178 


021 *Q 




B 


ERRD 




3566 


49 


0252* 


COOOO 


021 50 




OORG 


• -3 




0357* 








02 L 60 


CNST3 


DC 


5,0 




03578 




5 








-0000 












02K70 


NERR 


TF 


C0NST2.TIPSY+11, 611, OPENS THE LIST 




03560 


26 


C2800 


03*8J 


021.8 




TF 


CALC2, SPLCOR 




03592 


26 


02760 


03151 


021.90 




AM 


CALC2,03, 10 




0360* 


11 


02760 


000- 3 


02200 




TF 


CALC2,LISTET,6, INSERTS THE ENTRY FROM LISTET 




3616 


26 


CI2 76- 


02795 


02210 




CF 


SPLCOR, ,6, 




03628 


33 


0315J 


occoo 










1257 
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02220 


DRESTR 


DC 


5, 19880, • , 




36 39 




5 








J9880 












022 30 




AM 


SPLCOR,*, 10, 




036*0 


1 1 


03151 


000-* 


022*0 




CF 


SPLCOR, ,6 




05652 


33 


0315J 


00000 


022 50 




B 


STOMP, , , 




0366* 


49 


3188 


00000 


2i!6Q 




DORG 


• - 3 




C3672 








G2270 


• •• 
















22 80 


• • • 


THE DIMMER SUBROUTINE FOR BRINGING IN A DIM ENTRY 












02290 


• •• 


SPECIFIED IN -NEWDIM- TO BEGIN AT CORE POSITION 19880 












02300 


• •• 
















02310 


DIMMER 


C 


NEWDIM, MAXDIM 




03672 


2* 


02963 


038*9 


02320 




BNH 


• ♦32 




C 3664 


4? 


C3716 


01100 


02.330 




TFM 


DlMERR+22,0076,8 




3696 


16 


0250 7 


C-076 


023*0 




B7 


ERRD 




037CB 


49 


02524 




02350 




TF 


CALC2,NEW0IM 




03716 


26 


02760 


02963 


02360 




A 


CALC2,CALC2 




03728 


21 


02760 


02760 


02370 




TF 


CALC3,N*6000 




03740 


26 


02780 


02771 


02380 




A 


CALC3,CALC2,,NEW DIM SECTOR ADDRESS 




03752 


21. 


02780 


02 760 


02390 




TF 


DMREAD* 13 » DRESTR 




03764 


26 


02589 


03639 


02*00 




TD 


• ♦23.CALC3 




03776 


25 


03799 


02780 


02*10 




SM 


OMREAD+12, 0,10, ADJUST DIM READER S A 




03768 


12 


02568 


OCO-0 


02*20 




TF 


DMREAO*5,CALC3-l 




03800 


26 


02581 


02 779 


02*30 




TFM 


I0RT,»*23 




038 12 


16 


00565 


-3835 


02**0 




B 


I0GT,0MD0A,7 




03824 


49 


00566 


-2568 


02*50 




BB 






03836 


42 


OOOOC 


OCOOO 


02*60 




DORG 


• -9 




03836 








02*70 


• • • 
















02*80 


• •• 


THE FIND SUBROUTINE FOR LOCATING A POINT ON A PARTICULAR 












02*90 


• •• 


SPL FROM AN ADDRESS GIVEN IN -LISTES- 












02300 


















02510 


FIND 


SF 


LISTES-5,,8 




03836 


32 


02 786 


0-000 


02520 




CF 


LISTES-4 




03850 


33 


02787 


00000 


02530 




TF 


19865, LISTES,, ACCEPTS SECTOR ARGUMENT 




03862 


26 


19865 


02791 


025*0 




8T 


SPLIST,SPLIST-1,,FINDSTART OF CYLINDER 




03874 


21 


04330 


04329 


02550 




TOM 


NOMMON, 5 




03666 


15 


02856 


00005 


02560 




6 


CLIPPP 




03896 


49 


02884 


00000 


02570 




OORG 


•-3 




039C6 








02560 


FINOTR 


TF 


CALC2-1 .NEWDIM 




03906 


26 


02759 


02963 


02590 




TDM 


CALC2-*, ,11 ,FLAG ZERO 




03918 


15 


02756 


0000- 


02600 




MM 


CALC2-1,02,10,FIN0 SECTOR 




03930 


13 


02759 


000-2 


02610 




TFM 


ADRSPL.,7, ZERO THE FIELD 




03942 


16 


04520 


-0000 


02620 




SF 


97,, .PICK UP COUNT 




03954 


32 


00097 


00000 


02630 




TF 


ADRSPL-2,99, , MOVE SECTOR CYL ADDRESS 




03966 


26 


04516 


00099 


026*0 




TO 


ADRSPL-4, LISTES-4 




03976 


25 


04516 


02787 


02650 




SF 


ADRSPL-4 




03990 


32 


04516 


COOOO 


02660 


TRY AGN 


TF 


CALC2, SPLCOR,, LEFT PRESENT SPL C.A. 




04002 


26 


02760 


03151 


02670 




AM 


SPLCOR, 04, 10, LEFT END NEW ENTRY 




04014 


1 1 


03151 


000-4 


02660 




SF 


SPLCOR, ,4, NEW FLAG 




04026 


32 


0315J 


00000 


026^0 




AM 


CALC2t07, 10, RIGHT END OF NEW ENTRY 




0403(1 


11 


02760 


OCO- 7 


02700 




TF 


LISTER,CALC2,11 




04050 


26 


02765 


0276- 


02710 




TO 


CALC*, SPLCOR, U. 




04062 


25 


02764 


0315J 


02720 




CM 


CALC*,09, 1011 , BLANK SECTORS 




04074 


14 


02764 


000-R 


02730 




BE 


ADOBLK 




04066 


46 


042B6 


01200 


027*0 




TP 


NEWOIM.LI STfR 




04098 


26 


02963 


02765 


02750 




6T 


OIMMER, DIMMER- I 




04110 


21 


09672 


03671 


02760 




C 


19685, ADRSPL, , DOES THIS PROGRAM BEGIN ON THIS CYLIROIR 


04 u a 


24 


19865 


04520 



1258 
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02 7 TO 




BNL 


• ♦48 


02710 




S 


196S9*A0R$PL 


02790 




SF 


1988) 


02100 




A 


19681,19115 


02110 




A 


AORSPL, 19118., ADO SECTOR TOTAL, ADJUSTED IF NECESSARY 


02120 


PLUSSR 


SF 


L ISTES-4 


021)0 




C 


AORSPL.LISTES..HAS THE CORRECT ENTRY BEEN REACHED 


02140 




CF 


LISTES-4 


02190 




BNM 


TRYAGN 


02160 




TF 


FOUMO.AOASPL 


02170 


HIGONE 


TFM 


!0RT,**2) 


02610 




8 


10GT.THRDOA.7 








• »»2« EA1T TO BE PILLED 


02900 




OORG 


•-) 


02910 


AC06LK 




L I STER— 2 


02920 




A 


ADR SPL. LI STER.. AOO IN THE COUNT FOR BLANK SECTORS 


029)0 




CF 


LISTER-2 


02940 




8 


PLUSSR 


02950 




DORG 


•-3 


02960 


NEVER 


OC 


2.0.A0DBLKMI 


02970 


CLEVER 


-0 
OC 


l.O.AODBLKOS 


Q29S0 




ROUTINE FOR BRINGING IN THE PROPER LIST ANO 


02990 


• •• 


SCANN1 


ING TO THE CORRECT CYLINDER ENTRY 


03000 


SPL I ST 


TFM 


I0RT,«+2) 


0)010 




8 


10PT,THRDDA,T 


03020 




TON 


19880, , 11, FLAG ZERO 


030)0 




MM 


19885,05,10 


03040 




CF 


COMMON 


03050 




SF 


94,,,0ESIRED CYLINOER 


03060 




SF 


9) 


0)070 




TO 


STAROT* 10,95, , SET-UP SEARCH FOR THE CORRECT CYLINOER 


03080 




TO 


STAROT+11,96 


03090 




MM 


L!S7ES-S,3C000.7,USE OVERRIDE CODE TO DETERMINE MODULE 


03100 




SF 


94 


03110 




B 


RDSPL 


0)120 




OORG 


•-3 


0)1)0 


SHIN! 


BNF 


•♦20. COMMON 


03140 




B 


GETBAK 


03150 




OORG 


•-3 


03160 




TOM 


CALC4-1, 0,11, SET-UP CALC4 


03170 




TFM 


ADR SPL, 09600 


03110 


LPSROA 


NOP 


,t, HOLOS COUNT POSITION FOR SPL LIST 


03190 




TO 


CALC4,A0RSPL ,11, PREPARE TO COMPARE 


03200 




CF 


CALC4 


03210 




CM 


CALC4,7,10 


0)220 




BE 


COMCYL 


0)2)0 


SPL ADD 


AM 


AORSPL ,04,10,, NEXT ENTRY 


0)240 




B 


ADRSPL^6 


03250 




OORG 


•-) 


0)260 


ROSPL 


TF 


KEVE.94 


03270 




TF 


NEVER, LISTES-4, , CORRECT TENTHOUSANOS POSITION 


0)210 




TOM 


NE VER-1,,11 


0)290 




MM 


NEVER, 05, 10 


03300 




BO 


•♦24,99 



04 ISA 


4* 


04182 


01300 


0414* 


12 


14864 


04520 


04158 


SI 


14883 


00000 


04170 


11 


14888 


19685 


041ft 


11 


04910 


19888 


04194 


SI 


02787 


00000 


04206 


14 


04920 


02791 


04216 


S3 


01787 


00000 


042)0 


47 


04001 


01 100 


04241 


14 


03449 


04120 


06116 


|4 


009*9 


-4277 


041BB 


64 


009** 


-1714 


04178 


49 


-♦178 


00000 


04264 








0418* 


32 


017*3 


00000 


0419B 


11 


04910 


02749 


04)10 


3) 


017*3 


00000 


04S11 


44 


04194 


00000 


04))0 








04297 




2 




04)21 




I 




04)10 


14 


009*9 


-4393 


04S41 


49 


00932 


-2729 


04)94 


is 


19860 


0000- 


04)** 


|) 


19869 


000-5 


04)78 


)) 


02894 


00000 


04)90 


32 


00094 


00000 


04402 


32 


0009) 


00000 


044 14 


29 


090)2 


00095 


0442* 


25 


090)) 


00094 


044SB 


|) 


02764 


NOOOO 


04490 


32 


00094 


00000 


044*2 


49 


04994 


00000 


04470 








04470 


44 


04490 


02894 


04481 


49 


09170 


00000 


04490 








04440 


1 5 


0276) 


OOOO- 


04902 


If 


04920 


-5800 


04914 


4| 


00000 




0452* 


29 


02784 


0452— 


049)8 


33 


02764 


OfiflOO 


04990 


14 


02784 


000- 7 


04941 


44 


04964 


01200 


045 74 


11 


04520 


000-4 


0498* 


49 


04524 


00000 


04994 








04994 


2* 


05009 


00094 


04*0* 


2* 


04297 


027B7 


04* IB 


19 


04294 


0000- 


044)0 


13 


04297 


000-5 


04*41 


4) 


04466 


00099 



1259 
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03)10 


AM 


NEVEA.l.tO 


04654 


11 


04297 


000-1 


03320 


TD 


CLEVER, NEVER 


0466* 


29 


04321 


04247 


03330 


SF 


CLEVER 


04678 


32 


04321 


00000 


03340 


• •• ROUTINE TO RE AO IN CORRECT SPL 










03350 


TF 


94.KEVE 


04690 


26 


00094 


05009 


03360 


REDSPL CM 


94,0,1011, PACK ZERO 


04702 


14 


00094 


000 — 


03)70 


TF 


PACK ,94,, SAVE PACK NUM 


04714 


26 


02773 


00094 


03380 


BE 


REOSPO 


0472* 


46 


04810 


01200 


0))90 


CM 


94,1,1011, PACK ONE 


04738 


14 


00094 


000- J 


0)400 


BE 


REOSPI 


04750 


46 


04894 


01200 


0)410 


CM 


94,2,1011, PACK TWO 


047*2 


14 


00094 


000-K 


0)420 


BE 


RE0SP2 


04774 


44 


04896 


01200 


0)430 


CM 


94, 3, 1011, PACK THREE 


0478* 


14 


00094 


000- L 


0)440 


BE 


REOSPS 


04748 


44 


04442 


01200 


0)450 


REOSPO TO 


SPLPKO+l, CLEVER 


04610 


29 


01*4* 


04321 


0)440 


TFM 


I0RT,»*2) 


04111 


I* 


009*9 


-4*49 


03470 


B 


lOGTtPKOOOAtT 


048)4 


44 


009** 


-2*37 


0)480 


B 


SPL INI 


0484* 


44 


04470 


00000 


0)490 


OORG 


•-3 


04B94 








0)500 


REOSPI TO 


SPLPK|4l,CLEVER 


04894 


19 


02**4 


04)21 


0)510 


TFM 


I0RT.»*2S 


048** 


I* 


009*5 


-4669 


03520 


B 


IOGT,PK100A,T 


04878 


44 


005** 


-2640 


0)9)0 


B 


SPL INI 


04B40 


44 


04470 


00000 


03540 


OORG 


•-3 


04896 








0)590 


REOSPI TD 


SPL PK 2+ I, CLEVER 


04846 


19 


02*42 


04)21 


03940 


TFM 


I0RT.**2S 


04410 


I* 


005*5 


-44)3 


03970 


B 


IOGT,PK2O0A v 7 


04411 


44 


009** 


-24*3 


03960 


B 


SPL INI 


044S4 


44 


04470 


00000 


03990 


OORG 


•-3 


04442 








03*00 


REOSPS TO 


SPLPK3*!, CLEVER 


0*4*2 


19 


02719 


04321 


03*10 


TPM 


10RT,4*2| 


04414 


1* 


009*9 


-4477 


03*10 


B 


IOGT,PK3O0AtT 


0*4** 


44 


009** 


-2704 


03*30 


B 


SPL INI 


0*471 


44 


04470 


00000 


03*40 


OORG 


•-3 


0*40* 








03*90 


COMCYL TP 


SPLCVt.AOBSPL ,,CYLCORE POSITION 


0*40* 


14 


0S1B7 


04520 


03**0 


SF 


AORSPL.,* 


0*448 


SI 


0452- 


00000 


03*70 


KEVE OS 


•COMCVL^IS 


01004 









03*80 


AM 


SPLCYL ,03*10 


§•010 


11 


0S187 


000-3 


03*90 


STAROT CM 


SPLCYL, 7000.48, IS THIS THE RIGHT CYLINOER 


OlOtl 


1* 


OSIBP 


OPOOO 


03700 


BE 


SPLEIT 


0S0S4 


4* 


090** 


01200 


0)710 


CF 


ADR SPL t »* 


01046 


S3 


0492- 


00000 


0)720 


B 


SPLAOO 


01018 


44 


04974 


00000 


0)7)0 


OORG 


•-) 


010** 








0)740 


SPL EXT TF 


SPLCOR, SPLCYL* .PI NO DIP NUM LOCATION 


010*4 


1* 


0SI91 


0)167 


03750 


SN 


SPLCVL.OSi iO.OACK TO HIGH QR06R POSITION 


05076 


11 


0S1B7 


000-3 


0)740 


SF 


SPLCYL. .* 


01040 


SI 


OSIBP 


OOOOO 


03770 


TF 


NE NO I M . SPLCOR t HtCYLlNOiR OiSIMO 


OltOl 


10 


0t4*S 


0319J 


03780 


TP 


LISTER.SPLCOR.il, 


0111* 


to 


017*1 


OSlf 4 


0)790 


TP 


SPLCOft. SPLCYL 


out* 


to 


OSISI 


09167 


0)800 


TF 


SPLCYL. AORSPL 


011330 


1* 


03167 


04920 


0)610 


SP 


COMMON 


Oil 10 


St 


•101* 


OOOOO 


0)820 


B 


MHYNOT 


091*1 


44 


0S9BB 


OOOOO 


0)8)0 


OORG 


•-3 


OHIO 








03640 


••• LINKAGE TO RETURN TO PROPER SUBROUTINE APTE* SAV IMG CORE 










03850 


GET BAR CM 


NOttMON.OlilO 


01170 


14 


02*94 


000-1 


0)640 


BE 


GITRTR 


89182 


44 


01418 


01200 
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1620- 1443 MONITOR I VERSION 2 DUP OLOAO-QREPL-CELET 



PAGE 



03870 




CM 


NOMMON,02t 10 


05194 


14 


02856 


000-2 


03880 




BE 


CETLTR 


05206 


46 


030 16 


01200 


03890 




CM 


NQMMON, 03*10 


05218 


14 


02856 


000- 3 


03900 




BE 


REMOTR 


052 30 


46 


03 104 


01200 


03910 




CM 


N0MMON.04, 10 


05242 


14 


02856 


0C0-4 


03920 




BE 


INSETR 


05254 


46 


03434 


01200 


03930 




B 


F INDTR 


05266 


49 


03906 


00000 


03940 




DORG 


• -3 


05274 








03950 


ACRSPL 


OS 


,LPSR0A*6 


04520 









03960 


• •• PORTION OF THE MOVER SUBROUTINE MHICH MOVES THE DATA 






00565 




01970 


COMPPR 


TFM 


IORT f •♦23 


05274 


16 


-5297 


3980 




g 


IOP T| K I NC t 7 i SA VE THE INFORMATION IN CORE 


05286 


49 


00532 


-2458 


03990 




CM 


CALC 7* 140 « 9 (REGULAR READ 


09298 


14 


02849 


00J40 


04000 




BL 


SPCRED 


(15310 


47 


05462 


01300 


04010 




SM 


RDMOVE *5f 140»9 


05322 


12 


02604 


00J40 


04020 




SM 


MRMQVE ♦ 5 , 1 40 1 9 


05334 


12 


02627 


00J40 


04030 


WH IP I T 


TFM 


IOR T, •♦ 2 3 


05346 


16 


00565 


-5369 


04040 




B 


IQGT tROMOOA i 7 


05358 


49 


00566 


-2591 


04050 




TFM 


IORT,<»*23 


05370 


16 


00565 


-5393 


04060 




B 


IOP T , WRMDOA i 7 


05382 


49 


00532 


-2614 


04070 




SM 


C ALC 7 , 140(9 


05394 


12 


02849 


OOJ40 


04080 






CALC 7 • 140 * 9 


05406 


14 


02849 


00J4O 


04090 




BNH 


SPC RED 


05410 


47 


05462 


01100 


04100 






HR MO VE ♦ 5 , 1 40 , 9 » AO JUS T COUNT AND ODA AFTER TRANSFERING 140 SE 


05430 


12 


02627 


O0J4O 


04110 




SM 


RDMOVE ♦ 5 t 1 40 i 9 


05442 


12 


02604 


OOJ40 


04120 








05454 


49 


05346 


00000 


04130 




DOR G 


J»H |P I T 


05462 








04140 


SPCRED 


j f 


R DMO VE ♦ 8 t C ALC 7 « f TR ANSFE R LAST PORTION OF PROGRAM 


05462 


26 


02607 


02849 


04150 




T F 


MR MOVE ♦ 8 * C ALC 7 


05474 


26 


02630 


02849 


04160 








05486 


22 


02627 


02849 


04170 








05498 


22 


02604 


02849 


04180 








05*10 


16 


00565 


-5533 


04190 






i nr. t - b niton a . 7 


05522 


49 


00566 


-2591 


04200 








055 34 


16 


00565 


-5557 


04210 






inpt wB unn A . 7 


05546 


49 


00532 


-2614 


04220 






uoiinuctt i i,n a dcctdoc fnucTAtuTc TO iin 


05558 


16 


02630 


00J40 


04230 








05570 


16 


02607 


OOJ40 


04240 






mot laatt ciuc innoc nt i ACT oonrpAMC nofriiuAi ccrrna a 


05582 


26 


08636 


19885 


04250 




TF 




05594 


26 


19885 


02627 


04260 




TFM 


I0RT,»*23 


056C6 


16 


00565 


-5629 


04270 




B 


I0PT.DM0DA.7 


05610 


49 


00532 


-2568 


04280 




TFM 


IORT,»*23 


05630 


16 


00565 


-5653 


04290 




B 


I0GT,KlNG*7 


05642 


49 


00566 


-2458 


04300 




B 


MARVEL 


05654 


49 


10908 


00000 


04310 




DOR G 


• -3 


05662 








04320 


ERR 


BNF 


• ♦68, FORT, .CHECK FOR ERROR 60 IN DLOAO 


0566 2 


4<» 


05730 


13114 


04330 




TFM 


DIMERR^22. 7670.8 


05674 


16 


02507 


0P670 


04340 




PCTY 




05686 


34 


00000 


00102 


04350 




WATY 


OIMERR 


05690 


39 


02485 


00100 


04360 




BNF 


FR R D ♦ 24 .DUMP 


05710 


44 


02548 


13426 


04370 




B 


PATCH3 








00000 


04380 




DORG 


• -3 


U5 7 30 








04390 




TFM 


DIMF«R*22 ,0078, 6 


057 30 


16 


02507 


0-078 


04400 




8 


ERRO 


05 742 


49 


02524 


00000 


04410 




DORG 


• -3 


0575C 








04420 


N1NESC 


nc 


4.9C00 19ft , 


0575 3 




4 
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04430 


C0NST3 


DC 


6,0 






- 00000 


04440 


SPLFL 


TFM 


IORT.^23*. LINKAGE 


04450 







IOPT,SPLR2,7 


04460 




TRA 




044 70 


SPLRl 


DSC 


1 , 1 


04480 




I 

DC 


5* 18298 






J8298 




04490 




DC 


3,033 






-33 




04500 




DC 


5,02458 






-2458 




04510 




DSC 


It ' 


04520 


SPLR2 


DSC 


2,22 






22 




04530 




DSA 


SPLRl 


04540 




DSC 


1. • 


04550 




TCD 


SPLFL 


04560 




DORG 


8500 


04570 


MOVFL 


TFM 


IORT,«*23,, LINKAGE 


04580 







IOP1 , MOVFLl, 7 


04590 




TRA 




04600 


MOVFLl 


DSC 


2*22 






22 




04610 




DSA 


M0VFL2 


04620 




DSC 


1*' 


04630 


MOVFL2 


DSC 


1*1 


04440 




1 

DC 


5*18331 






J8331 




04650 




DC 


3*038 






-38 




04660 




DC 


5*08600 






-1600 


04670 




DSC 


l*' 


04680 








04690 


• •• 







04700 
0*710 
04720 
04730 
04740 

04750 SFSUCI $P 
04760 TP 



THE MOVER SUiROUTINE FOR PRE PAR IMC A PLACE TO PUT A PROGRAM 6IVE 
A STARTING SECTOR ADDRESS -MOVES A- ANO A SECTOR COUNT -NOVISC- 



DORG 8400 

SUCESS 

M0VESC,SPSUCI*ll* 



RESTORE MOVE SECTOR COUNT. 



05759 

05760 16 

057 72 49 

05784 36 

0579ft 49 

05 woe 

05813 

05016 

0502 I 

05822 

05023 

05029 

05029 
050 30 

05 760 

00500 

08900 16 

085 U 49 

08934 36 

fl(133f> 49 
0(1540 

08994 

08554 
01955 

0S59& 

01961 

01964 

08969 

08970 



98400 
01412 24 



00565 
00532 

coooo 
coooo 

i 



-5783 
-5823 
00500 
00000 



3 
5 
I 
2 

5 X 



-5808 

1 



00565 -8523 

00532 -8548 

00000 00500 

00000 00000 



5 X 1 
-8556 



13118 00000 
02866 08411 



12*2 
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PA 61 


0*770 


E X I TMR 


o *Mi>U II irP BY CALLING PROGRAM 


01626 


69 


08*24 


00000 


0*780 




OORG •- 3 


08*12 








0*790 


HPT 


DC 5 ,0 


08*1* 




9 








•0000 










0*800 


PRE7 


TFN 10RT,»*21 


08*18 


1* 


009*5 


-8661 


0*810 




A I nn T . unit A . 7 . ■ I kiv ire ens inur iur iu vu* ( r^nun 
o iut» i iiu«»i i , LINKAGE run BRINGING IN THf 3ECCN0 


HALT OF MOV 08*90 


4f 


009** 


-8670 


0*620 




B PRE7A 


08**2 


49 


09000 


00000 


0*830 




OORG —3 


08*70 








0*8*0 


NOMA 


OSC 2,22 


01*70 




2 








22 








0*890 




OSA NOMB 


08*7* 




9 


X 1 






. ■ .'• ' ■ 


08*7* 




-8*78 




0*860 




0C It* 
* 


08*77 




1 




0*870 


NOMB 


0SC 1*1 
1 


08*78 




1 




0*880 




0C 5, 17104 


08*81 




9 








JT10* 








0*890 




0C 3,022 


08*8* 




1 








i-22 










0*9CG 




0C 6,09000* 


08*92 




* 








-9000* 










0*910 


TRMCAR 


DSC 2,22,, 00A FOR ROVING DATA 


08*91 




2 








22 










0*920 




OSA M0VCAR 


08*99 




9 


1 1 








08*9* 




-8701 




0*930 




DC I , • 


08700 




1 




0*9*0 


NOVCAR 


DSC 1,0 



08701 




1 




0*950 




DC 5,0 


0870* 




5 








-0000 










0*960 




DC 3,060 


08709 




1 








-60 










0*970 




OC 5,13776 


08716 




9 








J 37 76 










0*980 




OC 1 , * 


08715 




1 




0*990 


TRWBUS 


DSC 2,22,, 00A FOR MOVING DATA 


0871* 




2 








22 










05000 




OSA MOVBUS 


08722 




5 


X 1 








08722 




-8724 




05010 




OC I, • 


08721 




1 




05020 


NOVBUS 


OSC 1,0 


0872* 




1 




05030 




OC 5,0 


08729 




5 








-0000 










050*0 




DC 3,060 


08732 




3 








-60 










05050 




DC 5,13776 


08737 




9 








J3776 










05060 




DC 1 , • 


08738 




1 





1263 
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05070 


TRW A 


DSC 


2,22,, DDA FOR MOVINGOATA 


08739 




2 








22 












05080 




OSA 


LOPEZA 


087*9 




9 


X 1 










087*9 




-67*7 




05090 




DC 


1,* 


087** 




1 




05100 


LOPEZA 


OSC 


1,0 


087*7 




1 




05110 






DC 


5,0 


08792 




9 








-0000 










05120 




DC 


3,0*0 


08799 




3 








-60 












09130 




DC 


5,1377* 


087*0 




9 








J3776 










091*0 




DC 


l.« 


087*1 




1 




09190 


TRWB 


OSC 


2,22,, ODA FOR MOVING DATA 


087*2 




2 








22 












09140 




OSA 


LOPEI8 


087*8 




9 


x 1 










087*8 




-8770 




05170 




OC 


1,« 


087*9 




1 




05180 


tOPfIB 


OSC 



UO , 


08770 




1 




09190 




DC 


5.0 


08779 




9 








-0000 










09200 




OC 


3.0*0 


0B77B 




3 








-60 












09210 




OC 


5.1377* 


06783 




9 








J377* 










09220 




DC 
* 




08784 




1 




09210 


NONITR 


OS 


.79* 


0079* 









09240 KIY9 


DSC 



1.0 


087B9 




1 




09290 


CALC* 


OC 


5,0 


08790 




9 








-0000 










092*0 


CALC9 


OC 


*.o 


0879* 




* 




09270 


ZEROES 


-00<K 
DC 


>0 

10.0 


0880* 




10 








-ooooooooo 










09280 


CURREN 


OC 


3,0 


08SC9 




3 








-00 












09290 


LIMIT 


OC 


3.099 


06812 




3 




09100 


KEY I 


-99 

DSC 


1.0 


08813 




1 




05310 


DIMHLO 



OC 


9,0 


06822 




9 








-00000000 










05120 


01MENT 


OS 


,19160. CONTROL FlfLO FOR NOMOIN 


19880 









05310 


MOVER 


SF 


MOVESA-9 


0861* 


31 


0X696 


00000 


05140 




CP 


MQVESA-4 


0883* 


31 


01659 


00000 


05190 




TP 


SFSUCIM1.HOVESC,. STORE MOVE SECTOR COUNT. 


068*6 


3* 


08411 


•It** 


051*0 




TP 


LISTES.NOVESA,, PINO POINT IN LIST MHIRE MtOSRAM IS TO BlOf 


088*0 


I* 


dim 


02863 



121* 
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053 70 




TFM 


RLGGNEO0,*+20 


088 72 


16 


04264 


-8892 


05380 




6 


F IND 


0188* 


69 


038 36 


00000 


05390 




DORG 


• - 3 


01892 








5*00 




CM 


L I STER-3,09, 101 1 » LCOK FOR BLANK ENTRY 


08892 


I* 


02 762 


OCO-R 


054 1 




BE 


M ION! T 


0890* 


*6 


09 372 


1 200 


05*20 




TF 


NEw0IM,Lt STER, , MCVESA IS 9N THE MlCOLf OF A PROGRAM 


08916 


26 


02963 


02 765 


05*30 




BT 


D IMNER ,01 MMER- I 


08926 


27 


03672 


03671 


05**0 




SF 


MO VESA-* 


089*0 


32 


02859 


CCOOO 


05*50 




TF 


C0NST5, 19115 


08952 


26 


02826 


19885 


05*60 




S 


C0NST5, MOVESA 


0896* 


22 


02624 


02863 


05*70 




CF 


MOVESA-* 


08976 


33 


C2B59 1 


00000 


05*80 




SF 


C0NST5- 3 


08988 


32 


02823 


00000 


05*90 




TF 


BAVAIL ,C0NST5, , ADJUST BLANK AVAIL TO MINUS TO ALLOW FOR DIM 


09000 


26 


02755 


02626 


05500 




BNF 


F ILTST, 19899, , IS THE PROGRAM FILE PROTECTED 


09012 


** 


10204 


19899 


055 10 


MSTAKE 


CF 


SLCESS, ERROR EXIT 


0902* 


33 


13118 


00000 


05520 




TF 


MOVESC , SF SUCE* 1 1 , , RESTORE MOVE SECTOR COUNT* 


09036 


26 


02866 


0661 1 


05530 




B 


EX1TMR 


090*8 


49 


08624 


00000 


055*0 




DOR G 


• - 3 


09056 








05550 


OSEVEN 


SF 


L I STE S-* 


09056 


32 


02787 


00000 


05560 




S 


FOUND , L I STES 


09066 


22 


03445 


02791 


05570 




SF 


FOUND- 3 


C90I0 


32 


03442 


00000 


05580 




TF 


C0NST2, FOUND 


09092 


26 


02606 


03**5 


05590 


ACTA J 


C 


C0NST2, MOVESC • « ENOUGH SECTORS AVAILABLE 


091C* 


2* 


02808 


02866 


05600 




BNL 


AC TAG 


09116 


46 


09260 


01300 


05610 


ACTAH 


BT 


GETR,G£TR- 1 , , LOOK FCR MORE ROOM 


09128 


27 


02872 


02871 


05620 




CM 


LIS TER- 3, 7,1011 


091*0 


1* 


02762 


000-P 


05630 




BE 


AC T AH 


09152 


46 


09128 


01200 


056*0 




CM 


L I STER- 3, 9 , 101 1 


0916* 


I* 


02762 


OCO-R 


05650 




BNE 


AC T AK 


C9176 


47 


09220 


01200 


05660 




SF 


LISTER-2 


09168 


32 


02763 


00000 


05670 




A 


C0NST2,LI STER 


092C0 


21 


02808 


02765 


05680 




B 


ACTAJ 


09212 


49 


09104 


00000 


05690 




DORG 


• - 3 


09220 








057CO 


ACT AK 


TF 


L I STE S , MOVE SA , , REPOSITION LISTER TO MOVESA 


09220 


26 


02791 


02863 


05710 




TF* 


RLGONE* 30t* + 20 


09232 


16 


0*28* 


-9252 


05720 




B 


F IND 


092** 


49 


03836 


ocooo 


05730 




OORG 


•-3 


C9252 








057*0 




B 


I1LANKT,,, PROGRAMS MUST BE MOVEO 


09252 


*9 


103*8 


00000 


05750 




OORG 


• - 3 


09260 








05760 


ACTAG 


TF 


L ISTES, MOVESA, , REPOSITION FIND TC MOVESA 


09260 


26 


02791 


02863 


05770 




TFM 


RLG0NEO0»»+20 


09272 


16 


0*28* 


-9292 


05780 




B 


F I NO 


0928* 


49 


03838 


00000 


05790 




OORG 


• -3 


09292 








05800 




BT 


G6 TR , GE TR- 1 


09292 


27 


02872 


02871 


05810 




SF 


LISTER-2 


0930* 


32 


02763 


00000 


05820 




MM 


L I S TE R , 200,9 


09316 


13 


02765 


OOKOO 


05830 




TF 


CONST 1 , 99 


09328 


26 


02802 


00099 


058*0 




BT 


GE TL.GETL-l 


C93*0 


27 


02996 


02995 


05850 




SF 


LISTER-2 


09352 


32 


02763 


00000 


05860 




B 


AC T AA 


0936* 


*9 


09552 


ocooo 


05870 




OORG 


• -3 


09372 








05880 


KIONIT 


SF 


MOVESA-*,,, MOVESA IS AT AN AREA COVERED BY BLANK SECTORS 


09372 


32 


02859 


OCOOO 


05890 




SF 


LISTER-2 


0938* 


32 


02763 


00000 


05900 




BT 


GE TR ,GE TR- 1 


09396 


27 


02872 


02871 


05910 




CM 


L IS TER- 3, 7,1011 


09*08 


14 


02762 


OCO-P 


05920 




BE 


DSE VEN 


09*20 


4b 


09056 


01200 



I2G: 
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05930 




TF 


059*0 




BT 


05950 




TF 


05960 


ZSEVEN 


TF 


05970 




TF 


05980 




BT 


05990 




SF 


06000 




A 


06010 




C 


06020 




BH 


06030 


ACTAA 


S 


060*0 




TF 


06050 




S 


06060 




SF 


06070 




TF 


06080 




CF 


06090 




TFM 


06100 




CM 


06110 




BE 


06120 




BT 


06130 


NONAME 


BT 


061*0 




CM . 


06150 




BNE 


06160 




SF 


06170 




MM 


06180 




TFM 


06190 




TF 


06200 




S 


06210 




SF 


06220 




C 


06230 




BNL 


06240 




A 


06290 




S 


06260 




TF 


062 70 




CF 


06260 




TFM 


06290 




BT 


06900 




BT 


9*310 




B 


06320 




OORG 


0*330 


ACTAC 


TF 


06340 




BT 


06390 




TF 


06360 




TO 


06370 




CF 


0*380 




SF 


0*390 


ACT AC 


TF 


0*400 




CF 


0*410 




TFM 


0**20 




BT 


0**30 




TF 


0***0 




A 


0*490 




S 


0*4*0 




SF 


0**70 




TF 


0*410 




CF 



NEwDIM, LISTER,, POSITION END OF BLANKS FROM THIS DIMS SECTOR 

DIMMER, DIMMER-l 

C0NST1, 19885 

C0NST6, MOVESA 

CONST 3,C0NST1 

GETL.GETL-l 

LISTER-2 

C0NST6, MOVESC 

C0NST6,C0NSTl,,IS THERE ENOUGH ROOM TO LOAD T»-E MDVESC 
BLANK T 

C0NST1.LI STER. .ENOUGH ROOM HAS BEEN F0< ' J h ITHOUT MOVING PRO 
C0NST2, MOVESA 
C0NST2, C0NST1 
C0NST2-2 

• ♦35,CONST2 », PREPARE THE TRAILING NiiNES ENTRY 

• ♦21 

LISTET,9000,8 
LlSTET,9C00,8 

• ♦24 

INSERT, INSERT- 1 
REMOVE, REMOVE- 1 
LISTER-3,7,1011 
ACTAO 
LISTER-2 
LISTER, 200, 9 

95,99,10, TO COMPENSATE FOR PACK ADDRESSING 

C0NST3,99 

99, MO VESA 

97 

99, MOVESC 
ACTAC 
MOVESA, 99 
MOVESC, 99 

•♦35,99,, PREPARE EIGHTS ENTRY OF MOVESC 

• ♦21 

LISTET.8999,6 

INSERT, INSERT- I 

GETR,GETR-l 

NONAME 

•-3 

NEKDIM, LISTER,, USE DIM ENTRY TO FIND SECTOR ACRES $ 

DIMMER, DIMMER-l 

C0NST3, 19865 

CON ST 3- 5, 19660 

CONST 3-4 

C0NST3-S 

• ♦35, MOVESC. PREPARE AN EIGHTS ENTRY OF MOVESC 

• ♦21 

LI STE T, 6000,6 
INSERT, INSERT- 1 
CONST 2 .MOVESA 
CON ST 2, MOVESC 
C0NST3, CONST! 
CON ST 3- 2 

•♦35, C0NST3,, PREPARE THE LEADING NINES ENTRY 

• ♦21 



09*5? 


26 


02963 


02765 


09**4 


27 


03*72 


36 7 I 


09*56 


26 


02802 


19885 


09468 


26 


02832 


02863 


09* a 


26 


057"><? 


02R02 




2 7 


029^6 




0950* 


32 


02 763 


00000 


09516 


21 


02832 


021166 


095 26 


2* 


02832 


02802 


095*0 


*6 


103*8 


OllOC 


09552 


22 


02802 


02?65 


0956* 


26 


02808 


02863 


09576 


22 


02806 


02802 


09588 


32 


02806 


00000 


09600 


26 


09635 


02808 


09612 


33 


09633 


00000 


09624 


16 


02795 


OR 000 


09636 


14 


02795 


OROOO 


09646 


46 


09672 


01200 


09660 


27 


03*14 


03413 


09672 


27 


0308* 


03083 


09684 


I* 


02762 


000-P 


09*96 


47 


09896 


01200 


09708 


32 


02763 


00000 


09720 


13 


02765 


OOKOO 


09732 


16 


00095 


O0OR9 


097*4 


26 


05759 


00099 


0979* 


22 


00099 


02663 


097*8 


32 


C0097 


00000 


09760 


24 


00099 


02866 


09792 


4* 


09968 


01300 


09§04 


21 


02863 


00099 


0981* 


22 


028** 


00099 


09B28 


2* 


096*3 


00099 


09640 


33 


096*1 


00000 


09852 


I* 


02799 


00999 


096*4 


27 


03414 


03413 


©987* 


17 


02872 


02871 


09688 


49 


09*72 


00000 


0969* 








09694 


2* 


029*3 


027*9 


09908 


27 


03*72 


03671 


09920 


2* 


09799 


19689 


09932 


29 


09794 


19860 


09944 


33 


09799 


00000 


0999* 


32 


09794 


00000 


09446 


2* 


10003 


028** 


09960 


33 


10001 


00000 


09991 


1* 


02799 


OQOOO 


10004 


27 


03414 


03413 


1001* 


2* 


02806 


026*3 


10020 


21 


02808 


026** 


100*0 


22 


09799 


02606 


10092 


32 


09737 


00000 


10044 


2* 


10099 


09799 


1007* 


33 


10097 


00000 



1216 
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PACE 









I t c re V AAAA A 

L I 51c T » 9000 |6 




10088 


1* 


02749 


OROOO 






CM 


L ISTET.9000,8 




10100 


14 


02799 


OR 000 






BE 


• »2* 




10112 


4* 


1011* 


01200 






BT 


INSERT * INSERT- I 




10124 


27 


03414 


01411 


06530 


RENSI L 


CF 


M0VESA-4* , (POSITION LISTER FOR EXIT 




10114 


11 


02854 


00000 


0*5*0 




BT 


CE TL *GE TL- 1 




10148 


27 


02994 


02995 


06550 




CM 


L I STER-1.08. 1011 




10160 


14 


027*2 


000-0 


06560 




BNE 


• -2* 




10172 


47 


10148 


01200 


06570 




BT 


GE TR.GETR-1 




1C184 


27 


02872 


02871 


06500 




B 


SFSUCE 




10H6 


44 


08*00 


00000 


06590 




OORG 


•-3 




102C4 








06600 


F ILTST 


BNC 


GORT. 19894., CHECK FOR PILE PROTECTION 




10204 


99 


10224 


19844 


06610 




B 


MSTAKE 




1021* 


44 


09024 


00000 


06620 




DORC 


•-3 




10224 








06630 


GORT 


BT 


GE TR.GE TR-1 , . SEARCH FOR MORE BLANK SECTORS 




10224 


27 


02872 


02871 


06640 




CM 


LISTER-l.07.10ll. CVL REPRESENTED ^ 




1021* 


14 


027*2 


000-P 


06650 




BE 


GORT 




10248 


4* 


10224 


01200 


06660 




CM 


L ISTEA-3, 09,1011, BLANKS 




102*0 


14 


027*2 


OOO-R 


06670 




BE 


BAVAOO 




10272 


4* 


104*4 


01200 


06610 




TF 


NEMOIN.Ll STER 




102*4 


2* 


02441 


02749 


06690 




BT 


DIMMER. DINMER-1 




1029* 


27 


01472 


01*71 


06700 




BNC 


•♦20*19999., FILE PROTECTEO PROGRAM 




1030* 


99 


10129 


19*44 


06710 




B 


F IL TST* 12 




10120 


49 


1021* 


00000 


0672 




OORG 


•-3 




10128 








06730 




BNF 


GORT, 19199* , IMMOVABLE PROGRAM 




10128 


44 


10224 


14949 


067*0 




B 


MSTAKE 




10360 


49 


04024 


00000 


06750 




DORC 


•-3 




10348 








06760 


BLANK T 


SF 


L ISYES-1 




10148 


12 


02788 


00000 


06770 




TF 


C0NST5, FOUND 




101*0 


2* 


02824 


03445 


06710 




S 


FOUNDvLISTES 




10172 


22 


01449 


02741 


06790 




CP 


LISTES-1 




10184 


91 


02798 


00000 


06600 




SF 


FOUND- J 




1014* 


12 


01442 


00000 


06*10 




TF 


BAVAIL.FOUND 




10408 


2* 


02799 


03449 


06120 




CF 


FOUND- 3 




10420 


11 


01442 


00000 


0*830 


BAVCOM 


C 


BAVAIL.MOVESC..IS HOLE BIG ENOUGH 




10412 


24 


02799 


0284* 


06860 




BNL 


MQVNOM 




10444 


4* 


1049* 


01100 


06150 




ft 


GORT 




1049* 


49 


10224 


00000 


04160 




DORG 


•-3 




104*4 








06t70 


BAVAOO 


SP 


LISTER-2... AOD IN COUNT OF BLANK SECTORS POUND 




104*4 


12 


027*1 


00000 


06110 




A 


BAVAILtLlSTER 




1047* 


21 


02799 


027*9 


06190 




ft 


BAVCOM 




10488 


49 


10412 


00000 


06900 




OORG 


•-3 




1049* 








06910 


MQVNOW 


S 


BAVAIL«MOVESC. . ADJUST LAST NINES ENTRY POR FINAL 


OUTPUT 


1049* 


22 


02755 


028*6 


06920 




CM 


8AVAIL.C00.9. 




10508 


14 


02755 


00-00 


06930 




BE 


REMBLK 




10520 


46 


10652 


01200 


06960 




SF 


LI STEP.- 2 




10932 


12 


027*3 


00000 


06941 




SF 


BAVAIL-2 




10944 


12 


02753 


00000 


06942 




TF 


PAT6R+23.BAVAIL 




10556 


2* 


10603 


02755 


06943 




CF 


BAVAIL-2 




10568 


31 


02753 


00000 




PAT6R 








10580 


33 


10601 


00000 


06970 




TFM 


L ISTET, 9000*8 




10592 


16 


02795 


OROOO 


069S0 




BT 


INSERT* INSERT-l 




10604 


27 


03*1* 


03413 






TFM 


MRM0VE»5,,.ZER0 FIELD 




10*1* 


1* 


02627 


-0000 


07000 




S 


WRM0VE+5.BAVAI L 




10*28 


22 


02627 


02755 


07010 




TOM 


HEX,,, RECORD MARK 




10*40 


15 


02796 


00000 


07020 




DC 


!.•*• 




1065 1 




1 










1267 
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07030 


REMBLK 


BT 


REMOVE, REMOVE-l ..REMOVE LAST NINES ENTRY IF IT IS A 


PERFECT 


10652 


27 


0308* 


03083 


070*0 




CM 


LISTER-3, 07.1011 




10664 


14 


02762 


000-P 


07050 




BE 


KSEVEN 




10*76 


44 


10732 


01200 


07060 




TF 


NEMO I M.LI STEP , .SET MOVER OOA FROM DIM ENTRY 




10688 


2* 


02963 


02765 


07070 




BT 


D IMMER .01 MMER-1 




10700 


27 


03672 


03671 


07080 




A 


MRM0VE*5* 19885 




IC712 


21 


02627 


14865 


07090 




B 


TOPPRO 




10724 


49 


10836 


00000 


07100 




DORG 


• -3 




10732 








07110 


KSEVEN 


SF 


LISTER- I... SET MOVER DDA FROM CYLINDER ENTRY 




10732 


32 


02 76* 


OCOOO 


07120 




MM 


LISTER. 200.9 




107*6 


13 


02765 


OOKOO 


07130 




A 


WRM0VE«5,99 




10756 


21 


02627 


00099 


07140 




SF 


URMOVE 




10768 


32 


02622 


00000 


07150 




S 


WRMOVE* l.NEVER 




10780 


22 


02623 


0*297 


07160 




AM 


MRMOVE*l.01.10 




10792 


11 


02621 


000- I 


07170 




CF 


MRMOVE 




10804 


31 


02622 


00000 


07160 




B 


TOPPRO 




10814 


49 


10*36 


00000 


07190 




DORG 


•-1 




10824 








07200 


R SEVEN 


BT 


REMOVE .REMOVE-l 




1062* 


27 


030*4 


03083 


07210 


TCPPRO 


BNR 


•♦2*. HEX 




1083* 


69 


108*0 


02796 


07220 




BT 


GETL.GETL-1. .AOJUST THE LISTER FOR NO EXACT FIT 




10848 


27 


0299* 


02995 


07210 




TF 


C0NST5.M0VESA 




10**0 


2* 


0282* 


028*3 


07240 




A 


C0NST9tM0VESC 




10872 


21 


0282* 


02*44 


07290 




SF 


C0NST9-4.. .SECTOR ADOBE S OP LAST SECTOR TO BE MOVED 


TOWARD 


10884 


12 


02822 


00000 


07240 




TPM 


NEMDIM.4999.B 




1089* 


1* 


029*1 


04499 


07270 


MARVEL 


BT 


GETL.GETL-1 




10908 


27 


0299* 


02995 


07210 




C 


WRN0VE*5,CQNST5,»HAS THE LAST PROGRAM JUST BEEN MOVED 


10920 


24 


02*27 


02824 


07290 




BNM 


PRE 7 




10432 


47 


06636 


01100 


07100 




CM 


LISTER-3. 6,1011. FLAGGED ABOVE SIX 




10944 


14 


027*2 


ooo-o 


07110 




BH 


•♦32. • .BOTH NUMBERS ARE MINUS 




1099* 


4* 


109BB 


01100 


07120 


MASH 


BT 


REMOVE, REMOVE-l 




104*8 


27 


010B4 


010B1 


07110 




B 


MARVEL 




10480 


49 


10908 


00000 


07140 




DOUG 


•-3 




10988 








071S0 




C 


LISTER. NfMOIM 




109BB 


24 


027*9 


029*1 


07140 




BE 


NASH 




11000 


4* 


10448 


01200 


07170 




TP 


NEMO IN, LISTER..BEGIN-NCVE PROGRAMS DOMN 




11012 


2* 


024*1 


027*9 


07140 




BT 


DIMMf R.OIMMfR-l 




11024 


I? 


01*72 


01*71 


07190 




TP 


CALCT.19BB8..SECT0R COUNT 




1101* 


1* 


028*4 


198BB 


07400 




TP 


CALC1.1949I..INIT RE AO AND WRITE 




11048 


I* 


02180 


19899 


07410 




TO 


OOMOVI # 19080 




110*0 


29 


02999 


199B0 


07420 




A 


CALC3.CAUT 




11012 


11 


02700 


02844 


07410 




TP 


ROMOVf +9.CALC3 




110*4 


2* 


02*04 


02780 


07440 




TO 


MRMOVf .ROMOVf 




1109* 


21 


02*22 


02949 


07450 




B 


COMPPR 




1110* 


49 


09274 


00000 


07440 




OORG 


•-3 




1111* 








07470 




TCD 


MOVPL 




08900 








07*60 




OORG 


OfOOO 




09000 








07440 


• •• ROUTINE TO COMPUTE THE REMOVAL Of NON-POOGRA* ENTRIES 












07900 


PR ETA 


BT 


GE TR.GE TO- I 




04000 


27 


02B72 


02871 


07910 




TP 


C0NST9.LIITER 




04)012 


20 


02B2O 


027*9 


07920 


LOOPSV 


BT 


CETL.C4TL-1.. SEARCH TOM A BO THE LEPT P08) MEM DIM N 


UMBER 


09024 


If 


02990 


02999 


07910 




CM 


LISTER-l.T.iOli 




0901* 


14 


017*2 


000-P 


07940 




BE 


SEVENT 




84048 


4* 


09100 


01200 


07950 




CM 


LISTER-1.4,1011 




090*0 


U 


027*2 


000-0 


07940 




BE 


NINENT 




090T2 


00 


Of 192 


01200 


07970 




C 


LISTEB.C0NST9 




090B4 


14 


027*9 


02*2* 
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7580 




8N E 


C HQ IC E 




09096 


47 


09196 


1200 


07590 


SEVENT 


CM 


L I S TE R , 7000 » 8 , CHEC K FOR SPECIAL CASE OF CYLINDER ZERO 




09 108 


14 


02 765 


OPOOO 


07600 




8E 


SPfCAS 




09 1 20 


46 


09152 


01200 


07610 


N INENT 


8 T 


RF MO VF , R E MO VE ~ I 




09132 


27 


03084 


03063 


762 






L 1 1 L P .< Y 




09144 


49 


09024 


00000 


076 30 




f)OR G 






09152 










SP ECA S 


TFM 


1 9 « f> f - 




09152 


16 


19885 


-COOO 


n 7*!«;n 






ocm nut tcunuc.i 




09 164 


27 


3064 


03083 






TFM 


m*mv«i ai ia mod tup r.f ro im twi< cdrpiai r icp 




no! at 


1 6 


09497 


OOOMl 


n 7 in 






MEAT 






49 


09292 


OOOOO 


A7AOA 




OORG 






09196 














Kit tfl 1 M 1 I C T C D 




09 1 96 


26 


0296 3 


02 765 


2 a 




8T 


01MMFR.DIMMER-1 








3672 


03671 


7 710 




CM 


L I S TE R » 000 1 » 8 i CHECK FOR KORK REPRESENTED BV CYLINDER 


COUNT 




14 


02 765 


0-00 1 


07 720 




BNE 


• ♦48 




092 32 








7 730 




MM 


19888,200,9 




09244 






OOKOO 


7740 




SF 


9S 






'l 


nnna* 


U (J u u u 


07750 




A 


1<V«85,99 








i oaa« 
I q!!c 


00099 


07760 




A 


19885,19888 




09280 


•t 1 




19888 


7770 




SET-LP FAKSEV AND RACKET 














MEAT 


MM 


MOVESA-4, 05, 10 








02859 


000-5 


A770A 

°* 




TDM 


MOVESA-4, 1,11 






: _ 


02859 


0000 J 


07800 




(3D 


• ♦M,99 




nai 1 A 




aqiaa 


00099 


07810 




TDM 


MOVESA-4, 0,11 




na»f a 


1 5 


n?ii«a 




07820 




TD 


19881 .MOVE SA-4 










02859 


07830 




TFM 


FAKSEV, 7000,8 






16 




OPOOO 


0784Q 




SF 


19883 








883 


uuuuu 


7850 


DELTA 


DC 


5,C0200,» 




093 7 5 












-0200 












07860 




TFM 


RACKET , ,8 




naif 








078 70 




TF 


RACKET, 19885,, ESTABLISH THE NuMBER OF SECTORS USEO ON 


■ HIS C 


09388 


26 


0284Z 


19885 


07880 




CF 


19883 




09400 


33 


I? \ 


UUUUU 


07890 




TDM 


RACKET-2. 1 




094 1 2 


1 5 


02 840 


0000 1 


07900 




MM 


1)883, 05, 10 




09424 


I 3 


19883 


000-5 


07910 




BD 


• ♦24,99 




094 36 


4 3 


09460 


00099 


07920 




TDM 


RACKET-2, 




09448 


I 5 




UUUUU 


07930 




TD 


FAKSEV, 98 




09460 


W 


n a\ \ 


00098 


794 




TD 


FAKSEV- 1,97 






* 




n oqa! 


07950 






DEL TA , RACKET , , INIT TC 200 MINUS RACKET 




na o2 








7Q7ft 


MANY 


BT 


GE TR,GE TR- 1 , , SHIFT OFF OF ANCHOR PROGRAM 




^ : 


* 




02871 


07970 




TF 


C0NST5.MOVESA 










an A i 


7980 






C ON ST 5 , 19885 




no* 5n 
09520 




0/8/6 




07990 




CM 


RACKET, 0000,8 




095 32 


1 4 


02842 


0-000 


08000 




BNE 


CONCUD 




09544 




09°52 


1200 


080 1 






L ISTET, FAKSEV,, REPLACE THE CYLINDER MARKER 




09556 


26 


02795 


0285 3 


08020 




BT 


INSERT, INSERT-l 




09568 


2 7 


3M 4 


1 4 I 3 


08030 






C0NST5, ,7, 




09580 


I 4 


02626 


- 0000 


08040 




Bfc 


E IfiHTS 




09592 


46 




01200 


08050 


0ELNT5 




DELTA, C0NST5,, IS THERE ENOUGH ROOM FOR REMAINING NINES ENT 


09604 


24 


09*75 


028?<S 


08060 




ftl 


TAC 




09616 


47 


0<*B12 


01 300 


08070 




OH 


TIC 




09628 


46 


09744 


01100 


08080 






C0NST5-2,,, A PERFECT FIT, INSERT THE NINES EfcTRY 




09640 


32 


02824 


OOOOO 


08090 




re 


•♦ 35.C0NST5 




09652 


26 


09687 


02826 


08100 






• ♦21 




09664 


33 


09685 


OOOOO 


08110 




T 


L I S TF T » 9C00 , 8 




09676 


16 


02795 


OPOOO 


08120 






INSERT, INSERT-l 




09688 


27 


03414 


0341 3 








I261J 
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081 30 




AM 


FAKSEV, 01. 10 




097C0 


i l 


0285 3 


000 - 1 


08 1 40 




TF 


L I STET, FAKSEV, , RESTORE THE CYLINDER MARKER 




09712 


26 


02795 


02853 


081 50 




B T 


INSERT, INSERT-l 




09724 


27 


034 14 


3413 


0816 






£ IGHTS 




09736 


49 


09984 


0000 


Ofil 70 




OORG 


»~3 




C9744 








08180 


T I C 


SF 


C0NST5-2,,, INSERT THE NINES ENTRY 




09744 


32 


02824 


cocoo 


08190 




TF 


•♦35,C0NST5 




09756 


26 


0979 I 


02826 


08200 




CF 


•♦21 




09768 


3 3 


097 89 


OOOOO 


082 1 




TFM 


L I S TE T , 9C00, 8 




09780 


16 


02 795 


OR 000 


06220 




BT 


INSERT, INSERT-l 




09792 


27 


034 14 


03413 


08230 




B 


EIGHTS 




09804 


49 


09984 


OOOOO 


08240 




DORG 


• -3 




098 12 








08250 


TAC 


SF 


DELTA-2 » , FILL THE REST OF THE CYLINOER WITH NINES ENTRY 


098 12 


32 


09373 


UUUUU 


08260 




TF 


•♦35, DELTA 




09824 


26 


09859 


09375 


082 70 




CF 


• ♦21 




09836 


33 


09857 


OOOOO 


08280 




TFM 


L ISTET, 9000, 8 




09848 


16 


02 795 


OROOO 


08290 




CF 


DELTA-2 




09B60 


3 3 


09373 


OOOOO 


08300 




BT 


INSERT, INSERT-l 




09872 


27 


034 1 4 


2«?\f 


08310 




Si 


C0NST5, DELTA 




09884 


22 


02826 


09375 


08320 




AM 


FAKSEV, 01, 10 




09896 


1 1 


0285 3 


000— 1 


08330 




TF 


L I STET, FAKSEV, , RESTORE THE CYLINDER MARKER 




09908 


26 


02795 


O^l 3 


08340 




BT 


INSERT, INSERT-l 




09920 


2 7 


34 14 




08350 




TFM 


DELTA, 00200, 7, 




09932 


16 


09375 


-0200 


08360 




B 


DELNT5 




09944 


49 


09604 


UUUUU 


08370 




OORG 


•-3 












08380 


CONCUD 


CM 


C0NST5, 00000,7, SECTOR ADORES FITS ON END OF PREVIOUS 


PROGR 


2!!!!ll 




no OA 2 


-rnoo 


08390 




BE 


EIGHTS 




09964 


46 




01200 


08400 




e 


DELNT5 






49 


09604 


AAAA A 
UUUUU 


08410 




DORG 


•-3 




09984 








08420 


E IGHTS 


TF 


•♦35.MOVESC,, INSERT AN EIGHTS ENTRY FOR MOVESC 




09984 


26 


100 19 


02866 


08430 




CF 


• ♦21 




09996 


33 




AAAA A 
UUUUU 


08440 




TFM 


L I STET, 8000, 8 




10006 


16 


??7? * 


AAAA A 
UUUUU 


08450 




BT 


INSERT, INSERT-l 




10020 


27 


03414 




08460 




BT 


GETL.GETL-l 






\ I 




02995 


08470 




SF 


MO VESA- 3 




i aaaa 


32 




AAAA A 
UUUUU 


08480 




TF 


RACKET, MOVESA 




10056 


26 






08490 




CF 


MO VESA- 3 




10066 


33 


02860 


AAAAA 

QUUUU 


08500 




SM 


RACKET, 200*9 




10060 


12 


02842 


AO*2!> 


08910 




8NF 


•- 12, RACKET 




10092 




122? 2 




08520 




AM 


RACKET, 200. 9 




10104 


1 1 


02842 


AAtf AA 


08530 




BT 


CETL.GETL-l 




101 16 


27 


02996 


02995 


08540 


• 1 


ROUTINE TO RESTORE THE SPL TC ITS PROPER FORM 












08550 


ALIRIT 


BT 


GET«,GETR-l ,, SHIFT TC PICK UP NEXT ENTRY TO ANALYZE 




10128 


27 


02872 


02871 


06560 




CM 


L ISTER-3,7.1011 




10140 


14 






08570 




8E 


BEAUTY 




10152 








08580 




CM 


LISTER-3, 9,1011 




10164 


14 


02762 


OOO—R 


08590 




BE 


AOORAC 




10174 


** 


m2*!l * 




06600 




CM 


LISTER-3. 8*1011 




10166 


14 


02762 


000-0 


06610 




BE 


AOORAC 




10200 


4* 


10656 


01200 


08620 




TF 


NEWOIM, LISTER,, BRING IN NEW OIM ENTRY TO FIND LENGTH 




10212 


26 


02943 


02765 


08630 




8T 


DIMMER, OIMMER-1 




10224 


2? 


03672 


03671 


06640 




SF 


FAKSEV- 1 




10234 


32 


02652 


OOOOO 


08650 




MM 


FAKSEV, 200,9 




10246 


13 


02853 


OOKOO 


08660 




SF 


94 




10240 


32 


00094 


OOOOO 


08670 




S 


95, NE VER 




10272 


22 


00095 


04297 


08680 




AM 


95.01*10 




10264 


11 


00095 


000- 1 



1270 
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08690 




CF 


FAKSEV-l 


1C296 


33 


02852 


00000 


08700 




C 


19885.99, ,OOES THIS PROGRAM START ON A CYL 1N0ER MEVIOUS TO 


10308 


24 


19885 


00099 


08710 




OKI 


• ♦48 


10320 


4* 


10368 


01300 


08720 




S 


19685,99 


10332 


22 


19885 


00099 


08730 




SF 


19883 


10344 


32 


19883 


00000 


08740 




A 


19888.19885 


1035* 


21 


19888 


19865 


087*0 




A 


RACKET, 19888 


10368 


21 


02842 


19888 


08760 


NOISY 


CM 


RACKET, 200, 9, HAVE 200 SECTORS BEEN ACCOUNTED FOR THIS CYL I 


10310 


14 


02842 


OOKOO 


08770 




BE 


EZEST 


10392 


4* 


10700 


01200 


08710 




BNH 


ALIA IT 


10404 


4 7 


10128 


01100 


08790 




CM 


1 I STER-3, 6 , 101 1 


10416 


14 


02762 


000-Q 


08800 




BNH 


TELAST 


10621 


47 


1071* 


01100 


08810 




TP 


STEAL. LISTER 


10440 


2* 


0284* 


027*5 


08820 




BT 


GETft.GETft-1 


10452 


27 


02872 


02871 


08830 




AM 


FAKSEV, 1,10 


10464 


11 


02851 


000-1 


08840 




TF 


L ISTET.FAKSCVt t RESTORE SEVENS PARKER 


10476 


2* 


02795 


02851 


088S0 




BT 


INSERT, INSERT-l 


1C488 


27 


01414 


01411 


08860 




TF 


L I STET, STEAL , , REPEAT THE DIP NUMBER 


10500 


2* 


02795 


0284* 


08870 




BT 


INSERT, INSERT-l 


10512 


27 


01414 


01413 


08880 


RAKES 


SM 


RACKET, 200,9, 


10524 


12 


02842 


OOKOO 


08890 




c 


LISTER, FAKSEV 


10SS6 


24 


027*5 


02851 


089C0 




BE 


• ♦32 


10548 


4* 


10580 


01200 


08910 




BT 


GETL.GETL-1 


10560 


27 


0299* 


02995 


08920 




B 


NOISY 


10572 


49 


10180 


00000 


08930 




00ft G 


•-3 


10510 








08940 




BT 


REMOVE. RENOVE-l 


10510 


27 


01084 


01081 


08990 


BEAUTY 


BT 


GETL,GETL-1», POSITION LISTER FOR EXIT 


10592 


27 


0299* 


02999 


08960 




CM 


I ISTER-3.0I.10U 


106C4 


14 


027*2 


000-Q 


08970 




BE 


• ♦20 


10414 


4* 


10*3* 


01200 


08980 




B 


BEAUTY 


10628 


49 


10592 


00000 


08990 




00ft G 


•-3 


1061* 








09000 




BT 


GETR.GETft-l 


10636 


27 


02872 


02871 


09010 




B 


SFSUCE 


10648 


49 


08*00 


00000 


09020 




00ft G 


•-3 


1065* 








09030 


AOOftAC 


SF 


L I STER-2. • t AOO THE BLANK Oft EIGHTS SECTOR COUNT TO TOTAL 


10656 


32 


027*3 


00000 


09040 




A 


RACKET, LI STEft 


10**8 


21 


02842 


02765 


09050 




CF 


LISTER-2 


10680 


31 


027*3 


00000 


09060 




B 


NOISY 


10*92 


49 


10380 


00000 


09070 




OOftG 


•-3 


10700 








09080 


EZEST 


AM 


FAKSEV, 1,10. INSERT CYL MARKER FCR A PERFECT FIT 


10700 


11 


02851 


000- 1 


09090 




TF 


L I STET .FAKSEV 


1C712 


2* 


02795 


02851 


09100 




BT 


GETR.GE Tft-i 


10724 


27 


02872 


02671 


091 10 




BT 


INSERT, INSERT-l 


1073* 


27 


01414 


03411 


09120 




B 


RAKES 


10748 


49 


10524 


OCOOO 


09130 




OOftG 


•-3 N 


1075* 








09140 


TEL AST 


SF 


LISTER-2 


1075* 


12 


027*1 


00000 


09150 




S 


RACKET, LI STER, » PREPARE THE SUE OF THE EIGHTS ENTRY 


107*8 


22 


02842 


02745 


09160 




CF 


LISTER-2 


10780 


13 


027*3 


00000 


09170 




TFM 


C0NST8, 200.8 


10792 


1* 


02871 


0-200 


09180 




S 


C0NST8, RACKET 


10804 


22 


02871 


02642 


09190 




SF 


CONST8-2 


1081* 


32 


028*9 


00000 


09200 




S 


L I STER.C0NST8 


1C82S 


22 


027*5 


02871 


09210 




TF 


STEAL, LISTER 


10840 


2* 


0284* 


02745 


09220 




TF 


•♦35.C0NST6 


10852 


2* 


10887 


02871 


09210 




CF 


• ♦21 


108*4 


33 


10665 


00000 


09240 




TFM 


LISTET,8000,8, INSERT THE EIGHTS ENTRY 


1087* 


t* 


02795 


OQOOO 



1271 
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09250 




BT 


RE WOVE. ftE MOVE- 


1., 


REMOVE 


THE I NO I CAT OR PROM THE LIST 


10886 


27 


03084 


03083 


09240 




BT 


INSERT, INSERT- 


1 






10900 


27 


01414 


03413 


09270 




AM 


FAKSEV, It 10 








10912 


11 


02653 


000-1 


09280 




TF 


L ISTET. FAKSEV 








10924 


2* 


02745 


02651 


09290 




BT 


INSERT, INSERT- 


I.* 


INSERT 


THE SEVENS MARKER 


1093* 


27 


03414 


03413 


09300 




TF 


LISTET, STEAL 








IC948 


2* 


02793 


0264* 


09110 




BT 


INSERT, INSERT- 


1.. 


REPLACE 


THE REDUCED INOICATOR 


109*0 


27 


03414 


03413 


09120 




BT 


GET L.GETL- I 








10972 


27 


0249* 


02995 


09330 




TF 


RACKET, LISTET 








10984 


2* 


02842 


02795 


09340 




TOM 


RACKET- 3, O.U 








1099* 


15 


02834 


0000- 


09350 




B 


NOISY 








11008 


49 


10360 


00000 


09340 




OOftG 


•-3 








1101* 








09370 


• •• 


LINKAGE FOR PLACING 


THIS 


LAST PORTION OP MOVER ON OISK 










09380 


NOMC 


TFM 


I OAT, •♦21 








1101* 


1* 


005*5 


J1039 


09390 




B 


IOPT.NONO.T 








11028 


49 


00532 


J 10*4 


09400 




TRA 










11040 


1* 


00000 


00500 
















11012 


49 


00000 


00000 


09410 


NOME 


DSC 


2.22 








110*4 




2 




09420 




22 
OSA 


NONE 








11070 




5 


X 1 
















11070 




J1072 




09430 




OC 
• 


It' 








11071 




1 




09440 


NOME 


osc 


ltl 








11072 




1 




09450 




i 

OC 


5,1710* 








11077 




5 








J 7 10* 
















044*0 




OC 


3*022 








11080 




3 








-22 


















09470 




oc 


*. 09000* 








1108* 




* 








-9000* 
















09480 




rco 


NOMC 








1101* 








09490 




OOttS 


5*00 








05*00 








09S00 


DEL PL 


TP* 


IOftT,^2l 








05*00 


1* 


005*3 


-5*23 


09910 




§ 


I0f>T*0fLU7 








05*12 


49 


00532 


-5*40 


09520 




TRA 










05*24 


i* 


00000 


00500 
















09*1* 


49 


00000 


00000 


09530 


0EL1 


osc 


2.22 








05*40 




2 








22 


















09540 




OSA 


DEL 2 








05*94 




5 


X 1 
















05454 




-5*5* 




09550 




OSC 
• 


l.» 








05*95 




I 




095*0 


OIL 2 


OSC 


1.1 








05*9* 




1 




09570 




1 

OC 


5*18247 








09**1 




5 








J6247 
















09S80 




OC 


3*013 








09**4 




3 








-13 


















09590 




OC 


5,05*0* 








09**9 




3 








-5600 
















09*00 




OSC 


it* 








09*70 




1 





1272 



09610 

09620 
09630 
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096*0 




DOR G 


5800 


05800 








09650 


DEL E T 


SF 


DF L E TE 


5 fl G ( i 


32 


13 13* 


ccooo 


0966 






DETERMINE MAX. NO. CF OIN ENTRIES 














T F M 


MA XDIM.9999,8 


^ 8 1 ? 


1 6 


38*9 


0R999 






TFM 


NE kO I M , 3,8 


U *» 8 *" * 


1 6 


2 9 6 3 


0- 3 


. ( ' ., ... 






L) i ^ ~ c " fUi — ^ r i 


f 1 > "i \ r» 


2 i 


16 7 2 


3671 






BNR 




s H ^ 8 


* S 


5 8 6 8 


19880 








MUNC A L 


| : i860 


*9 


00 796 


00000 


























0*>86« 


I 3 


1988 8 


000- 5 










05880 


12 


00096 


00000 








99 110 






00099 


000- 1 










05 <K* 


26 


36*9 


00099 


i y y r- 






! fcl P I if A 1 1 

1 N r U 1 f 1 I 


5 r M 6 


3 2 


I 36 ? * 


coooo 


09 780 






PNAME i INPUT*22 








136 35 


09790 






DIMNUM,INPUT*30 






13190 


I 36* 3 


09800 




T 


D 1 MNUM— It I NPUT* 2 8 




_ 


I 3 1 19 








TO 


1 MNUM- 2i 1 NPU T*26 






13 188 


1 3639 








nlMfcJIIM—l f kj D 1 1 T ▲ 9 ▲ 


05 9 76 


25 


1318 7 


13637 


nan in 






U I ~ ixUW" 3 


05988 


32 


13187 


00000 


098 




CM 


D I MNUM , • 8 






C\l 1 ?4 








BE 


OK D E L - 2 * 




*6 




01200 


na«*n 






j r him lun flu DAkirc 










09870 






D 1MNUM,MAX0I M 






1 3 1 90 


038*9 


09880 




BNH 


• ■♦32 




_ 


06068 


fl 1 nn 


09890 






DIMfHR*22»0076»8 


060*8 




0250 7 


0-076 


09900 




a 


E R R D 


060 6 






00000 


09910 




00 RG 


• -3 


06068 








09920 






IS DIM NO. IN USE 










09930 






NEI»D1M,DIMNUM 


06068 






'J' 


099*0 




B T 


D I MME R t D I MME R- I 


06080 


2 7 






09950 




hNR 


OKOEL • MAP 


06092 


*5 




loan 


09960 




TFM 


D 1 MERR* 22 » 72 71 , 8 


06 10* 


16 




OP27 ' 


09970 




B 


ERRD 


n \\ 


*9 


02 


nnnnn 


09980 




DOR G 


• -3 










09990 




C 


PNAME » Z E RO I 2 


n i ii 
^* , , 








10000 




BE 


ERRD- 1 2 


06 I 36 








1 00 1 


okcel 




E Q<J I V « • ♦ 1 2 






08606 




1002 




CM 


DIMNUM,0,8 






n*;>n<! 


~ ' 


10030 




BNE 


• ♦12 


06 172 








100*0 




r fm 


DIMFRP*?2, 7270,8 


06 1 8 




n H -,7 


OP ~>'~?0 


10050 




B 


ER»D 






n 7 


COOOO 


1 0060 




DORG 


• - 3 


0620* 












TF 


NE *0 I M , D I MNUM 


0620* 


26 


029M 


13190 


10062 




BT 


D IMHFR ,DI MMER- 1 


062 16 


2 7 


36 F 2 


3671 


10063 




BNR 




06228 


*5 


062<»R 


1 ° 3 8 


1006* 




87 


E X I T 3 


062*0 


*9 


069 36 




10070 




OELETF ENTRY FROM SP LIST 










10080 




B TM 


SPl DEL ,•♦ 12 


062*8 


17 


12090 


-6260 


10090 




TF 


NE k»C I M , D 1 MNUM 


06260 


26 


0296 3 


1 3190 


10100 




t3T 


DIMMER, OIMMER-l 


06272 


27 


03672 


36 7) 


101 10 




TF 


FWR IT ♦5,MAP*5 


062B* 


26 


1327? 


i <3 8 e 5 


10120 




TO 


FWR I T ,MAP 


06296 


25 


13267 


1 9 a o 



1273 
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10130 
101*0 
10150 
10160 
10170 
10180 
10190 
10200 
10210 
10220 
10230 
102*0 
10250 
10260 
10270 
102 80 
10290 

10300 FLAG 

10310 

10320 

10330 

103*0 

10350 

10360 

10370 

10380 

10390 

10*00 

10*10 

10*20 CLEAR 

10*30 

10**0 

10*50 

10*60 

10*70 

10*80 CLFP 
10*90 

10500 
10510 
10520 
10530 

105*0 HROK 

10550 

10560 

10570 

10580 

10590 

10600 

10610 

10620 FPOK 

10630 

10640 

106*0 

10660 
10670 



TF H0L03,MAP*8 

TF LOACSCMAP+8 

TFM Fl AG* 1 1 , TRACK2 

TF LOADSA,MAP»5 

TO LOADSA-5 »MAP 

SF MAP** 

SM MAP»5, 20,10 

BH «-!2 

BZ •♦*8 

AM MAP*5, 20,10 

MM MAP*5, 105,9 

A FLAGM1.99 

TF CLFP*6,FLAG*11 

TFM FHRIT*8,20,9 

TFM PWR IT* 13, TRACK2 

TFM 10RT,»*23 

B IOGT,FPDDA,7 

BNF •♦20.TRACK2, , 

B CLEAR 

DORG «-3 

SM HOLD3,L,10 

BZ FPOK 

AM FLAG* 11, 105,9 

CM FLAG+ll,TRACK2+21C0 

BL FLAG 

TFM FLAG* 1 1 » TR ACK2 

AM FWR 1T*5,20,10 

B FLAG-2* 
DORG 3 

TF FWRIT*5,L0A0SA 

TO FWR IT, LOADSA-5 

SF BUTTON 

BTM KYMESS,»*12 

TFM 10RT,»*23 

B I0GT.FPD0A.7 

CF TRACK2 , , , 

SM LOADSC1.10 

BZ WROK 

AM CLFP*6, 105,9 

CN CLFP*6,TRACK2*2100 

BL CLFP 

TFK IORT,»*23 

B I0PT,FP0DA,7 

AM FMRIT*5,20,10 

TFM CLFP*6«TRACK2 

CM L0A0SC,0,9 

BNE CLFP-2* 

CF BUTTON 

BTM KVMESS,**12 

TF NEMOIMtOlMNUM 

BT DIMMER, 01MMfR-l 

TOM MAP,,, 

OSC 1,*.* 

i 

TF MAP*19,ZER019 

TFM 10RT,«*23 



SEARCH FOR FILE PROTECTION 



CLEAR FILE PROTECTION 



REMOVE DIM ENTRY 



1274 



0630B 


26 


13 I'M 




06^0 


?6 


\ 3 1 no 


1 «jp>'h 


06332 


16 







063o* 


26 


13m 2 


I 9 8 ft «i 




?S 


I* f 




■ ft 3 


32 


i «i >; « '4 





0«3flO 


12 


i^a 


on-i 


06192 


*6 


063B0 


1 100 


06*0* 


*6 


06*52 


oiznn 


06416 


t I 


19F85 






13 


i9R8 s > 


OO.iM'> 


06**0 


21 


06523 




06*52 


26 


06702 


06523 


06*6* 


16 


13275 


00-20 


06*76 


16 


13280 


J7778 


06*88 


16 


00565 


-651 1 


06500 


*9 


00566 


J3*51 


06512 


** 


06532 


1777S 


0652* 


*9 


0662* 


ocooo 


06532 








06532 


12 


13193 


000- 1 


065*4 


*6 


0686* 


01200 


06556 


11 


06523 


00J05 


06568 


i* 


06523 


J9878 


06580 


*7 


06512 


01300 


06592 


16 


06523 


J7778 


0660* 


11 


13272 


OOOKO 


06616 


49 


06*88 


00000 


0662* 








0662* 


26 


13272 


13102 


066 36 


25 


13267 


13097 


066*8 


32 


00*55 


00000 


06660 


17 


11998 


-6672 


06672 


16 


00565 


-6695 


0668* 


49 


00566 


J3451 


06696 


33 


17778 


00000 


06708 


12 


13180 


000- I 


06720 


46 


06768 


01200 


06732 


11 


06702 


00J05 


0674* 


14 


06702 


J9878 


06756 


47 


06696 


01300 


06768 


16 


00565 


-6791 


06780 


49 


00532 


J3*51 


06792 


11 


13272 


000 KO 


06604 


16 


06702 


J7776 


06816 


14 


13180 


00-00 


06828 


47 


06672 


01200 


06840 


33 


00455 


00000 


06892 


17 


11*98 


-6864 


06864 


26 


02943 


13190 


0*876 


27 


03672 


03671 


0*888 


15 


19860 


00000 


0*899 




1 




0*900 


26 


19899 


13174 


0*912 


16 


00565 


-6935 
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10*90 ft 10PT,0N00A*7 

10*90 EXIT1 TOM SYSCAL.l 

10700 6 MONCAL 

10710 OORG »-3 

10720 TCO OELFL 

10730 • ••• 

10740 •••••• *0L0AD 

10790 • ••• 

10760 OORC 44G0 

10770 LOAOFL TFM I0AT,»*21 



04924 49 00912 -29*9 

0*916 IS 00475 00001 

04941 49 00796 00000 
06996 
096C0 



INDEPENDENT ROUTINES 



10790 
10790 

10600 LOAOl 

10110 

10920 

10110 

10940 

10690 L0AC2 
10960 

10970 





Til A 



10PT, IOA02.7 



It 1 

9, 19169 



DSC 
1 

DC 

J6369 

OC 1*027 
-27 

OC 9.C9900 
-9900 

DSC 1,' 

OSC 2,22 
22 

OSA LOAOl 



OSC 



10990 
10*90 

10900 
10910 
10920 
10910 

10940 
10990 
10940 
10970 
10990 
10990 
11000 
11010 
11020 
11010 
11040 
11090 
11060 
11070 
11090 
11090 
11100 
11110 



OLD AO 

TO 
SF 
SM 

NXNOSA OC 
199 



OORG 9900 
BTM SCRAD*»*12 

NXN0SA-2,NCS*49 
NXN0SA-2*S99*9 
MIMOSA* 100*9 
3*399*0LOA0*19 



TFM 

TO 



TFM 



MQL02*0,10 
MOL 02, SVSCAL 
IS CALL FROM CONTROL CARD 
CM M0L02*4*10 
SFS 

ATN*U,INPUT»32 
I CONVERT CONTROL CARD TO NUMERIC 
BTM ATNR**M2 
SF N0LDCD«10 
SF HOLDCO* 17 
SF MOL0CD*22 
SF HOLOCO*27 
BO •♦6*,NTEST 
CM HOLOCD*2**0*7 
BNE »»24 

TFN HOLDCO*2*»02402*7 
TF MAPMA,H0L0CD«2* 
B7 • ♦44 



12?: 











04400 


I* 


009*9 


-4421 


04412 


49 


00912 


-44*1 






VWVVV 


00900 


04436 


49 


00000 


00000 


04441 




1 




04493 




9 




04494 




1 




04461 




9 




04442 




1 




04461 




2 








* 


X 1 


04469 




-4449 




04470 




1 




09900 








09900 


17 


09299 


-9912 


09*12 


29 


09911 


1792T 


09924 


12 


09911 


00L99 


0991* 


12 


09919 


OOJOO 


09919 




1 




09949 


16 


11104 


000-0 


09940 


29 


11104 


004T9 


09972 


14 


11104 


000-4 


09*94 


47 


07494 


01200 


0999* 


I* 


09091 


J1649 


09909 


17 


09*0* 


-9920 


09920 


12 


1109* 


00000 


09912 


12 


110*1 


00000 


09944 


12 


110*9 


COOOO 


09996 


12 


11073 


00000 


0996* 


41 


0*01* 


11112 


09990 


14 


11072 


-0000 


09992 


47 


0*01* 


01200 


0*004 


1* 


11072 


-2402 


0*01* 


2* 


11190 


13072 


06029 


49 


0*072 
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11120 




CM 


HQLDCD*2**0 V ? 


11130 




BNE 


•-32 


11140 




TFM 
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TFM DlMERR*22 t 0072,8 
B ERRD, t • 
DORC »-3 
BNF • ♦32tMAP>19 

ERROR IF TO DIM IS IMMOVABLE 
TFM DIMERR*22 V 0073,6 
6 ERRD 
00 RG *-3 

TF L0A0SA V MAP*5 
TO LOA0SA-5 t MAP 

ENTRY AND CORE ADDRESSES FROM CARO 
TF MAPEA,H0LDC0*35 
60 PATCH2*52,NTEST 
CM H0LOCD*3O,0,7 
67 PATCH* 
TFM MAPNA.99999.7 
BO •♦32.PTEST 
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13500 




IS THERE A FROM DIM 










13310 




CM 


HOLDCD+)»Of 6 


06204 


14 


13044 


0-000 


13520 




BNE 


NT* 


06214 


47 


04360 


01200 


13530 






PROGRAM IS IN WORK AREA 










13340 




SF 


INPLT09 


06226 


32 


U«i>2 




13350 




C 


INPUT*30,ZER012 


06240 


24 


1366) 


1314? 


13540 




BE 


ERRO-12 


04252 


44 


02512 


01200 


13570 




C 


H0LDCDM4.SCR2 


06264 


24 


13063 


13204 


13560 




BH 


SCERR 


06276 


46 


12834 


01100 


13590 




C 


MQLBCD*13,SCR1 


062B6 


24 


13059 


1320) 


13600 


SCR 16 


BL 


SCERR 


06300 


47 


128S4 


01)00 


13610 






CONPUTI SECTOR COUNT 










13620 




TF 


L0ADSCfHOLDC0*19 


06312 


26 


1)160 


1)04) 


13630 




S 


L0ADSC,MOL0C0*13 


04)24 


22 


1)160 


1)039 


13640 




AN 


LOAOSC.1,10 


06)36 


11 


1)180 


000-1 


13430 






LCAOSC-2 


06348 


32 


1)176 


OOOOO 


13660 




TF 


\ACM,M0LDCD*13 


06)60 


16 


1)186 


13039 


13670 




B 


' INB2 


06)72 


49 


066B4 


OOOOO 


13660 




00 Aw 


•-3 


06)60 








13690 




TF 


N£to0IM,MOL0C0*3 


06)60 


24 


0294) 


1)049 


13700 




BNF 


•♦20, LOADER 


06)92 


44 


06411 


11)10 


13710 




B 


NT2-6B 


06404 


44 


04)12 


OOOOO 


13720 




OORG 


•-S 


04412 








137)0 




BT 


OIMMf RtOINMER-1 


06412 


21 


0)6?; 


05671 


13740 


•• 


ERROR IF FROM DIN NOT IN USE 










13730 




BNR 


•♦32, MAM 


06424 


4t 


06496 


19**0 


13740 




TFM 


0INfRR*22. 0074,8 


064)6 


16 


02307 


0-074 


13770 




B 


ERRD 


0644B 


49 


02324 


00200 


13760 




OORC 


»-3 


1280 
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PACE 



1 3790 




ERI 


1 380G 




BNF 


13110 




TFM 1 


13620 




B 


1 3>83C) 




DORG 


ijo*q 




TF 


1 )• SO 


• •• 




1 1660 




TDM 


1 !.870 




TFM 


13880 




TOM 


13890 




TFM 


I J9C0 




TF 


15910 




TO 


13920 




TFM 


13930 


MORERD 


CM 


13940 




BNH 


t 3950 




SM 


1 3960 




TFM 


13970 




B 


13980 




OORC 


13990 




TF 


14000 




S 


14010 




TF 


14020 




TFM 


14030 




B 


14040 




TFM 


14050 




e 


14060 




CM 


14070 




BE 


14060 




A 


14090 




A 


141.00 




B 


14110 




DORG 


14120 




TDM 


14130 




YFM 


141.40 




irDM 


1*150 


• • 




141.60 




CM 


14170 




BNE 


14100 




B7 


14 J. 90 


ND1SK 


BO 


14,'! 00 




BTM 


142 10 




TFM 


14220 


MAINB2 


BO 


142 30 




TFM 


14 240 




B 


1*2 50 




CM 


142 60 




BE 


14270 






14280 




T F 


14290 




BTM 


14 300 


• 


DE 


14310 




T F 


1*320 




BTM 


143 30 




ir f 


14 140 




iro 



ROK IF FROM DIM IS IMMOVABLE 
•*32,MAP*19 
DIME«R*22,0C77,8 
ERRD 

• -3 

LOADSr , MAP*8 

PUT FROM DIM PROG* ON SCRATCH 

FhRDDA »0 
f KRIT*5,C,7 
F WR I T , 

FWR1T*13, TRACK 
FREAD*5,MAP*5 
FRE AD » M AP 
FRE AD* 1 3 1 TRACK 
MAP*8,040,9 

• ♦44 

MAP*8,040,9 
FREAD*6,040,9 

• ♦32 

• -3 

FRE AD*6 »MAP*8 
MAP »8 * M AP* 8 
F KR I T ♦ • t FRE AD* 8 
IORT,»*23 
10GT,FRE00A,T 
10RT,«*23 
|0PT t FWR0DA,7 
MAP«8,0«9 

• ♦44 

FREAD*5,FREAD*8 
FWR I T*5«FREAD*8 
MORERD 

• -3 

F WRDDA t 2 
SCRACH.0,7 
FREDOA t 

ENTRY AND CORE AOORESSES FROM FROM DIM MAP 

MOLDCD*35,0,7 
PATCHI*12 
PATCH1 

MODNO 1 »RTE ST 
NQDiSK,^* 12 
HOLDCD*3,0,8 
MOODKl.RTEST 
20«T,»*23 
S OG T t COM2 « 7 
MOlDCDO.OiB 
♦►♦36 

DELETE FROM DIM FROM S. P. LIST 
DIMNUM.HOLDCDO 
SPLDEL,»*12 
:LETE TO OIM FROM SP LIST 
0IMNUM,MOLDCD*7 
SPLDEL,»*12 
MO VE S A , LOADSA 
NQVESA~5»L0ADSA-5 



06456 


44 


06468 


19899 


06464 




02507 


0-077 


0*460 


49 


02524 


00000 


06488 








06488 


26 


13160 


19688 


06500 


15 


13459 


00000 


06512 




13272 


-0000 


06524 


as 


13267 


CCOOO 


06536 


116 


13280 


J3776 


06548 


26 


13267 


19885 


06560 


25 


13282 


19M80 


06572 


,16 


13295 


J3776 


06584 


!14 


19888 


00-40 


06596 


4 7 


06640 


01100 


066CB 


K2 


19888 


00-40 


06620 


H6 


13290 


00-40 


06632 


49 


06664 


COOOO 


06640 








06640 


26 


13290 


19888 


06652 


22 


19888 


19686 


06664 


26 


13275 


13290 


06676 


116 


00565 


-6699 


06688 


49 


00566 


J3467 


067C0 


ft& 


00565 


-6723 


06712 


49 


00532 


J3459 


06724 


J. 4 


19888 


00-00 


06 7 36 


46 


06780 


01200 




2 I 


1 328 7 


1 3290 


06760 


21 


13272 


13290 


06 7 72 


49 


06564 


00000 


06780 








06780 


15 


13459 


00002 


06792 


K6 


13166 


-0000 


06804 


15 


13467 


00000 


06816 


14 


13081 


-cooo 


06826 


4 7 


12610 


01200 


06840 


49 


12798 




06848 


4 3 


10482 


13131 




F. 7 




-6872 


06672 


1.6 


13049 


0-000 


06884 


4 3 


; 068? 


13131 








_ £9 1 <j 


06900 


49 


00566 


J3335 


06920 


},4 


13049 


0-000 


06932 


46 


06 966 


01200 


06 944 


26 


13190 


13049 


06956 


17 


12090 


-6968 


06960 


26 


H3190 


13053 


06980 


17 


12090 


-6992 


0699;? 


26 


02663 


13102 


0700«> 




0285© 


13097 



128! 



143 50 
14360 
14370 
14 380 
14390 
14400 
11 44 1.0 
14420 
14430 
14440 
14450 
14460 
14470 
14480 
14490 
14500 
14510 
14520 
14 530 
14540 
14550 
14560 
14570 
1*580 
1*590 
14600 
14610 
14620 
14630 
1.4040 
14650 
14660 
146 70 
14680 
14690 
14700 
14710 
14720 
14730 
14740 
14750 
1*760 
14770 
14780 
14790 
14000 
14810 
14020 
14830 
14040 
14050 
16060 
14070 
16000 
141)90 
V>9C0 



TF 

TFM 

B 

TFM 

b 

DORG 

BNF 

B 

CQRG 

• •• 

NOSPAC TF 

BT 

TF 

1TF 

TO 

VFM 

B 

DORG 
VF 
TFM 
B 

BTM 

CM 

BE 

CM 

BE 

VFM 

TFM 



DORG 
UPD1M TFM 

B 

TFM 

B 

• •• 

SEARFP TF 

BT 

TF 

TO 

TF 

TFM 

TF 

SF 

SM 

BM 

02 

AM 

MM 

A 

VFM 
VFM 
VFM 

B 

TESTFP BNF 

B 
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MOVESC.LOADSC 
10RT,«*23 
I0GT,M0VDDA,7 
f X I YMR»6,»*20 

MOVER 

•-3 

**20,A0K 

IJPDIN 

*-3 

INSERT TO AND FROM 01 MS INTO S. P. LIST 
NEWDIM,H0LDCD*7, 7 
IMMER t DI MMER- 1 
MaVFSC,MAP*8 
M0VESA,MAP*5 
MOVE SA-5 iMAP 
EX ITMR*6»«*20 
MOVER 

• -3 

DIMNUM, NOSPAC* 11 ,11 

I0RT,**23 

IOGT»COM2,7 

SPLHNS.»*12 

NOSPAC* I 1 tHQLDCD+3 

ERR 

H0L0CD*3,0.B 
ERR 

NOSPAC* 1 1 tHQLDCDO 

HORT,»*23 

IOGT,MOVD0A,7 

NOSPAC 

i>-3 

I0RT,«*23 
HQGT »EQU00A » 7 
H0RT,«*23 
IOGT,COM2,7 

CLEAR ANY FILE PROTECTION IN TO ANO FROM OIM 
NEU0IM,HOLDC0*7 t 7 
DIMMER »DI MMER- I 
FMRIT*5,MAP*S 
FWRST»MAP 
MOLD3«MAP*8 
?ESTFP*li f TRACK 
HOLDS. MAP*5 
MOLDS- I 
HOLDS, 20, 10 
»-12 

• *48 

HOLD5.20.10 
HOLDS. 105,9 
VESTFPM1.99 
FWR1T*8.020,9 
FMRIT*13, TRACK 
?ORT,»*23 
I0G?,FP0DA,7 
•♦20, TRACK 
CLRFP 



IMS 



07016 


2' 6 


02666 


13180 


07028 


16 


00565 


-7051 


704 CI 


4 9 


00566 


J3244, 


07052 


16 


08630 


-7072 


(57064 


4-9 


08824 


COOOO 


(•70?;: 








VT01Z 


4 *> 


07092 


13118 


(17084 


**> 


07312 


00000 


07092 








07092 


26 


02963 


J3053 


071C4 


i: ? 


3672 


03671 


07116 


26 


02866 


19888 


07126 


26 


02863 


19865 


071*0 


25 


02856 


19880 


07152 


16 


08630 


-7172 


7164 


4>9 


08824 


cccoo 


07172 








07172 


26 


13190 


0710L 


0718* 


1.6 


00565 


-7207 


07196 


49 


00566 


J3335 


072011 


1.7 


10606 


-7220 


07220 


1.4 


07103 


J3049 


07232 


4.6 


05662 


01200 


072*4 


1.4 


13049 


0-000 


0725C. 


*6 


05662 


01200 


072*8 


1.6 


07103 


J3049 


07280 


H> 


00565 


-7303 


07292 


*«l 


00566 


J3244 


0730* 




07092 


00000 


07312 








07312 


r.6 


00565 


-7335 


0732* 


4>9 


00566 


J3312 


07336 


1.6 


00565 


-7359 


073*6 


49 


00566 


J3335 


07360 


26 


0*963 


J3053 


07372 


2 7 


03672 


03671 


0736* 


26 


13272 


19885 


0739*. 


25 


13267 


19880 


07*Q» 


26 


13193 


19888 


07*20 


U. 


07507 


J3776 


07*32 


26 


13139 


19085 


07*** 


32 


13138 


00000 


07*56 


R2 


13139 


OOOKO 


07*60 


46 


07*56 


01100 


07*00 


4»6 


07520 


01200 


07*92 


Kl 


13139 


OOOKO 


0790* 


13 


13139 


00J05 


07516 


21 


07507 


00099 


07920 


16 


13275 


00-20 


079*0 


Lf» 


13200 


J3776 


07992 


U 


00565 


-7575 


0796* 


4»9 


00566 


J3451 


67576 


0* 


07596 


13776 


07900 




07600 


00000 
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14910 




00 AG 


• - 3 


07946 








14920 




SM 


hOt 01. 1.10 






1 3193 


000— 1 


14930 




(U 


NOFLGS 


07661 


46 


07746 


01200 


14940 




AM 


TF ^TF V* l I - I fift a 


07620 


1 1 


07567 


00J09 


14950 




CM 


TF 5 TF** 1 1 . Tb Af K * 9 1 rn 


07632 


14 


07567 




14960 




at 


TE STFP 




4 1 




01)00 


14970 




AM 


FbB 1 T*9 . >fl . 1 


07656 


1 1 


1 3272 




1 4910 




TFM 




07666 


16 


07967 


J1776 


14990 




3 




076S0 


69 


07592 


..... 
OOOOO 


15000 








07661 








1 50 1 


CL AFP 


TF 




07611 


26 


1)143 


14866 








r hk 1 1 ♦ 9 f Rlr ♦ 5 


onto 


26 


13272 


14669 


15030 




TO 


FHA I T , MAP 


07712 


29 


13267 


19660 


1 5040 




TF* 




07724 


16 


11643 


000L) 


1 5050 




BTM 


FP » •♦ 12 


077)6 


17 


1 1462 


•7746 


I 5060 


NOFLGS 


CM 


XAKFF* li fHULUbU* J 


07746 


14 


07171 


J)044 


15070 




RE 




07760 


46 


07616 


01200 


150 tO 




CM 


hOi nf n»i.A.i 

nUlWVU* J t V » • 


07772 


14 


1 J049 


0*000 


15090 




BE 


ALLCLA 


07764 


66 


076 16 


01200 


1 5100 




TFM 




07796 


14 


07171 


J)044 


15110 




g 


SEAAFP 


07606 


44 


07)60 


ooooo 


15120 




00 AG 


•« 3 


07616 








151 30 


• •• 




imnuc Liyfc 










1 5140 


ALICIA 


C 


Hm nrn^i.um nrn»t •' 


07616 


24 


11049 


1)09) 


1 51 50 




BE 




07626 


46 


07416 


01200 


1 5 160 




CM 


"UU U\0 U • 4 , O f ■ 


0764C 


14 


1 1044 


0*000 


1 51 70 




BE 




07652 


46 


07400 


01200 


1 51 MO 




SF 


OELETE 


07664 


32 


11114 


00000 


1 5 190 




I p 




07676 


26 


13140 


1)044 










07666 


17 


06606 


-7400 


1 52 1 






OELETE 


079C0 


32 


1)1)4 


OCOOO 


1 5220 






U I "WW™, HUIUUD+ 7 


07912 


26 


1)140 


1)093 






BTM 


lAlllli .411 


07924 


17 


06606 


-7434 


1 5240 




TF 


"It mil 1 P t HOI Uv» U* r 


07916 


26 


02463 


13053 


1 52 50 




AT 




07946 


27 


0)672 


03471 






BTM 


SETMAP,**12 


07940 


17 


107)6 


-7472 


15270 




C 


MQLDCDO,M0LDC0*7 


07972 


24 


1)044 


1309) 


1 52 tU 




BE 


VOtLA 


07964 


46 


06112 


01200 


1 S290 




CM 


M0lDCDO,0,6 


07996 


14 


1)044 


0-000 


1 5300 




BE 


V0ILA 


060C6 


46 


061 12 


01200 


15310 




DELETE FAON DIP AEFE AENCE S 










1 5320 




TF 


NE*0lM,MOLDCD*3 


06020 


26 


02943 


13044 


15330 




BT 


01MMEA.01MMEA-1 


06032 


27 


0)672 


03471 


15340 




BNA 


•♦20, NAP 


06044 


45 


06064 


14860 






B 


M0NCAL 


06056 


49 


00796 


00000 


1 5360 




OOAC 


•-3 


06064 












TOM 


MAP,,, 


06064 


15 


14660 


ooooo 


i %»*n 




0$C 


1,* ,• 


06075 




1 




1 5390 




TF 


MAP*19,IEA019 


06076 


26 


14844 


13174 


15400 




TFM 


IOAT,«*23 


06066 


16 


00565 


- 81 1 1 


15410 




B 


IOPT,OM0OA,7 


OilCU 


49 


00532 


-2566 


15420 


V01U 


BTM 


MALAST,*«I2 


06112 


17 


11642 


-8124 


15430 




BNF 


M0NCAL.0UMP 


06124 


44 


00746 


13426 


15440 




TO 


MCS*23,0UMP 


08136 


25 


17601 


1)424 


15450 




TFM 


I0AT,««21 


06146 


16 


00565 


-6171 



1283 
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15460 




B 


IOGT,0MP01M,7 


01160 


49 


00566 


J3403 


15470 


AEL0 


TFM 


PMl.O, 10 


08172 


16 


13130 


000-0 


15480 




CM 


H0L02.4.10 


08184 


14 


13104 


000-6 


15440 




BNE 


LOAOEA 


08146 


47 


11310 


01200 


15500 




SF 


FOAT 


082C8 


32 


13114 


OCOOO 


15510 




TO 


OLjMP,MCS*23 


08220 


25 


13426 


17601 


15520 




TF 


PNAME,MCSOS 


08232 


24 


13224 


1761) 


15530 




TF 


H0LDC0*7tNCS*)4 


06244 


24 


1)053 


17617 


15540 




TFM 


SCAACM.O.T 


08256 


14 


1)166 


-C0OO 


15550 




TOM 


FAEDOA,0 


06266 


15 


13467 


OCOOO 


15560 




B0 


•♦20.MCS+22 


06280 


43 


06)00 


17800 


15570 




B 


M000R1 


08242 


44 


10662 


00000 


15580 




OOAC 


•-3 


081C0 








15540 


NOAE2 


TF 


H0L0C0*30,MCS*12 


06)00 


24 


13076 


17740 


15600 




TF 


H0L0CDO5,ACS*lT 


08)12 


24 


13061 


17745 


15610 




TPM 


LOAOSC0.4 


06)24 


14 


1)160 


00-00 


15620 




TFM 


0CFSCA*B,),9 


08336 


14 


13381 


00-03 


15630 




TFM 


0CFSCA«9,0,7 


08346 


14 


1)378 


-0000 


15440 


INIT2 


TFM 


LOOP,4,10 


06360 


14 


1)120 


000-4 


15450 




TFM 


SCAN2*4,AEA0IN 


08)72 


14 


06414 


J7776 


15460 




TFM 


I0AT,#*23 


06)64 


16 


00549 


-6407 


15670 




B 


I0GT,00ASCA,7 


06)44 


44 


00966 


J)46) 


15460 


SCAN2 


MOP 


AEAOINtO 


06406 


41 


17778 


00000 


15690 




TF 


BMA4ll,SCAN2«6 


06420 


26 


04661 


08414 


15700 




TFM 


M001SK-UAEL02 


064)2 


16 


04669 


-65)2 


15710 




BTM 


LCTEST,*«12 


06444 


17 


04614 


-6456 


15720 




SM 


LOOP, 1*10 


06454 


12 


1)120 


000-1 


15730 




BD 


UP SCAN, LOOP 


08448 


43 


06912 


1)120 


15740 




AM 


LOADSC.3.10 


08480 


11 


1)160 


000- ) 


15750 




AM 


OCFSCA*5,).iO 


08442 


11 


1)376 


000-3 


15760 




B 


INIT2 


08904 


44 


08)60 


00000 


15770 




OOAC 


•-) 


06912 








15760 


UP SCAN 


AM 


SCAN2*6,75,9 


06912 


11 


08414 


00-79 


15790 




B 


SCAN2 


08924 


44 


06406 


00000 


15600 




OOAC 


•-3 


069)2 








15610 


A EL 02 


V, 


H0L0C0*13,TH0U 


089)2 


24 


1)094 


13096 


1582Q 






H0LDCDM9»Th0U 


08944 


26 


1)069 


13096 


15630 




A 


H0LOCD»14,L0ADSC 


08994 


21 


1)069 


1)180 


15840 




SM 


H0L0CDU4,1,10 


06966 


12 


1)069 


000-1 


15890 




TFM 


INPUT442* 7070*6 


06910 


16 


1)699 


0P070 


15660 




B 


PATCH6 


06942 


44 


1)9)6 


00000 


15670 




OOAC 


•-3 


066C0 








19860 




TCO 


AEPLFL 


04400 








15690 


• ••• 














19900 






COMMON AOUTIKEl FOA *0L0A0 AND «CAEPL 










19410 


• ••• 














19420 




00 AG 


7200 


07200 








19430 


COMMFL 


TFM 


I0AT,»*2) 


072C0 


1* 


00969 


-722) 


19940 




B 


tOPT,COMN2»7 


07212 


44 


009)2 


-726) 


19490 




TAA 




07224 


16 


00000 


00900 










072)6 


49 


00000 


00000 


19440 


COMM1 


DSC 


1*1 


07246 




1 




15470 




1 

DC 


5, 16460 


0729) 




9 








J8480 











1284 









1620-1443 M0MIT08 1 


VERSION 


2 OUR OLOAO-DRERL-OELET 








RAGE 






oc 


3*0)1 






7256 












-31 

DC 


5,08600 






0726 1 












-8600 














16000 




OSC 


1, • 






07262 




1 




16010 


C0NN2 


OSC 


2*22 






07263 




2 




16020 




22 
OSA 


COMMl 






07269 




5 


X 1 














07249 




-7248 




16030 




OSC 


1 1 * 






07270 




1 




16040 




008 G 


8100 






08100 








16050 


EQUFL 


TFM 


I0RT,*421 






08100 


14 


00545 


-812) 


16060 




B 


lOPT.EQUltT 






08112 


49 


005)2 


-6146 


16070 




TRA 








08124 


34 


00000 


00500 














08136 


49 


00000 


00000 


16080 


E0U1 


OSC 


2,22 






08148 




2 




16090 




22 
OSA 


EQL2 






08154 




5 


X 1 














08154 




-6196 




16100 




OSC 


It* 






08155 




I 




16110 


EQU2 


OSC 


I » 1 






08156 




1 




16120 




1 

oc 


5, 18278 






08161 




5 








J8278 














161 30 




DC 


3,020 






06 164 




) 








-20 
















16140 




DC 


5*08600 






08149 




5 








-8600 














16150 




OSC 


I. • 






06170 




I 




16160 




0086 


8600 






06400 








16170 


• 


















16180 


• 


EQUIVALENCE TABLE SUBROUTINE 












16190 




OC 


5,0 






08604 




5 








-0000 














16200 


EQUIV 


TFM 


NEtaOIN.0002,6 






08606 


14 


0296 3 


0-002 


16210 




BT 


DIMMER, DIMMER-1 






08616 


27 


03672 


03671 


16220 




BNF 


SK NAME, DELETE 






086 30 


44 


09690 


13134 


162 30 




CM 


DIMNUM.0.8, 




START CELETE QPEAATICN 


08642 


14 


13190 


0-000 


162 40 




BE 


ANAME 






06654 


44 


10466 


01200 


16250 


LIMITS 


CM 


DIMNUM,SUBL0»8 






08666 


14 


1)190 


0-010 


16260 




BL 


B2READ 






08678 


47 


09054 


01300 


16270 




CM 


DIMNUM,SUBHI «8 






08690 


14 


13190 


0-036 


16280 




BH 


B2READ 






08702 


46 


09054 


01100 


16290 




TFM 


CNINE *6,D1MNUM 






08714 


16 


06816 


J3190 


16300 




TFM 


CNINE + U,TRACK*15 






08726 


16 


08821 


J3791 


16310 


WITHIN 


TFM 


HOLD4,0 t 10 






08738 


16 


13197 


ooo-o 


16320 




TF 


DISKF*5,EQUDIM*5, 9 




WITHIN SUBROUTINE OIM LIMITS 


08750 


26 


13393 


19885 


16330 




TO 


OISKF.EOUOIM 






08762 


25 


13388 


19880 


16340 




TFM 


IORT,**23 






08774 


16 


00565 


-8797 


16350 




B 


I0GT.0DAKF , 7 






08786 


49 


00566 


J3443 








1285 
















1620-1443 MONITOR I 


VERSIOM 


2 OUR OLOAD-OREFL-OELET 








RAGE 


16360 




AM 


H0L04,l,10 






08798 


11 


13197 


000- I 


16370 


CNINE 


C 


* • » 






08810 


24 


00000 


00000 


16380 




BE 


TFLG 






08822 


46 


08878 


01200 


16390 




CM 


HOLD4,50,10 






08834 


14 


13197 


OOONO 


16400 




BH 


MR T 2 






08846 


46 


08446 


01100 


16410 




AM 


CNINE+11, 16.10 






08858 


11 


08821 


O0OJ6 


16420 






CN I NE— I 2 






08870 


49 


06798 


00000 


16430 




OORG 


•-3 






08878 








16440 


TFLG 


BNF 


NOF , DELETE 






08878 


44 


08966 


13134 


164 50 




TFM 


CNINE ♦11,9999.6 






08890 


{6 


0882J 


09999 


16460 




SM 


CNINEMI.4,10 






08902 


12 


08821 


000-4 


16470 




TF 


CNINE*11,NINE12,6 






08914 


24 


0682J 


13243 


16480 




AM 


CNINE*11,20,10 






08926 


11 


08821 


OOOKO 


16490 




B 


CNINE- 12 






06938 


49 


08798 


00000 


16500 




OORG 


•-3 






08944 








16510 


WRT2 


BNF 


•♦20, DELETE 






08944 


44 


08966 


1)1)4 


16520 




B 


WRT 






08998 


49 


09022 


00000 


16530 




DORG 


•-3 






08944 








16540 




TFM 


DIMERR^22.79T4.S 






08944 


16 


02907 


OF 5 74 


16550 




B 


NULI2 






06978 


49 


09974 


00000 


16560 




OORG 


•-3 






06964 








16570 


NOF 


TF 


CNINE*ll,FNAME,6 






08984 


24 


0662J 


1)229 


16580 




AM 


CNINE+11,4,10 






06996 


11 


08821 


000-4 


16590 




TF 


CNINE*11,0IMNUM,4 






09010 


24 


0662J 


1)190 


16600 


WAT 


TFM 


I0AT,»*21 






09022 


14 


00969 


-9049 


16610 




6 


lOFT.DDAXF.T 






090)4 


49 


009)2 


J)44) 


16620 




B 


EXIT 






09044 


49 


109)0 


00000 


16630 




OORG 


o-J 






09094 






1966S 


16640 


828 EAO 


TF 


DISHF*5,E0U0IM*5,, 




NOT WITHIN LIMITS 


09054 


24 


13)9) 


16650 


AM 


DISKF^9,1.10 






09044 


11 


13)9) 


000-8 


16660 




TO 


OISKF.EOUOIM 






09076 


25 


13386 


19660 


16670 


INITSC 


TFM 


RECD*ll,TRACR 






09090 


14 


09165 


J3774 


16680 


TFM 


CNPARUl.TMC*>19 






09102 


14 


09205 


J)791 


16690 




TFM 


CLOSR^I.20.9 






09114 


14 


1)344 


00-20 


16700 




TFM 


CLOSw>1.20.9 






09124 


14 


1)305 


00-20 


16710 




TFM 


IORT.^2) 






091)8 


14 


00949 


-9161 


16720 




8 


lOGT.OOAKF.T 






09190 


49 


00944 


JS44) 


16730 




AM 


•♦23*11.10 






09162 


11 


09189 


000 J 1 


1 6740 


8 ECO 


•MM 


•♦20* *. 




TEST FOR LAST ENTRY 


06174 


49 


09194 


00000 


16750 


• 


EXIT 






09184 


49 


109)0 


00000 


16760 




OORG 


•-3 






09194 








16770 


CMP 68 


C 


DIMNUM... 




LOOK FOR OIM NUMBER 


09194 


24 


IS 190 


00000 


16780 




BE 


CLOSE 






09204 


44 


0929)4 


01200 


16790 




CM 


CMPAA^ 11, TRACKS 1999 


• t 


TEST FOR 2N© OF 20 SICTORS 


09218 


14 


09209 


J9779 


16800 




BE 


IMC 80 






09230 


44 


04274 


01200 


16810 




AM 


A2CDM1. 16.10 






09)242 


11 


09119 


000J4 


16820 




AM 


CMFAR^ll, 14*10 






09294 


11 


09209 


0OOJ4 


168)0 




i 


RICD 






09244 


49) 


09174 


00000 


16840 




OORG 


•-I 






04274 






OO 1 20 


16890 


IMCAO 


AM 


PISKMIttO,* 






092T4 


11 


12191 


16860 




• 


IMITSC 






09)204 


49 


09090 


0008)0 


16870 




0086 








09294 




19TT4 




16680 


CLOSE 


TOM 


CL0SUF>2000.*. 




ROUT I Ml TO CLOSE IN LIST 


09294 


19 


00000 


16890 




OSC 
t 








09109 




1 




16900 




TF 


TRREC^6*CMf AMU 






09)04 


24 


09420 


00209 



t28« 



162C-1661 MONITOR 1 VERSION 2 CU* CLOAD-DREPL-CELET 



P66i 



16910 




SM 


TRREC*6»lS t IO 




09316 


12 


09620 


000J5 


16920 




TF 


TRRECMl.CNPARMl 




09)10 


26 


09625 


09209 






AM 


TRREC* 1 1. W 10 




09162 


11 


09629 


000-1 


16940 




TFN 


CLUSb»l3,CL0SUR 




0915* 


16 


11110 


J1776 


16950 




TFM 


CLUSR*l)iCL0SUf>M96* 




09166 


16 


11171 


J5760 


1*9*0 




TF 


CL0SM>5 ( 0!SKF*5 




09376 


26 


11102 


11191 


16970 




TF 


CL0SR*5,DISKM9 




09390 


26 


11363 


11191 


1*910 




AM 


CL0SR*5»20» 10 




09*C2 


11 


13161 


OCOKO 


16990 


TRREC 


TR 


0,0,, 


DELETE ENTRY 


09*1* 


11 


00000 


00000 


17000 




ONR 


00NE,CL0SUPM96*,, 


TEST FOR END CF TABLE 


09*26 


49 


099*2 


19760 


17010 




TFM 


IORI, «*23 




09*36 


16 


00969 


-9*61 


17020 




It 


IOGT t CLO0DA f 7 




09*5C 


*9 


00966 


J1427 


17030 




TFM 


IOAT,«*23 




C9*62 


16 


00969 


-9*69 


170*0 




n 


I0PT,CLM0OA,7 




09*7* 


69 


00912 


.11419 


17040 




TOM 


CL0SUPO96*. » , 




09*66 


19 


17760 


00000 


17060 




OSC 
• 


lt*»* 




09*97 




1 




17070 




tr 


CL0SuP,CLOSUP*2C00 




09*98 


11 


11776 


19776 


17010 




AM 


CL0SR*9t20«10 




G9510 


11 


11161 


OOOKO 


17090 




AM 


CLCS**5,20, 10 




09522 


11 


11102 


OCOKO 


17100 




B 


TRRECM2 




C953* 


*9 


09626 


00000 


17110 




00* c 


•-3 




099*2 








17120 


DOME 


TF 


HOLDS, CL0S«>5,t 


RECCRO MARK IS IN LAST TRACK 


095*2 


26 


11119 


11102 


17130 




s 


HOLDS, EOUOIN^S 




0955* 


22 


11119 


19669 


171*0 




SF 


HCLD5-2 




09966 


12 


11117 


00000 


17190 




C 


HCL05,EQU0IM*8 




09578 


26 


11119 


19666 


17160 




AH 


NO TOR 




09590 


46 


0961* 


01100 


171 70 




TFM 


I0RT t »«23 




096C2 


16 


00969 


-9629 


17110 




6 


IOPT tCLMOOA »7 




C961* 


69 


00912 


J1415 


17190 




B 


IN1TSC 




09626 


69 


09090 


00000 


1 7200 




006 G 


3 




0961* 








17210 


NO f UK 


SM 


HOL05t20f 10* 


CC KLT WRITE A FULL TRACK 


0961* 


12 


13139 


COOKO 


17220 




TF 


H0L03tEQU0IM»8 




096*6 


26 


11191 


19666 


1 7230 




s 


HQLD3, MOLDS 




09658 


22 


11193 


13119 


172*0 




TF 


CL0SM*6»MQL03 




09670 


26 


11109 


11191 


17250 




6 


N0T0K-S2 




09662 


69 


09602 


OCOOO 


17260 




D06G 


•-3 




09690 








17270 


SKNAME 


CM 


0IHNUM,0,6, 


NOT A OELETE OPE RAT ICN 


09690 


1* 


11190 


0-000 


17260 




BE 


EXIT 




0S7C2 


*6 


10910 


01200 


17290 




TF 


D!SKF*S,EQU01M45 




0971* 


26 


11193 


19969 


17300 




TO 


OISKF.EOUOIM 




09726 


25 


13188 


19660 


i mo 




TFM 


DISKED, 20, 9 




09716 


16 


11196 


00-20 


17320 




TFM 


D I SKF ♦ 1 3* TRACK 




0979C 


16 


11401 


J3776 


1 7330 


SCANN 


TFM 


CNANESMl,TRACKMl 




09762 


16 


09629 


J3767 


173*0 




TFM 


10RT,*»23 




0977* 


16 


00965 


-9797 


17350 




B 


IOG T ,DDAKF , 7 




09716 


*9 


00966 


J3**3 


17360 




BNR 


•♦20,CNAMES*11 ,11 , 


TEST FOR ENO CF TABLE 


09796 


*9 


09616 


0962R 


17370 




B 


NOMLLT 




09810 


*9 


10010 


OCOOO 


17310 




DOUG 


•-3 




C961S 








17390 


CNANES 


C 


PNAME,,7, 


LCOK FOR MULTIPLE NAME 


09618 


2* 


13229 


-0000 


17*00 




BE 


MULT 




09610 


*6 


09906 


01200 


17*10 




CM 


CNAMESMl,TRACK*l995i 


,7 


098*2 


1* 


09629 


J9771 


17*20 




BE 


• ♦32 




0969* 


*6 


09686 


01200 


17*30 




AM 


CNAMESMl, 16,10 




09866 


11 


09829 


000 J 6 


17**0 




B 


CNAMES-20 


1287 


09676 


*9 


09798 


00000 


17*30 




DORG 


•-3 


09666 














1620-1**3 MONITOR I 


VERSION 2 OOP OLOAD-OREPL-OELET 








PAGE 


17*60 




AM 


D1SKF*5,20* 10 




09886 


U 


13393 


OOOKO 


17*70 




B 


SC ANN 




09898 


*9 


09762 


CCCOO 


17660 




006 G 


•-3 




099C6 








17*90 


MULT 


BNF 


•♦20, DELETE,, 


IF MULTIPLE NAME 


09906 


** 


09926 


1111* 


17S00 




B 


HOLD IN 




09918 


*9 


10*96 


00000 


17510 




DORG 


•-3 




09926 








17520 




AM 


CNAMESMlt*,10 




09926 


11 


09629 


000- * 


17530 




c 


DIMNUN.CNAMESMl.il 




09918 


2* 


11190 


0982R 


175*0 




BE 


EXIT 




09950 


*6 


10910 


01200 


17550 




TFM 


DlMERR+22,7571 ,8 




09962 


16 


02907 


0P971 


17560 


MULT 2 


RCTV 






0997* 


1* 


00000 


00102 


17570 




MATY 


D1MERR 




09966 


19 


02*89 


00100 


17560 




WATV 


PNANE-10 




09998 


19 


11219 


00100 


17590 




TF 


PNAME,ZER012 




10010 


26 


11229 


11167 


17600 




B 


EXIT 




IC022 


*9 


10910 


OCOOO 


17610 




DORG 


•-3 




10010 








17620 


NOMUL T 


BNF 


•♦20, DELETE 




10010 


** 


10090 


1313* 


1 7630 




B 


EXIT 




100*2 


*9 


10510 


00000 


176*0 




DORG 


•-3 




10090 








17650 




CM 


0IMNUM,SUBL0,8, 


TEST DIM NUMBER LIMITS 


10050 


1* 


13190 


0-010 


17660 




BL 


OLIMIT 




10062 


*7 


10130 


01300 


17670 




CM 


DIMNUM.SUBHI ,8 




1007* 


1* 


11190 


0-039 


17660 




BH 


OLIMIT 




10086 


*6 


10130 


01100 


17690 




TFM 


CNINE*6,NINE12 




10098 


16 


06816 


J32*3 


17700 




TFM 


CNlNE*ll,TRACK*ll 




10110 


16 


06621 


J3787 


17710 




B 


WITHIN 




10122 


69 


08738 


ooooo 


17720 




DORG 


•-3 




1C110 








17730 


OLIMIT 


TFM 


CNT„0,10, WILL ENTRY EXCEED M6X SC 


10130 


16 


131*2 


000-0 


177*0 




TFM 


•♦23,TRACK*95 




101*2 


16 


10165 


J3671 


17750 




CM 


CNAMESMWTRACK>95 




10156 


1* 


09629 


J 1071 


17760 




BE 


SECT 




10166 


66 


1021* 


01200 


17770 




AM 


•-13,100,9 




10176 


11 


10165 


OOJOO 


17780 




AM 


CNT.1,10 




10190 


11 


11162 


000-1 


17790 




CM 


CNT.20.10 




102C2 


16 


11162 


OOOKO 


17600 




BNE 


.-60 




1C21* 


67 


10156 


01200 


17610 




B 


EN TO* 




10226 


69 


10162 


OOOOO 


17620 




DORG 


•-* 




10216 








17630 


SECT 


TF 


HOLDS, DISKF*5 




1021* 


26 


11119 


13191 


176*0 




A 


HOLDS, CNT 




102*6 


21 


11119 


11162 


17650 




$ 


HOLDS, E0UOIM*5 




10296 


22 


11119 


19969 


17660 




SF 


HOLDS- 2 




10270 


12 


11117 


OOOOO 


17870 




C 


HOLDS, E0U0I«*6 




10262 


2* 


11119 


19668 


17880 




BL 


• ♦32 




10296 


67 


10126 


01100 


17890 




TFM 


0IMERR*22,7573,6 




10106 


16 


02507 


0P979 


17900 




6 


MULT2 




10116 


69 


0997* 


OOOOO 


17910 




DORG 


•- 3 




10126 








17920 


■ * 


CM 


CNAME S+ 1 1 1 TR AC *♦ 1 995 




10126 


16 


09629 


J9771 


17930 




BNE 


ENTOK 




10118 


67 


10162 


01200 


179*0 




AM 


DISKF*6,1*10 




10150 


11 


11196 


000-1 


11950 


entok 


TF 


C*AMESM1,F-NAM6,*, 


600 A NEW ENTRY 


10162 


26 


0962R 


11229 


17960 




AM 


CNAM€S>11,*,10 




1017* 


11 


09629 


000-6 


17970 




TF 


CNANES* 1 1,01 NNUP, 6 




10306 


16 


0962R 


11190 


17980 




AM 


CNAMESMl. 12,10 




10396 


11 


09029 


00042 


17990 




TF 


CNAMf SMLZER012.6 


1288 


10610 


26 


0962R 


11167 


16000 




TOM 


CNAMf S> 11 ,,6 


10622 


19 


0982R 


OOOOO 


16010 




OSC 


!,•*• 




10611 




I 











1620-1443 MONITOR I 


VERSION 2 DUP DLOAO-ORE PL-OELET 








PACE 


18020 




TFM 


I0RT t **2$ 




10434 


16 


00565 


J0497 


18030 




6 


10PT iODAKF « 7 




10446 


49 


00532 


J3443 


18040 




6 


EXIT 




10496 


49 


10530 


00000 


180S0 




DORG 


•-3 




10466 








18060 


ANAME 


C 


PNAME .2ER012. . 


FIND OIM NUMBER TO If DELETED 


10466 


24 


13229 


13147 


18070 




BE 


EXIT 




10478 


46 


10930 


01200 


18080 




6 


SKNAME+24 




10490 


49 


09714 


00000 


18090 




006 G 


•-3 




10496 








18100 


HOL01M 


AM 


CNAMESMI,4,10 




10498 


11 


09629 


000-4 


18110 




TF 


DIMNUM.CNANES*11.11 




10510 


26 


11190 


09826 


18120 




6 


L IMITS 




10522 


49 


08666 


00000 


18130 




DORG 


•-3 




10530 








18140 


EXIT 


CF 


OELETE 




105 30 


33 


11134 


00000 


18150 




6 


EQUlV-1,.6 




10942 


49 


0860N 


ooooo 


18160 




DORG 


•-3 




10950 








18170 




TCO 


EQUFL 




08100 








18180 


• ••• 




COMMON 1 












18190 




DORG 


6600 




08600 








18200 




DC 


5,0 




08604 




5 








-0000 












18210 


ATNR 


CF 


FORT 




08606 


33 


13114 


00000 


18220 




SF 


INPUT*95 




08616 


32 


13708 


ooooo 


182 30 




CM 


INPUT^94. 43,10, 


DETERMINE INPUT OEVICE 


066 30 


14 


13709 


000M3 


18240 




6NE 


• ♦32 




06642 


47 


06674 


01200 


18250 




TFM 


PHI »05» 10 
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33 


11097 


ooooo 


20760 




TO 


•♦47.L0ADSA-5 




11016 


29 


11069 


1)097 


20770 




A 


•♦39, •♦39 




11030 


21 


11069 


11069 


20780 




AM 


•♦21,1,10 




11042 


11 


11069 


000-1 


20790 




TDM 


LOAOSA-5,0,10 




11094 


15 


11097 


ooo-o 


20800 




TFM 


l0RT,»O) 




11046 


16 


00969 


J1089 


20810 




8 


I0GT.D3READ,? 




11079 


49 


00964 


41294 


20820 




TFM 


H0L06-1, READING 71 




11090 


14 


11214 


J 7 84 9 


20830 




TO 


•♦22.L0A0SA-9 




11102 


25 


11 124 


11097 


20840 




AM 


HQL06-l,0,9 




11114 


11 


11214 


00-00 


20850 




•0 


• ♦24,L0A0U-4 




11124 


4) 


11190 


11098 


20860 




TFM 


•♦21,12,10 




111)9 


14 


11141 


000 J 2 


20870 




TO 


L0AD$A-4,HOL04-l,U 




11190 


29 


11099 


1121M 


20880 




HOP 


LOAOS A, 10000,7 




11162 


41 


11102 


JOOOO 
OOOOO 


20890 




CP 


LI STIR- 1 




11174 


13 


02744 


20900 




8 


SCRKO 




11194 


49 


11294 


OOOOO 


20910 




OORG 






11194 









1294 
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FACE 



20920 


MERE 


TF 


NEWHM, LISTER 


11194 


26 


02963 


027*5 


20910 




0'T 


DIMMER, DlMMER-1 


11206 


27 


03*72 


01*71 


20940 




A 


MAP«5,MAP*1 


U218 


21 


19665 


19688 


20950 




TF 


I f) Af) £ A. MAP* 4 


11210 


26 


1 1102 


1968S 


20960 




TO 


LQA0SA-5.MAP 


11242 


25 


11097 


19660 


20970 


SCRKO 


A 




11254 


2 1 


1 1102 


05753 


20980 




S 


LOAOSA.LOAOSC 


112*6 


22 


11102 


13160 


20990 




8 


SCROR 


11278 


49 


06586 


00000 






00 R G 


•— 3 


11286 








21010 


D3READ 


osc 

22 


2,22 


11286 




2 




21020 




OSA 


04REA0 


11292 




5 


X 1 










11292 




J1294 




21030 




osc 

» 


l.« 


11291 




I 




2 1040 


C4R EAO 


osc 


ltl 


11294 




1 




21050 




1 

DC 


5,04800 


11299 




5 








-4800 










21060 




OC 


3,2 


11102 




1 








-02 












21070 




OSA 


REAOIN 


111C7 




5 


X 1 










113C7 




J7778 




21080 




DSC 


It* 


11308 




1 




21090 


LOADER 


TFM 


ATN*ll» INPUT+24 


11310 


16 


09051 


J3617 


21100 




SF 


LOADER 


11322 


12 


11110 


ooooo 


21110 




BTM 


ATNR,**12 


11314 


17 


06606 


J 1346 


21120 




TFM 


INPUT*49,7070,6 


11346 


16 


11662 


0P070 


21110 




A 


WR2«3,425 


11356 


21 


02262 


0042S 


21140 




TO 


HR2,422 


11370 


25 


02259 


00422 


21150 




SF 


liR2 


11362 


32 


02259 


OOOOO 


21160 




CF 


WR2«l 


11394 


33 


02260 


COOOO 


21170 




TF 


HOLOCD*13,KR2*5 


11406 


26 


11059 


02264 


21180 




TF 


H0L0CD*19,MR2*5 


11416 


26 


11065 


02244 


21190 




A 


H0LDCD*19,*R2*8 


11430 


21 


11065 


02267 


21200 




SM 


HOLDCD*19,1,10 


11442 


12 


11065 


000-1 


21210 




TF 


MOLOCDOO,HR2*13 


11454 


26 


11076 


02272 


21220 




TOM 


RTEST.O 


11466 


IS 


11111 


OOOOO 


21230 




BNF 


IST0-24,MCS«22 


11478 


44 


05912 


17600 


21240 




SF 


FORT 


11490 


32 


13114 


OOOOO 


21250 




TOM 


PT6ST,0 


U5C2 


15 


13133 


OOOOO 


21260 




TF 


H0LDCD«7,MCS»39 


11514 


26 


13053 


17817 


21270 




TF 


PNAME,MCS*35 


11526 


26 


13229 


17613 


21280 




TO 


DUMP,NCS»23 


11538 


25 


13424 


17801 


21290 




TF 


M0LDCDO5,*»CS*l7 


11550 


26 


13081 


17795 


21300 




TFM 


H0LDCD*3,0,8 


11562 


16 


13049 


0-000 


21310 




B 


ISTO 


11574 


49 


05956 


OOOOO 


21320 




OORG 


•-3 


11582 








21330 


PATCM2 


BE 


• ♦32 


11582 


46 


11614 


01200 


21340 




TF 


MAPMA.HOLOCDOO 


11594 


26 


13150 


13076 


21350 




B7 


PA12M2 


11606 


49 


06148 




21360 




TFM 


MAPMA.02402,7 


11614 


16 


13150 


-2402 


21370 




B7 


PAT2*12 


11626 


49 


06148 





12-95 
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21380 




CM 


H0LDC0O0,0,7 


11634 


14 


13076 


-0000 


21390 




BNE 


•-52 


11646 


47 


11594 


01200 


21400 




B7 


PAT2 


11658 


49 


06136 




21410 




TCD 


COMMFL 


07200 








21420 




OORG 


10100 


10100 








21430 


COMF1 


TFM 


I0RT,»*23 


10100 


16 


0056S 


J0123 


21440 




B 


I0PT,C0MFU,7 


10112 


49 


00532 


J0l<4 


21450 




TRA 




10124 


36 


OOOOO 


00*00 










10136 


4¥ 


OOOOO 


ncooo 


21460 


COMF1 1 


DSC 


2,22 


10148 




2 








22 












21470 




CSA 


COMF1 2 


10154 




5 


X 1 










IC154 




J0156 




21480 




DSC 


1,* 


1C155 




1 




21490 


COMF1 2 


DSC 


1,1 


10156 




I 





21500 
21510 



1 

DC 5,18512 
J8512 

DC 3,030 
-30 

OC 5,10600 

J0600 

OSC 1,« 



21540 
21550 

21560 
21570 
21560 
21590 
21600 
21610 
21620 
21630 
21640 
21650 
21660 
21670 
21680 
21690 
21700 
21710 
21720 
21730 
21740 
21730 
217*0 
21770 
21780 
21790 
21800 
21810 



OORG 10600 
OC 5,0 
-0000 

SPLINS TFM HOLDS, 0,9 



LOOK 



CM 
•WE 
A 

BT 
TF 
BT 
C 
BE 
BT 
B 

SETMAP TF 
TO 
CF 
SF 
TF 
BNF 
SF 
TF 
TF 
TO 
TF 
TFM 
6 . 
TF* 
6 



LISTER-3, 8,1011 
LOOK 

HOLDS, LISTER 
REMOVE, REMOVE- 1 
LISTET.OIMNUM 
INSERT, INSERT- I 
HOLDS , MOV ESC 
SPLINS- I,, 6 
GETL,GETL-1 
SPL INS* 12 
MAP*5,L0A0SA,, 
MAP.L0A0SA-5 
MAP 
MAP + 1 

MAP*6,L0A0SC 

•♦24,STPIAC 

MAPMA 

MAP*ll,«APMA 

MAP*16,NAPEA 

MAP*19,«APRM 

DIM«UN ( NfW0IM 

I0AT,«*2S 

I0PT,D*00A,7 

10*T»»*23 

I0CT,NCSl,7 



SET UP 01 M ENTRY 



10600 
10604 

10606 
10618 
10610 
10642 
10654 
10666 
10*76 
10*90 
10702 
10714 
1072* 
1C736 
10710 
107*2 
1077* 
1076* 
10798 
10610 
10822 
10634 
1084* 
10098 
10670 
10862 



1296 



109C- 



16 13193 

14 02762 

47 10490 

21 13193 

27 03064 

26 02799 

27 03414 
24 13193 
66 1060N 
27 02996 
49 10618 
26 19689 
29 19600 
33 19880 
32 19661 

19886 
10822 

12 13190 

2* 19693 

2* 19696 

29 19899 

2* 13190 

1* 009*9 

49 00932 

l* :-*4S 

49 009** 



2* 



00-00 
000-0 
01200 
027*9 
030*3 
13190 
03413 
0266* 
01200 
02999 
OOOOO 
13102 
13097 
OOOOO 
OOOOO 
13160 
13937 
OOOOO 
13190 
13199 
13119 
029*3 
J 0*91 
<**• 
40917 
J3514 
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21820 




TF 


MCS*39,DIMHUM 






10918 


26 


17817 


1 3190 


21830 




TFM 


10RT,«*21 






1,0930 


16 


00565 


J0953 


21840 




8 


I0PT,MCSl,7 






L0942 


49 


00532 


J3514 


218)0 


• 


INSERT D1MNUM IN SPLIST 














21860 




BTM 


SHINS, •♦12 






Jl0954 


17 


10606 


J0966 


21870 




C 


FN A ME ,ZER012, t 


MAS PRQ6RAM 


NAME GIVEN 


110966 


24 


1 3229 


11167 


21880 




BE 


NONAM 




1,0978 


46 


1 1002 


01200 


21890 




BTM 


EQUIV.»*12,» 


PUT NAME IN 


EQUIVALENCE TABLE 


K0990 


1 7 


08606 


J 1002 


21900 


NONAM 


TF 


FRE AD* 5 • SCRACHt t 


LOAD PROGRAM 


TO DISK 


h 1002 


26 


1 3287 


1 3186 


21910 




TO 


FRE AD, SCR ACH- 5 






1 1014 


25 


13282 


13181 


21920 




SF 


FRE AO* 1 






1.1026 


12 


11283 


00000 


21930 




CF 


FREAO 






1 1018 


33 


13282 


00000 


219*0 




TF 


FMAIT*5,L0ADSA 






i. 1050 


26 


13272 


1 1102 


21950 




TO 


FMAIT.L0A0SA-9 






1. 1 062 


25 


13267 


1 3097 


21960 




TFM 


FRE AO* 1 1,FAREA 






U074 


16 


13295 


J1776 


21970 




TF* 


FMA IT* 11*FAAEA 






U086 


16 


11280 


J1776 


21980 




C 


NAXSC. LOAOSC 






1, L098 


24 


11107 


11180 


21990 




81 


ALTER 






UUO 


47 


11282 


01100 


22000 




TF 


FRE A0*8 t LOAOSC 






U122 


26 


11290 


11180 


22010 




TF 


FWRIT*8, LOAOSC 






11134 


26 


13275 


13180 


22020 


LSK 


TFM 


10RT,«*21 






U146 


16 


00565 


JU69 


22030 




B 


IOGT.FREDDA.T 






11158 


49 


00566 


J1467 


22040 




TF* 


10RT,«*21 






1 1170 


16 


00565 


J1191 


22050 




8 


I0PT,FMRD0A,7 






M182 


49 


00532 


J3459 


22060 




BD 


•♦20.PTEST 






1 1 194 


43 


11214 


13133 


22070 


END WAT 


8 


SETMAP-1, ,6 






1 1206 


49 


1073P 


00000 


22080 




DORG 


• -3 






11214 








22090 




TFM 


FPSF*l, 32 t 10 






11214 


16 


1 1643 


000L2 


22100 




TF 


H0LD3, LOAOSC 






11226 


26 


13193 


13180 


22110 




TF 


FUR IT*5,L0A0SA 






1 1 2 38 


26 


13272 


1 3102 


22120 




TO 


F*RIT,L0ADSA-5 






1 1250 


25 


13267 


1 3097 


22130 




BTM 


FP,«*12 






1 1262 


17 


1 1462 


J1274 


22140 




B 


ENDtaRT 






1 1 2 74 


49 


1 1206 


ooooo 


22150 




OORG 


• -3 






11282 








22160 


ALTER 


TF 


HOLDS, LOAOSC 






11282 


26 


13193 


13180 


22170 




S 


H0L03,MAX$C 






11294 


22 


13193 


13107 


22180 




TF 


FRE AD*8 ,MAXSC 






U 306 


26 


13290 


13107 


22190 




TF 


FMR IT*B,MAXSC 






11 318 


26 


13275 


13107 


22200 




TFM 


I0RT,«*21 






1. 1. 3 30 


16 


00565 


J1353 


22210 




B 


IOGT.FREDOA.T 






1.1342 


49 


00566 


J3467 


22220 




TFM 


10RT,»*21 






1 1354 


16 


00565 


J1377 


22230 




B 


!0PT,FMRD0A,7 






1 1 366 


49 


00532 


J3459 


22240 




A 


FREA0*5,MAXSC 






1 1 378 


21 


13287 


13107 


22250 




A 


FUR IT*5*MAXSC 






I 1 390 


21 


1 3272 


13107 


22260 




C 


MAX SC t H0LD3 






1 I 402 


24 


13107 


13193 


22270 




BL 


AL TER ♦ 1 2 






J. 1414 


47 


11294 


01 300 


22280 




TF 


FRE A0*8 »H0L03 






1. 1426 


26 


13290 


13193 


22290 




TF 


FWR IT*8.M0LD3 






1 1438 


26 


13275 


13193 


22300 




B 


LSK 






11450 


49 


11146 


OOOOO 


22310 


FP 


SF 


BUT TON i ( i 


FILE PROTECT 


AND LOAD PROGRAM 


1. 1.462 


32 


00455 


OOOOO 


22320 




BTM 


KYMESSi«*l2 






1. 14 7* 


I 7 


1 1998 


J1486 


22330 




TF 


H0LD5.FWRI T*5 






1 I486 


26 


1 3 I 39 


13272 


22340 




SF 


HQL05-1 












UUUvJU 


22350 




TFM 


FPSF*6. TRACK2 






I i.510 


lb 


11648 


J7778 


22360 




SM 


H0LO5,20,10 






11522 


I?. 


13139 


OOOKO 


2237Q 




BH 


• ~ I ? 






11534 


*>b 


11522 


01 100 



1297 
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22380 




BZ 


• ♦48 


U546 


46 


11594 


01200 


22390 




AM 


H0LD5,2Q, 10 


t L558 


I I 


13139 


OOOKO 


22400 




MM 


H01D5, 105.9 


I 15 70 


n 


13139 


00J05 


22410 




A 


FPSF*6,99 


U582 


21 


11648 


00099 


22420 




TFM 


FWRIT*8,20*9 


t.1594 


16 


13275 


00-20 


22430 




TFM 


FWRIT*13,TRACK2 


1. ibOh 


L6 


13280 


J7778 


22440 




TFM 


IORT,»*23 


1.1.6 IB 


16 


00565 


J 164 1 


22450 




B 


I0GT,FP0DA,7 


k 1.630 


49 


00566 


J3451 


22460 


FPSF 


SF 


TRACK2 


fl 11642 


32 


17778 


OOOOQ 


22470 




SM 


H0L03, 1. 10 


1U654 


12 


13193 


000- I 


22480 




CM 


H0LD3,0,9 


1. 1,666 


14 


13193 


00-00 


22490 




BE 


DONESF 


Ilk678 


46 


11782 


01200 


22500 




AM 


FPSF*6, 105,9 


1111690 


111 


11648 


00J05 


22510 




CM 


FPSF*6. TRACK2*2100 


1U702 


14 


11648 


J9878 


22520 




BNE 


FPSF 


f. k7l4 


47 


11642 


01200 


22530 




TFM 


I0RT,»*23 


11 1 726 


16 


00565 


J1749 


22540 




B 


I0PT,FP0DA,7 


1U738 


49 


00532 


J3451 


22550 




AM 


FwR I T*5 , 20 , 10 


U750 


11 


13272 


OOOKO 


22560 




TFM 


FPSF*6,TRACK2 


I 11762 


16 


11648 


J7778 


22570 




B 


FPSF-36 


RH774 


49 


11606 


OOOOO 


22580 




OORG 


• -3 


1111782 








22590 


DONESF 


TFM 


I0RT,**23 


1U782 


116 


00565 


J1605 


22600 




B 


10PT,FP0DA,7 


11 1 7 94 


49 


00532 


J1451 


22610 




CF 


BUTTON 


111806 


33 


00455 


OOOOO 


22620 




BTM 


KYMESS,»*12 


us is 


17 


11998 


J1830 


22630 




B 


FP-1,,6 


1111830 


49 


1146J 


OOOOO 


22640 


WRLAST 


TF 


F INALM* 30,PNAME 1 , MRITE FINAL MESSAGE 


:iH842 


26 


12905 


13229 


22650 




TF 


NEMOIM.OINNUM 


1U854 


26 


02963 


11190 


22660 




BT 


INNER ,DI MMER-l 


111866 


27 


01672 


03671 


22670 




RCTV 




. r.i87B 


34 


OOOOO 


00102 


22680 




MATY 


F INALM 


1111890 


39 


12875 


00100 


22690 




TO 


19999 t MAP*19 


11902 


25 


19999 


19899 


22700 




TF 


19998, OIMNUM 


A 1914 


26 


19998 


13190 


22710 




MNTV 


19995 


1 1926 


38 


19995 


00100 


22720 




SPTY 




1U938 


34 


OOOOO 


00101 


22730 




MNTY 


MAP 


U950 


38 


19880 


00100 


22740 




DNTV 


19999 


11962 


35 


19999 


00100 


22750 




TDM 


SYSCAL,3 


,11974 


15 


0047S 


"*CG ) 


22760 




B 


MRLAST-1,,6 


11 986 


49 


1 


r CCCO 


22770 


• 


AOORESS KEY MESSAGE SUBROUTINE 










22780 


KVNESS 


8NF 


•♦32, BUTTON 


11998 


44 


12010 


00455 


22790 




TFM 


KEVNES*24,5S00,| 


12010 


16 


12991 


ON 500 


22800 




8 


• ♦20 


12022 


49 


12042 


OOOOO 


22810 




OORG 


•-3 


12030 








22820 




TFM 


KE Y ME S* 24,4644,8 


12010 


16 


12991 


OP) 64* 


22830 




RCTV 




12042 


14 


OOOOO 


00102 


22840 




MATY 


KEYNES 


12054 


19 


12967 


00100 


22850 




M 




1206* 


48 


OOOOO 


OOOOO 


22860 




8 


KYMESS-1,,6 


12078 


49 


1199P 


OOOOO 


22870 


• •• 




DELETE OIM NO, FROM S.P. LIST 










22880 


SPLOEL 


TF 


NEMD1M, OIMNUM 


12090 


26 


02963 


11190 


22890 




BT 


DIMMER, DIMMER- 1 


121C2 


27 


03672 


01671 


22900 




TF 


IISTES,MAP*5 


11114 


26 


02791 


19889 


22910 




TO 


LISTES-5.MAP 


1212* 


25 


027*6 


19880 


22920 




TF 


NINE$C,MAP*8 . 


11118 


26 


0S753 


19886 


22910 




TF 


H0L05,MAP»5 J #98 


17150 


2* 


1)119 


19889 
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22940 




CF 


NINESC-2 


121*2 


ii 


057S1 


00000 


22950 




TFM 


RLGONE*90,«*20 


1217* 


i* 


0*28* 


J219* 


229*0 




8 


FINO 


1218* 


49 


01818 


00000 


22970 




DOUG 


•-3 


1219* 








22980 


RENOEL 


C 


L I STERsOIMNUM 


1219* 


2* 


027*5 


11190 


22990 




BNf 


SPLDEL-1,,* 


1220* 


47 


1208R 


01200 


23000 




BT 


REMOVE t RE MOVE- 1 


12218 


27 


0108* 


030*3 


23010 




CM 


LISTER-3,7,1011 


12230 


14 


027*2 


000-F 


23020 




BE 


cyloel 


12242 


** 


124*2 


01200 


23030 




CM 


LISTER-3,9,1011 


1225* 


14 


027*2 


000-R 


23040 




BE 


COMPRS 


1226* 


4* 


1240* 


01200 


2 3050 


INSOEl 


TF 


LISTET, NINESC 


12278 


2* 


02795 


OS7S3 


23060 




BT 


INSERT, INSERT-1 


12290 


27 


03414 


01411 


23070 




BT 


GETL.GETL-l 


12302 


27 


0299* 


02999 


23080 




BT 


GETL,GETL-1 


1231* 


27 


0299* 


02999 


23090 




CM 


LISTER-3,9,1011 


1212* 


I* 


027*2 


000-R 


23100 




BNE 


SPLDEL-l,,* 


12118 


47 


1208R 


01200 


23110 




SF 


LI STIR- 2 


12350 


12 


027*1 


00000 


23120 




A 


NINE SCttlSTER 


123*2 


21 


05711 


027*5 


23130 




CF 


LISTER- 2 


1237* 


11 


027*1 


00000 


23140 




BT 


REMOVE t RE MOVE- 1 


1238* 


27 


03084 


01081 


2 3150 







COMPRS* 3* 


12398 


49 


12442 


00000 


23160 




DO KG 


•-3 


1240* 








23170 


COMPRS 


SF 


LlSTER-2 


1240* 


32 


027*3 


00000 


23180 




A 


NtNESCtLISTER 


12418 


21 


05753 


027*5 


23190 




CF 


LISTER-2 


12430 


33 


027*3 


OCOOO 


23200 




BT 


REMOVE, REMOVE- I 


12442 


27 


03084 


03083 


23210 




ft 


INSOEL 


12454 


49 


12278 


OCOOO 


23220 




DOUG 


•-3 


12462 








2 32 30 


CVLCEL 


BT 


CETL.CETL-l 


124*2 


27 


0299* 


02995 


23240 




CM 


LISTER-3,7,1011 


12474 


14 


02762 


000-P 


2 3250 




BNE 


N02CO 


1248* 


47 


12566 


01200 


2 3260 




BT 


GETR.GETR-l 


12498 


27 


02872 


02971 


232 70 




TFM 


LISTET,9200,9 


12510 


1* 


02795 


OR 200 


2 3280 




SM 


NINESC, 200,9 


12522 


12 


05753 


OOKOO 


23290 




BT 


INSERT, INSERT- I 


12534 


27 


03414 


03413 


23300 




BT 


GETR,GETR-l 


1254* 


27 


02872 


02871 


23310 




B 


REMDEL 


1255M 


49 


12194 


00000 


23320 




DO AG 


•-3 


125** 








23330 


NO 2 00 


CM 


LISTER-3, 9,1011 


1256* 


14 


02762 


OOO-R 


23340 




BE 


VES9 


12578 


4* 


12730 


01200 


23350 




SF 


HOL05-2 


12590 


32 


13137 


00000 


23360 




SN 


H0L05. 200,9 


12*02 


12 


13139 


OOKOO 


23370 




BNF 


*>-12,MOL0S 


12*14 


44 


12602 


13139 


23380 




A 


NINESC t HOLDS 


12*2* 


21 


05753 


13139 


23390 




TOM 


H0L05-l,9,ll 


12*38 


15 


13136 


COOOR 


23400 




CF 


M0L05 


12650 


33 


13139 


ooooo 


23410 




CF 


H0L05-2 


12662 


33 


13137 


00000 


23420 




TF 


LISTET, H0L05 


12674 


26 


02795 


13139 








t»e it*»Ge in— 1 


1266* 


27 


02872 


02871 


23440 




BT 


INSERT, INSERT- 1 


12698 


27 


03414 


03413 


23450 




BT 


GETR,GETR~1 


12710 


27 


02872 


02871 


23460 




B 


REMOEL 


12722 


49 


12194 


OOOOO 


23470 




DOR 6 


•-3 


12730 








23480 


VES9 


SF 


LISTER- 2 


12730 


32 


02763 


OOOOO 


23490 




A 


NINESC, LISTER 


1299 i"** 


21 


05753 


027*5 
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23500 


S HOLOS, LISTER 




12754 


22 


13139 


027*5 


23510 


CF LISTER- 2 




12766 


13 


027*3 


OOOOO 


23520 


BT REMOVE, REMOVE- I 




12778 


27 


03084 


01083 


23530 


B CYLDEL 




12790 


49 


124*2 


OOOOO 


23540 


OORG «-3 




12798 








23550 PATCH! 


TF MAPEA,MAP*18 




12798 


26 


1315S 


19898 


23560 


CM HOLDCD*10tO,7 




12810 


14 


13076 


-oooo 


23570 


BNE "24 




12822 


47 


12846 


01200 


23580 


TF MAPMA,MAP4|3 




12834 


2* 


13150 


19899 


23590 


B7 NAINB2 




12846 


49 


06884 




23*00 SCERR 


TFM 01NERR*22t0075,8 




12854 


16 


02507 


0-075 


23*10 


B ERRO 




12866 


49 


02524 


OOOOO 


23*20 


OORG »-3 




12874 








23*30 FINALM 


OAC 18,DK LOAOEO • 




12875 




18 


X 2 




OK LOAOEO • 












23640 RMARK 


OAC 1,0 




12911 




1 


X 2 


23*50 ERRSEQ 




OAC 27,DUP*>ERRORSS CARD SEQUENCE * 




12913 




27 


X 2 




DUP«ERROR55 CARD SEQUENCE • 












23**0 KEVMES 


OAC 39, OUP* TURN OFF WRITE ADDRESS KEY, START* 




12967 




39 


X 2 




OUP* TURN OFF WRITE ADDRESS KEY, START* 












23*70 


OAC 1,0 






13045 




I 


X 2 


23**0 CLOSUP 


OSS 4000,1177* 




13776 




4000 




23*90 INPUT 


OAS 81,13*13 




13613 




81 


X 2 


23700 REAOIN 


OS ,17778 




17778 









23710 CARD 


DC 45,0 




13090 




45 






-ooooooooooooooooooooocococoooooooooooooooooo 












23720 MOLOCO 


OS , CARD-** 




130** 









23730 MCS 


OS ,17778 




17778 









23740 THOU 


DC ** 100000 




1309* 










JOOOOO 












23750 LOAOSA 


DC *,0 




13102 










-OOOOO 












237*0 H0LD2 


DC 2,0 




11104 








23770 MAXOIM 


-0 

OS O.FIND*U 




03849 








23780 MAXSC 


DC 3,850 




13107 










-50 












23790 MCAS 


DC *,0 




11113 










-OOOOO 












21800 FORT 


OSC 1,0 




1111* 








23810 MAMtM 




OSC 1,0 




13115 








21820 6PM ARR 




OCR) 




1911* 








29810 FINOIM 


OSC 1,0 

' ' 




11117 








218*0 AOK 


DSC 1,0 





19119 








21850 LOOP 


DC 2,0 




19120 








218*0 SCR EM 


-0 

DC 1,0 




11121 










-00 












21870 SEQ 


OC 5,0 


1300 


11129 










-0000 
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PA4C fO 



23680 


BUTTON 


DS i433 


00455 


2 3690 


PHI 


DC 2.0 


1)110 










23900 


RTEST 


DSC 1,0 


11111 


23910 


NTEST 


DSC 1,0 


13112 


23920 


PTEST 




DSC 1,0 


13133 


23930 


OELITE 




DSC 1,0 


13134 


23940 


HOI 05 




DC 5,0 


13139 






-0000 




23950 


CNT 


OC 3,0 


13142 






-00 




23960 


COUNT 


OC 3,0 


13145 






-00 




23970 


NAPMA 


DC 5,0 


13150 






-0000 




23960 


NAPEA 


DC 5,0 


13155 






-0000 




2 3990 


2ER019 


DC 19,0 


13174 






-OOOOOOOCOOOCOOOOOO 




24000 


2ER06 


DC 6,0,ZER019-U 


13161 






-00000 




24010 


LOAOSC 


DC 6,0 


13180 






-00000 




24020 


SCRACH 


DC 6,0 


13186 






-ooooo 




24030 


DIMNUM 


DC 4,0 


13190 






-000 




24040 


M0LD3 


DC 3,0 


13193 






-00 




24050 


HOI 04 


DC 4,0 


13197 






-000 




24060 


SCR1 


OC 6,0 


13203 






-OOOOO 




24070 


SCR 2 


OC 6,0 


13209 






-OOOOO 




24080 


H0L06 


DC 6,0 


13215 






-OOOOO 




24090 




OAC 1,0 


13217 


24100 


PNAME 




OC 1 2 , 


13229 






-ooooooocooo 




24110 




OAC l,» 


13231 


24120 


ZER012 


DC 12,0,ZER019-7 


13167 






-OOOOOOOCOOO 




24130 


NINE12 


DC 12,999999999999 


13243 






R99999999999 




24140 


MOVODA 


DSC 2,22 


13244 






22 




24150 




DSA MOVDCF 


, « . 13250 

1301 








13250 
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24160 




DSC 1,» 


13251 


24170 


NOVDCF 


DSC 1,1 


13252 


24180 




1 

DC 5,18331 


13257 






J8331 




24190 




DC 3,0 38 


13260 






-38 




24200 




DC 5,08600 


13265 






-8600 




24210 




OSC l,« 


13266 


24220 


FWRIT 


OSC 1,1 


13267 


24230 




I 

OC 5,0 


13272 






-0000 




24240 




DC 3 , 


13275 






-00 




24250 




DC 5,0 


13280 






-0000 




24260 




DSC l.« 


13281 


24270 


FREAO 


OSC 1,1 


13282 


24280 




DC 5.0 


13287 






-0000 




24290 




OC 3,0 


13290 






-00 




24300 




OC 5,0 


11295 






-0000 




24310 




OSC 1,* 


11296 


24320 


CLOSW 


OSC 1,1 


11297 


24330 




1 

OC 5,0 


11102 






-0000 




24340 




DC 3.0 


11105 






-00 




24350 




DC 5,0 


11110 






-oooo 




24360 




DSC l»* 
* 


13311 


24370 


EQUOOA 


OSC 2,22 


11112 






22 




24380 




DSA EOUOCF 


11318 








13318 


24190 




DS,C 1,» 


11119 


24400 


EOUDCF 


OSC 1,1 


11120 


24410 




h 

fX 3*11271 


11125 






J827I 


11328 


24420 




OC 1,010 






-20 


ll«2 » M " 


24410 




OC 3,0t*00 
-•600 
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osc 


It 


t 


13114) 


l 


24450 


C0<2 


DSC 


2, 


22 


1131S 


2 






22 










24460 




OSA 


C0N22 


11141 


5 K 


24470 










11341 


J1343 




OSC 


It 




1 3142 


1 


24460 


COM22 


osc 
1 


It 


I 


13343 


1 


24490 




DC 


5, 


16512 


13348 


5 






J8512 






24500 




oc 


3t 


020 


13351 


3 






-20 








24510 




OC 


5, 


10600 


13396 


5 






J0600 








24520 




OSC 
• 


It 


t 


13357 


1 


24530 


CLOSR 


osc 
1 


It 


1 


13358 


1 


24540 




oc 


5* 


■ ' ■ ' ' ■ • 


13363 


5 






.0000 








24550 




oc 


3, 


0' 


13346 


3 






-00 










24560 




oc 


5, 


• • 


13371 


5 






-0000 






24570 




osc 


It 




13372 


1 


24560 


MAP 


osc 


20 


•0. 19880 


19660 


20 






oooooocccooocooooooo 


24590 


OCFSCR 


osc 




It 





13373 


1 


24600 




oc 


5, 





H3Y8 


5 






-0000 






24610 




oc 


3, 





13381 


1 






^00 










?4620 




OSA 


READ IN 


13386 


5 X 












13386 


J7778 


24630 




OSC 


It 




13387 




24640 


EQUOI* 


osc 


20 


tO. 19880 


19880 


20 






oooooocccoooooeoooco 




24650 


01 SKF 


OSC 



It 





13388 


1 


24660 




DC 


5, 





13393 


5 






-0000 








24670 




OC 


3, 


020 


13396 


3 






-20 










24680 




OSA 


TRACK 


13401 


5 X 












134C1 


J 3776 


24690 




OSC 


It 




134C2 


1 


24700 


FARC A 


OS 


.ClOSUP 


1 303 i3m 
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24710 


SVSCAL 


OS 


»475 


00475 





24720 


SUBLO 


OS 


,10 


00010 





24730 


SUSHI 


OS 


t39 


00039 





24740 


TRACK 


OS 


tClOSUP 


13776 





24750 


BASICM 


OS 


t796 


00794 





24760 


MONCAL 


OS 


.BASICM 


C0796 





24770 


TRACK 3 


DS 


tCLOSUP 


13774 





24780 


DUPCRC 


OS 


•INPUT 


13613 





24790 


SUCESS 


OS 


tAOK 


13118 





24800 


OMPOIM 


OSC 


2t-22 


13403 


2 






2K 






24810 




OSA 


OMPOM 


134C9 


5 










13409 


J 3411 


24820 




OSC 


It • 


13410 


1 


24630 


ONPOM 


OSC 


ltl 


13411 


1 


24840 




1 

OC 


5* 16426 


13416 


5 






J6426 




24850 




DC 


3.053 


13419 


3 






-53 








24860 




OC 


St02S00 


13424 


5 






-2500 






24670 




DSC 
t 


lt» 


13425 


1 


24860 


DUMP 


OSC 


1.0 


13426 


1 


24890 


CLOCCA 




OSC 


2.22 


13427 


2 






22 








249C0 




OSA 


CLOSR 


11411 


9 










11411 


J3358 


24910 




OSC 


l.« 


19414 


1 


24920 


CLMCDA 


OSC 


2.22 


13435 


2 






22 








24930 




DSA 


ctosw 


11441 


S 










11441 


J3297 


24940 




DSC 


1.* 


11442 


1 


24950 


OCAKF 


OSC 


2.22 


11441 


2 






22 








24960 




OSA 


01 SKF 


11449 


s 










11449 


43361 


24970 




DSC 
t 


1.* 


114S0 


1 


24980 


FPCCA 


OSC 


2.26 


13451 


2 






26 








24990 




DSA 


FNR I T 


11457 


9 










13437 


J3247 


25000 




OSC 


l.« 


13436 


I 



1304 
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25010 FMROOA OSC 2,22 
22 

25020 OSA FUR IT 



2*5030 OSC If* 

25040 FAEODA DSC 2*22 
22 

25050 OSA FAEAO 



25060 

25070 RE AO 
25080 



OSC l,» 
i 

OSA READ IN 



DC 
-0* 



25090 DDASCR OSC 2*02 
02 

25100 OSA OCFSCR 



25120 01READ DSC 2*22 
22 

25130 OSA D2REA0 



25140 OSC 1.' 

25150 02REA0 OSC 1.1 
1 

25160 DC 



25170 
25180 



5*0 

.oooo 

0C 3*021 
-21 

OSA TRACK 



25190 

25200 MCSl 
25210 OSA MCS 2 



OSC 1. 



OSC 2*22 
22 



25220 

25230 MCS2 

25240 

2 52 50 



DSC 1,« 

OSC 1*1 
I 

DC 5*1*663 
J9663 

DC 3*1 
-01 



13(K 



13459 
13465 



13445 
13446 



13467 
13473 



13473 
13474 



13479 
13412 

13483 

13489 

13489 

13490 

43491 

13497 

13497 
113498 

a3499 

13504 

R35C7 

&3512 

13512 
13513 

I; 35 14 

1.3520 

I 3520 
113521 

1,3522 

L3527 

1 3530 



RAGE 

2 

5 X 



J3267 
1 



2 

5 X 



J3262 

1 



J777S 

3 



2 

5 X 



J3373 
1 



2 

5 X 



J3499 
1 



1 
5 
3 

5 X 



J3776 
1 



2 

5 X 



J3522 
1 

1 

5 

3 
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25260 




DSA 


MCS 




13535 




5 


X 1 












1.3535 




J7778 




252 70 




DSC 


1.' 




1 35 36 




1 




252 60 


STFLAG 


DSC 


1*0 




13537 




1 




25281 


PATCH6 




TFM 


SCR 16*1,41, 10 




1.3538 


16 


06301 


OOOMl 


25282 




B 


ISTQ 




1.3550 


49 


05956 


00000 


25290 


TRACK2 


DSS 


2100.17778.. READ 


WRITE AREA FOR TRACK 


1.7778 




2100 




25300 




TCD 


COMFL 




1 01 CO 








2 5310 


• •• 


FIND AVAILABLE AREA 












25320 




DORG 


13800 




13600 








25330 


NOSA 


CF 


MAPRM. . . 


NOT IMMOVABLE 


138C0 


33 


13115 


00000 


25340 




SF 


H0LDC0O5 




13812 


32 


13081 


00000 


2 5350 




C 


H0LDCD*40,IEAQ6 




1.3824 


24 


13064 


11161 


25360 




BNE 


• ♦24 




1.3836 


47 


13440 


01200 


25370 




TF 


H0L0CD*40.MXN0SA 




13848 


26 


13044 


05915 


25380 




SF 


H0LDCDO8 




13860 


32 


13084 


00000 


25390 




TF 


HILIM,H0LDC0*40 




13872 


26 


13823 


13094 


25400 




TF 


LOLIM.HOLDCOOT 




! 3884 


26 


13955 


13043 


25410 




C 


MXNOSA.HILIM 




1.3896 


24 


05435 


13823 


25420 




BL 


ERRCYL 




13908 


47 


14274 


01300 


25430 




C 


MXNOSA.LOLIM 




1 3920 


24 


05835 


13955 


25440 




BL 


ERRCYL 




L3932 


47 


14276 


01300 


25450 




CF 


HILIM-2 




1,3944 


33 


13421 


00000 


25460 




CF 


LOLIM-2 




13956 


33 


13953 


00000 


25470 




SF 


H0LDC0O6 




1.3968 


32 


13042 


00000 


25480 




MM 


H0L0CD*37, 200.9 




1.3980 


13 


13093 


OOKOO 


25490 




SF 


95 




1.3992 


32 


00095 


00000 


25500 




TF 


L ISTES.99 




I.40C4 


24 


02791 


00099 


25510 




CF 


H0LDCDO5 




1.4016 


33 


13041 


00000 


25520 




TO 


• ♦47.M0LDC0O5,, 


SET UP DRIVE CODE 


14024 


25 


14073 


13081 


2 55 30 




A 


•♦35.**33 




1.4040 


21 


14075 


14075 


25540 




AM 


•♦21.1.10 




1.4052 


11 


14075 


000-1 


25550 




TOM 


LISTES-5,0,10 




14044 


15 


02744 


ooo-o 


25560 




TFM 


10RT,»*23 




14076 


16 


00545 


J4094 


25570 




8 


I0GT,D3REA0,7, 


OETERMINE AOORESS SCHEME 


14044 


44) 


00544 


J 1244 


25580 




TFM 


H0L06-1, READING 71 


14100 


16 


11214 


J7449 


25590 




TO 


• ♦22.LISTI S-5 




1,4112 


25 


14134 


02744 


25600 




AM 


H0L04-1.0.9 




1,4124 


11 


13214 


00-00 


25610 




•0 


•♦24.LISTES-4 




14134 


43 


14140 


02747 


25620 




TFM 


•♦25,12.10 




64144 


16 


14173 


000J2 


25630 




TO 


LlSTES-4,M0L04-l.ll 




14140 


25 


02747 


1121M 


25640 




NOR 


LISTES, 10000.7 




£4172 


41 


02791 


JOOOO 


25650 




TF 


NINESC.LOADSC. 


OETERMINE NUMISR OF CVLINOERS 


14144 


26 


09753 


11190 


25460 




TFM 


CNTCVL.O.IO 




14144 


14 


11979 


000-0 


25670 




CF 


NlNESC-2 




1,4204 


93 


09751 


00000 


25680 




CM 


NINESC9200.8 




1,4220 


14 


05751 


011200 


25490 




BNH 


SMALL 




14212 


47 


14294 


01100 


£•700 




SM 


NINCSC, 200.8 




14244 


12 


05751 


0-200 


2S7I0 




AM 


CNTCVL.1,10 




14294 


11 


11974 


•00-1 


1*720 




• 


•-49 




14244 


49 


14220 


00000 


25730 




DORG 


•-1 


!»H. 


14274 








21740 


EMCVL 


TRM 


0INEIUU22.7274.9 


14274 


14 


029417 


•#274 
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25750 


8 


EftftO 


16286 


69 


02924 


coooo 


25T60 


00ft G 


•*3 


1629* 








25770 SMALL 


CM 


CNTCVLtOttO 


1619* 


14 


11979 


000-0 


25710 


BE 


• ♦36 


16308 


4* 


14144 
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02934 


47 


06530 


01300 


00470 




TFM 


NUMB , SENT 








02946 


16 


13643 


-C004 


00480 




TO 


•♦23,TVPE*2 








02998 


25 


0298 1 


1 3449 


00490 




AM 


NUMB, 0,10 








02970 


11 


13643 


ooo-o 


00900 




B 


Bl 








02982 


49 


03110 


00000 


00510 




DORG 


•-3 








02990 








00920 


LORH 


CM 


TYPE, 93, 10 








02990 


14 


13647 


COONS 


00530 




BE 


L 








03002 


46 


04718 


01200 


00540 




CM 


TYPE, 94, 10 








03014 


14 


13647 


000N4 


00550 




BNE 


SPL 








03026 


47 


02842 


01200 



1311 



00540 

00970 

00980 

00990 

00400 

00410 

00420 Bl 

00430 

00440 

00650 

00440 • 

00470 

00410 

00490 

00700 CONT 

00710 B2 

00720 

00730 

00740 

00750 

00740 

00770 

00780 CA 

00790 

00800 

00810 

00820 

00830 

00840 PAP ST 

00150 

00840 

00870 SETUP 
00880 
00890 
00900 
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SF NUMB- 7 

CM NUMB, 0,10 

BE NAME 

TFM TD*6,NUMB-1,, 

TFM AN-l,**23 

B AN,NUMB-7,7 

TF FIND*23,NUMB,, 

TFM TR*23,**23,7ll 

B TEMAP.FILAD 

BNR CONT, FI LAO 

ERROR MAP NO NOT IN USE 

TFM 0IMERR*22, 0074,8 

B . ERRD 

DORG *<-3 

TF SC ,F ILAD+8, » 

SF 100- 1 

CM 100,57,10, 

BE PAPST 

CM 100,53,10, 

BE TYPtaRT 

CM 100,43,10 

BNE ERR0-12 

CF 01,,, 

TFM SEQUEN,0 

TFM EN0TES*11,TSXC*35 

TFM RELLT-4»F1NISC 

6 SETUP 



DORG *-4 
SF 01,,, 



00910 
00920 
00930 
00940 
00950 
00940 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01040 
01070 
01080 
01090 
01100 



READ 



TFM 
TFM 
TFM 
TFM 
TOM 
DSC 

TFM 
B 

TFM 
TFM 
TFM 



ENOTES*U,AIO*U 
AEllT-A.FINISP 
Fit AO* 13, SEC TOR,, 
FILA0**,3,9, 
Fit AO* 14,,, 
l.*t» 

I0RT,»*2t 
I0GT,PILD0A,7 

A 10* 11, SECTOR 
TSXC*U,SECT0R*79 
TSXC+1S, SECTOR 



SCTEST CM SC,3*10 

8NL FOUR 

TF LOOP.SC 

• FOUR* 12 
DORG 

FOUR TFM LOOP, 4, 10 

LI SHF TSXCOI 

A10 TFM PAPER*S5,IX,T, 

BTM PAPER, «*12 

AM A10Hl»7i,lO 

TYPfND BNF EN0TES,C0NTP0-2 

SM LOOP, 1,10 

BNE Li 



CONV MAP NC TO NUMERIC 
FINO MAP ENTRY 



SAVE SC FRQM FILAD 
OUTPUT DEVICE TEST 
OUTPUT DEVICE IS PRINTER 

OUTPUT OEVICE IS CAROS 



OUTPUT OEVICE IS PAPER TAPE 



SET UP MAO OF F1LA0 

SET UF SECTOR CUT OF FILAO 



INlTIALIIf ADDRESSES 



SET LOOP COUNTER 



CALL PAPER TAPE 



03038 


32 


13636 


00000 


03090 


14 


13643 


000-0 


03042 


46 


04362 


01200 


03074 


16 


05260 


J 3642 


03086 


16 


05249 


-3109 


03098 


49 


05250 


J3634 


03110 


26 


05129 


13443 


03122 


16 


05213 


-314N 


03134 


49 


09098 


05558 


03146 


45 


03178 


05558 


03158 


16 


06741 


0-074 


03170 


49 


06542 


00000 


03178 








03178 


26 


13643 


05544 


03190 


32 


13644 


00000 


03202 


14 


13645 


000N7 


03214 


46 


03330 


01200 


03226 


14 


13645 


oo cm 3 


03238 


46 


05798 


01200 


03290 


14 


13645 


000M3 


03262 


47 


04530 


01200 


03274 


33 


02731 


00000 


03286 


16 


02711 


-0000 


03298 


16 


05409 


-3705 


03310 


16 


03444 


-7504 


03322 


49 


03344 


00000 


03329 








03330 


32 


02731 


00000 


03342 


14 


05409 


-3541 


03354 


14 


03444 


-7540 


01164 


14 


05571 


J6000 


01378 


14 


05544 


00-03 


01190 


IS 


05572 


00000 


014CI 




1 




01402 


14 


00545 


-3423 


01414 


49 


00544 


-5550 


01424 


16 


03541 


J8000 


01418 


14 


01481 


J8079 


01450 


14 


01705 


JIOOO 


01442 


14 


11441 


000-3 


01474 


44 


01504 


01300 


01484 


24 


02820 


13441 


01498 


49 


01518 


00000 


01505 








01504 


14 


02820 


000-4 


01518 


44 


01470 


02711 


01510 


14 


04049 


-0000 


01542 


17 


04014 


-3554 


01554 


11 


01541 


OQOPS 


01544 


44 


05398 


13411 


01578 


12 


02820 


000- I 


01590 


4? 


03518 


01200 
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PACE 



OHIO 


• 






LITTLE LOOP FINISHED 










01120 




CN 


SC3. 10 




03602 


14 


1364 3 


000-3 


01130 




BL 


41 




0)614 


47 


03738 


01)00 


011*0 




SM 


SC. 3, 10 




03626 


12 


13643 


000-3 


01150 




BE 


XX 




0361B 


46 


00000 


01200 


01160 


RELIT 


AM 


FUAD*5.3,10 




03650 


11 


05563 


000-3 


01170 




B 


READ 




03662 


49 


03*02 


00000 


01180 




DORC 


• -* 




03669 








01190 


• 






CALL CARD ROUTINE 










01200 


TSXC 


TFM 


Ab i*it,xx 




03670 


16 


04 177 


-0000 


01210 




TFM 


PUN,e*23,7li 




33682 


16 


07620 


-370N 


01220 




8 


CARD, SECTOR, 7 




03694 


49 


04118 


JSOOO 


01230 




AM 


TSXC*ll.T5 




03706 


11 


03681 


-0075 


012*0 




AM 


TSXC* 35i75 




03718 


11 


03705 


-0075 


01250 




8 


TYPEMD 




03730 


49 


03566 


OOOOO 


01260 




DORG 


• -* 




03737 








01270 


Al 


CM 


SCI, 10, REMAINING SC 


LESS THAN THREE 


03738 


14 


13643 


000-1 


01260 




BNE 


A3 




03750 


47 


03*98 


01200 


01290 




TF 


SECTOR* 1*9, ZERO 




03762 


26 


18149 


07654 


01300 




TF 


SEC TQR*124. ZERO 




03774 


26 


1812* 


07654 


01310 




CF 


SEC TOR* 125 




03786 


33 


18125 


OOOOO 


01320 




CF 


SECT0R*100 




03 7*8 


33 


18100 


ooooo 


01330 




BNF 


A2.0I 




03810 


44 


03854 


02731 


013*0 




TFM 


PAPER* 35, SECTOR* 75 1 1 


SC-1-SPECIAL PAPER TAPE OUTPUT 


03822 


16 


04049 


J8075 


01350 




BTM 


PAPER»»*12 




03834 


17 


04014 


-3846 


01360 




B 


F INISP 




038*6 


*9 


07560 


OOOOO 


01370 




OORG 


• -* 




03853 








01380 


A2 


TFM 


AB 1*11, SEC TOR* 1 5* » » 


SC-1 SPECIAL CARO OUTPUT 


0385* 


16 


04177 


J6154 


01390 




TFM 


PUN, •♦23,711 




03866 


16 


07620 


-388R 


01*00 




B 


CARD.SECT0R4T5 




03878 


49 


04118 


18075 


01*10 




B 


F1MSC 




03890 


49 


07504 


OOOOO 


01*20 




OORG 


•-* 




03897 








01*30 


A3 


TF 


SEC T0R*224. ZERO 




03898 


26 


18224 


07654 


01**0 




CF 


SEC TOR* 200 




03910 


33 


18200 


ocooo 


01*50 




BNF 


A*, 01 




03922 


44 


03966 


02731 


01*60 




TFM 


PAPER*35,SECT0R*lS0.i 


SC-2 SPECIAL PAPER TAPE OUTPUT 


0393* 


16 


040*9 


J8150 


01*70 




BTM 


PAPER. **12 




03946 


17 


0*01* 


-3958 


01*80 




B 


FINISP 




03958 


49 


07560 


OOOOO 


01*90 




DORG 


•-* 




03965 








01500 


A4 


TFM 


AB 1* 11, SEC TOR* 22 9 1 , 


SC-2 SPECIAL CARO OUTPUT 


03966 


16 


0* 177 


JI8229 


01510 




TFM 


PUN, •♦23,711 




03978 


16 


07520 


-400 J 


01520 




B 


CAR0,SECT0A*150 




03990 


*9 


04U8 


16150 


01530 




B 


FIN1SC 




040C2 


49 


0750* 


OOOOO 


015*0 


PAPER 


TFM 


T03*6, 19925 




0401* 


16 


0*0** 


J9925 


01550 




CF 


TO 3 + 7 




0*026 


33 


0*0*5 


OOOOO 


01560 


T03 


TD 


xx , XX, 2 




0*038 


25 


-0000 


OOOOO 


01570 




A 


103*1 ItCONl 




04050 


21 


040*9 


07750 


01580 




CM 


f01*6 f 20000 




04062 


14 


0*04* 


KOOOO 


01590 




BNE 


TD 3 




04074 


47 


04038 


01200 


01600 




DNPT 


19925 




04086 


35 


19925 


00200 


01610 




BTM 


ERRDMP V **12 




0*098 


17 


06590 


-4110 


01620 




B 


PA PER- 1 ,, 6 




0*110 




040 1 L 


OOOOO 


G1630 




OORG 


• - * 




0* I 1 I 








016*0 


CARD 


TF 


t I N 1* 18 , A81* 1 1 




0*1 18 


26 


0*2*0 


0*177 


01650 




TFM 


ABl*6,SAV 




0*130 


16 


0*172 


-30*9 


01660 




TFM 


CNT5,5,10 


1313 


0* 1*2 


16 


02 7 35 


000- 5 
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PAGE 


01670 




CF 


AB1*7 




0*154 


33 


0*173 


OCOOO 


01680 


AB1 


TD 


SAV,XX, 2 




04166 


25 


-50*9 


OOOOO 


01690 




SM 


CNT5.1 , 10 




04 1 ?8 


12 


02735 


000-1 


01700 




BE 


F IN 1 




04190 


46 


0*222 


01200 


01710 




S 


API* 11, CON I 




042C2 


22 


04 177 




01720 




B 


AB 1 




04214 


49 


04166 


OGOOQ 


01730 




OORG 


• -* 




0*221 








017*0 


F INI 


AM 


SEQUEN.l.lO 




04222 


11 


0271 1 


000- I 


01750 




TF 


XX.SEOUEN 




0423* 


26 


coooo 


0271 1 


01760 




TFM 


I0RT,»*23 




04246 


16 


00565 


-4269 


01770 




B 


10PT.PUN-4.7 




04258 


49 


00532 


-?fei£> 


01780 




TD 


A81*li,ABl*6,6ll 




0*270 


25 


C417P 


0*17K 


01790 




A 


AB 1*11, C0N1 




0*282 


21 


0*177 


07750 


01800 




AM 


CNT5.1.10 




0*29* 


11 


02735 


000- J 


01810 




CM 


CNT5,5,10 




043C6 


I* 


02735 


000-5 


01820 




BNE 


F1N1**8 




0*318 


47 


0*270 


01200 


01830 




CF 


PUN 




04330 


33 


07620 


OOOOO 


018*0 




AM 


PUN, It 10 




04342 


11 


07620 


000-1 


01850 




B 


PUN,, 6, BRANCH 


BACKS 


04354 


49 


0762- 


OOOOO 


01860 




OORG 


•-* 




04 361 








01870 


NAME 


TF 


FlN0*23,E*ll 




04 362 


26 


05129 


02833 


01880 




TFM 


TR*23,**23,7U 




04374 


16 


05213 


-*39P 


01890 




B 


F IND ,F I LAO , t 


OBTAIN EQUIVALENCE TABLE DIM 


04386 


49 


05106 


05558 


01900 




SF 


NAM- 1 1 




04398 


32 


13624 


OOOOO 


01910 




C 


NAM,ZER012 




04410 


24 


13635 


07641 


01920 




BE 


ERR0-12 




04422 


46 


06530 


01200 


01930 




TFM 


FILA0*13iEQUIV 




0*434 


16 


05571 


J6000 


019*0 


COMPE 


CM 


FILAD*8,4Q,9 




04446 


14 


05566 


00-40 


01950 




BNH 


RO 




04458 


47 


0**3* 


on oq 


01960 




TF 


SAV,FILA0*8 




044 70 


/6 


03049 


05566 


01970 




TFM 


FILAD*6.40,9 




04482 


16 


05566 


00-%0 


01980 


RO 


TFM 


IQRT,**23 




04494 


16 


00565 


-4517 


01990 




B 


I0GT,FILDDA,7 




04506 


49 


00566 


-5550 


02000 




TFM 


L00P3*6,EQUIV*11.i 


SEARCH EQUIVALENCE TABLE 


04518 


16 


04568 


J6011 


02010 




TF 


•*23,LOOP3*6 




04530 


26 


04553 


04568 


02020 




BNR 


LOOPltXX 




04542 


45 


04562 


OOOOO 


02090 




B 


ERNF 




04554 


49 


04666 


OCOOO 


02040 




OORG 


•-3 




04562 








02050 


LOOP 3 


c 


XX, NAM 




04562 


24 


00000 


13635 


02060 




BE 


FOLND 




04574 


46 


04686 


01200 


02070 




AM 


L00P3*6,16,10 




04584 


11 


04568 


00OJ6 


02080 




CM 


L00P3*6,EQUIV**011 




04598 


14 


04546 


KOOll 


02090 




BL 


LOOP3-32 




04610 


47 


04530 


01300 


02100 




SM 


SAV,*0,10 




04622 


12 


03049 


OOOMO 


02110 




TP 


F !LAO*ltSAV 




04434 


26 


05566 


03049 


02120 




AM 


FILA0*5,40,10 




04446 


11 


05563 


OOOMO 


02190 




B 


COMPf 




04658 


49 


04446 


OOOOO 


021*0 




OORG 


•-4 




04665 








02190 


• 






ERROR - NAME NOT IN EQUIV 










02160 


ERNF 


TPM 


DIMEAR*21,7270,S 




06466 


16 


06741 


OP 2 70 


02170 




B 


ERRD 




04478 


49 


06542 


OOOOO 


02110 




DORG 






04444 








02190 


POUNO 


AM 


L00PS**,4,10 




04484 


11 


04568 


000-4 


02200 




TP 


FlND*2),L00PS>6,ll 




06491 


26 


05129 


0454Q 


02210 




• 


•1*12,,, 


PINO NAP INT AT CORRESPONDING TO 


04710 


49 


03122 


OOOOO 



02220 • MM 



1114 
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02230 




00ft G 


•-4 




04717 








02240 1 


L 


T FN 


TD*6,SAl-l 




04718 


16 


09280 


J3662 


02290 




TFN 


STFLG*6,SA1-U 




04710 


16 


04760 


J3652 


02260 




TFM 


STFLG*lB,SAl-10 




04742 


16 


04772 


J3693 


02270 


STFLG 


SF 


SA1-U 




04 794 


32 


13692 


00000 


02260 




CM 


SA1-10.70,10 




04766 


14 


13653 


OOOPO 


02290 




8NL 


• ♦32 




04771 


46 


04810 


01100 


02100 




TFN 


01MERR*22i7l75.6 




04790 


16 


06741 


0P173 


02310 




B 


ERRO 




04802 


49 


06942 


00000 


02320 




00ft G 


•-3 




04810 








02330 




CF 


STFLG*6,,6 




04810 


33 


0476- 


00000 


02340 




AN 


STFLG*6.2»10 




04822 


11 


04760 


000-2 


02390 




AM 


STFLGU8.2.10 




04814 


11 


04772 


000-2 


02360 




CN 


STFLG*6,SA2*t 




04846 


14 


04760 


J1676 


02370 




81 


STFLG 




04898 


47 


04794 


01100 


02380 




TFN 


AN-l,»*21 




04870 


16 


09249 


-4691 


02390 




B 


ANtSAl-11,7 




04882 


49 


09290 


J3632 


02400 




TFN 


T0*6,SA2-1 




04894 


16 


09210 


J3674 


02410 




TFN 


AN- 1,4*21 




04906 


16 


09249 


-4929 


02420 




B 


ANiSA2-llt7 




04918 


49 


09290 


J 3664 


02430 




SF 


SAl-4 




04910 


12 


13639 


00000 


02440 




SF 


SA2-4 




04942 


12 


13671 


ocooo 


02490 




CF 


SAl-5 




04994 


11 


13699 


00000 


02460 




TO 


FlLAD,SAl-5 




04966 


23 


05598 


13656 


02470 


BEGS 


TF 


FILAD*5,$A1 




04978 


26 


09963 


13663 


024S0 




TF 


SCSA2 




04990 


26 


13643 


13675 


02490 




S 


SCSAl 




090C2 


22 


13643 


13663 


Q2900 




AN 


SCI, 10 




09014 


11 


13643 


000-1 


02910 




BH 


B2 




09026 


46 


03190 


01100 


02920 




TFN 


DINERR*22,7177,8 




09038 


16 


06741 


0P177 


02930 




a 


ERRO 




09090 


49 


06942 


OCOOO 


02940 




00ft G 


•-.4 




09097 








02990 


TENAP 


CN 


FIND*23,0,10, 


IS MAP NO. WITHIN LIMITS 


09098 


14 


09129 


000-0 


02960 




BNH 


ERNAP 




09070 


47 


05376 


01100 


02970 




CN 


FIND*23,4994 f 6 




09082 


14 


05129 


0N994 


02980 




BH 


ERNAP 




09094 


46 


05378 


01100 


02990 


FJNO 


TFN 


SAFCF *9 , MAP TAB , , 


GIVEN 0|M* RE AO ENTRV TO CORE 


09106 


16 


05583 


-4600 


02600 




AN 


SAFCF*6,XX 


09118 


11 


05964 


-0000 


02610 




A 


SAFCF*6,FIN0*23 




09130 


21 


09964 


05129 


02620 




TO 


TR*10.SAFCF*6 




09142 


29 


09200 


055S4 


02630 




TON 


SAFCF*6,0 




09194 


IS 


09564 


00000 


02640 




TFN 


I0RT,#*21 




09166 


16 


00569 


-9189 


02690 




B 


IOGT,SAFODA(? 




09 178 


49 


00566 


-9542 


02660 


TR 


TR 


• ♦23, SECTOR, 6 




09190 


31 


0921L 


18000 


02670 




TON 


FILA0*14,,, 




092C2 


19 


09972 


00000 


02680 




osc 

t 


!»•.• 




09213 




1 




02690 




CF 


TR*23 




09214 


33 


09213 


00000 


02700 




AN 


TR*23,1 




09226 


11 


09213 


-0001 


02710 




8 


TR*23,,6 




09238 


49 


0921L 


00000 


02720 


AN 


TF 


TD*11,TD*6,, 


ALPHA TO NUMERIC CONVERSICN 


09290 


26 


09289 


09260 


02730 




SN 


TD*ll,l 




09262 


12 


09289 


-0001 


02740 


TO 


TO 


XX, XX, 27 




09274 


29 


-0000 


-0000 


02790 




SN 


TD*6,i 




09286 


12 


09280 


-0001 


02760 




SN 


TD*1 1,2 




09298 


12 


09289 


-0002 


02770 




c 


TD*lltAN-l,ll 


1315 


09310 


24 


09285 


0524R 
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PAGE 


02780 




BN 


TO 




09322 


46 


09274 


01100 


02790 




AN 


TD*6,l,10 




03334 


11 


09290 


000-1 


02800 




SF 


T0*6, t 6 




09346 


32 


0926- 


00000 


02810 




AN 


AN-1,1,10 




03398 


11 


09249 


000-1 


02820 




B 


AN-1,,6 




09370 


49 


0324* 


OCOOO 


02830 




OORG 


•-4 




09377 








02840 


Eft MAP 


TFN 


DINERR*22tOOT6»B 




09378 


16 


06741 


0-076 


02190 




B 


ERRO 




09390 
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03 1 90 








01500 


• •• 
















01510 


• •• 


SUBROUT INE- INSERT INSERTS AN ENTRY IN THE SPL 












01520 


• •ft 
















015 30 


INSETR 


SF 


SPLCOR, ,6 




03 19C 


3 2 




ocooo 


01540 




TFM 


•♦35,09800,7 




C 32C 2 


1 6 


C 32 3 7 


- 9600 


01550 




AM 


•♦23,04, 10 




C 32 14 


1 1 


C 3237 


000- 4 


01560 


T IP SY 


BNR 


•-12,9S999,, FINDS RECORD MARK IN SPL 




32 26 


4 5 


3214 


99999 


1570 




TF 


C0NST2, TIPSYM1 




32 38 


26 


C2880 


32 3 7 


01580 




AM 


CONST?, 04, 10 




32 50 


1 1 


C2660 


000- 4 


1590 




TF 


CON ST 3 , CON S T2 , , 




3262 


26 


C5 1 30 


2880 


01600 




SM 


CONST3,098O0,7 




32 74 


12 


5 130 


-980C 


01610 




C 


CONST3-2.CORSI 2 , , IS THERE RCOP FCR ANOTHER ENTRY 


3 266 


24 


C 5 I 2 8 


0262 7 


01620 




BL 


NERR 




3298 


4 7 


1 354 


1 300 


01630 




RC T Y 






G 3 3 1 


34 


ccoco 


00102 


016*0 




WNTY 


PACK 




3 322 


3h 


C 2 856 


OC 1 00 


01650 




TFM 


OIMERR^22, 7178,8, THE SPL IS FULL MESSAGE 




3 3 34 


1 6 


C2675 


OP 1 7 8 


1660 




B 


ERRO 




03346 


4S 


C269Q 


00000 


1670 




DORG 


• -3 




3 354 








01680 


NEAR 


TF 


C0NST2, TIPSYMl ,61 I , OPENS A MOLE IN THE LIST 




03354 


26 


1 8 B- 


32 3P 


1690 




TF 


CALC2, SPLCOR 




3 366 


26 


C26 1 3 


02 650 


1 700 




AM 


CALC2,03,10 




033 76 


I 1 


0261 3 


000- 3 


01710 




TF 


CALC2,LISTET,6 




3 390 


26 


026 IL 


0966 5 


1 720 




CF 


SPLCOR , ,6, 




034C2 


33 


C265- 


CCCOO 


1730 




AM 


SPLCOR , 4, IC, 




034 14 


1 1 


02850 


000-4 


1 740 




CF 


SPLCOR , ,6 




03426 


3 3 


02 65- 


00000 


01750 




BB 






034 38 


42 


cocoo 


oocoo 


01760 




OURG 






0344C 








01770 


• •• 
















01 780 


• • • 


SUBROUTINE-FIND GIVEN A SECTOR ADORESS THE LISTER 










01 790 


• •• 


IS INITIALIZED TO COVER THAT ADDRESS 












1800 


• •• 
















01810 


F INDTR 


C F 


LISTES-4 




34 4 


3 i 


C 965 7 


ccooc 


01820 




SF 


L 1 STE S-5 




3452 


32 


C 9 6 * 6 


ccooo 


01830 




TF 


1988*, L I STES, .ACCEPTS SECTOR ARGUMENT 




3464 


26 


1968 5 


0966 1 


01840 




B 


SPl 1ST 




34 76 


4 ^ 


39*6 


occoo 


01850 




DORG 


• - 3 




34 84 








01860 


SPLEXT 


MM 


SPLCOR, 200, 69, RETURNS WITH CYLINOER IN LISTER 




1484 


1 3 


Q2h5- 


0CK00 


01870 




SF 


95 




U3496 


32 


CUC9 5 


oocoo 


01880 




TF 


AORSPL ,99 




035C8 


26 


C2640 


0C099 


01890 




SM 


A0RSPL,0l,10 




03520 


12 


C2840 


000-1 


01900 




MM 


L I STES- 4, 05, 10 




3*32 


I 1 


C4657 


000-5 


01910 




TDM 


LISTES-4, I, 11 


1329 


03*44 


IS 


C9657 


OOOOJ 


01920 




BD 


•♦24,99 




035*6 


43 


03*60 


00099 
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PAGE 


01930 




TDM 


L ISTES-4,0,11 




3*66 


1 5 


096*7 


OCOO- 


1940 




SM 


SPLCOR, 03, 10, SET AT HIGH ORDER OF LIST IN CORE 




u 3580 


I i 


C26*0 


CCO- 3 


01950 




CF 


SPLCOR, ,6 




3592 


3 3 


C 2 85- 


OCOOO 


01960 


TRY AGN 


TF 


CALC? , SPLCOR t , LEFT PRESENT SPL C.A. 




3604 


26 


C26 1 3 


02650 


01970 




AM 


SPLCOR, 04, 10, LEFT ENO NEW ENTRY 




36 1 6 


1 1 


02850 


000-4 


01980 




SF 


SPLCOR , ,6, NEW FLAG 




03628 


32 


C285- 


CCOOO 


01990 




AM 


CALC2.07, 10, RIGHT ENO OF NEW ENTRY 




3640 


1 1 


C26 1 3 


CCO- 7 


02000 




TF 


L ISTER tCALC 2 ,11 




3652 


?6 


C9654 


026 1 L 


02010 




CF 


SPLCOR , ,6 




3664 


33 


C285- 


OCOOO 


02020 




CM 


L ISTER-3, 9,1011 




03676 


14 


0965 1 


OCO-R 


02030 




BE 


AODBLK 




C 3688 


46 


3912 


01200 


02040 




CM 


L ISTER, COOl ,8, IF WORK AREA EXIT 




C 37C0 


14 


09654 


0-00 1 


02050 




BE 


PLUSSR^24 




3712 


46 


C 3892 


01200 


02060 




TF 


NE WD I M ,L I STER 




3724 


26 


C 9649 


09654 


02070 




8T 


DIMMER, DIMMER-l 




3 7 36 


2 7 


C9600 


09599 


02080 




TUM 


19880,0, 11 




C 374b 


I * 


1 9680 


0000- 


02090 




MM 


19881,05,1011 




0376C 


I 3 


19881 


000-N 


02100 




TDM 


19881, 1,11 




03772 


1 5 


1980 1 


OCOO J 


021 10 




80 


•♦24,99,, MATCH-UP THE TENTHOUSANDS POSITION 




3784 


4 3 


C3808 


00099 


02120 




TDM 


19881,0,11 




03796 


1 c j 


1 96b I 


0000- 


02130 




SM 


19685,01,10 




03808 


12 


I 9885 


000- 1 


02140 




S 


19885, AORSPL 




0382C 


22 


19885 


02840 


02150 




BE 


• ♦24 




03832 


46 


C 3856 


01200 


02160 




A 


AORSPL , 19885, (SUBTRACTS THk BACKFLOW 




03844 


2 1 


02840 


19685 


02170 




A 


ADR SPL, 19888,, ADD THE SECTOR COUNT TO SECTOR POSITICN 


3856 


2 I 


02840 


1 9886 


02180 


PLUSSR 


C 


AORSPL, LI STES 




0386b 


24 




r?tnn 


02190 




BL 


TR YAG-N 




03880 






* 


02200 




TF 


FOUNO, AORSPL 




03892 


26 


028 35 


02840 


02210 




B 


GOONY 




03904 


49 


09638 


UUUUU 


02220 




OORG 


•-3 




03912 








02230 


ACOBIK 


SF 


LISTER-2,,, ADO THE BLANK SECTOR COUNT 




3912 


32 


09652 


OCOOO 


02240 


• •• 
















02250 


• •• 


ROUTINE FOR LOCATING THE CORRECT SPL IN CORE ANC 












02260 


• •• 


DIRECTING THE LISTER TO THE CORRECT CYLINDER ENTRY 












02270 


• •• 
















02280 




A 


AORSPL, LI STER 




3924 


2 1 


02840 


09*54 


02290 


K 


CF 


LISTER-2 




03936 


3 3 


C9652 


OCOOO 


02300 




a 


PLUSSR 




03948 


49 


C3868 


COOOO 


02310 




OORG 


• -3 




03956 








02120 


SPLIST 


TOM 


19880, , 1 1 ,FLAG ZERO 




03956 


1 5 


1 9880 


oooo- 


023)0 




MM 


19885.05,10 




039*8 


13 


198*5 


000-5 


02140 




SF 


94, , (OE SIRED CYLINDER 




03980 


32 


C0094 


CCCOO 


02350 




SF 


93 




03992 


32 


C0C93 


OCOOO 


021*0 




TO 


STAR0TM0.95 




04004 


25 


C4 1 74 


00095 


02170 




TO 


STARDT*U,96 




040 16 








02110 




TF 


REPACK, 94 




04028 


2* 


02852 


00094 


02190 




MM 


LlSTES-5,05,10 




04040 


1 J 


09*5* 


000—5 


02400 




BO 


•♦32,99, .SIGNIFICANT OVERRIDE CODE 




04052 


4) 


04084 




02410 




TF 


94, REPACK 




04044 


2* 


00094 


02B52 


02420 




8 


REOSPL 




0407* 


4*# 


04220 


COQQU 


02410 




OORG 


•-3 




04084 








02440 




MM 


LI STES- 5, 50000, 7, GENERATE PROPER MODULE FROM 


OVER IOE CODE 


040*4 


13 


C9*5* 


NCOOO 


02450 




SF 


94 




0409* 


32 


00094 


00000 


02440 




■ 


REOSPL 




04108 


4V 


04220 


00000 


02470 




OORG 


• -1 


mo 


0411* 








02410 


SPL IN I 


TW 


AOR SPL (Of BOO 


0411* 


I* 


02*40 


-9*00 
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PACE 



024*0 


CLUCK 


SF 


AO A SPL,, 6 


04I2B 


32 


0264- 


00000 


02*00 




TP 


SPLCORtAORSH 


04140 


26 


C2650 


02840 


02510 


STAROT 


AH 


SPLCOR, 03,10 


04152 


11 


02650 


000-3 


02920 


CM 


SPLCOR, 7000,68, PINO THE CORRECT CYLINDER ENTRY 


04164 


14 


0285- 


OPOOO 


02530 




BE 


SPL 6 XT 


04176 


46 


034B4 


01200 


02540 




CF 


ADR SPL t »6 


04188 


33 


0264- 


00000 


02150 




AN 


ADR$PL,04,10 


04200 


11 


02840 


000-4 


02560 




B 


CLUCK 


04212 


49 


04128 


OCOOO 


02570 




DORG 


•-3 


04220 








02510 


• ROUTINE TO MRITE BACK LI ST ALRf A0Y IN CORE IF NECESSARY 










02590 


REPSPL 


C 


94, PACK 


04220 


24 


00094 


02656 


02400 




BE 


SPL INI 


04232 


46 


041 16 


01200 


02410 




CM 


PACK,09, 1011 »FIR$T TRIP 


04244 


14 


02656 


000- A 


02420 




TF 


UNPACK ,94 


04256 


26 


C2854 


00094 


02410 




BE 


SPORT 


04266 


46 


04480 


01200 


02440 




CN 


PACK v 00* 101 1 t PACK ZERO 


042B0 


14 


02856 


ooo— 


02450 




BE 


MRTSPO 


04292 


46 


04340 


01200 


02440 




CN 


PACK t 01* 1011 »PACK ONE 


04 304 


14 


02854 


000- J 


02470 




BE 


MRTSP 1 


04316 


44 


04392 


01200 


02410 




CN 


PACK, 02, lOllt PACK TMO 


04328 


14 


02856 


COO-K 


02490 




BE 


MRTSP 2 


04340 


46 


04424 


01200 


02700 




B 


MRTSP3t * i PACK THREE 


04352 


49 


04456 


00000 


02710 




DORG 


•-3 


04360 








02720 


MRTSPO 


TFN 


IORT,**23 


O4360 


16 


00565 


-4363 


02730 




B 


I0PT,PK0DDA,7 


04372 


49 


00532 


-2734 


02740 




B 


SPORT 


04 384 


49 


C4480 


OCOOO 


02750 




DORG 


•-3 


04 392 








02740 


MRTSP 1 


TFN 


!ORT t **23 


04392 


16 


00565 


-441 5 


02770 




B 


I0PT,PK100A,T 


04404 


49 


00532 


-2757 


02710 




B 


SPQRT 


044 16 


49 


04480 


OCOOO 


02790 




DO KG 


•-3 


04424 








02100 


MR T SP 2 


TFN 


I0AT,»»23 


04424 


16 


00565 


-4447 


02810 




B 


IOPT,PK200A t 7 


04436 


49 


00532 


-2780 


02420 




B 


SPORT 


04446 


49 


C4480 


ccooo 


02450 




OORG 


• -3 


04456 








02440 


MRTSP 3 


TFN 


10RT,«*23 


04456 


16 


0C565 


-44 79 


02450 




B 


10PT,PK3DDA,7 


04468 


44 


00532 


-2603 


02460 


• •• ROUTINE TO BRING IN DESIRED SPL IF KQT ALREADY IN CORE 










02170 


SPORT 


TF 


PACK, UNPACK, .SAVE PACK NUN 


U4480 


26 


02656 


C2854 


02880 




TO 


CLEVER, LlSTES-4 


04492 


2t> 


02827 


09657 


02890 




SF 


CLEVER 


045C4 


32 


02827 


CCOOO 


02900 




MM 


LISTFS-4,05,10 


04516 


1 3 


09657 


000-5 


02910 




BO 


t*24,99 


04528 


4 3 


04552 


00099 


02920 




SM 


CLEVER, 01,10 


0454C 


12 


02827 


000- 1 


02930 




CN 


PACK, 0*1011, PACK ZERQ 


04552 


|4 


02856 


ooo-- 


02940 




BE 


REDSPO 


04564 


46 


C4666 


01200 


02950 




CN 


PACK, 1,1011, PACK ONE 


04576 


14 


02856 


000- J 


02960 




HE 


RE0SP1 


0458U 


46 


C4712 


01200 


02970 




CN 


PACK, 2t 101 1, PACK TWO 


G46CC 


14 


02856 


000-K 


02980 




BE 


REDSP2 


04612 


46 


04 756 


01200 


02990 


RECSP3 


TO 


SPL PK 3*1, CLEVER 


04624 


2 j 


02812 


02627 


03000 




TFN 


IORT,»*23 


04636 


16 


C0565 


-4659 


03010 




B 


IOGT,PK300A,7 


04646 


49 


00566 


-2803 


03020 




B 


SPL INI 


04660 


44 


04 116 


ooooc 


3030 




DORG 


•-3 


04666 








03040 


REDSPO 


TD 


SPLPKOM, CLEVER 1331 


0466(1 


25 


02743 


02827 
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03050 




TFN 


10RT,»*23 


04680 


16 


00565 


-4703 


03060 




a 


I0GT,PK0D0A,7 


04692 


49 


00566 


-2734 


03070 




B 


SPL INI 


04704 


4V 


04116 


OCOOO 


03080 




DORG 


• -3 


04 712 








03090 


RE0SP1 


TO 


SPLPKIM, CLEVER 


C4712 


2S 


C2 766 


02827 


03100 




TFN 


!ORT,«*23 


04 724 


16 


00S65 


-4747 


03110 




B 


10GT,PK100A,7 


04736 


49 


G0566 


-2757 


03120 




B 


SPL INI 


04746 


49 


C4116 


CCOOO 


03130 




OORG 


♦-3 


04 756 








03140 


RE0SP2 


TD 


SPLPK2*!, CLEVER 


04756 


25 


02789 


02827 


03150 




TFN 


10RT,»*23 


0476b 


16 


00565 


-4791 


03160 




B 


IOGT,PK200A,7 


04780 


44 


00566 


-2780 


03170 




B 


SPL INI 


04792 


49 


CM 16 


OOOGO 


03180 




CORG 


•-3 


04600 








03190 


• •• 


ROUTINE TO LOAD THE SACRED SIX TO DISK MHEK LOAQING FRON CARDS 










03200 


SPLFL 


TFN 


I0RT,»*23 


04800 


16 


00565 


-4623 


03210 







IOPT,SPLR2.7 


048L2 


44 


00532 


-4863 


03220 




TRA 




0482* 


36 


coooo 


00500 










04 836 


49 


coooo 


00000 


03230 


SPLRl 


DSC 


1*1 


•J4840 




I 




03240 




1 

DC 


5,19338 


0485 3 




5 








J9136 










03250 




DC 


3,025 


04856 




3 








-25 












03260 




OC 


5,02458 


04861 




5 








-2458 










03270 




DSC 
i 


1, • ' ' , . 


04862 




I 




03280 


SPLR2 


osc 

22 


2*22 


04863 




2 




3290 




PSA 


SPLRl 


04869 




5 


X 1 










04869 




-4848 




03300 




OSC 
i 




04870 




I 




03310 




TCP 


SPLFL 


C4800 








03320 


• •t 














03330 


• 




OODD EEEEE FFFFF III K k EEfEE 










03340 


• 




00 E F I NN N E 










03350 


• 




f EEE FFFF I N N N EEEE 










03360 


• 




Pp E F I N KN E 










03370 


• 




DODO EEEEE F III N N EEEEE 










03360 


••• 












03390 


• •• 


THE OEPINE PROGRAN FOR REOEF INING THE $V$TEN PRRANf TENS 










03400 


••• 














03410 




OORG 


5CCC 


05000 








01420 




TON 


13775, OCOOO 


050G0 


14 


13775 


OCOOO 


01410 




PC 
t 




05011 




1 




03440 




TR 


9336,l36l2tt TRANSMIT THE DEFINE CONTROL CARp 


05012 


31 


C9536 


13612 


01450 




TFN 


IORT,«»23 


C5024 


16 


C0565 


-5047 


01460 




B 


I0GT,SLIPRV,7, BRING IN THE SECONOARY LINKAGE 


05036 


49 


00564 


-5056 


03470 




B 


DFINE 


05048 


49 


05174 


00000 


01460 




OORG 


•-3 


05056 









1332 



03*90 StlPRY DSC 2,2? 

22 

03500 uSA TAfiO 



162C-1**3 mum TOR 1 VERSION 2 CUP DFINf 

DDA H)R iHf SACRED Six SECUNCARV LINKAGE 



03510 

03520 T ABC 
03530 
035*0 
03550 



J 8 I 9 7 

cc 



-G3 

lit 

-qscc 

03560 TRuSLC CSC 2 , 2 2 



5,18197 

3 , C C 3 
6 , ^CG • 



DDA FOR SHIFTING THE EQUIVALENCE LIST 



03570 



/ 2 
f > S A 



-oooooccco 



037*0 



DSC 
00 

03750 CURREN DC 

-00 



2.0, 

3,0 



EX HNS I UN (JF ZERCES 



1333 



05 6 
05C62 



(;Sl, ' 
U5f ?S 

0NClfj>3 

0*>f. t5 



OS 1 4 I 
J51*t> 



PAGE 

2 

5 X 

- 5f/<S* 

I 
I 



2 

5 X 
-5087 



03580 




PC I , • 


CSC GO 


1 


03590 


SLDEQV 


USC I , 

c 


C508 7 


I 


C 3600 




PC 5.C 


05092 


5 






-COCO 






03610 




DC 3,060 


C5C95 


3 






-60 






03620 




DC 5,0^800 


05 ICC 


5 






-98C0 






03630 




DC I , ' 


051CI 


1 


036*0 


TRWTLO 


CSC 2,02,, DDA FQR SHIFTING THE EttC I V AL ENCE LIST 


1)5 IC2 


2 






02 






03650 




DSA TLDEQV 


051C» 


5 








051C8 


-5110 


03660 




DC I , • 


'J I C 9 


I 


036 70 


TLDEQV 


CSC 1,0 




1 


03680 




DC 5 , C 


tm 15 


5 






-CCCO 






03690 




DC 3,060 


O r »l U 


3 






-60 






3700 




nc s.ciaco 


C512 ) 


5 






-Oft CO 






03710 




DC 1 , 1 


051?* 


1 


03720 


CONST 3 


DC 6 , C 


Oil 30 


6 






-COCOC 






03730 


ZEROES 


DC 10, C 


051*0 


IC 



03760 LIMIT DC 

03770 KEY5 DSC 



03780 DUPCRC DSS 
03790 SARB DSC 

2 2 

0.3800 USA 



16 20-1**3 HON I TOR I 

3, 0<W 

L.C 

16 2,9337 



VERSION 2 OUP OFINE 



? 2 . , 



CD A FOR COMMUNICATION SECTOR ON DISK 



SAW 



0381 


DC 1 , 




03820 SARC 


DSC I , 


■ 1 


03830 


1 

DO 5, 


, 1 S6 3 9 




J9639 




038*0 


DC 3, 


, CO I 




-01 




03850 


DSA DFlNfc 



03860 DC 1,* 

03870 DFINE TFM NE WD I M , COO* , 8 

03880 B T DIMMER .DIMMFR-l 

03890 TF CORSIZ, 19888 

03900 TD CALC9,DUPCRD*22 , , STARTING SECTCR FOR WORK ARE A 

03910 TD CALC9- 1 ,DUPCRD*20 

03920 TD CALC9-2,D4JPCRD*18 

03930 TD CALC9-3,DUPCR0*16 

039*0 TD CAIC9~*.0UPCRD*1* 

03950 TU CALC9-5.UUPCRDM2 

03960 SF CAIC9-5 

03970 SF OUPCRD*ll 

03980 C DUPCRO*22,2EROES*2, , HAS THIS FIELD BLANK 

3990 BNE SANOOR 

0*000 TFM NEhOIM ,C00l ,8 

0*010 BT DIMMER, DIMMER-l . » BRING IN MCRK AREA DIP* 

0*020 TF CALC9, 19885 

0*030 CF CALC9-* 

0*0*0 TD CALC9-5, 19880 

0*050 SF CALC9-5 

0*060 SANOOR MM C ALC 9 , 05 , 9 , USE FOR CYLINDER NUMBER ALSO 

0*070 BO ERRGRl»97,,lS START OF SCRATC* AT BEGINNING OF CYLINDER 
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TQM 


TRfaTLD,2 


0762H 


15 


05102 


00002 


06160 




TFM 


SL0EQV*5,01000,7 


07640 


16 


05092 


-1000 


06190 




TFM 


TL0EQV»5, 04600 


07652 


16 


05115 


-4800 


06200 




A 


TL0EQV»5,CALC4-1 


7664 


21 


05115 


02066 


06210 


JAN I TO' CM 


CALC7«060 t 9t MAJOR SHIFT OF EQUIVALENCE TA6LE 


76 76 


14 


C2921 


00-60 


06220 




BNH 


MELANC 


0768b 


47 


07792 


01100 


06230 




TFM 


I0RT,«*23 


077C0 


16 


C0565 


-7723 


06260 




6 


IOGT.TRWSLD, 7 


07712 


49 


00566 


-5079 


06250 




TFM 


I0RT««*2) 


07724 


16 


00565 


-7747 


06260 




6 


I0FT,TR*TLDt7 


077)6 


49 


00532 


-5102 


06270 




AM 


SL0EQV*5,0*0,9 


07748 


11 


05092 


00-60 


06260 




AM 


TLUE0V*5,040,9 


0776C 


11 


05115 


00-60 


0*290 




SM 


CALC7,040,9 


07772 


12 


02921 


00-60 


•6)66 




6 


JAN I TO 


07784 


49 


07676 


OOOOO 


06110 




00 RG 




07792 








04120 


MELANC 


TF 


TLDEQV»8,CALC7,, Ml N06 SHIFT OF EOUlVALlNCE TA6LE 


07792 


24 


05116 


02921 


0*110 




TFM 


fORT»»*2) 


07604 


16 


00569 


-7827 


04160 







I0GT,TIWSLD,7 


07614 


4* 


00564 


-5079 


06)16 




TFM 


I0RT,»*2) 


07826 


16 


00549 


-7651 


0*1*0 




6 


lOFTt TtMTLDi7 


07640 


49 


00512 


-5102 


0*17* 




TFM 


TLOE0V*8,6O,9 


07842 


14 


05118 


00-60 


0*160 




TFM 


I0RT,**21 


7664 


14 


00545 


-76*7 


6*190 




1 


10GT,THR0DA,7, REFRilH THf C0«f FROM IIIK 


07676 


49 


00544 


-2426 



1138 
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PACE 



06*00 


NURSE S 


SF KEYS 






07I8B 


32 


09|49 


00000 


06*10 




C CQNST3,CALC*-l 






07900 


24 


05130 


02144 


06*20 




BNL EQVLEN 






07912 


44 


01400 


01 300 


06*30 




TF C0NST5,CALC4- 1 






07924 


14 


02191 


02844 


06**0 




S C0NST5»C0NST3» » 


NUMBER 


OF SECTORS AODfC 


07916 


22 


02191 


0*51)0 


06*50 




TFM NEto0!MtC002tt 






07941 


14 


09649 


0-002 


06*60 




BT n 1 MMFfi « ft I MMFI- 1 






07960 


2| 


09400 


09999 


06*70 










07972 


24 


08189 


19889 


ntiLOA 




1 U 3AKH,ItBOU 






0798* 


it 

« » 


0B1B* 


19880 




SAR I 


1 rfl IUR 1 • C 3 






07996 


is 


00545 


.ifli a 
••ui v 


06500 












49 




.•1 

19 


06510 




SM C0NST5.0l.10 






08020 


12 


02198 


000- 1 


06520 




CM C0NST5.C00.9 






08032 


14 


02898 


00-00 


06530 




HE EQVLEN 






080** 


44 


01400 


Q1200 


065*0 




AM SA*H*5,01,10 






08056 


11 


08189 


000- 1 






B SAR I 








49 


07994 


ovwuo 


06560 




OUR G •— 3 






08076 








06570 


OUMCIN 


OC lt«»» DUMMY 


SECTOR 


FILL 


08076 




i 




06510 




DC 1,0 






08077 




1 




06590 




- 






08078 




18 








nnncftfl^ c ■ r nnnnnnnnn 
UUUUUUv i tuouuuuuuu 














06600 




OC 1 , • 






08C96 




1 




06610 




DC 1,0 






08097 




1 




06620 




- 

DSC 18,0 






08098 




18 








r\ a a n ft r f /* #» /» a a a 
OCGCuOCCCCCCvCCCQO 














06630 




DC 1 , • 






08116 




1 




066*0 




DC 1,0 






08117 




1 




06650 




DSC 18,0 






06118 




18 








oooocccccooocooooo 














06660 




DC 1 , • 






08136 




1 




06670 




DC 1,0 






08137 




I 




06680 




- 

DSC 18.0 






08 13b 




18 








UOQCUGQCCvOUCOCOQU 














06690 




OC l,« 
• 






0815b 




1 




06700 




DC 1,0 






08157 




1 




06710 




- 

DSC 18,0 






08158 




18 








ooocoocccooocooooo 














06720 


SARF 


DSC 2,22,, DDA FOR 


FILLING 


IN BLANK DIM SECTORS 


08176 




2 




06730 




22 

DSA SARH 






08182 




5 


X 1 












08182 




-818* 




067*0 




rc 1,' 






08183 




1 




06750 


S ARM 


DSC 1,1 






0818* 




I 





1 1339 
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06760 




DC 


5,9S999 


08189 




5 








R9999 










06770 




DC 


3.CC1 


08192 




3 








-01 












06780 




DSA 


DUMDIM 


08197 




5 


I 1 










08197 




-8076 




06790 




OC 


I , • 


06198 




1 




06800 




DORG 


08*C0 


08*00 








06810 


• •• 


LINKAGE TO CALL IN PHASE TtaC AND EXECLTE IT 










06820 


EQVLEN 


IFM 


I0RT,**23 


Ofi*0U 


lb 


00565 


-8*23 


06830 







I0GT,SARK,7 


06*12 


*9 


00566 


-8*2* 


068*0 


S ARK 


DSC 


2,-22 


Ob*2* 




2 








2K 












06850 




DSA 


SARL 


0«*3G 




5 


X 1 










08*30 




-8*32 




O6860 




CC 
, 


1,» 


08*31 




1 




06870 


SAKL 


nsc 


1,1 


08*32 




1 




06880 




l 

CC 


5,1817* 


08*37 




5 








J817* 










06890 




DC 


3,C23 


08**0 




3 








-23 












06900 




CSA 


PHASE 2 


C8**5 




5 


X I 










08**5 




-5600 




06910 




DC 


1, • 


08**6 




1 




06920 


• •• 


LINKAGE FOR THROW I NG PHASE! TO 01 SK hHEN LCAOINC PROGRAM 










06930 


COFIN* 


TFM 


IORT,«*23 


08**8 


16 


00545 


-1*71 


069*0 




8 


I0PT,00FIN5»7 


06*60 


*9 


00532 


-9*94 


06950 




TRA 




08*72 


36 


00000 


00500 










08*8* 


49 


00000 


CCOOO 


06960 


CCFIN5 


DSC 


2,22 


08*96 




2 








22 












06970 




CSA 


D0FIN6 


085C2 




5 


X 1 










085C2 




-8504 




06980 




DC 


' 


C85C3 








06990 


0CFIN6 


DSC 
1 


1,1 


085C* 




1 




07000 




OC 


9,18139 


089C9 




5 








J8139 










07010 




OC 


3,038 


0*512 




3 








-38 












07020 




OC 


5,05000 


08917 




5 








-5000 










07030 




DC 
i 


1,* 


08518 




1 




070*0 




TC,0 


ODFIN* 


08**8 









07050 DORG 056C0 I • / i» 05600 
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07060 PHASE? 


TO 


CALC7,DUPCRD*50it READ IN EQV FN TRY OATA 


056CO 


25 


02921 


C93b 7 


07070 




TO 


CALC7-l,DUPCRD*48 


05612 


25 


02920 


09385 


07080 




TO 


CALC7-2,DUPCRD*46 


05624 


25 


C2919 


09383 


07090 




SF 


CALC7-2 


U5636 


32 


02919 


00000 


07 100 




SF 


DUPCR0*45 


05648 


32 


C9382 


00000 


07110 




C 


0UPCRD*50,ZER0ES-4, , HAS THERE A EQV TABLE ENTRY 


0566C 


24 


09387 


05136 


07120 




BNE 


LNGNFF 


05672 


47 


G6tt72 


01200 


7130 




BNF 


OUT SYD » KE Y 5 


05684 


4 4 


06922 


05149 


07140 


T ABA 


TFM 


NEWDIM,2,6, EOV ENTRY 


05696 


16 


C9649 


0-002 


71 50 




DT 


DIMMER, DlMMER-1 


057Cb 


27 


09600 


09599 


71 60 




TF 


C ALC9 t 19BB8 


05720 


?6 


C2B63 


19888 


7170 




BNF 


B8B,KEY5 


05732 


44 


C5804 


05149 


07180 




TFM 


CALC3v04H00 


05744 


It 


C2608 


-4800 


07190 




A 


CALC3,CALC4-1 


05756 


21 


02608 


02866 


07200 




TF 


19685, CALC 3 


05766 


26 


19885 


02608 






CM 


CALC7,000,9 


05780 


14 


02921 


CO-CO 


7220 




BE 


TABB 


U5792 


46 


05816 


01200 


072 30 


88B 


TF 


19888, CALC7, , SE T NE M EQV LENGTH 


05804 


26 


19888 


02921 


07240 


T ABB 


TFM 


IOMT,**23 


05816 


16 


00565 


-5839 






B 


IOPT,DMODA, 7 


05828 


44 


00532 


-2580 


07260 


U ENL I S 


TF 


EL, 19668 


0584C 


26 


C5887 


19888 


7270 




CF 


6L-2 


05852 


33 


05885 


CCCOO 


7 2 80 


ACCUM 


OC 


4,Cf • 


05863 




4 








-000 












7290 




TF 


DL .CALC4- I 


05864 


26 


06715 


02866 


07300 




CF 


OL-2 


05876 


)3 


06713 


COOOO 


07310 




UC 


4,C,» 


05887 




4 








-000 














• SE T 1 


PUlNTER TO END OF CYL 23 










07* %<n 




TF 


L ISTES.END23 


0588b 


26 


09661 


06921 






TFM 


RLGONE* 30, •♦20 


05900 


16 


C9644 


-5420 






B 


FIND 


05912 


44 


C9540 


CCOOO 






DURG 


• -3 


05920 








n-»»7n 




TFM 


L ISTE T, 9200, 8 


05920 


16 


09665 


OR 200 


n7*«n 




BT 


GETR.GE TR-1 


05932 


2 7 


C9520 


09519 




LOOP 1 


CM 


LISTER-3, 7,1011 


05944 


14 


09651 


COO-P 






BE 


•-24 


05956 


46 


05932 


01200 






CM 


L 1 S TER , COO 3 , 8 


0596B 


14 


09654 


0-003 






BNE 


L OUP 2 


05980 


47 


C6024 


01200 






BT 


REMOVE, RE MO VE-1,» REMOVE DIM TABLE ENTRIES 


0599<? 


27 


0956C 


09559 


n Ti!f n 




«T 


INSERT , INSERT- 1 


U60C4 


27 


09560 


09579 


074S0 




B 


LOUPl 


06016 


44 


594 4 


00000 






DORG 


.-3 


0602', 










LOOPZ 


CM 


LISTER, C002, 8 


06024 


14 


C9654 


0-002 


n7AflA 




OE 


L0QP5 


060 36 


46 


06164 


01200 


07490 




CM 


L lSTER-3,9,1011 


0604 8 


14 


09651 


000-R 


07500 




BNE 


L00P4 


06060 


4 7 


06240 


01200 


07510 




CM 


H STER, 9200,8, HAVE ME ERASEC ALL PROGRAMS 


060 7*? 


14 


09654 


0R20O 


07520 




HE 


SE TKEY 


0608* 


4b 


06456 


01200 






BT 


GE TR , GE TR- I 


06096 


27 


09520 


09519 


07540 




CM 


LISTER-3, 7, 1011 


0610b 


14 


C9651 


000-P 


07550 




BNE 


L00P4 


06120 


4 i 


06240 


01200 


07560 




BT 


GE TL ,GE TL- 1 


06132 


2 7 


C9500 


09499 


07570 




BT 


REMOVE, RE MOVE- I 


06144 


21 


09560 


09559 






B 


SETKE Y 




4 9 


06456 


wbUUU 


07590 




OORG 


1341 


06164 
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flflPS 


BT 


GE TL ,GE TL- 1 


06164 


?1 


09500 


09499 


i n 




CM 


LISTER-3, 9, 1011, IS THIS A NININES INDICATOR 


C6U6 


14 


09651 


000-R 


07620 




BNE 


L00P6 


06168 


4 7 


06220 


01200 






BT 


REMOVE ,REMOVE-l 


062 CO 


2 7 


09560 


09559 


n7A4n 




B 


L00P5 


06212 


49 


06,164 


00000 






DORG 


♦-3 


06220 








n7AJin 

t •» 


L00P6 


BT 


GE TR , GE TR- 1 


0622U 


2 7 


04520 


09519 






B 


L00P3 


06232 


44 


05942 


COOOO 


n7**n 




DORG 


• -3 


06240 








2 


L00P4 


TF 


NEWUIM, LISTER 


062 4 


26 


C4649 


09654 


7700 




BT 


DIMMER, DIMMER-l 


06252 


27- 


04600 


09599 






MM 


19883,05, 10, CALCULATE SUE CF ODD NINES ENTRY 


06264 


13 


19883 


000-5 


07720 




TDM 


19883,1,11 


06276 


15 


19883 


COOOJ 


77 30 




BO 


♦♦24,99 


06288 


43 


C6312 


00099 


07740 




TDM 


19883,0,11 


06300 


15 


19883 


0000- 


07750 




TF 


LOOP 7*1 It 19885 


06312 


26 


06347 


19885 


^777n 




CF 


• ♦21 


06324 


33 


C6345 


OCOOO 




* 


US 


»• 


06335 









A77«n 


LOOP 7 


TFM 


LISTE T, 9000, 8 


06 3 36 


16 


09665 


OROOO 


ft77on 




BT 


GETL.GETL-l 


06341! 


2 7 


09500 


09499 


n7»nn 




CM 


LISTER-3,9,1011 


06 360 


14 


C9651 


000-R 


7810 




BNE 


• ♦36 


06372 


47 


06408 


01200 






BT 


REMOVE .REMOVE- 1 , , REMOVE THE NINES RECORD 


06384 


2 7 


09560 


09559 


07ii4n 




B 


•-48 


06 396 


49 


06348 


OCOOO 


078*0 




BT 


GETR,GETR-1 


064C8 


2? 


C9520 


09519 






CM 


LISTET.9000,8 


0642C 


1,4 


09665 


OROOO 


07860 




BE 


• ♦24 


06432 


46 


06456 


01200 


07870 




»T 


INSERT , INSER T- 1 


06444 


27 


09580 


09579 






SF 


KEV1 


06456 


32 


06335 


00000 


A7AQA 


uurnr 


DC 


5,0,* 


06467 




5 








-OCQO 










07900 




TP 


Nta TOTnDL 


06*68 


26 


06467 


06715 


07910 




A 


NtaTOT,EL 


06460 


21 


06467 


05887 


07920 




TFM 


LOOPS ♦ 1 1 , RE TURN, » PREPARE TO REPOSITION THE LISTER THROUGH 


06492 


16 


C5911 


-6512 






B 


LOOPA 


06504 


44 


C5888 


00000 






DORG 


•-3 


06512 








07950 


RETURN 


BT 


GETR.GETR-l 


06512 


27 


09520 


09519 


07980 


t 


CM 


LISTER-3, 7, 1011 


06524 


14 


09651 


000-P 


n?aln 




86 


RETURN 


06536 


46 


06512 


01200 






SP 


LISTER-2 


06548 


32 


09652 


00000 


ATOOA 




A 


ACCOM, LI STER , , ACCUMULATE THE NUMBER OP SECTORS PILLED 


0651)0 


21 


05863 


09654 






CP 


LISTER-2 


06572 


33 


09652 


00000 


08010 




BT 


REMOVE t RE MOVE- I 


0*58* 


27 


09960 


09599 


08020 




BNF 


ELCHEK,KEY1 


0*i96 


44 


06756 


06339 


08030 




TFM 


LISTET,C003,8 


06*06 


16 


09665 


0-003 


08040 




BT 


INSERT, INSERT- 1 


0662C 


27 


09960 


09579 


08090 




SM 


0L,200,9 


066312 


12 


06715 


OOKOO 


080*0 




BM 


RETURN, RETURN TO PILL IN MORE DIM TABLE ENTRIES 


0664)4 


46 


06912 


01100 


08070 




BE 


CLPLAG 


06*96 


46 


06736 


01200 


00080 




A 


EL , DL 


06*68 


21 


09687 


06715 


08090 




TP* 


L I STET, 0002,8 


06*80 


16 


09669 


0-002 


08100 




BT 


INSERT, INSERT- I 


06692 


27 


099B0 


09579 


08110 




CP 


KEY I 


067C4 


33 


06339 


ooooo 


08120 


OL 


OC 


6»0,» 


06715 




4 








-000 












08110 




BMP 


HE TURN, EL 


06716 


44 


06512 


05867 



1142 
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06140 




6 


COMPEL *24 


06728 


44 


06804 


ootoo 


01190 




DORG 


•-3 


06736 








08160 


ClFL AG 


CF 


REV I 


06 736 


33 


06339 


CCOOO 


08170 




8 


RETURN 


06746 


49 


C6912 


00000 


08180 




DORG 


•-3 


06796 








08190 


ElCHEK 


TP* 


LISTET,0002i6t PREPARE TO INSERT THE ECV TABLE ENTRIES 


06796 


16 


09669 


O-oo? 


08200 




BT 


INSERT, INSERT-l 


06768 


27 


09960 


C9979 


08210 


COMPEL 


SM 


EL ,200, 9 


06780 


12 


09867 


C0KO0 


08220 




BH 


RETURN 


06 792 


46 


06912 


01100 


08230 




S 


ACClM,NWTQT 


06604 


22 


09663 


06467 


08240 




8E 


OUTSYO 


06816 


46 


06922 


01200 


08290 




TOM 


ACCOM-3,9,11 


06828 


19 


09660 


OOOOR 


08260 




TF 


L I STE T, ACCUM 


0684C 


26 


09669 


09663 


08270 




OT 


INSERT, INSERT-l 


06692 


27 


09960 


09979 


08280 




8 


OUTSYO 


06864 


49 


06922 


OOOOO 


08290 




DORG 


•-3 


06872 






08300 


LNGNFF 


CM 


CALC7,009,9, DOES THE EQUIVALENCE TABLE MEET MINIMUM STANOA 


06672 


14 


02921 


00-09 


08310 




BNL 


TAB* 


06684 


46 


09696 


01300 


08320 




TPM 


0IMERR«22, 7076,8 


06896 


16 


02679 


0P076 


08330 




6 


ERRO 


06908 


49 


02690 


00000 






OORG 


•-3 


06916 








08390 


EN023 


OC 


6, 104799 


06921 




6 








J04799 










08360 


OUTSYO 


TPM 


IORT,»^23,, BRING IN AND EXECUTE PHASE3 


06922 


16 


00969 


-6949 


06370 




B 


I0GT,TRWAA,7 


06934 


49 


U0966 


-6946 


08360 


TRW AA 


OSC 


2,-22 






2 




08390 




2K 
USA 


TRW8B 


06992 




9 


X 1 










06992 




-6994 




08400 




DC 


i,» 


06993 








06410 


TRWB8 


OSC 


1,1 


06994 




I 




08420 




1 

DC 


9, 17084 


06994 




9 








J7084 










08430 




DC 


3,022 


06962 




3 








-22 












06440 




OSA 


PHASE 3 


06 46 7 




9 


X 1 










06967 




-9200 




08490 




DC 


it' 


0696i> 




1 




08460 


SAftN 


TPM 


IORT,«^23,, TRA-TCO TO THROW PHASE2 TQ OIS* WHILE LQAOING 


069 7 C 


16 


00569 


-6443 


08470 




B 


1QPT,SAR0,7 






009 32 


-7018 


08460 




TRA 




06994 


36 


CGOOO 


00900 










70C6 


44 


ooooo 


OCCOO 


08490 


SARO 


OSC 


2,22 


0701m 




2 




08900 




22 
OSA 


SARP 


7024 




9 


X 1 










7024 




-7C26 




08910 




OC 


1 , • 


07029 




1 




08920 


SARP 


DSC 


1,1 


070*6 




1 








1 


1343 
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06930 




OC 


9, 18174 


G7C31 




9 








J8174 










08940 




OC 


3,023 


70 34 




3 








-23 












08990 




DC 


9,09600 


07C39 




5 








-96C0 










00960 




OC 


I, • 


C7C40 




1 




08970 




TCD 


SARN 


C647C 








08980 




OORG 


0S2C0 


C92C0 








08990 


PHASE 3 


TO 


PA TCH,0UPCRD*98, .LENGTH OF SPL LIST 


C>2C0 


29 


05499 


0934 9 


08600 




TO 


PATCH-1,DUPCRD*96 


09212 


29 


09498 


C9343 


08610 




TO 


PATCH-2,0UPCRD*94 


09224 


29 


09497 


09391 


08620 




SF 


PATCH- 2 


C5?36 


32 


C94>7 


oocoo 


08630 




CM 


PATCH, GC0,4 


l,524tt 


14 


C5499 


CC-00 


08640 




BE 


AC TP 


0526C 


46 


CA2B0 


C12Q0 


08690 




TFM 


LISTES, 


05?72 


16 


09661 


-ccoo 


08660 




TDM 


LISTES-9,1,, 


05284 


15 


C9696 


CC001 


08670 




TFM 


RLGONE*3O,«»20 


09296 


16 


C4644 


-5316 


08680 




B 


FIND,,, BRING IN THE SPL FOR SOME OBSERVATION 


093C8 


44 


09940 


CCCOO 


08690 




DORG 


•-3 


■09316- 








08700 




SP 


0UPCRDO3 


093U 


32 


C4370 


oooco 


08710 




CM 


DUPCRDO4,00,l0 


L932fc 


14 


C9371 


OOO'-O 


08720 




BNE 


■•♦48 


0934C 


47 


09388 


01200 


08730 




TFM 


IORT,»*2 3 


C9352 


lo 


00*69 


-9379 


08740 







I0GT,LDX,7 


C5364 


49 


CC966 


-6924 


08790 




TO 


DUPCRD*34,CS*49 


G5376 


2t> 


04371 


09249 


08760 




TPM 


•♦39,09600,7 


C936C 


16 


05423 


-9800 






AM 


•♦23,04,10 


094C0 


1 1 


0942 3 


0CO"4 


08780 




BNR 


•-12,99999,, FINO THE END OF THE SPL 


09412 


4!> 


09400 


99199 


08790 




AM 


•-1,04,10 


09424 


11 


09423 


0C0-4 


08800 




SM 


•-13,9800,7 


09436 


12 


09423 


-9800 


08810 




CM 


• -27, PATCH 


09448 


14 


05421 


-9499 


08820 


PATCH 


DC 


3,0,» 


09494 




3 




06830 




-00 
BNH 


• ♦32 


0946C 


47 


09492 


01100 


08640 




TPM 


OIMERR^22t7176,6t SPL LIST IS REDEFINED LESS THAN NEEDED 


09472 


16 


C2679 


CP17I 


08890 




ft 


ERRO 


09484 


44 


0269C 


ooooo 


08660 




CORG 


•-3 ' 


09492 








08670 




TP 


C0NST9, PATCH 


09492 


26 


02898 


09499 


06680 




TP 


CALC9, PATCH 


09904 


26 


02863 


09499 


08890 




CM 


PATCH, 60, 9 


09916 


14 


C94S9 


00-80 


08900 




f)NH 


ACTN 


09926 


47 


C9960 


01100 


06910 




TPM 


D1MERR^22,7174,8 


0994C 


16 


02679 


0P174 


08920 




B 


ERKD 


09992 


49 


02690 


CCOOO 


08930 




DORG 


•-3 


09960 








08940 


• •• | 


ROVTINE TO UPOATE THE SPL ENTRY FOR ITSELF 










08990 


ACTN 


TFM 


LISTES, 19601 


09960 


16 


09661 


J9601 


06960 




TDM 


LISTES-9,1, U 


09572 


19 


09696 


OCOQJ 


08970 




TOM 


OUPCROO*.,!!, FLAG ZERO 


09984 


19 


09370 


0000- 


06960 




TP 


CURRfN-l«0UPCROO4 


09996 


26 


09144 


09371 


06990 




TPM 


NE W0IM,C004,6 


096C8 


16 


09649 


0-004 


Q9000 




BT 


DIMMER, DIMMER-l 


0*620 


27 


C9600 


09999 


09010 




C 


CQNST9» 19686 


09632 


24 


02891 


19688 


09020 




BE 


AC TP 


09644 


46 


06260 


C1200 



1944 
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09030 


ACTT 


TF 


C0NST6, 19888 


05656 


26 


02904 


19888 


09040 




TF 


19688. CALC9 


05660 


26 


19688 


02863 


09050 




TFM 


IORT,»*23 


05680 


16 


00565 


-5703 


09060 




B 


I0PT,DMD0A,7, CORRECT SPL ENTRY CN DISK 


05692 


49 


00532 


-2580 


09070 




TF 


C0NST5.CALC9 


05704 


26 


C2898 


02863 


09080 




TFM 


G0UNY*6,»+20 


5116 


16 


09644 


-5 736 


09090 




B 


F IND 


0572B 


4V 


09540 


00000 


09100 




DORG 


• -3 


05736 








091 10 




8T 


GETR.GETR-l 


057 16 


2 7 


09520 


09519 


09120 




c 


C0NST5.C0NST6, , IS THE NEto LIST LONGER OR SHORTER 


05748 


24 


C2898 


02904 


09130 




BL 


AC TO 


G576C 


47 


05864 


01300 


09140 




S 


C0NST5.C0NST6 


05772 


22 


02898 


02904 


09150 




s 


L ISTER.C0NST5 


05784 


22 


09654 


02698 


09160 




TF 


L I STE T,LI STER 


U5796 


26 


09665 


09654 


09170 




BT 


REMOVE, REMUVE-l 


05800 


27 


09560 


09559 


09180 




CM 


L I STE T ,9000,8 


05820 


14 


09665 


OROOO 


09190 




BE 


• ♦24 


05B32 


46 


05856 


01200 


09200 




BT 


INSERT, INSERT-1,, PLACE THE CORRECT BLANK SECTOR IN THE LIS 


05844 


27 


09580 


09579 


09210 




B 


M00S2 


05856 


49 


06004 


00000 


09220 




DORG 


• -3 


05664 








09230 


ACTQ 


S 


C0NST6.C0NST5 


05864 


22 


02904 


02898 


09240 




CM 


LISTER-3,7, 10 1 i 


05876 


14 


09651 


000-P 


09250 




BNH 


AC TR 


05868 


47 


05956 


01100 


09260 




TF 


•♦35»CQNST6 


05900 


26 


05935 


02904 


09270 




CF 


•♦21 


05912 


33 


05933 


00000 


09280 




TFM 


L I STE T, 9000, 8 


05924 


16 


09665 


OROOO 


09290 




BT 


INSERT , INSERT- I 


05936 


27 


09580 


09579 


09300 




B 


MOOS 2 


05948 


49 


06004 


COOOO 


09310 




OORG 


• -3 


05956 








09320 


ACTR 


A 


L I STER , CQNST6 1 , INCREASE THE BLANK SECTOR COUNT 


05956 


21 


09654 


02904 


09330 




TF 


L I STE T, I I STER 


0596b 


26 


09665 


09654 


09340 




BT 


REMOVE iREMOVE-1 


05980 


27 


09560 


09559 


09350 




BT 


INSERT, INSERT-l 


05992 


27 


09580 


09579 


09360 


M00S2 


CM 


CURREN-1,01,10 


06004 


14 


05144 


COO- I 


09370 




BE 


ACTP 


06016 


46 


06280 


01200 


09360 




CM 


CURREN- 1, 02 , 10 


06028 


14 


05144 


000-2 


09390 




BE 


ACT2 


06040 


46 


06212 


01200 


09400 




CM 


CURREN-1,03.10 


06052 


14 


05144 


000-3 


09410 




BE 


AC T 3 


06064 


46 


06144 


01200 


09420 




TFM 


NEWDIM,0007,8, SET UP ON MODULE THREE 


06076 


16 


C9649 


0-007 


09430 




BT 


tMMER , 1 MMER- 1 


06088 


27 


09600 


09599 


09440 




TF 


LISTESil9885 


06100 


26 


09661 


19885 


09450 




TD 


L I STE S-5, 19880 


061 12 


25 


09656 


19880 


09460 




TDM 


CURREN-1,3, , 


06124 


15 


05144 


00003 


09470 




B 


ACTT 


06136 


49 


05656 


00000 


09480 




OORG 


•-3 


06144 








09490 


ACT3 


TFM 


NEhOIM, 0006,8 


06144 


16 


09649 


0-006 


09500 




BT 


DIMMER, DIMMER- I 


06156 


27 


09600 


09599 


09510 




TF 


L I STE S, 19885 , , FIND ENO OF OLD LISTS 


06 166 


26 


0966 1 


1988 5 


09520 




TO 


LISTES-5»19880 


06180 


25 


09656 


19880 


09530 




TOM 


CURREN-1,2,, 


06192 


15 


05144 


00002 


09540 




B 


AC T T 


06204 


49 


05656 


00000 


09550 




OORG 


• -3 


06212 








09560 


ACT2 


TFM 


NEWDIM,0005i8 


06212 


16 


C9649 


0-005 


09570 




BT 


DIMMER, DIMMER- I 


06224 


27 


09600 


09599 


09580 




TF 


LISTES, 19885 


06236 


26 


09661 


19885 








1 3 45 
















1620-1443 MONITOR I VERSION 2 OUP OFINE 
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09590 




TD 


L I STE S-5, 19880 


06248 


25 


09656 


19880 


09600 




TDM 


CURREN-1,1,, 


06260 


15 


05144 


00001 


09610 




B 


ACTT 


06272 


49 


05656 


OOOGO 


09620 




DORG 


•-3 


06280 








09630 


ACTP 


TFM 


IORT,»*23,, BRING IN THE COMMUNICATION SECTOR 


06280 


16 


00565 


-6303 


09640 




B 


I0GT,LDX,7 


06292 


49 


00566 


-6924 


09650 


• •• 


ROUTINE FOR TRANSFER! NG THE CONTROL CHARACTERS IF PRESENT 










09660 


• •• 


TO THE COMMUNICATION SECTOR AND SETTING FLAGS IF NECESSARY 










09670 




SF 


DUPCRD+71 


06304 


32 


09408 


00000 


09680 




CM 


DUPCRD*74«0O0OtBt 


06316 


14 


09411 


0-000 


09690 




BE 


• ♦48 


06328 


46 


06376 


01200 


09700 




TD 


CS*40,DUPCRD*72 


06340 


25 


05240 


09409 


09710 




TD 


CS+41.DUPCR0+74 


06352 


25 


05241 


C9411 


09720 




SF 


CS + 40 


06 364 


32 


05240 


00000 


09721 




SF 


DUPCRD^77 


06376 


32 


09414 


00000 


09722 




CM 


DUPC*D+80tOOOO»6 


06388 


14 


09417 


0-000 


09723 




BE 


• ♦48 


06400 


46 


06448 


01200 


09724 




TO 


CS*42,DUPCRD+78 


06412 


25 


05242 


09415 


09725 




TD 


CS*43tDUPCRD*80 


06424 


25 


05243 


09417 


09726 




SF 


CS^42 


06436 


32 


05242 


00000 


69730 




SF 


0UPCRD+83 


06448 


32 


09420 


COOOO 


09740 




CM 


0UPCRD+84.00,10 


06460 


14 


09421 


000-0 


09750 




BE 


• ♦24 


06472 


46 


06496 


01200 


09760 




TD 


CS*44 ( DUPCR0*S4 


06484 


25 


05244 


09421 


09770 




SF 


DUPCftD*87 


06496 


32 


09424 


00000 


09780 




CM 


OUPCRD*90,Q000 ( 8 


06508 


14 


09427 


0-000 


09790 




BE 


• ♦48 


06520 


46 


06568 


01200 


09800 




TD 


CS*45fDUPCRD*88 


06532 


25 


05245 


09425 


09810 




TD 


CS^46tDUPCR0*90 


06544 


25 


05246 


09427 


09820 




SF 


CS^45 


06556 


32 


05245 


00000 


09830 




SF 


DUPCRD*93 


06568 


32 


09430 


00000 


09840 




CM 


DUPCRO*96»0000»8 


06580 


14 


09433 


0-000 


09850 




BE 


• ♦48 


06592 


46 


06640 


01200 


09860 




TO 


CS*47.DUPCR0^94 


06604 


25 


05247 


09431 


09870 




TO 


CS^4t,0UPCIlD>96 


06616 


25 


05248 


09433 


09880 




SF 


CS*47 


06628 


32 


05247 


00000 


09890 




> SF 


0UPC0DO3 


06640 


32 


09370 


00000 


09900 




CM 


0UPCADO4,00.10 


06652 


14 


09371 


000-0 


09910 




BE 


• ♦24 


06664 


46 


06666 


01200 


09920 




TD 


CS*49,DUPCR0*34 


06676 


25 


01249 


09371 


09930 




SF 


OUP CRD* 99 


06666 


32 


09436 


OOOCO 


09940 




CM 


OUPCRD+100,00,10 


067C0 


14 


09437 


000-0 


09950 




8E 


• ♦24 


06712 


46 


06736 


01200 


09960 




TD 


CS*7SiDUFXRD*100 


06724 


25 


05273 


09437 


09970 




SF 


DUPCR0*10J 


067S6 


12 


09440 


00000 


09980 




CM 


OUPCRO* 104,00, 10 


06740 


14 


09441 


000*0 


09990 




BE 


• ♦1* 


06T60 


44 


04796 


01200 


10000 




TO 


CS*76,0UPC*0*104 


06772 


25 


01274 


09441 


10010 




SF 


C$^76 


06704 


12 


01274 


00000 


1007C 




SF 




0670* 


12 


09440 


00000 


10080 




CM 


OUPCRO+lll.OOtlO 


06000 


14 


00449 


000-0 


10090 




Of 


• ♦24 


04020 


44 


04044 


01200 


10100 




TO 


CS*I1 V DU»CR0+U2 


06012 


21 


01203 


09449 


10101 




SF 


OUPCRDMll 


04644 


12 


09412 


00000 


10102 




CM 


0UPCAD*116»,10 


00014 


14 


00411 


000-0 


10101 




if 


#♦24 


04040 


44 


04092 


01200 



II4« 
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PAGE 


10104 




TO 


CS*65,0UPCRD*116 










06880 


25 


05265 


09491 


101 10 




TFM 


I0RT,»*21 












06892 


16 


00969 


-691 9 


10120 




a 


lOPT.LDX.T,, 


PI. ACE 


THE COMMUNICATION SECTOR 


BACK ON CISK 


06904 


49 


00532 


-6924 


ioiiq 




b 


MONITR 










06916 




06948 


ooooo 


10140 




□ORG 














06924 








10150 


L OX 


DSC 


2,22,, OOA FOR THE 


COMMUNICATION 


SECTOR 






06924 




2 




10160 




22 
OSA 


FIELDX 












06930 




5 


X 1 




















06930 




-6932 




10170 




OC 


It • 












06931 




1 




10 110 


cs 


DSS 


ICO, 05200 












0*1 ?'. > 




100 




10190 


F 1 £ L OX 


DSC 




ltO 












' '32 




1 




10200 




OC 


5t 19663 












06917 




5 








J9663 




















10210 




DC 


3,001 












0694C 




3 




10220 




-01 
OSA 


CS 












06945 




5 


X 1 
























-5200 








DC 


It • 






















• •• ROUTINE FOR MR I T I Nfi 


BACK 


THE SPL TO THE 


PRCPER 


PACK 


BEFORE 














EXITING TO MONITOR 




















10260 


MOMTR 


CM 


PACK, 00, 1011, 


PACK 


2ERC 








06941* 




02856 


000-- 


10270 




BE 


RITSPO 












06960 


46 


7052 


1200 


10280 




CM 


PACK, 01, 1011, 


PACK ONE 








06972 


14 


02856 


000- J 


> 




BE 


RITSPi 












niaol! 




rtl**4 


fin m 


10300 




CM 


PACK, 02, 1011, 


PACK 


TWO 










14 




^, 


10310 




BE 


RITSP2 












n7nr_ 


4p 


07116 


01200 






CM 


PACK, 03, 1011 














it 


>tf-_ 




10930 




BE 


RITSP3 














46 


C 7 146 


1 200 






B 


WHVNOT 














49 


07172 


<>/IAAf> 

uUWUv 






OORG 


•-3 












(\irX-j 










RITSPO 


TFM 


IORT,»*23 












n u Hi 


1 4 


r _ _ 


_____ 






B 


IOPT.PK0D0A.7 














4U 




-2734 


10 380 




B 


MHVNOT 












n7n 74 


44 


07172 


vCQOO 


i n_!nn 




DORG 


•-3 






















RITSPl 


TFM 


IORT,»*23 












n7n__ 








10410 




B 


IOPT.PKIOOA, 7 












rt 71 ftli 


4U 




-2757 


10420 




B 


MHYNOT 
















071 72 


ucouu 


i niin 




DORG 


•-3 












r 7 i i _ 










RITSP2 


TFM 


IORT,»*23 












n 7 1 i * 






71 39 


i nl*n 




_ 


I0PT.PK2D0A, 7 














4U 


00532 


- 2 780 






B 


WHYNOT 












01140 


4<J 


C7 1 72 


ccooo 






OORG 


•- 3 












G7 14U 








i n4*n 


RITSP3 


TFM 


I0RT,**23 












07 146 




_ _ 


7171 









IOPT,PK3DOA,7 














4* 


00532 


tan _ 
- 2803 


10500 


WHYNOT 


TOM 


475,3 












G 7 1 72 


1 5 






10510 




B 


796 1 1 f MONCAL. 












071 84 


49 


OC 796 


VVVUV 


10520 




OORG 


•-3 












07192 








10530 


C0F1N1 


TFM 


IORT,»*23,, 


LINKAGE FOR THROWING 


PHASES 


TO 


ISK 


07192 


16 


00565 


-7215 


10540 







I0PT.0DFIN2.7 












072C4 


49 


00532 


-7240 


10550 




TRA 














07216 


36 


00000 


OC500 



13 4? 
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07228 


49 OCCOO 


10560 


D0FIN2 


DSC 


2. 


.22 


G7240 


2 






22 










10570 




DSA 


D0FIN3 


C 7246 


5 












G7246 


-7248 


10580 




DC 


li 




C724 7 


1 


10590 


D0FIN3 


DSC 


1< 


>l 


07246 


I 


10600 




I 

DC 


5, 


i 17084 


725 3 


5 






J7084 








10610 




DC 


3. 


.022 


07256 


3 






-22 










10620 




DC 


5, 


.C52C0 


7261 


5 






-5200 








10630 




DC 


It 




726. 


1 


10640 




TCD 


DDF IN 1 


07192 





10650 
10660 



• •• 
••• 



SECONDARY LINKAGE FOR THE F I ND«G. Tl ,GE TR , REMOVE , INSERT 
PROGRAMS TO SEE IF THE ROUTINES ARE PRESENTLY IN CORE 



10670 




DORG 


95CC 


095C0 








10680 


GETL 


TFM 


CHEX*6,GETLTR 


0950C 


16 


09722 


-30 30 


10690 




B 


INCORE 


09512 


44 


C9668 


ccooo 


10700 




DORG 


•-3 


0952C 








10710 


GETR 


TFM 


CHE X*6»GE TRTR 


09520 


16 


09722 


-2956 


10720 




B 


INCORE 


0*532 


49 


09668 


coooo 


10730 




CORG 


•-3 


C954C 








10740 


FINC 


TFM 


CHEX*6,FIN0TR 


09540 


16 


09722 


-3440 


10750 




a 


INCORE 


09552 


49 


C9668 


cccoo 


10760 




OORG 


•-3 


09560 








10770 


REMOVE 


TFM 


CHE X+6»REM0TR 


09560 


16 


09722 


-3104 


10780 


3 


INCORE 


095 72 


49 


G9668 


coooo 


10790 




DORG 


•-3 


09580 








10800 


INSERT 


TFM 


CH6X*6,INSETR 


C9580 


16 


C9722 


-3190 


10810 




B 


INCORE 


09592 


49 


09668 


CCCOO 


10820 




DORG 


•-3 


096C0 








10830 


DIMMER 


TFM 


CHE X*6»DI MMTR 


C9600 


16 


09722 


-2458 


10840 




B 


INCORE 


09612 


49 


09668 


OOOOO 


10850 




OORG 


•-3 


09620 








10860 


MOVES A 


DC 


6,0,, FOR SECTOR AOORESS 


C9625 




6 








-OOCOO 










10870 


MOVESC 


OC 


3,0,, FOR SECTOR COUNT 


C9626 




1 








-00 












10880 


EX1TMR 


B 


99999 


09630 


49 


99999 


ooooo 


10890 




DORG 


•-3 


09638 








10900 


GOONY 


B 


999*9 


C9638 


49 


99999 


ooooo 


10910 




OORG 


•-3 


C9646 








10920 


NEMDIM 


DC 


4,0 


09649 




4 








-000 












10930 




DC 


1,0,, FOR COMPARING AT LI STER-3 


C9650 




1 




10940 


LISTER 


DC 


4,0 


09654 




4 








-000 












10950 




OC 


1,0, , TO SET-UP LISTES OVERRIDE CODE 


C9655 




1 
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10960 LISTES OC 6.0 

-00000 

10970 L1STET OC 4,0 

-000 

10980 LAYSPL DC 1,0 

10990 INCOAE BNF CHEX, LAYSPL, 

11000 TFM I0RT,«*23 

11010 B 10GT,SPL1,7 

11020 CF LAYSPL 

11030 CHEX B 99999 

11040 DORG »-3 

11050 RLGONE OS ,G00NY-24 

110*0 SPL1 DSC 2,22,, ODA FOR BRINGING IN THE SACRED SIX 
22 

11070 OSA SPL2 



IS THE ROUTINE ALREADY IN CORE 



11080 

11090 SPL2 
11100 
11110 
11120 



OC 



1. • 

1*1 

5,19338 



DSC 
1 

DC 

J9338 

DC 3.029 
-25 

OC 6,02458' 
-2458' 

11130 GREAT 1 TFM I0RT*»*23,, 
11140 B 
11150 TRA 



I0PT.GREAT2,? 



TRA-TCD FOR THROWING THE SECQNCARV LINKAGE TO 



111*0 GREAT2 DSC 
22 

11170 DSA 



11190 GREAT 3 OSC 
I 

11200 



11210 
11220 
11230 



2,22 
GREAT3 

1, ' 
1, 1 

5, 18197 



DC 
JS197 

OC 3.CC3 
-03 

DC 6,09500* 

-9500* 

TCO GREAT I 



09665 

C9666 

09668 
09680 
09692 
09704 
09716 
09724 
C9614 
09724 

09730 

C9730 
09731 

09732 

09737 

C9740 

09746 

09748 
09760 
09772 
09784 
09796 

09802 

09802 
09803 

09804 

09809 

09812 

09818 

09748 



1 

09716 
00565 
00566 
09666 
99999 


2 



-9732 
1 

I 

5 

3 



16 00565 
49 00532 
36 COOOO 
49 COCOO 
2 



09666 
-9703 
-9724 

00000 
00000 



-9771 
-9796 
00500 
OCOOO 



-9804 
1 



11240 



oooco 



1349 



1620-1443 MONITOR I VERSION 2 OUP 0FINE 



AD0BLK 


03912 


GETRTR 


02956 


RE0SP3 


04*24 


GETL 


09500 


SPL2 


09732 


AORSPL 


02840 


GRE ATI 


09748 


REDSPL 


04220 


6ETR 


09520 


SPLFL 


04800 


BAVAIL 


02830 


GREAT2 


09796 


REMOTR 


03104 


600NV 


09638 


SPLRl 


04848 


CLEVER 


02827 


GREATS 


09804 


REMOVE 


099*0 


HERO 


07920 


SPLR2 


048*3 


CLFLAG 


0673* 


INCORE 


09**8 


REPACK 


02892 


HEX 


028*8 


SPORT 


04480 


COMMON 


0292* 


INSERT 


09980 


RETURN 


0*912 


IOGT 


0C9** 


STEAL 


02918 


COMPEL 


06780 


INSETR 


03190 


RITSPO 


07092 


IOPT 


0C532 


TABA 


05*96 


CONST 1 


02874 


JANITO 


07*76 


RITSP1 


07084 


IORT 


005*5 


TABB 


05816 


C0NST2 


02880 


LAVSPL 


096*6 


RITSP2 


0711* 


KEY! 


06335 


TABC 


05064 


CON ST 3 


05130 


LENLIS 


09840 


RITSP3 


07148 


KEV5 


05149 


TIPSY 


03226 


C0NST5 


02898 


LENSCT 


05490 


RLGONE 


09*14 


LDX 


0*924 


TRWAA 


06946 


CONST* 


02904 


LISTER 


09654 


ROMENF 


09718 


LIMIT 


05148 


TR MB 8 


06954 


CONST? 


02910 


LISTES 


09**1 


AAA 


0***0 


L00P1 


05944 


SANOOR 


05402 


C0NST8 


02934 


LISTET 


09**5 


ACCUM 


098*3 


L00P2 


06024 


SCRASN 


05762 


CONTIN 


0723* 


LNGNPF 


06872 


ACT2 


0*212 


LOOP) 


05992 


SETKEV 


04456 


CORSIZ 


0262? 


LOUNGE 


0*214 


ACT 3 


0*144 


L00P4 


06240 


SLDEQV 


05087 


CURREN 


05145 


MELANC 


07792 


ACTN 


059*0 


LOOP 9 


06164 


SLEEPY 


06074 


DDF INI 


07192 


MONITR 


06948 


ACTP 


0*280 


LOOP* 


06220 


SLIPRY 


05056 


DDFIN2 


07240 


MOVESA 


09*25 


ACTQ 


09844 


LOOP? 


06336 


SPLCOR 


02850 


0DFIN3 


07248 


MOVESC 


09*28 


ACTR 


05*5* 


LOOPA 


05888 


SPLCYL 


0264b 


D0FIN4 


08448 


N4S000 


02*24 


ACTT 


05*5* 


LOOPB 


05900 


SPLEXT 


C3484 


DDF IN5 


0849* 


NEWDIM 


09*49 


888 


05804 


LUCKY 


06154 


SPL1NI 


04116 


DDFIN6 


08504 


NEWTOT 


0**49 


CALC2 


02*1) 


M00S2 


06004 


SPLIST 


03956 


DIM ERR 


02*53 


NOMMON 


02928 


CALC3 


02*08 


NERR 


G3354 


SPLPKO 


02742 


DIMMER 


09*00 


NOSECA 


02929 


CALC4 


028*7 


WW TOT 


06467 


SPLPKl 


02 765 


0IMMTR 


02498 


NUMMOD 


0*422 


CALC7 


02921 


0D1M 


06*5* 


SPLPK2 


02788 


OMR E AO 


02588 


NURSES 


07086 


CALC9 


028*) 


OEQV 


0*659 


SPLPK3 


02811 


DRESTR 


02618 


OLDTOT 


0**93 


CHEX 


0971* 


PACK 


02896 


STAROT 


04164 


DUMOIM 


080?* 


OUTSYD 


0*922 


CLUCK 


04128 


PATCH 


05459 


THROOA 


02628 


DUPCRD 


09337 


PHASE2 


09*00 


CS 


05200 


OHOLD 


02892 


THROWS 


02636 


ELCHEK 


0*79* 


PHASE3 


09200 


DFINE 


05174 


SARB 


09150 


TLOEQV 


05110 


EQVLEN 


08400 


PKOOOA 


027)4 


DL 


0*715 


SARC 


05158 


TRWSLD 


05079 


ERR0R1 


09*98 


PKIODA 


0275? 


OMOOA 


02580 


SARF 


0017* 


TRWTLO 


05102 


ERRORS 


0721* 


PK2D0A 


02780 


OOC 


05*58 


SARH 


08184 


TRVAGN 


03604 


ERRRIT 


029)* 


PK3D0A 


02803 


EL 


05887 


SARI 


0799* 


UNPACK 


02854 


EX ITMR 


09*30 


PKROON 


05606 


END23 


0**21 


SARJ 


07100 


WHVNOT 


07172 


FAKSEV 


02929 


PLUSSR 


0)8*8 


ENUFF 


0*02* 


SARK 


08424 


WRTSPO 


04360 


FIELD* 


0*9)2 


QCARRY 


0288* 


ERR23 


0*282 


SARL 


08432 


WRTSP1 


04392 


FIN0TR 


03440 


RACKET 


02914 


ER80 


02*90 


SARN 


06970 


MRTSP2 


04424 


FIXEQV 


05878 


REDSPO 


04**8 


ESOR 


0*5)0 


SARO 


07018 


WRTSP3 


04456 


FIXSUP 


06302 


REDSP1 


04712 


FIND 


09540 


SARP 


0702* 


ZEROES 


05140 


GETLTR 


03030 


RIDSP2 


0475* 


FOUND 


028)5 


SPL1 


09724 







ENO OF ONE ASSEMBLY • 
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OOOIO* THIS PROG* AM Mill LOAO WON I TO* ! SYSTEM TO Ol$K 

00020* FORMAT FOR CNTR CD IS *LDCNTR NAM! PR SSSSSS EEEEEE MM MMS 



00030 


DORG 


7404 


07404 








000*0 STAR 


TR 


397 2 t MAM- 1 


07404 


31 


03972 


08666 


00050 


RACO 




07416 


37 


03973 


00500 


00060 


TFM 


TDI*6 , 4000 


07428 


16 


07526 


-4000 


00070 


TFM 


TDU11,400 3 


07440 


16 


07531 


-4003 


00010 


SF 


3972 


07452 


32 


03972 


00000 


00090 


SF 


3988 


07464 


32 


03988 


00000 


00100 


BNR 


*«20,396 3 


07476 


45 


07496 


03961 


00110 


87 


ERMI 


07481 


4'9 


08042 


ooooo 


00120 


C 


3963,L0CTR*12 


07496 


24 


0)985 


08041 


00130 


BNE 


ERHI 


07508 


47 


08042 


01200 


00140 TO 1 


TO 


4000,4003,27 


07520 


25 


-4000 


-4003 


00190 


AM 


T01*4»l 


07532 


11 


07526 


-0001 


00160 


AM 


T01 1 » 2 


07J44 


11 


07531 


-0002 


00170 


CM 


T0I*6»4067 


07556 


14 


07526 


-4067 


00160 


BNE 


TOI,»» CONVERT CMTRL CD TO NUMERIC 


07568 


47 


07520 


01200 


00190 SF1 


SF 


4001,*, SET FIELD FLAG ON SECTOR A DOR 


07580 


32 


04001 


OOOOO 


00200 


SF 


4006*** AND OM SECTOR COUNT 


07592 


32 


04008 


OOOOO 


00210 TEMFSC 


OS 


♦ SFH11 


07591 


00000 




00220 


SF 


4014 


07604 


32 


04014 


OOOOO 


00230 


s 


40 12*400 5 


07616 


22 


04012 


04005 


00240 


61 


ERM I 


07628 


47 


08042 


01300 


00250 


TOM 


4006*0 tt PLACE REC MK FOR TR 


07640 


15 


04006 


OOOOO 


00260 


OC 


i,a,» 


07651 


00001 




00270 


TR 


DSKQUT* 4000 


07652 


31 


09026 


04000 


00280 


AM 


4012» 1 


07664 


11 


04012 


-0001 


00290 


TF 


T0TSEG.4012, t SAVE TOTAL SECTOR COUNT 


07676 


26 


08511 


04012 


00300 


TFM 


TEMPSCtO 


07688 


16 


07591 


-0000 


00310 


SF 


4060 


07700 


32 


04060 


OOOOO 


00i20 


TF 


CM*11,4064 


07712 


26 


07879 


04064 


OUiiO 


TF 


CM** ,40 16 


07724 


26 


07877 


04016 


0U340 


J.M 


CM* i 1,1 


07736 


11 


07679 


-0001 


00350 IMITZ 


TFM 


DSKOUT*8,0,9, MAKE SECTOR CMT ZERO 


07748 


16 


09036 


00-00 


00360 


TFM 


OSKO»JT*13,5000 


07760 


16 


09041 


-5000 


00370 


TO 


NOP*!,!,, MAKE ML RC SW INTO NOP 


07772 


25 


09287 


00001 


00380* 














00390* 


READ INPUT FOR DISK LOAD 










00400* 














00410 COIN! 


TFM 


RC*6,5000 


07784 


16 


07814 


-5000 


00420 


TFM 


CH*6,5079 


07796 


14 


07674 


-5079 


00430 RC 


RNCO 


5000 », 2. RNPT IF PAPER TAPE INPUT *•*•«» 


07808 


36 


-5000 


00500 


00440 


8! 


HALTROt0600 


07820 


46 


07996 


00600 


00450 


TF 


8F«-11,CM*6,, NOP IF P. T. 


07832 


26 


07867 


07874 


00460 


SM 


Bf 4 11*4* , NOP IF P. T. 


07844 


12 


07867 


-0004 


00470 8F 


BNF 


C01, 0,. NOP IF PAPER TP *♦•••• 


07856 


44 


08466 


OOOOO 


00480 CM 


CM 


5079,1,27, COMPARE CD SEO NOP IF TP***»* 


07661 


14 


-5079 


-0001 


00490 


BNE 


ERSEQ-12,,, NOP IF TP***»* 


07880 


47 


08250 


01200 


00500 


AM 


CM* 11,1 


07892 


11 


07879 


-0001 


00510 


BO 


RDTRL,ERSEQ*10,, BR TO READ TRAILER 


07904 


43 


06488 


08272 


00520 


CM 


RC*6,5000,,CK FOR FIRST CD OF SET 


07916 


14 


07814 


-5000 


00530 


BE 


AOJUST 


07928 


46 


08158 


01200 
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00540 


CM 


RC*6,50 7S,,2ND CD U 


07940 


14 


07814 


-5075 


00550 


BE 


AOJUST 


07952 


46 


08158 


01200 


00560 


CM 


RC*6,5150,,3RD CD CK 


07964 


14 


07814 


-5150 


00570 


BE 


ADJUST 


07976 


46 


08158 


01200 


00580 


B7 


MRDSK, , , 4TM CD MAS READ, WRITE 3 SECTORS 


07968 


49 


09042 


OOOOO 


00590* 














00600 HALTRO 


MATY 


♦♦15 


07996 


39 


06011 


00100 


00610 


OAC 


6 ,MRDERi 


06009 


00012 




00620 


B7 


RC 


08020 


49 


07806 


OOOOO 


00630* 














00640 LDCTR 


DAC 


7,*LDCMTR 


08029 


00014 




00650 ERM J 


RCTY 




08042 


34 


OOOOO 


00102 


00660 


MATT 


ERHIGH 


06054 


39 


06067 


00100 


00670 


M 




08066 


46 


OOOOO 


OOOOO 


00660 


B7 


STAR 


08078 


49 


07404 


OOOOO 


00690 ERHIGH 


OAC 


36, CONTROL STATEMENT INVALID* RE-EMTER8 


06087 


00072 




00700 ADJUST 


AM 


DSK0UT*6*l*9, INCREMENTSECTOR COUNT 


08158 


11 


09034 


00-01 


00710 


AM 


RC+6,7S*» INCREMENT READ-IN PO INTER 


08170 


11 


07814 


-0075 


00720 


AM 


CM+6,75»* INCREMENT SEO NUM AOORESS 


08182 


11 


07674 


-0075 


00730 


AM 


TEMPSC1,, ADD TO COUNT OF SECTORS USED 


08194 


11 


07391 


-0001 


00740 


C 


TOTSECTEMPSC, ALL SECTORS PREPAREO FOR LOAO 


08206 


24 


06511 


07591 


00750 


BNE 


RC**, REAO ANOTHER RECORD 


06218 


47 


07808 


01200 


00760 


TOM 


ERSEQ+10,1,* SET TERMINAL INDICATOR 


06230 


15 


06272 


00001 


00770 


B7 


RC 


08242 


49 


07606 


ooooo 


00780* 














00790* 


SEQUENCE ERROR ROUTINE 










00600* 














00610 


TFM 


SAVMS1*18*RC 


08250 


16 


06352 


-7608 


00620 ERSEQ 


RCTY 




08262 


34 


OOOOO 


00102 


00830 


BD 


TRSEQ , ERSEQ* 10 


08 274 


43 


06)54 


08272 


00840 


TF 


M0UT+4,CM*6,11, TRANSFER WRONG SEQ NO. FOR PRINTING 


08286 


26 


06464 


0767M 


00850 


MNTY 


WOUT 


08 298 


38 


06460 


00100 


00660 


MATY 


ERR 


08310 


39 


08391 


00100 


00870 


BI 


•♦12,0700 


08322 


46 


06)34 


00700 


00680 SAVMSl 


M 


06334 


48 


OOOOO 


OOOOO 


00690 


87 


RC 


06346 


49 


07606 


OOOOO 


00900 TR SEO 


MATY 


TC 


08354 


39 


06175 


00100 


00910 


B7 


SAVMS1-12 


06366 


49 


06)22 


ooooo 


00920 TC 


DAC 


6, TRAILER » 


08375 


00016 




00930 ERR 


OAC 


35* CARD SEQ ERROR, CORRECT A NO STARTS 


06391 


00070 




00940 WOUT 


DSC 


6,000009 


08460 


00006 




00950* 














00960* 














00970* 


TRAILER CARO EARLY DETECTION ROUTINE 










00960* 














00990 CD1 


TFM 


CM+6,0,67* SPECIAL SEQ MUM IF NOM-SEQ AMO MOT TRAILER 


08466 


16 


0767M 


-0000 


01000 


87 


CM 


06476 


49 


07866 


OOOOO 


01010* 














01020* 














01030 SKADR 


DC 


3,999 


08467 


00003 





01040* 
01090* 
01060* 



LAST CO REAO AMO CK 



1352 
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RNCD 


5311,,, READ TRAILER RNPT IF PAPER 


T APE * 


•**•• 


08488 


36 


05311 


00500 


lOoU I UT Set 


OS 


♦ RDTR L*2 3 






na lenn 


00000 




1090 


SF 


5311 






, , 


32 


05311 


u U w UU 


1 100 


TFM 


SAVNS 1 ♦ 18 t RDTR L 






OB 5 1 2 


16 


08352 




01110 


C 


5390,CN*11,, NOP IF P. T. *•••• 






OS 524 


24 


05390 


ni fnn 


01120 


8NE 


ERSEQ,,, NOP IF P. T. ••••• 








47 


08262 


nil il 


1 1 30 


80 


•♦60.5318 








43 


06606 




1 1 40 


80 


•♦48,5)17 






a k n 


43 


06606 


n\\ 1 1 


01150 


6NR 


•♦34,5316 






08 5 72 


45 


06608 




01160 


CN 


5315,99999 






08584 


14 


05315 




01170 


8E 


WROSK,,, 8R IF TRAILER OK 






06 596 


46 


09042 


1 200 


01H0* 


ERROR NO TRAILER REC 














1 190* 


















01200 ERTR 


RCTY 








08608 


34 


00000 


001 02 


012 10 


MATY 


NOTRL 






08620 


.39 


06713 


00100 


1220 


RCTY 








06632 


34 


00000 


00102 


1230 


MATY 


N0TRL2 






08644 


39 


06807 


00100 


012*0 


RCTY 








08656 


34 


00000 


00102 


01250 


81 


•♦12,0700 






08666 


46 


06660 


00700 


01260 


TON 


ERSEQMO.O 






06660 


15 


06272 


00000 


01270 


M 








08692 


46 


00000 


00000 


01210 


87 


ERTR 






08 704 


49 


08606 


00000 


01290 NOTRL 


OAC 


47, NO TRAILER REC • CORRECT, RE-LOAD COMPLETE 


OECKa 


06713 


00094 




01300 WOT III 2 


DAC 


30, WITH CNTR REC* AND 8R TO 74048 






08607 


00060 




01310* 


















01320 NAM 


DAC 


50, 




* 


06867 


00100 




01330 


OAC 


31, a 






06967 


000*2 




01340 DSC OUT 


OSS 


6 






09026 


0000* 




01350 


DC 


3.0 






0903* 


00003 




01360 


OSA 


5000 






09041 


00005 -5000 


01370* 


WRITE DISK ROUTINE 














01310 WROSK 


C 


DSK0UT + 3*SKA0R», CK FOR SEEK NEEDED 






09042 


24 


09031 


06487 


01390 


8E 


• ♦36 






09054 


46 


09090 


01200 


01400 SKI 


SK 


DSKOUT 






09066 


34 


09028 


00701 


01410 


TF 


SKAOR , OSKOUTO,, SAVE SEEK ADDRESS 






09078 


26 


06487 


09031 


01420 


MDN 


DSKOUT 






09090 


36 


09026 


00702 


1430 


CON 


OSKOUT 






09 102 


36 


09028 


00703 


01440 


81 


ASC, 3800,, 8R OVERFLOW 






09114 


46 


09452 


03600 


01450 


• I 


TEST, 1900,, §R ANY OTHER ERROR 






09126 


46 


09214 


01900 


01460 


8NI 


SN2,1900,, BR NO ERRORS 






09138 


47 


09162 


01900 


01470 H2 


H 








09150 


46 


00000 


00000 


01410 


81 


•♦12,0700 






09162 


46 


09174 


00700 


01490 


87 


SKI 






09174 


49 


09066 


00000 


01500 SM2 


A 


DSK0UT^5,DSK0UT+8,,ADD NUNB SECT WRITTEN TO 


SECTOR A DDR 


09182 


21 


09033 


09036 


01510 


80 


END, ERSEQ+10 , , BRANCH IF LAST WRITE 






09194 


43 


09508 


08272 


01520 


87 


INITZ*,, BRANCH IF NOT LAST WRITE 






09 206 


49 


07748 


00000 


01530* 


















01540 TEST 


81 


•♦12,0600 






09214 


46 


09226 


00600 


01550 


81 


•♦12,0700 






09226 


46 


09238 


00700 


01560 


81 


•♦12, 1600 






09236 


46 


09250 


01600 


01570 


81 


•♦12, 1700 






09250 


46 


09262 


01700 


015*0 


81 


•♦12,3600 






09262 


46 


09274 


03600 


1590 


81 


•♦12,3700 
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09274 


46 


09286 


03700 
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01600* 


WRONG LEN REC CK ROUTINE 














01610 NOP 


NOP 


ONE SEC, NOP 1ST TINE* BRANCH 2N0 TINE 






09266 


41 


09318 


00000 


01620 


TO 


NOP+1,9 






09298 


25 


09267 


00009 


01630 


87 


SKI 






09310 


49 


09066 


00000 


01640 ONE SEC 


TON 


NOP^l.l 






09318 


15 


09287 


00001 


01650 


RCTY 








09330 


34 


00000 


00102 


01660 


MATY 


DERR 






09342 


39 


09367 


00100 


01670 


81 


•♦12,0700 






09354 


4* 


09366 


00700 


01680 


M 








09366 


46 


00000 


00000 


01690 


87 


SKI 






09J78 


49 


0906* 


00000 


01700 DC**. 


DAC 


33. DISK RD WR ERROR. START TO RETRY! 






09387 


00066 




01710* 


















01720* 


OVERFLOW ROUTINE 














01730 ASC 


81 


H2*1900*» BR IF OTHER ERROR ALSO 






09452 


46 


09150 


01900 


01740 


AN 


DSKOUma* 100,* INCREMENT CORE WRITE-OUT 


AOORESS 


09464 


11 


09041 


-0100 


01750 


AN 


DSKOUT+S.lt* INCREMENT SECTOR AOOR 






09476 


11 


09033 


-0001 


01760 


SN 


DSK0UT*6,1,9 






09468 


12 


0903* 


00-01 


01770 


87 


SKI 






09500 


49 


09066 


00000 


01780* 


















01790* 


ENO ROUTINE 














01800* 


















01810 END 


TON 


ERSEQ+10,0 






09508 


15 


0*272 


00000 


01820 


TF 


L0MESS^10*3999*, GET NAME INTO MESSAGE 






09520 


26 


09717 


03999 


01830 


RCTY 








09532 


34 


00000 


00102 


01840 


WATY 


LOMESS 






09544 


39 


09707 


00100 


01850 


81 


•♦12*0700 






09556 


46 


09568 


00700 


01860 


TON 


4006*0 






095*8 


15 


0400* 


00000 


01870 


DC 


i»a,* 






09579 


00001 




01880 


NNTY 


4000 






09560 


36 


04000 


00100 


01890 


il 


•♦12*0700 






09592 


46 


09*04 


00700 


01900 


A 


4005,T0TSEC, , PREPARE FINAL 








21 


04005 


06511 


01910 


SN 


4005,1,, SECTOR TYPEOUT 






09*1* 


12 


04005 


-0001 


01920 


MATY 


L0MES2 






09*28 


3* 


09*97 


00100 


019)0 x 


¥NTY 


4000 






09*40 


16 


04000 


00100 


01940 


11 


•♦12*0700 






09*52 


46 


09**4 


00700 


01950 


•CI 


• ♦24 






09**4 


46 


09*66 


00100 


019*0 SAVNES 


H 








09*76 


48 


00000 


00000 


01970 


• 7 


STAR 






09*66 


49 


07404 


00000 


01980* 


















01990 L0MES2 


OAC 


B * to a 






09*97 


00010 




02000 LOME SS 


OAC 


20, AAA AAA LOAOEO FROM 9 






09707 


00040 




02010 


Of NO 


STAR 






07404 









097%* COKE POSITIONS REQUIRED 
00201 STATEMENTS PROCESSED 
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000 10*TH1S PROGRAM COMPUTES THE AREA UNDER THE CURVE 
00020*SQRT(3X**2)ARCSINEX, WHERE X LIES BETWEEN AND 1. THE AREA IS 
00030*C0MPUTE0 BY S ! MP SONS RULE 

00040* FOR NUMERICAL INTEGRATION. THE AREA IS EVALUATED USING THREE 
00050* OIFFERENT VALUES FOR DELTAX » THEY ARE 0.100. 0.050, ANO 0.025. 



00060 


START 


TF 


DELTAX, 


X, 7, TRANSMIT VALUE 


OF INCREMENT 




02402 


26 


04059 


-4066 


00070 




TF 


AREA,Z- 


3 






02414 


26 


04088 


04096 


00080 




TF 


XSUBNtUNIT 






02426 


26 


04106 


04113 


00090 




TDM 


SM3*1,1 


,,SET SM3 OFF 






02438 


15 


03759 


00001 


00100 




TOM 


SM2+1.1 


,,SET SM2 OFF 






02450 


15 


03567 


00001 


00110 




TDM 


SW1*1,1 


t .SET SW1 OFF 






02462 


15 


03435 


00001 


00120 




TR 


ASUBN-9 


♦C0NST-9, .TRANSMIT 


A SUB 5 TO ASUBO 




02474 


31 


04114 


04175 


00130 




TF 


PS1X.ASUBN 






02486 


26 


04245 


04123 


00140 


ASINE 


M 


PSIX, XSUBN 






02498 


23 


04245 


04106 


00 ISO 




SF 


84 








02510 


32 


00084 


00000 


00160 




•NF 


•♦2*L t99 






02522 


44 


02546 


00099 


00170 




SF 


93 








02534 


32 


00093 


00000 


00180 




TF 


PSIX, 93 








02546 


26 


04245 


00093 


00190 




TR 


ASUBN-9 


•ASUBNtl 






02558 


31 


04114 


04124 


00200 




A 


PSIX,ASUBN 






02570 


21 


04245 


04123 


00210 




BNR 


AS I NE , ASUBN* 1 






02582 


45 


02498 


04124 


00220 




•NCI 


CONTA 








02594 


47 


02798 


00100 


00230 




TO 




♦PSI X-9 






02606 


25 


04481 


04236 


00240 




TD 


POLY*52 


.PSIX-8 






02618 


25 


04485 


04237 


00250 




TD 


P0LV*54 


♦PSIX-7 






02630 


25 


04487 


04238 


00260 




TD 


POLY*56 


.PSIX-6 






02642 


25 


04489 


04239 


00270 




TD 


P0LY*58 


.PSIX-5 






02654 


25 


04491 


04240 


00280 




TO 


POLY+60 


,PSIX-4 






02666 


25 


04493 


04241 


00290 




TD 


P0LY*62 


.PSIX-3 






02678 


25 


04495 


04242 


00300 




TD 


POLY+64 


.PSlX-2 






02690 


25 


04497 


04243 


00310 




TD 


POLY+66 


.PSIX-1 






02702 


25 


04499 


04244 


00320 




TO 


POLY+68 


.PSIX 






02714 


25 


04501 


04245 


00330 




TD 


POLY+12 


.XSUBN-6 






02726 


25 


04445 


04100 


00340 




TD 


P0LY*16 


.XSUBN-5 






02738 


25 


04449 


04101 


00350 




TD 


POLY+18 


.XSUBN-4 






02750 


25 


04451 


04102 


00360 




TD 


P0LY*20 


.XSUBN-3 






02762 


25 


04453 


04103 


00370 




PUT 


POLYDF 








02774 
02786 


10 
49 


00565 
00532 


-2797 
-4391 


00380 


CONTA 


TF 


RADCND. 


UNIT 






02798 


26 


04253 


04113 


00390 




S 


RADCND, 


XSUBN, .RADICAND - 


l-x 




028 10 


22 


04253 


04106 


00400 




TR 


R A DC NO, 


ZNINES-13, 






02822 


31 


042 53 


04268 


00410 




iNCl 


CONTB 








02834 


47 


02954 


00100 


00420 




TD 


ARG*42, 


RAOCND-6 






02846 


25 


04547 


04247 


00430 




TD 


ARG*46, 


RADCND-5 






02858 


25 


04551 


04248 


00440 




TD 


ARG*48 , 


RAOCND-4 






02870 


25 


04553 


04249 


00450 




TD 


ARG*50, 


R ADC NO- 3 






02882 


25 


04555 


04250 


00460 




TD 


ARG*52, 


RADCND-2 






02894 


25 


04557 


04251 


00470 




TD 


ARG+54, 


RADCND-1 






02906 


25 


04559 


04252 


00480 




TD 


ARG+56, 


RADCND 






02918 


25 


04561 


04253 


00490 




PUT 


ARGDF 








29 30 


10 


00565 


-2953 














1355 


02942 


49 


00532 


-4399 


00500 


CONTB 


TF 


NINE , TM09 




02954 


26 


04293 


04305 


00510 




TF 


OODINT, 


ONE ONE 






02966 


26 


04319 


04333 
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00520 


B 


•♦2*L 


02978 


49 


03002 


00000 


00530 ROOT 


A 


OODINT-B.TMO 


02990 


21 


043U 


04287 


00540 


S 


RADCND+7.0DDINT 


03002 


22 


04260 


04319 


00550 


BNN 


ROOT 


03014 


46 


02990 


01300 


00560 


A 


R ADC NO* 7, ODD I NT 


03026 


21 


04260 


04319 


00570 


TR 


R ADC NO- 7 .RAOCND-6 


03038 


31 


04246 


04247 


00580 


SF 


RADCND- 7 


03050 


32 


04246 


00000 


00590 


S 


000INT-8.NINE 


03062 


22 


04311 


04293 


00600 


TF 


NINE.NI NE-1 


03074 


26 


04293 


04292 


00610 


8NF 


R00T+1*L,TW0*1 


03086 


44 


03002 


04288 


00620 


TF 


SORT, NINES 


03098 


26 


04339 


04345 


00630 


SF 


RADCND+1 


03110 


32 


04254 


COOOO 


00640 


S 


SQRT.RADCND+6 


03122 


22 


04339 


04259 


00650 


BNC1 


CONTC 


03134 


47 


03242 


00100 


00660 


TD 


GENR T*24» SQR T-5 


03146 


25 


04589 


04334 


00670 


TO 


GENRT*28,$QRT-4 


03158 


25 


04593 


04335 


00680 


TD 


GENRT+30 . SORT- 3 


03170 


25 


04595 


04336 


00690 


TD 


GENRTO2.S0RT-2 


03182 


25 


04597 


04337 


00700 


TD 


GENRT+34, SQRT-i 


03194 


25 


04599 


04338 


007)0 


TD 


GENRT*36,SQRT 


03206 


25 


04601 


04339 


00 7;.'0 


PUT 


GENRTO 


03218 


10 


00565 


-3241 








03230 


49 


00532 


-4407 


00730 CONTC 


M 


SQRT.PSIX 


03242 


23 


04339 


04245 


00740 


SF 


85 


03254 


32 


00085 


00000 


00T50 


TF 


TEMPI, 94 


03266 


26 


04355 


00094 


00760 


BNC1 


SMI 


03278 


47 


03434 


00100 


00770 


TD 


FUNCT*10,TEMPl-9 


03290 


25 


04615 


04346 


00780 


TD 


FUNCT*14.TEMPl-8 


03302 


25 


04619 


04347 


00790 


TD 


FUNCT*16,TEMPl-7 


03314 


25 


04621 


04348 


00800 


TD 


FUNCT*l8,TEMPl-6 


03326 


25 


04623 


04349 


00810 


TD 


FUNCT«-20,TEMPl-5 


03338 


25 


04625 


04350 


00820 


TD 


FUNCT*22»TEMPl-4 


03350 


25 


04627 


04351 


00830 


TD 


FUNCT*24,TEMPl-3 


03362 


25 


04629 


04352 


00840 


TD 


FUMCT + 26. TEMP 1-2 


03374 


25 


04631 


04353 


00850 


TD 


FUNCT*28,TENPi-l 


03386 


25 


04633 


04354 


00860 


TD 


FUNCT + 30, TEMPI 


03398 


25 


04635 


04355 


00870 


PUT 


FUNCTU 


03410 


10 


00565 


-3433 








03422 


49 


00532 


-4415 


00880 SMI 


B 


SM2 


03434 


49 


03566 


00000 


00890 


M 


XSUBN, XSUBN 


03446 


23 


04106 


04106 


00900 


SF 


87 


03458 


32 


00087 


00000 


00910 


TP 


TEMP2.96 


03470 


26 


04365 


00096 


00920 


MM 


TEMP 2, 3 » 10 


03482 


13 


04365 


000-3 


00930 


SF 


90 


03494 


32 


00090 


00000 


00940 


TF 


R ADC NO, 9 6 


03506 


24 


04253 


00096 


00950 


TF 


PSIX.CONST+50 


03518 


26 


0424S 


04214 


00960 


S 


PSIX, TEMPI 


03530 


22 


04245 


04355 


00970 


TOM 


SWi*i.,9 


03542 


15 


03435 


00009 


00980 


8 


R00T-14*L 


03554 


49 


02822 


00000 


00990 SM2 


B 


OOOVN 


03566 


49 


03674 


00000 


01000 


A 


ARE A, TEMP 1--4. » FO + PN 


03578 


21 


04088 


04351 


01010* INITI 


AL 1 2 A T I ON FOR HU8O0O 










01020 


TF 


XSUBN, CELT** 


135$ 03590 


26 


04106 


04059 
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01030 


T FN 


MULT*11 ( 4i 10 


03602 


16 


03733 


000-4 


01040 


TDM 


SW2*lt9 


03614 


15 


03567 


00009 


01050 


TF 


ACCUM, Z 


03626 


26 


04376 


04099 


01060 


TF 


TEMP3.DELTAX 


03638 


26 


04363 


04059 


01070 


A 


TEMP 3i TEMP 3 


03650 


2 1 


04363 


04383 


01080 


8 


ASINE-3*L 


03662 


49 


02462 


00000 


01090 000VN 


A 


ACCUM, TEMPI 


03674 


21 


04376 


04355 


01100 


A 


XSUBN, TEMP3 


03686 


21 


04106 


04383 


01110 


C 


XSUBN, NINES 


03698 


24 


04106 


04345 


01120 


BNH 


ASINE-3*L 


03710 


47 


02462 


01 100 


01130 MULT 


MM 


ACCUM 


03722 


13 


04376 


-0000 


01140 


SF 


88 


03734 


32 


00088 


00000 


01150 


A 


AREA, 95 


03746 


21 


04086 


00095 


01160 SW3 


8 


• ♦6*L 


03758 


49 


03830 


00000 


01170* INITIALIZATION FOR FSUBEVEN 










01180 


TFM 


MULT+11,2, 10 


03770 


16 


03733 


000-2 


01190 


TF 


ACCUM, 2 


03782 


26 


04376 


04099 


01200 


TF 


XSUBN, TEMP3 


03794 


26 


04106 


04383 


01210 


TDM 


SW3*1,9 


03806 


15 


03759 


00009 


01220 


8 


ASINE-3*L 


036 18 


49 


02462 


00000 


012 30 


M 


AREA,OELTAX 


03830 


23 


04086 


04059 


01240 


SF 


88 


03642 


32 


00068 


00000 


01250 


TF 


TEMPI, 97 


03654 


24 


04355 


00097 


01260 


M 


TEMPI, THREES 


03866 


2 3 


04355 


04390 


1270 


TD 


OUTPUT*2*,OELTAX-3 


03876 


25 






01280 


TO 


0UTPUT+2I.DELTAX-4 


03890 






04055 


01290 


TD 


OUTPUT*30,DELTAX-3 




25 






01300 


TD 


0UTPUT*4*,B3 


03914 


w 


? ??, 




01310 


TD 


0UTPUT*I0,64 




25 


04669 




01320 


TD 


0UTPUT*52,8S 




25 


04691 




01330 


TD 


OUTPUT+94,86 


? 


25 


04693 




01340 


TD 


OUTPUT+96,87 


03962 


25 


04695 


00087 


01350 


TO 


OUTPUT+38,88 




25 


04697 


00088 


01360 


PUT 


OUTPTD 




10 


0056« 


'^l 










49 


005?2 




01370 


AM 


START*U,7, 10 


040 10 


11 


0?413 


000-7 


01380 


CM 


START*ll,X*2l 


04022 


14 


02413 


-4087 


01390 


BNE 


START 


040 34 


47 


02402 




01400 CALXIT 


CALL 


EXIT 


04046 


49 


00796 


00000 


01410* AREA 


DEFINITIONS 










01420 DELTA* 


OS 


7 


04059 


00007 




01430 X 


DC 


7, 100000 


04066 


00007 




01440 


DC 


7,50000 


04073 


00007 




01450 


OC 


7,25000 


04080 


00007 




01460 AREA 


OS 


6 


04068 


00008 




01470 2 


OC 


11,0 


04099 


00011 




01460 XSUBN 


OS 


7 


04106 


00007 




01490 UNIT 


OC 


7,1000000 


04113 


0000 7 




01500 ASUBN 


OSB 


10,6 


04123 


00060 




01510 


OS 


1 


04174 


00001 




01520 CONST 


DC 


10,-4337769 


04184 


00010 




01530 


DC 


10,19349939 


04194 


00010 




01540 


OC 


10,-44958884 


04204 


00010 





1357 
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01550 




DC 


10,87876311 


04214 


00010 




01560 




DC 


10,-214512362 


04224 


00010 




01570 




DC 


11,15707952078 


04235 


00011 




01580 


L 


DS 


,12 


00012 


00000 




01590 


PSIX 


DS 


10 


04245 


00010 




OlttOO 




US 


1 


04246 


00001 




OlolO 


R ADC NO 


US 


7 


04253 


00007 




01620 




OS 


13 


04266 


00013 




01630 


ZNINES 


DC 


15,99999998 


04261 


00015 




01640 


TWO 


DS 


6 


04287 


00006 




01650 


NINE 


DS 


6 


04293 


00006 




01660 


TW09 


DC 


12,200000090000 


04305 


00012 




01670 


OODINT 


DS 


14 


04319 


00014 




01680 


ONE ONE 


OC 


14, 10000000000001 


04333 


00014 




01690 


SORT 


OS 


6 


04339 


00006 




01700 


NINES 


OC 


6,999999 


04345 


00006 




01710 


TEMPI 


OS 


10 


04355 


00010 




01720 


TEMP2 


OS 


10 


04365 


00010 




01730 


ACCUM 


OS 


11 


04376 


00011 




01740 


TEMP3 


OS 


7 


04383 


00007 




01750 


THREES 


DC 


7,3333333 


04390 


00007 




01760 


POLVOF 


OPRA 


♦ POLY 


04391 


00005 


-4433 










04396 


00003 


J8G 


01770 


ARGDF 


DPRA 


, ARG 


04399 


00005 


-4505 










04404 


00003 


J8G 


01780 


GENRTO 


OPRA 


♦GENRT 


04407 


00005 


-4565 










04412 


00003 


J8G 


01790 


FUNCTD 


OPRA 


, FUNCT 


04415 


00005 


-4605 










04420 


00003 


J6G 


01600 


OUT P TO 


DPRA 


♦OUTPUT 


04423 


00005 


-4639 










04426 


00003 


JIG 


01810 


POLY 


DAC 


36, FOR X -0.000, POLYMON I AL-O. 0000000008, , 


04433 


00072 




01820 


ARC 


OAC 


30 i SQUARE ROOT AR GUNENT-O. 00 00008, , 


04505 


00060 




01830 


Gf*RT 


OAC 


20, SQUARE ROOT -0.000001,, 


04565 


00040 




01640 


FUNCT 


OAC 


17,P IX ) -0.0000000 00 8 ♦ , 


04605 


00034 




01850 


OUTPUT 


OAC 


31, FOR DELTAX-O.OOO. ARE A-0. 000008, , 


04639 


00062 




01860 




OENO 


START 


02402 







04700 CORE POSITIONS REQUIRED 
00186 STATEMENTS PROCESSED 
FOR OELTAX-0.100, ARE A-0. 66 61 6 
FOR DELTAX -0.050, ARE A-0 .66241 
FOR DELTAX-0.025, ARE A-0. 66096 



1958 
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INENSION E ( 10 ) ,F ( 10 ) ,GUO ) ,H( 5, 5) , FUNCT I 50 > ,MH5,5 ) , VALUE (50 > 
DIMENSION ARG( 10) 
DEFINE DISK (10,200) 

EQUIVALENCE (F , ARG ) »( VALUE »G » H) , ( FUNCT *E »H 1 ) 
SCSFCT<X>«SINF(X)6»2*C0SF(X)P«2 
20 READ 999,X2ER0tXMAX,0ELX 

50 READ 987, A, 8, CD 
RE AO 992, ARC 
READ 991, VALUE 
READ 991, FUNCT 
1N0-1 

RECORD ( IND) ARG, VALUE, FUNCT 
READ 988, ( (M(M,N),N»l,5),M»l,5) 
RE AO 984, (FU ), 1-1,10) 
REAO 984,(G(J),J«1,10> 
PRINT 983 
200 X-XZERO 
10 X1«SINP(X) 
X2»C0SF(X> 
X3«SINP(X)/C0SF(X) 
X4«EXPF(X) 
X5«EXPF(-X) 
X*«LOGF(X) 

X7-L0GP IX)/2. 3058509 

Xt-SORTF(X) 

X9«ATANP(X) 

X10«L0GF(X3)/2. 30SI509 
PRINT 99t,X,Xl,X2»X3 
PRINT 998,X,X4,A5 
PRINT 99«,X,Xo,a7 
PRINT 998,X,X8 
PRINT 998,X,X9,X10 
PRINT 988 

IF(X-XNAX) 40,51,51 
40 X«X*DELX 
GO TO 30 

51 DO 61 I«l,10,5 
E(I )«SCSFCT(F(I )) 
DO 55 J-1,10,5 
F(I )«J 

PRINT 999, F (I ) 
K«G(J) 

PRINT 998,E(I ) 

PRINT 993,J,G( J),K 
55 CONTINUE 
61 CONTINUE 

1N0-1 

FETCH ( INO ) ARG, VALUE , FUNCT 
00 63 J-1,10 
DO 70 1-1,50 

IF(ARG( J)-VALUE(L) )70,65,70 
65 PRINT 990,ARG( J) ,FUNCT(L> 
70 CONTINUE 
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63 CONTINUE 
PAUSE 

GO TO 20 

913 FORMAT ( 1 IX 1HX 13X 6HSINIX) 10X 6MC0S ( X) 10X 6HTAN(X) /11X1HX 13X 

1 6HEXP(X) 10X 7HEXP(-X)/ 11X IHX 13X 6H10GIX) 9X SHLOGIO(X)/ 1 IX 

2 IHX 13X 7HSQRT(X)/ I IX IHX 13X 7HATAN1 X ) 7X 1 3ML0G 10 ( T AN ( X ) ) // ) 

998 FORMAT (4F 16.8) 

991 FORMAT ( 10F5.2 ) 

992 FORMAT (F4.2.9F5.2) 

993 FORMAT(I3,5X,F10.7,5X,I3) 
984 FORMAT ( 10F4. 2) 

987 F0RMAT(F5.3,1X,F5.3,1X,F5.3,1X,F5.3) 

999 FORMAT ( 3F4«0 ) 
990 FORMAT(2F20,7) 

988 FORMAT (10F4. 3) 

END 



1620-1*43 MONITOR ! FORTRAN 11-0 SAMPLE PROGRAM 



PAGE 3 



00007 000 1 

000 11 0005 
00015 0010 
00025 23058509-1 
00029 0050 



00039 


FUNCT 


00529 


00039 


E 


00129 


00039 


HI 00279 


00539 


F 00629 


00539 


ARG 00629 


006 39 


VALUE 


00639 


G 


00729 


00639 


M 


00 879 


01139 


X» 


011*9 


XZERO 


01159 


XMAX 


01169 


OELX 


01 179 


A 




01119 


e 




01199 


c 


01209 





01213 


INO 


01217 


M 


01221 


N 




01225 






01229 


J 


01239 


X 


01249 


XI 


01259 


X2 


01269 


X3 




01279 


X4 




01289 


xs 


01299 


X6 


01309 


X7 


01319 


XS 


01329 


X9 




01339 


xio 




01343 


K 


01347 


L 











136) 



1620-1443 MOW I TOR I FORTRAN 1 1 -0 SAMPLE PROGRAM PAGE 4 

0020 01506 0999 05088 0050 01566 0987 05006 0992 04856 0991 04816 0988 05168 0984 04966 

0983 04334 0200 02342 0030 02366 0998 04776 0040 03096 0051 03140 0061 03776 0055 03740 

0993 04906 0063 04272 0070 04236 0065 04116 0990 05128 



05222 CORES USED 
19999 NEXT COMMON 
END OF COMPILATION 



Output from FORTRAN Page 1 
II- D Sample Program, 
Printer 

MAIN 07800 05222 LOADED 
IS 13022 005 38 LOADED 
14 13560 01258 LOADED 
12 14818 00976 LOADED 
06 15794 01342 LOADED 
03 17136 00510 LOADED 
02 17646 01158 LOADED 
01 18804 00850 LOADED 



I3U 



Output from FORTRAN Page 2 
Il-D Sample Program, 
Printer 

sinu) cosm 

EXP<X) EXP(-X) 

LOG(X) LCGIO(X) 
SORT(X) 

ATAN(X) L0G101TANUI) 



.40000000 
.40000000 
.40000000 
.40000000 
.40000000 



.38941834 
1.49182460 
-.91629073 
.63245553 
.38050637 



,92106099 
.67032004 
.39737640 



.50000000 
.50000000 
.50000000 
.50000000 
.50000000 



.47942553 
1.64872120 
-.69314717 
.70710678 
.46364761 



.87758256 
.60653065 
.30060363 



.60000000 
.60000000 
.60000000 
.60000000 
.60000000 



.56464247 
1.82211870 
>. 51082562 
.77459666 
.54041950 



.82533561 
.54881163 
-.22153454 

-.16462355 



,99999998 
2.1000000 



.99999998 
2.6000000 



.99999999 
2. 1000000 



.99999999 
2.6000000 
5.0000000 
10.0000000 
24.0000000 
11.0000000 
39.0000000 
17.0000000 
44.0000000 
41.0000000 
50.0000000 
1.0000000 



5. 1000000 
10.1000000 
24. 1000000 
1.1000000 
9.1000000 
7.1000000 
4.1000000 
1 • 1000000 
>Q • 1000000 
1,1000000 



mi gits 



1420-144} MONITOR 1 VERSION 2 INPUT OUTPUT ROUTINE 
IOSR 16 
CNtV SWITCH 



• INDICATOR 
• 19 ON 



.* n 



HALT 

BRANCH TO 
RESEEK 



OVRLAV 1A 



START 

tlM""> 



ON 
RAN 



REAO 



1 

I IF 



IOGT I IN 

"111?" 

ERROR 

*"erret" 



IOCAL 1J 

inoYrt III* 

"*~ERRET~ 



NONCAL 1R 

nqnIto'r 



NQNITO 

lii 



NCNTR 

TC 



ERRET 



OVRLAV 1A 
11 



• TEST INO • eI2oR 
• it. IS 19 ON • 

• • 2S 



IRi 
_. 



JR 
URN 



• TEST 010 



NONOSR 



IP 



•*PERPORN NON*« lUoR 

\ ?[« 18. t, .• » 



10 



• TEST FOR • ffio* 
• RECORD NARR • 

• 1ST LOCN • 2S 



NO 
010 



I HP 



• DIN NUNIER • CHR1 
• SUPPUEO • 

• • 2B 



OIOX I IT 
•- . — --• 

/iHSHtt. ': n *° 

• IS IT VALIO • 2S 



1365 



RACE 1 OP • 

OIOV ' iu 

iiirosri j 

PLAC. I 

i iv 

• *IS fffl *• HIsT 

• NfClSSARV • t- 

• • IT 

• • 
• •-- — • 

" ! 

•"test ip *• 2f 1st 

• Off ENTRY • _ 

• • IV 

• • 
• 

" I 

0101 I 1» 

------ 2C 

6TEST IV 
• „----• 

• • YES 

• TEST IP • JUNP 

*. mm 

I 12 

• NCEOfO • IX 

• • 

VES j * 
TO 2A 




1620*144) MONITOR I VERSION 2 INPUT OUTPUT ROUTINE 



PACE S OP • 



STAGEC 



W 8S 

ERROR INDI- 
CATION 



YES 

• E0Q40 

• 3G 



• TEST IF HON • E$09O 
• DISK ERROR • 

• • 3F 



•*Tf$T IF % !8o90 



YES 






3H 




f 



TES I 



fOOff I IF 



• NO 

• TEST IF • EOOtO 
• DISK t/C • 

• TIME • 3N 



•—- — • 

NO | 






YES 






3E 




EOO80 


3L 


• TEST IF • 1 
• CONTROL • 

• CARD TRAP • 
• • 


ftS 

ROLLER 
3T 


LOAO 

EXECU 

STAGE 


E j 


NO 








STAGE 1 3X 


E0050 


3F 




E0090 


3M 


MACHINE 
FAILURE 
INCORRECT 
CALL 


• TEST IF ■ E?095 
• ILLEGAL • 

• NAME LCAC • 3P 
* • 




HOLLER 


3T 


NO 

TO 


. 

3N 



ROUT- 

"iooii" 

35 



. _.CATORS. 
• ANY ON 



• NO 
• .RE 



YES 



l_JT__ 

TYPE IlkROR 

slHoR ' 
INDlcSfoRS. 

....... 



HOLLER 

S 

It._ 
HAL 



"""Tnote" 



NOTE 



mi 



!i EROR 







STACE2 41 


STAGES 4M 






3C 


EOOTO 3 J 


E0100 30 




^•*TEgT 01 SK *«^eE$70 

• • * 3J 
• • 


.•*HB tUr'v* 1 ' 

• #30 
• • 


v'flVft'E* \®" c 

• • 


& 


NO 




NO 1 


YES I 






30 


I 3K 


_ I 


STAGE! l IS 



.•«*»*»■ v m " T 

• • IY 

• 

DISK10 )Z 
MAPENT SV 



I OISABIE 
1 ANY READ 
I BACK CHECK 



DISK 10 3Z 

"InItializI" 

MOVE Of I/O 
INSTRUCTION 



U67 



MOVE I/O 
INSTRUCTION 



• CYLINDER • RETRY 
• OVERFLOW • 



YES I 
I 



MCNITCR I VERSICK 2 INPUT OUTPUT 
4C 

I cc"the'reao" 

j BACK CHECK 

I 
I 



I 



NGRBC 
•— 

•*T£ST IF 
• IN 



INDICATORS 
• ON 



• 3S 



• PAPER TAPE • ZC2 
• PUNCH ERROR • 

• • *0 



PAGE 4 OP a 

*u 

• NO 
• .RETRN 



CHECK 



ERROR 

FOLLONS 



3S 



compuIe TOP 

OF NEXT 
CYLINOER 



OVERFLC 



TYPE OUT 

""hCUEpT 



• • NO 

• PAPER TAPE • 103 
• REAO ERROR • 



*• III* 



• TEST FOR 
• EMPTY MAP 

• ENTRY • SB 



• OVERFLOW 



I 4E_ 

-JOMPufl^EN- 

TE C. 
HON 



UPDATE CVL. 
POSITKT 



RETRY I 4F 



•: ffiMNt : 

#-.—»-— 

YES I 

TO 4G 



• NO 
NORBC 



4K 



ERROR 
ST AGE 2 
ROUTINE 
FOLLOWS 



41 



ifa 



/HBT ,m \ Bi 

• * 4P 



YES 



I05 # - L tl m 

•*CARO PUNCH *• III 
• ERROR 



NO 
*04_ 



• 4S 
lOPA 4U 



% nmhc* / it 



YES 



4T_ 
RV'NOn""" 
AT ION 



• TEST FOR 



• 90 



ROIM I 4V 

I Mr 



IP- 
I 



136$ 



1620-1443 MONITOR I VERSION 2 INPUT OUTPUT ROUTINE 



PACE 5 OP f 



5A 

l" RESTORE 

I 10RT MAIN 

f 11NE 

I ROUTINE 

I 



5B 



TYPE ENPTY 1 

NAP ERROR I 

INOICATOR. I 

OPERATOR I 

TYPE DIN. I 



5C 



RESTORE 

iort main 
routine 



RDVCD 



50 



YPE I 

EGAL I 

. .VE NESG. I 

JPERATOR I 

1 TYPE DRIVE I 

HOLLER 



ROUTINE 
FOLLOWS 



I 
1 

STAGE4 I *>f 
»— — —— 
• •NO 

• TEST IF RN • .RETRN 
• IS CONTROL • 

• CARD SOURCE • 



RESTORE 
IQRT CALL 
MONITOR AND 

EXECUTE 



SPS SUPER. 

RELOCATABLE 

LCAOgR 



phasu 5J 

• * •NO 

• TEST IF • LCA01 

"H-IRA • 
S« LCAC • 5N 



• NON-IRA 

• or - 



YES I 
I 
1 



• SPECIMEC 
• I OAT ACCRES • 9N 



AjgRESS TO 
INOICATCR 



LCA01 I 5N 



• TEST IF TRA • ll\ot> 
• CALL • 

• • 3S 
• • 

• — — • • 

NO 1 
I 

TO 5N 



• OISK I DAD 



• 5R 



• SPS 



UPERVISOR 



• NO 
• LCA 



YES 
LCA02 



5Q 



RE AO IpS 
MULT. TABLE 



• # 11V- ^OR 
• SPS SUPER . • 



ICA04 M 

READ \h~ 
AND E lECU Tf 
PMASE2 OF 
CALLER 



ST 

RATABLE 

LtER 
PHASE2 
FOLLOWS 



CiLlER 
PHASE2 



PMASE2 



5U 



• TEST IF TRA • lHo? 
• CALL • 

• • 41 



NO I 
I 
I 
I 

I 9V 



• TEST IF '. Ilia 

• NGN-DISK • 

• LOAO • IV 



NC 



I OISR-CALL 
I ROUTINE 



NOVE {VIOR. 
POSITION. 
NOV| ORIVF 



I 

I 

I SY 



I SAVE 
J PARANI 



inks" 



• TEST \* SPS • • 

• PAIN LINE • *f 

• Puncala • 41 



1620-1443 NONITOR I VERSION 2 INPUT OUTPUT ROUTINE 



PACE 6 OP • 



6A 

eloCatable 



I NO I C ATE 



• TEST IF TO • LCB02 
INITIALIZE • 

• LOAOER • 60 

■ • — — — « 
YES I 

I 

1 

! *c 



INITIALIZE 
LOAOER 



LCB02 



60 



I WRITE SAVE 
AREA ON 
OlU. REAO 
EXECUTE 
I LOAOER 



LCI07 



INDICATOR. 
DISK LOAO 



• * 60 



IzE 



INITIAJ 

W'S&um 



66 

RELOCATABLE 
LOAOER 
RETURN 
STAGE A 
FOUOWS 



RESTORE 
lORt AND 
UPPER SAVE 

Willi" 1 ** 1 



• RESTCR 10 
• NOOULE IN 

• IS IT TRA 



OAO 
NO. 



♦2 
61 



YES 


6R 




A6EB 



Bfflini 

RETURN 



LRA02 



• TEST IF 

• NA IN 1 INE 

• PROG.inAO 



READ In 
SPS SUPER- 
VISOR 
RETURN 
ANALYZER 

OVRLAv" 



6Q 

iS^ERVlSOR 
RETURN 
ANAL .PNASEA 

FOLLOWS 

I 



• OISI LOAD • 



• • YES 

" TEST IF • SRA02 

• RELOCATABLE • 
• • 4V 




RE Al 
EXEi 
PHA 



o In 

CUTE 
SFB 



OVRLAV 1A 



SRA02_ 6V 

| SET nI|N- 
I LINE SWITCH 



SRA01 4T 



AW 

iC^ERVISOR 
RETURN 
ANAL. PHASER 

FOLLOWS 



• NQN-OIS! 



TABLE • 2P 



lf?M%v 9 

• SPS SUPER. • 7* 



I _4£_ 

"returVto 

iOfKVISOR 



.SUPER 



TO 6U 



I 370 




162C-M43 XCNITCR I VERS I CM 2 INPUT OUTPUT ROUTINE 



PACE • OP • 



8A 

- IIt"up"to " T 



■RANCH TO 

OVERLAY 



OVRLAV 1A 



1372 



1420-1441 NCNITOR I VERSION 2 RELOCATING 10 AO I R 
l€ 



RE AO IN I 
LOADER I 



FIELDS 
1 



S INPUT 
I ROW DISK 



• INIT 

• 1J 



I__1C__ 

"read'in"" 

SEGMENT 
TWO. GET 
INPUT OICIT 



VAC A 
wCORO. 



IE 



S THIS • T?ST 

:aro INPUT • 

• IN 



I IF 



• IS THIS A • tIIt 
• PATCH CAR0 • 

• • IN 



• IS NEW SEO. • tIIt 
• NUNBtR CIO • 

• PLUS ONE • IN 



TYPE il 
NESSACl 



RROR 



INIT IJ 

[ NOVE DISK* 
[ CONTROL 
I FIELD 



• IS SECTOR • III* 
• COUNT NCh • 

• ZERO • 2D 



NO 




DIS 


1L 


RE AO 


ECTOR 







ibbsp- 

SECTOR 
COUNT 



IN 

ml* 



• IS THIS 
• RETURN FROM 

• T.C.D 



.lli 

• 3S 



1Q_ 

RELOCATION 



THERE AN* 

• Entry asor. 



.* :? 



NO 



Ml 



IT 

CAf&R 0- 



TO 1U 



I 3 7 J 



PASI 1 Of 

1U 



i m 



Rf AD*In" 
" NT 



START I IV 



• NO 



I Rf AO I 



U 



•*IS 1ST CHAR*« lit IN 



MERE 

! chHaCt 



IY_ 



n8?rn 



•* {haU^ter *• 

• A ft EC. NARK • 2C 



1420-1443 PONITOR I VERSION 2 RELOCATING LOADER PASI 1 OP 




TO 1* TO IN 



1374 



1620- 1*4 J MONITOR I VERSION 2 RELOC AT INC 10A0ER 
36 



• • YES 

• IS DATA PLD • FOUR 
• LESS THAN 7 • 

• • 2U 



• NO 

~FB 



• POS. Kcco. • 



POS 
YES 



30 

RELOC IN 



30 



• EQUAL • • 



• YES 
THREE 



LO 

five" 

LESS12 3H 



BRANCH TO 



RELOC 3M 



TMO 1R 



IN 



/uuttr \\I 

• • 10 



ip 



.RETRN 
1Q 



.RETRN 
SR 



PA«E I OP 4 
• NO 



•: war 



YES 



3V 

■"ST 



• +Z 31 
3M 



.* Mslfl. 

• FLAGGEI 



• NO 
CHAR • THREE 
ON • m 

GEO « 2R 



BRANCH AND 
RETURN TG 
RELOC 



RELOC 3H 



set in 

TRANSMIT 
DATA F I lit 



END OF ADO, I 
TO BE I 



ONE 3S 



tun; 



32 
CORO 



I 



I 3 7:5 



1620-1443 MONITOR I VERSION 



RELOC AT INC LOADER 



PACE 4 OF 4 



m 

SECT) 



IUNICATN 
CTOR 



I 



MOVE U'AC 
TO SEQUENCE 
NUMBER 



I 48 

IORT THRU 
OVERLAY 
READ ROUTNE 



! Httfttoiu ! 

! HUM! 8 " i 



• NON-0 I SR • ESlT 
• INPUT • 

• • 4A 



1376 



1420-1441 HON I TOR I VERSION 2 INPUT RECORO ANALV1ER 



MCE 1 Of S 



IE 



u 

NTERPHASE 
'1TRV TO 
INI TOR 



• TEST ENTRY • *Hi5 
• VU CARO • 

• TRAP • 1H 



1C 



• TEST IF END • ulj? 
• Of JOB • 

• • 5A 



NO 
MC20 



M 

RANCH 

mho 



I IE 

THE ENTRVS 



!°o* fT - 

' AR. 
NtOtO 

I 



SySCAl ARE 
NCRC1, 





| 




'Sc. 

1 





PI020 






1 m ii 

1 MSStCI 


LOAO | 






PB020 


DI04S 


1J 



ID 



C#I«OL 



*• EIECUTE ON •* 1H 



MORI It 

Il8a*|*aLr. 
._.nfc! 



MB110 IN 

• . 



101 



IP 



•"'jflVS er 

*• SUPRlVeE 8 * •* IR 



VEI 



NS1I0A 

"16.1 



10 



ANCM 



NB030 16 



11101 IR 



""dul 



N114» 1U 
I ECU* 



NCR01 2C 



_STSCAl"" 
I6M 



I iNOICiTOi 



M200_ I 11 

ISSfci 



• • 2A 



Mill) IV 



\ mm 1 xh 



RILL JOI 



IT 
XIQ 



iiilo is 



TYPE 

nam* 



1377 



1*20-1441 MONITOR 1 VERSION 2 INPUT RECORO ANALV2ER 



"■210_ 2A_ 

r«sF i 

i i 



MB *f» 

i 
i 

I 



NCROl I 2C 

mi 

PUT 



INITIAL 1 2E 
InpV 



NCR02A 



• TEST IF • NCROl 
• TYPE INPUT • 

• • 2F 



TYPE 
NESSA 



NCR 01 

r 



NCR04 26 



*• SES30 



NO 

PXR04A I 2N 



I_ 2J 

~* *• YES 

• TEST FOR • NjiOi 
• -JOB- CARO • _ 

• • 22 



NO 



• • 2N 



out 



NCROl 2C 



NCROl 



/ WW* 



fit 



TO 16 



r 



"TYPE"fiuT* 



NCROl 2C 
NCR01A _2P 

•:iiii«««: s !! M 



• • is 



tt 



• • IT 



_ __IT 

/iiii.'a.. 



?o tn 



PA6E 2 OP S 

.''■miss.. '-.M 01 

• • IN 



• • »« 



/iffl-'E!™ '•. lf !° i 

• • 4C 



/"l||J t f.°l *• Slloi 



CARO • 

• 4C 



NO 



2Y 



"*"RCRoI 2C 



NM1 __2I 



ti 



in 



tO^ IA 



1371 



1620-14*3 PON! TOR I VERSION 2 INPUT RECORO ANAL VI IN 



• TEST IP ANY 
• PHASE BEGUN 



• YES 
• UT07 



TV#E OUT 

DECOl 



OE CARD 

I 

I 3C 



° R •* 3E 



TYPE 

CHANG 

SOURC 



30_ 
RROR 



HCROi 

3E 



• YES 
CAN REST • MJB12 



• TEST ERRORS • 



NO 



TEST ERRORS • 3F 
* *~NJB13A 3 

3F 



I TYPE ERRCR, 
1 READ CHANGE 



NJB13 ^ 3G_ 
| fcSlVf &COE 

I 



NO 






HJB02 


3B 


NJB13A 



?8uf v. ? 



ABIE 



NJB15 



mi 



IUPBER 



• IS THIS 
• A PACK 

• NUMBER 



• ATTACHED • 3P 



YES 
PJB1SA 



• TEST IF • MJB17 
• PACK NUPBER • 

• ERROR • 3P 



YES I 

I 

TO 3N 



3N 



PJB17 I 3P 



ii 



NJB30 
MJtlO __1J 

III 

NCROl 



1R 

PROCESSOR 



MU c'SSu. 



III 



NSP02 i 3T 
12* 



137a 



1Q 



2C 



PACE 1 OP I 

su 



PGR 

SbJbi" 



U 



3V 

in* 



COMPILER 



NBOBI 



j(JCO«..Ot 
ROCfSSOR 



SET P*< 



PHASE 
'IB 

INC 

fiblCATCR 
I 



4A 



1620-1443 MONITOR I VERSICN 2 
MXQ03 4G 



INPUT RECORD ANALYZER 



PAGE 4 OP 9 



I ° EC g D | COL« 

If6r Ihe°8up 
( SUPERVISOR 



xeSs c8ntrl 

CARO 

PROCESSOR 



SET XEQ OR 
XEOS ENTRY 

INDICATORS 



• TEST IP • UTfo 
• PROGRAM IS • 

• INHIBITED • 5R 



4F 



ICfiCi 

EGAL 
YES MX007 

"no utioe" 



• TEST IF NON • kill 
• DISK LOAD • 

• • 5S 



•*TEST IF DIM** uf?OF 
• ENTRY PICK • 



• • NO 

• PICK UP THE • M8195 
• DIM ENTRY* • 

• ReLOCATEABL • IV 



MIQ06 

*"mbI55" 

4L 



^MXOCT 

I Moyi~!i 



e°?Iy 



LAGS 



UTOl 



NPV A DIGIT 
BY 9 BY 
ADO IT ION 



CHARACTER 



'!ii!Pi." 



1P?A 



J. 



4U_ 
BRANCH TO 



I BRANCI 

j IOGT 



4V 



RETURN 
CARRIAGE 

MM 




•RCTRN 

MttSffiL 



TO 9A 



1380 



1410-1441 HON I TOR I VERSION 2 INPUT RECORD ANALYZER 
UT07I 5C 



RACE I OF 5 



• I C 5 T I* • • 

• {NO OF JOi • ♦} 

• FORCED • 9C 



VES 


SB 


im 

JOI Ml 


1 




5C 


1 U« c 

1 IV JO 


DEO ! 
1 CARD 1 



UT07A 



COMNON 
ION FROM 



• TEST IF 
• ERROR 

VES I 



• NO 

• UT07B 

• 96 



mm 



UTiO I 9J 



:mm ..V!! * 



• TEST IF 
• ALFHA 



*• ufloc 

• 9N 



UTl !L. 2!« 

•: bar mo • 



UT100 9B 



• HIT 



utioi 

UT10F_ 9R 



• HIT 
01 9S 

m 



ufioi 

► 



Will 

i 

M 



I! I OF 
9R 



ESSAGE 



• • ILNR 

• TEST BLANKS • UTlOO 
• OR NUMERIC • 

• • 9F 



NUME .EIIT 



I3|i 




SPS II -0 PHASE A— SECT1CN Al PERMANENT — PRINTER 



MCI 2 OF 27 



T180 PHASE A 



'TAP • 
«- FA01 • INPUT 
• DEVICE 
2G • 

TYPE I 

I 
1 

0019C READ 3 I 26 
-_„._-___,--„ 

I CLEAR INPUT 



• CARD 
• READ2 



AREA FOR 

lITER. 



I TVPEMR 
1 RE AO ■ 



00200 READ2 



2C 



MO 



• READ CARO • R SCAN 
RESEQ DECK • 

• REQUEST • 2F 
• • 



VES 1 
1 
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AS T ~ 

10— O.K. 



COMMA WAS 

FOUNf ~ 



20G 
TCH* 



SET SWITCI 
ALPHA MCC 



• SUB. OTR 



• NO 
N • L3 



• MAS A PAREN 
• OR RM • 

• FOUND « 200 



• MARK • 



YES 
• LA 

20 V 



C3200 I 20L 



20M 

mViiu"* 



Ml' * I 

Kl! I 

... 



03220 20N 

• "analyze'^tl . 
]n s o/p*bup. 

SUB. ANAL 



CHECK CHAR. . CTL • • MODC 

20H • CHANOI • 19' 



\ ttVW 1 * . # 20T 



03290 I 20R 

no'rm'qr 

PAR EN FO 



mm 

THAN 100. 



PUT 



60 1 L2 2 OH 

03270 OICITS 20T 



1428 



PACE 20 OP 27 
03200 20U 
0I6ITS -100 



GC T L* 202 



03290 L4 20V 



A RM HAS 1 

FOUND. 



I 

C3300 N I 20M 

• ANV CHARS. • 



• YES 
L* 



1C P_ I 201 

y Irlll'AW 

SUB. 0MSR2 



03320 ^ 

"oicit5"-Ioo" 



03930 14 I 202 



TO 21A 



SPS ll-C, PHASE B4 



PACE 21 OF 27 





21 A 


03400 


21G 




/ | 


COPPUTE FOR 
OUTPt'Ti LEFT 
POST AND KT 
NOST LOC.*l 




INSER? A 0. 

WliM'A 

ANO NOOE 
CHANGE. 






1 

I 




GOTC LI 


20G 


03350 


1 2 » 


C3410 


CONT 21H 




I LNTh » 

1 DIGIT COUNT 

1 




CONTROL 
CHARACTER. 
NO PQOE 
CHANGE. 






j 




GOTO R2 


19* 


0J3AC 


i 

1 21C 


C3420 


K3 21J 





IF ACORESS 
PROC. ASSNO 
LOC. CTR. » 
LOC. CTR. ♦ 
DIGITS. 



NO paAen 

FOUND OR 
RP FCU.N0. 



NOOE 
CHANGE 



• WILL ALPHA 
CHAR. START 

• EVEN LOC 

• • 
• 

NC I 



NO 

CONT 



VES 
LI 



•IS • PUT 

• CHARACTER • 
• NUMERIC • 21* 



21L 

ROVE NUP 
PORTION C 



PORTION CF 
INPUT CHAR. 

~GC?c~~*"ii~~~ 



t 21F 

AFTER *LAST I 

DIGIT IN I 

OUTPUT BUF. I 

CO THE I 

FOLLOWING. I 



21P 



PASSAGE ... 
OUTPUT BUF. 

SUB. 0PSR2 

~GCT(T~*~i<2~" 



SPS II-D, PHASE B4 
03480 OAC 



INo'dOH 
HICH EN 



F 

WH._. 

STARTING 
NOOE OPER. 
SUB. NOOE 



RESTORE 

PHASE B3 
THE PART 
COVERED BY 
PHASE B4 



LINPRT 7A 



LENGTH 
OPERANC 



SUB. SCAN 



03490 PHB41 



• LNTH. CPER • PH842 
• GREATER 

• THAN SO 



• NO 

• PH8 

• 22K 



22J 



PHB43 22N 



03340 PHB43 



22N. 



MOVE dONST . 



MOVE CL 
TO INTER. 
OUTPUT 
BUFFER. 



* IS THE LAST • 
• CHAR. OF 

• CONST. AT • 



• NO 
PHB45 



PHB45 22U 



01570 PHB45 



PAGE 22 OF 27 

22U 



• IS THE AO 
• PROG. OR 

• PROC ASSI 



• iS.fHE.AOOR • HoiSht 
SIGN **2K 



03580 _ I 22V 

! AOD&S OPER. 
I SUB. SCAN 



I 22M 



I LNTH - 

I ADORS 



03510 PHB42 



03520 PHB44 I 221 



03510 I 22M 



{HA* 



143 



C3A00 PHB44 



221 



2 • LNTH OP 



•* IS THIS A *• pftS4?A 
• OSAC 



OR OAC • 

• 21A 



09620 



221 



TO 23A 



$Pt 11-0, PHASE B4 



MSI 21 OP 17 



01630 PHB47A 2)A 

2 • LNTH 
OPERAND 

I 



I 



0H40 



2 St 



RESTORE 
03410 NOSINE 23C 



EcV 



LCTR • I 

LCTR ♦ 2 • I 

LNTH - 2 j 

INTH - LCTR I 



23E 



• • 22K 



YES | 
036IC ! 23F 



03*40 LINKS 21« 


! 1 


F 1 


01700 


23H 


| M 




03710 l 21J 




01720 


23R 






LINPRT 7A 



03710 CifltT 2 IK 



01740 



tlP_ 
At 



IE 



TCP" 



L INPRT 74 



PHB4* 22R 



1431 



SPS II -P. PHASE 14 
03B40 



SECONDARY 
LINKAGE 
CALLS IN 
PHASE B6 
FROM DISK 



ANO BRANCH- 

insIruct^n 
of required 

ROUTINE 



036CC START *4C 

• TEST TYPE '. SIS*. 
• Or INPUT • 
2 AH • DEFINERS • 24E 



NONE 



/tEJJ CALL l\ Hit 



2*y 



03020 OTHER I 24E 



OPERAND. 



03830 



i 



I- ! 



mil"-" 



B6 

linprT 



C3A50 DISK 24H 



24J 



SKELETON 



mm 

OPERAMC. 



O3M0 



241 



01 W 



24* 



N OEPINER 



03400 N€REP 24N 



• REPOSITION • 



24P 



LINPRT 



24J _ 
IN 

TO 



24R 



f t OPF 

.* Uflci! •. N0 " 

• • 24T 



03450 NOT! 



247 



PACE 24 OP IT 



C39A0 24U 

"iisToli" 



ESTOif 

SI'M? 



B6 

PHASES 1G 



03470 CALL 24V 



M3 



IMS* 



Tu SKELETON 



BRANCH TC 



Ml* 

*• CR NUMERIC »*2SC 



04010 



J 



SPS II -P., PHASE 



PAGE 25 CF 2? 



R F A C i H fr 
FOdlVfLtNl 
TABU . 
SCAN IQU1V 
TARLf- 

l 



HOVE EOUIV. i 
NUMBER T(, ! 
SAVE I 



3 25G 

CLTPUT 
RfCCRC NARK 
B-T TC 
I INPR! 



I 
I 
I 
I 

I 25H 

RESTORE 
PHASE B3 
THE PART 
CCVEREC PY 
PHASE fifc 



0404C FUUNC 



I 250 

CUTPUT LINK 
AND TPFRAND 
*1 *-2 IC 
L INPW T 



• • OFF 

TEST FOR • NO* 

3RC CPfRAND • 

• 25G 



1 '» ;j :i 



SfcCONOARY 
I I NK AGE 
CALLS IN 
PHASC 
FROM CI SK 



SPS I I -H PF ASE 

OU70 26G 



TAKE LINK 
TC IINPRT 



MOVE SECTOR 
COUNT OF 3 
10 IINPRT 



PACE 26 OF 2? 



SET AOORESS 
FOR STORINC 
CPERANCS IN 



?6H 

ANC BRANCH- 
ES TC FIRST 
INSTRUCT ION 
CF RtrQUlREO 
ROUT INF 



0*130 TRA 



26C 
BEGIN 

TRANSFER TO 
RETURN 
AOORESS 
ROUT I NE 



I 260 

REAOPMASE 
P5 FROM 
DISK ANO 
BRANCH Tu 
MTRA 



I 



04150 MTRA 



AOJUST AOO. 
COUNTER TU 
NEXT EVEN 



FILL IN 
BRA * 



I 
I 

I 26H 



26P 



PCVE MCCE 
COOE TC 
SKELETCK. 
TAKE TC 
L INPRT 



MOVE CORE 
AOORESS OF 
ZERO TO 
LINPRI 



PCVE 
AOORESS 
CF NEXT 
CCRE TC 
L INPRT 



I PCVE RECCRC 
I PARK TC 
I IINPRT 



I 26Q 

"ioviiECORc" 

MARK TO 
LINPRT 



RESTORE 
PHASE B3 
ANO BRANCH 
TO PHASER 



EVALUATE AN 
OPERAND FOR 
ITS NUMERIC 
VALUE. 
SUB. SCAN 



• • YES 

• BUFFER HAS • 0SA2 
• PCRE THAN • 

• 10 CPERANOS • 26V 



26X 



BEGIN TC 
SET UP 
DISK 
ACCRESS 



POVt I 

EVALUATEO I 

CPER. TC I 

CUTPUT 1 

BUFFER I 
_ .... 



AiLOM FOR 
10 OPERANOS 
IN BUP'ER. 





26* 


PCVE i 




ADORE. 


IVl, 1 


10 RCl 


JTINE 1 


TO LINPRT I 


TO 


26N 



04920 DSA3 



I 



• IS THIS THE 
• LAST OPERMO 

• CF STMT. 



SPS 1 1-0 UNAS!?. 85 
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041*0 MACRt 



INSTRUCTION 
A MACRO 



• 2TK 



1 IN?H 

t or— 



output card i 

I INTM « 5 1 
I I 



1 27C 



UPDATE ICTR 
TO LAST 
DIGIT OF 
LAST AODR 



I 
I 
I 
I 

I i?70 

sir AOORTO 
5TH CIGIT 
OF 1ST OPER 



RT. AOOR • 
AOORS v A. 

L FT . AOOR ■ 
Rl. A00R-5 



2 7F 



RESTORE 

PHASE B3 
THE PARI 
COVERED BY 
PHASE B 5 



2TC 

AOjust'vocI 

TO NglT 
EVEN 

LOCATION. 



OUOO 



INPUT |UF. 
TO TENF. 
STORAGE NOW 



CA410 2TJ 



SUB. OS* 



SET A&CRESS 
TC FIRST 
LOC. OF 
MACRO EXPAN 



Wr 



"It 



8M! U L 
WW 

LINPRT 



fERN?N 
"NRA 





27R 



RESTORE PH. 



PHASES 



tc 




I 
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1G 



RO SKTRS 1 
♦2 OF OBJ 
PGM 



I 1B # 
•*SUBRS REJO 



► YES 

• 00 
* -I 

• ID 



SET UP FOR 
NO SUBRS 



YES 
DO 
• ♦ ! 

IF 



AOR MINUS 

100 



FORM I NO 
DIGIT OF 
IND RECORD. 
INSERT SPS 

ID CODE 



FORM 
CHAR 



iUMMY 



1* 

MOVE COMMON 

TO FIRST CO 
OF IND RFC 



WRITE FIRST 

MS f M olj 
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THAN SOFT 
DIV RE 00 



YES 

CK SET 



NO 






ip 




NGTH I 




h oiv j 



8r 



goto"" ~ck oTm" 



• • NO 

SUBR REQD • SIZE 



flSIf 



S FOR 



1436 



PHASE C SPS 110. CALCULATE PERT I Nf NT (HNENSIONS ♦ EXIT TO WON I TOR 
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2U 



• I AST REQO • CAl C 
• SU6R PRO- • 

• CESSEO • 4A 



YES 1 
I 
1 



• SKTR to 
• ZERO 



• IS LIST • • 

• DECK PUNCHO • *l 

• • 20 



YFS I 
1 



PUNCH 3 
BLANK RECS 



PGM TO BE 
STORED IN 
CORE I»AGt 



yes 

AOK 




TYPE MESSGE 
AND ALLOW 
DUMP TO PRI 



AOK 



mEnt Jount 
and object 
core reoo. 




OBJECT CORE 
CAPACITY 



• • YES 

HAS ERROR • • 

BEEN • *2 

OETECTEO • 2W 



PRNT CORE 

REQO 

MESSAGE 



2M 



PRINT 

STATEMENTS 

PROCESSED 

MESSAGE 



WRITE SYS 
COMM SKTR 
ONTO DISK 



• • NO 

MORE IHAN • AOK 
*> CYLlNOERS • 
OF OUTPUT • 2N 



M3r 



PRNT OVER 
MESSAGE 



I 
I 
I 
I 

L I 2 T 

typeendof" 
asm message 



• OUTPUT REOL) • • 

• • +2 

• • 3A 



PROPER 
DIGIT T 
SYSCAL 



PHASE C SPS 110. CALCULATE PERTINENT DIMENSIONS ♦ EXIT TO ' MONITOR 
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PROHIBIT 
DUP CALL 



1 43>> 



CUC 4A 

•* l8iJ M iiip *• 



\ Slio 



nASt c SPi «10« UVCUUirSUf Of #»GN INlL ALL SUM* SPECIFIED* 
• Ml 

e 



HO 


♦6 


NEXT 1 


«TRV 



• • res 

• MORE • SUE 
• ENTRIES • -I 

• AVAIL • 2* 

• • 

HO 1 * 



• • 2k 



-rt— 
YES • -2 41 



USEP 



I8.k 



AST 



GOTO USED -2 4F 



TR 

VL SET 



/wmii ,i " , . a,,, » 

• • *s 



MO | * 



40 



GOTO CR DIN 4$ 
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-% 5! 

• 4H 



NO 



SIZE 



DELETE 4V 

•~~pIn 

MES 



B*! 



on 

PGM 



4X 

T~E*ROR ~ 



GOTO SIZE 



AO J OIM 

N?XT J?N 
ENTRY 



I 



4F 



INSERT NO. I 

OF ENTRIES I 

USEO BY NEW I 

OIM ENTRY I 



CR SET _ 4L^ 

/*|J^ T olv *« # oUete 

• • 4V 



NO 



• FID LENGTH • CR OIM 

• • 4S 



CR 01H I 

• ~~* ~" • YES 

.•ioj" ,m v., 

• • 4R 

NO 

CR NAP I 4T 



• 10 OF SUBR • 4 V 



I 



I 43!) 
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1G 



SUBRS ARE 
RE AO TO 
CORE . THEN 
C8J PGM. 



IB 

WHEN I0R1 
ROS OBJ PGM 
TO CCRE CTL 
IS TRANSFRD 
TO OBJ PGM, 



THEREFORE A 
TRA-TCO IN 
OBJ PGM MAY 
USE SUBRS. 



PERMIT ICRT 
FUR* CCAE 
AOR FCR BAL 

CF SUBRS 



OBJ PGM FRM 
NO I 2ND REC 



CHECK 

n 



REF. 

LIMINATE 
AN IORT 
SEER 



• INTO CCRE 



• • • 



I 

f 


YES 




1 

XEfc 1 10 




IK 


RO SLBRS 
FROM SCRTCH 
AND C8J PGM 
VIA POD C IM , 
. ENTRY (DOAP) 

I ■ 
1 

I ■ 


• • NC 

• OBJ PGM • • 
t FROM 01 SK • ♦ 

• • 1 
t • 

YES I 


I IE 




1 u 


a8r by S Rc i 

OF SKTRS I 
JUST READ I 
I 


SET Ul 
AREA 

SH.fi 

POJ 7! 




I 
I 

i it 







TC C 



sir 



I 4'iU 



2 A 



SAVfc Q8J 
PGM DIM 
FNTRY IN 
ODAR AND 
FOR T R N ARfc A 



• • YES 

INPUT OEVCE • RDFRST 
CODE = DISK • 
(0) • 2J 



iPS I1C... STAMI H>-R 
2C 

• *PCM ON CARD* 



(iPIAIN REQC SYSTEM PARAMETERS 



YES 

RCFRST 
2J 



IMI FCR 
PAPER TAPE 
ROG 



RO FIRST 
R EC OF CBJ 
PGM TC WAF 



/N 

SAVE CARfT 
SEQ NO IN 
SYS CONM 
AREA 



CALC SIZE 
OF OBJ CORE 
AND STORE 
IN CAPU8 



• • YES 

• CARC IMAGE • RO CTL 
• SPS PGP • 

• • 2T 



PAGE 

2U 



• • YES 

NEW NOISE • NOISY 
OICII SPEC • 

XEQ TIME • 2X 



• YES 
NEW MANTIS* • KANT 



• LENGTH SPEC 
• XEQ TIKE 



NEW SUPR 
SET SPEC AT 
XEQ TIME 



SUBSET 
21 



2E 



I SET DSK SWF 

I OR NCD 

I DISK INPLT 

i inch 

I 



• • NC 

• OBJ PGM • • 

• RELOCATABLE • «2 

• • 2N 



ADO RELCC 
INCREMENT 
TC SUBR 
START ACR 
IPICKUPI 



I 
I 
I 

t 2R 



• • YES 

• CORE IMAGE • RO CTL 
• SPS PGM • 

• • 2T 



FOR EX I 2S 



I CF 429. 

1 CALL FCRTRN 

I SUPERVISORY 

I LOADER 

I 



INSERT NEK 
NOISE DIGIT 
IN INC PEC 
IN CCPE 



RO CTL*2 2V 



INSERT NEW 
MANTISSA L 
IN INO REC 
IN CORE 



( 

I 

1 
I 

1 21 


I 
I 
I 
I 

I 2M 


GO TO .FSL 
RO CTL 2T 


GCTO RD CTL*3 
SUBSET 21 


I INIT FOR I 


• • NC 


1 SAVE AREA I 


I INSERT NEW I 


I CARC ROG I 


• NCN CIS* • CAP 


I OF 428 TO I 


I SUBR SET ID I 




• INPUT « 


1 440 FOR NOI I 


I IN INO REC I 




• t 2P 


I CLR FLAG 1 


I IN CORE 1 




• • 


1 429 I 


I I 



JA 



SET SECTOR 
ADR FOR DIM 
ENTRIES OF 
CESIREO 
SUUR SET 



SUBR SUPER SPS I 1.0. •• •CHECK SYSTEM PARAMETERS 

3f. 

•" . YES 

• FXC L SUBR • FVLAFP 
• SET • 



RE AC OIM 
ENTRIES FOR 
SPEC SUBR 
SET. 



I INSIST 


MANT I 


I LENGTH 


MEET I 


I SPECS. 





SOFT DIV 
SUBR SET 



SUBRS CTHER 
THAN CIV 
RECD. 



YES 

DELETE 



TERMINATE 
JOB BY THE 
MONITOR 



VL AFP I 3P 



CREATE ADO 
VECTOR FOR 
MOO OF P*Q 
OPERANDS BY 
PICK,*/- L 



90 



CONVERT ALL 
NEGATIVE 
VALUES TO 
TENS COMPL- 
IMENT FORM 



GOTO 
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3U 



AOJ SUBRS 
START LOC 
TC START 
ABOVE XEC 
PORTION. 

I 



STORE CORE 
AOR THAT 
SUBR START 
LOAOG AT. 



STORE SUBR 
NO 



3D 



STORE NOISE 
DIGIT ANO 
MANT L FCR 
ACCESS BY 
OBJ PGM 



I 



3K 



I SET SUB NC 

I EQUAL TC 01 

I AOJ SU8VEC 

I PNTR FCR 

I SOFT DIV 



TYPE SUBR 
PARAMETERS 



STORE AOR 
OF ALPHA* 1 
FOR FXD L 
SUBR 



SET Stt IN 
FORM TC 
PROHIBIT 
RETURN. 



DELETE _3M_ 

_~f ERM 
SON AND 
TEMEKT 



TYPE 

REASO 

STATE 



14i2 



NO 



• FINAL SUBR • CK SUB 
• PRQChsEO • 



subr super sps no... mocks mod sums 

• HC 

MAI 



GOTO CAP CK 

CK SUB 

• IS 

• SUBI 



4B 



• IS THIS 
BR REQO 



• YES 
• RO SUB 



STEP INO, 
SUB NO.OSA 
PNTR.SUBVEC 
PNTR ANO NO 
OF ENTRIES 



• MORE N TRIES 
AVAIL FOR 
SUBR 



• CK SUB 



AOV TO NEXT 
SUBR 01 H 
ENTRY. SET 
NEW NO Of 
ENTRIES 



STP SV I 4F 



• 01 N ENTRY • ??M 
• BLANK • 
» • 4A 



GOTO ADJOIN 



RO SUB 



m 1.8. 



sjjj8.o,. 

• PRE 



iSNil. 6 



!©*• 0?LETE 



YES 



vie TO 



ism 



K AO 

ENT 

l f *Si 



00 ARE 



2* 



PACE 4 OP 



Ti*tff 88" I 
111 I 



j jSif! 



"™o"~ # *Nf i'ci'" SA 
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SUBR SUPER SPS 1 10 . . • .OECCOE SUBR TEXT INOICATCR COOES 
*G 



PNTR TO 

NEM caro 



1 I 
I 

L„«.„. 

I STEP C*ARQ I 
I INO TO NEXT I 
t CARD. I 



• • NO 

• BREAK IN • NOT RM 
• SEQ INO IK TO • 

• • 5F 



YES I 
I 
I 



• • NO 

• NEW CARO • RM 
• REUC • 

• • 5E 



GOTO NEW CO 



I AOJUSt PNTR 

I FOR NEXT 

I INO DIGIT 

I IN SUPR 

I TEXT 



PUT INO 

WW " 



• I NO COOE IS 
• IfRC 



• YES 

- • Nir 



w cc 



• 5A 



5M 



• t YES 

• INg^COOE IS • INST 

• # 5U 

» 



.* '88, 

NC 



f INO COOE IS • P^NST 
• TWO • 
• t 6N 



• INO COLE 
• THREE 



• YES 

IS • CCNST 

• * 40 



5L 



• « YES 

« INO COCE IS * ONB 

• FOUR • 

• • ?A 



5P 

OOE 1S*«^InIt 
t 5U 



TO 9N 



• INO COOE 

• six 



TS*» fSIn 



• TG 

GOTO "*NyIt 8K 



■1444 
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INST 



i amtw 

I LNG. 



SET PNTR TO 
P2 OF INST. 
SET SWPO 1 



• • YES 

• DOES PSUEOO • AD J 
• CONSTANT • 

• HAVE CNTL • SY 



AOJ ^ 5Y 

*• YES 

• POO OF P • • 

• ME tO REQO • «1 

• • SI 
• • 

GOTO CK 4C 



51 



'wAw 



SUBR SUPER SPS I ID.. ..PROCESS SUBR PER INO CODES IN SUBR TEXT 



PACE 6 OF 6 



fcA 

NOO MELC 
RY VALUE 
SELECTEO BY 
CTLPNT 



PCCNST 



6N 




MO I 
I 
I 
I 

I 6E 
SET siPQ »Q 



• • YES 

FIELD TO • AO J 
PE PCCIF1ED • 



GCTC 
NOINST 



6h 



• • NC 

• CTLPM ACVO • L KG CK 
• TC LIPIT • 

• • 6J 



LNG CK 

I RfcDL. 
I BY IN 



REDUCE LNG 
BY INST 
LENGTH 



• * NC 

• ANOTHER • NXTINC 
• INST AVAIL • -1 

• • 5B 



„ .•. m 

• RELOCATABLE • 

• 60 



• IS CONSTANT • CCNST 

-- oc " 



• YES 

• DOES ADR • PSUEOO 



• SHOta PSUEOO 

• co* 



ADJ PNTR TO I 
NEXT INO I 
DIGIT OF 1 
SUBR TEXT 


GOTO 


NXTIND 


PSUEOO 


6R 


1 WAV-Oil. 1 

I MOVE PSUEOO I 
I CONST TO I 
1 TEMP MKAREA I 


P BOTH 


6S 


I SET AOR OF I 
I PSUEOO I 
I CONSTANT IN I 

i -mM n - i 




6T 


I SET PNTR TO I 
I NEXT INO. I 
I 1 

i : 


TO 


6U 



I 4- 



• BREAK IN 

• SEQUENCE OF 

• SUBR TEXT 



280 PC 



MOVE PSUEDO 
CONSTANT TO 



j i*» 



-NA8LE POO 
SN 



AOV PNTR 
NEXT INO 



6U 

"to" 



CIGIT IN 
SUBR TEXT 



• IS PSUEDC • P N0TC 
• CCNST CONT • 



• CN NEXT CO 
• • -• 



CLOSE GAP 
IN TEMP HK 
AREA. 

GCTO P BOTH 



AOV CARD 75 
DEFINE 
LENGTH OF 
CONSTANT 



2N0 PC-1 6V 



SUBR SUPER SPS I ID..* FORP LCACG INFO FOR EACH SUER AFTER MODIFCTN 
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I A 



ADJ PNTR TO 
NEXT INO 
DIG IN SUBR 
TEXT 



AOV ISTAT 
INC BY 
ADDITIONAL 
FNTRY PTS 
CF SUBR 



BY AOCTNAL 
ENTRY PTS 
CF SUBR 



SEL 

DSA AT THE 
START CF 
SUBR TEXT 



7K 



POVE SUBR 1 

LOAD ACR I 

INTO SELCTC 1 

SUBVEC I 

POSITION I 



LAST ENTRY 
RECORDED IN 
SUBVEC 



RECORD IN 

$518 ?ext 



NO 

Fit SV 



70 



STORE SKTR 
CNT IN DDA 

TO SCRATCH 



sMrSex! 
to scratch 




m mm* 



7N 



YES 

CAP CK 



•* si 

~ AC JO IN 4E 



DSA. 
STEP 



SUBVEC 

erTsvi 



ill 



BY 



1446 



TO 7U 



SUM SUPM SPS 110.... SUMS Ail PRCCCSSEO, CHICK COM MOO 



I 0^ Fo8 ImS 
AT END OF 
ALPHA ANO 
BFTA 



• gej pgm in • • 

• CAftO I MAC E • 

• * • 81 



FOR I LESS 
SKTR,*1 TO 
SKTR AOR 



• • HI 

• OBJ CORE t xlQ 

• cap eIcieoo • . 

• • 10 



MCVL . 
If CO 



111! 



OP 



A6E 



• J 



pessaIe 



ESSAi 

"Goic""*"oitETi" 



ClR I NO 
FLAG FROM 
00AR413 



• INPUT PCM 
f ON CIS* 



JortVon f8r 

NON DISK 
INPUT PGM 



•R 



I wp 

I MESSAGE 



,1° 



.jfiiiji 

GOTO **CELETE 



14 W 



1620*144) MONITOR 1 VERSION 2 SPS 11*0 MODIFICATION PROGRAM 



LOAO PHASE 



1G 



ENTER SPS 
PHASEA* 
READ STMT 



IB 



I MOOIFY 

I PHASE A 

1 ROUTINES 

I READ INPUT 

I RECORD 



•SUB I MOOSPS 
I 



II 

ISPS l 



1H__ 
PTEO 
EMIT 



•SUB I ROCK 



• PHASE A 

• * 1G 



PR0C20 ! IE 

•*COMPRE$S *• PHASE* 
• BLANKS. STMT • 
• RECOGNIZED • 1G 



VES 



ROUT 1 1 



H TO 
NE 



SPSLIP — SP$ 11-0 MODIFICATION PROf RAM--OEFINE .OF* COOE 



Jp'ta 
Core, 



2A 
AB 



READ 
INTO 

MODIFY SPS 
READ STMT 



. SUB I MOOSPS 
I 
I 
I 

00120 CIP2 I 2B 



. SUB I RDCK 5G 
1 
I 
I 

001 30 I 2C 

•" * *• YES 

• • IN COL 1 • EN0C1P 



00170 EN0C1P 2G 

I "ifUTE " BACK* 

£0 

IE 



MODIFIED' 
OP TAILE 



TO DISK 

"TO "pROC20" 



00180 ALRIN 



2H 



TYPE ALREDY 
In TABLE 
MESSAGE 



00190 NOSPAC 



I TYPE NC 

I SPACE MESSG 

I 



NO I 
I 
1 
I 

00140 I 20 



• • YES 

• OP COOE • ALRIN 
• ALREADY IN • 

• TABLE • 2M 



2E 



• • NO 

• ROOM IN • NOSPAC 
• TABLE • 

• • 2J 



PHASEA If. 



1 \ i !i 



t INTO CORE. 
I MODIFY SPS. 
1 REAO STMT. 



. SUB I MOOSPS 
I 



SPSLIB-- SPS I I -0 MODIFICATION PROGRAM— DELETE OP COOE 

00260 NOT I N 3G 

[ I TYPE * I 

I I NQT IN I 

I I TABLE I 

I I MESSAGE I 



00220 C2P2 I 3B 
TYPESTM I 



. SUB I ROCK 5G 



002 30 I 3Q 



• • YES 

• • IN COL 1 • EN0C1P 



• • NO 

• OP COOE IN • NOT IN 
• TABLE • 

• • 3G 



YES 


3E 


I OELET 
I OP CO 


5e 



PHASEA 1G 



I 45 II 



SP5LIB--SPS II-D M00IFICAT10N PBOOBAJK-Of FINE IST-M. 1ST 0*— §«!L It 
001*0 ** 001T0 C 1P *N 



.SUB 
00290 CAP I 



NOOSES 



svnoSl tabl 



*c 

auust'paran" 
for number 
of symbols 
nodsps exit 

• •♦I 



*0 

tvpe'stat' 



.SUA I ROCK 



• • YES 

• • IN cat I • CAEND 



00380 C5P 



mm 



TO 

OO9S0 C*fNO 



" f *FMAiir* 



"fo~ m *~Fiocio 



001*0 C201CT ■ _ 4 J 

fJSr to 



to 



•NNCAL 



i mi 



•NNCAL 



TO 



• OVER 150 • C20ECT 
• USER LABELS • 

• • *J 



1 45 I 



SPSLIB-- SPS 11*0 NOTIFICATION PBOftRAM-- SUBROUTINES 



00990 MOOSPS 



MAKE Ftf. A 

ROUTINES 

AVAILABLE 



I 5B 
'SoVE RETURN 



PHASfA 
RETURN 



TYPE {TNT 
UNLESS TVFE 
INPUT* 



I TEST FOR 
j • IN COL I 



> 


5J 


i spEci 


PICATN 1 



u 



16 



INITIAL W£ 
SYMBOL TUL 
TO FIELDS 
WHH FlVt 
R /M FIVE 



DETERMINE 
SECTOR A DDR 
OF EQUIY 
TABLE 



OF EQUIV 
TABLE 
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M14 1C 



OETERMINk 
SIZE OF MEM 
FOR TOP SYM 
TABLE 



RE AO DOWN 
FIRST 
SECTOR 
OF DIM 



IS EQUIVTBL 
ENTRY ALL 
NINES 



IK 



1H 



MOVE LIB. 
SUBR. NAME 
TO SYMBOL 
T ABIE 



I 



CALCULATE 
' "R. ENTRY 



I SUBR. 

I AOOR FRCM 

j DIM ANC PUT 

I IN TABLE 



• PROCESSED 



• NO 

• Nil* 

• 1G 



1L 



INI T .RfcADIN 
AREA TO 
FLAG ZERC 
ZERO 



1 



VICE AND 
IN IT INOIV. 
RA FOR PHA 



GET SYSTEM 
COMMUNICA- 
TION SECTOR 



DETERMINE 
STANDARD F 
AND K ( STORE 
IN FLNG AND 



READ AN 

INPUT 

RECORO 
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IS FIRST 
CHARACTER 
AN ASTERISK 



YES 
PGP2 



SF CHI*J,5, 
7.9-MOVE 
RECORD IF 
CARD INPUT 



CALCULATE 
FP2.H AND 



READ IN 
PHASE 8 
AND 

GO TO IT 



PUT SYSTEM 
COMMUNICAT- 
ION SECTOR 



• • NO 

• IS THIS A • PGP3 
• PSTSN • 



TYPEOUT 
RECORO- 



• • YES 

• IS CHI*12 • PGP4 
• A 72 OR 74 • 

• • 2L 



NO 




PGP6 


I 2K 


I TVPI 


OUT 1 


I ERR! 


)R»INVA- I 


I LIO 


OUTPUT 1 


I UN 11 
I Hi 


CCCE I 
k L T I 
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2U 



• • NO 

• IS THIS A • PGP 5 
• PQBJP • 

• RECORO • 2U 



^« IJ THIS A 



I PRINT 

-Ecr- 



RECORD 
S€T JAY* 1 



• •NO 

• IS CHI412 • PGP6 



YES j 



f 2R 



GOTO N21 



PRINT 
RECORD 
SET 
JAV«l 



MOVE FLAG 1 
TO SYSTEM 
COMMUNICA- 
TION SECTOR 



MOVE PROG 
NAME ANO 

DIM SCS 



1454 



1620-14*5 MONITOR I VERSION 2 FORTRAN 1 1-0 PHASE 



PACE 3 OF 3 



• IS THIS AN • *r 3 
• FANOK • 

• RECORD • JG 
• • 

• • • 

YcS I 
I 
I 



PRINT 
RECORO 



PGP8 16 

INIS A *• III 
• Ll$t MCORD • 



• *IS THIS AN *• HI 



pojr 

TYPf"6uT"~~ 
RfCUHO 



IP*"" 

HALT 
"GOTO"" N21 " 



• • NO 

• FANOK • PGP9 
• VALID • 

• • 3E 



. / iii« i ».aif" , . ja! 

> RECORO • 31 



MOVE FANOK 
TO FLNG 



TYPE HSSG 
ERROR.F OR 
K OUTSIDE 
RANGE 
HALT 



•*is this an *• pgpe 
• recorE • 



YES 
41 



i Hi 



MI 

RECORD 



N21 



1 *5? 



PRSCAN LA 

i TnItsvntbl" 

I SWS FOR 

I CORE SUE 

I AND HORO 

I LENGTH 



BEGIN 



IB 



I OUTPUT 

I SYMBOL 

I FOR END OF 

I STATEMENT 
f 
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M 



•* SINGST ON 



*• MODAFT 



I TO OFF 



SHIFT INPUT 
RECORD FROM 
CHI5 TO CHI 



GL2 
1H 



read Input " 



•"comment *• bIgSna 

• CARD • 



CARD 



•*IS THIS A *• SIaO 
• BLANK CARD • 



•tiara* 

BLANKS 



STATEMENT 
NUMBER 



• NO 
• GL3 



10 

and" 



mm 

HAD NUM 



_NC 
_ JNT 
NUMBER 



• •NO 

• MAS NO USED • GL3 
• BEFORE • 



i „ 



• • NO 

• MAS NO ON • CIA 
• STATEMENT • 



PACE 1 OP SB 

1U 



I ST ATE MEN 



EMFNT 
ER 



1 NUMBE 

GCT™*~»Es7n" 



NO • • 

GLT • NO APPEARED • 
• IN DC • 
1* • • 



• 2B 

• 

YES I 



'. Ill, 



YES I 

I 

TO 1G 
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5 l A 

INDICATE IN 
SYMBOL TBL 
NO APPEARED 
AS LABEL 



I 
I 
I 
I 

LEADZ 1 26 

i sh]ft* 

I OFF 

I BLANKS 

I 



• • NO 

• FIRST • GL8 
• CHARACTER • 

• F • 2F 



YFS I 
I 
1 
I 



• FORMAT • GL8 
• STATEMENT • 

• • 2F 



Gl 8 



SCAN AND 

FUMINATE 

BLANKS 



YES 
G19 



I INI T • ANC 

I SCAN FOR 

j RECORD PARK 



• RECCRO 
• PARK 
t NEIT 



• YES 
• NCNARI 



2J 



• ALPHAMERIC • 
KC I 



2K 



• NC 

• GLIO 



• EQUAL SIGN • 2P 



YES I 
I 
I 

I ,1 

• • YES 

• PAREN CCUNT • DECOCA 
• ZERO • 

• • 2R 



NCNARI 4A 



f LEFT PAREN • 2P 



YES I 
I 
I 

TO 2N 



1 457 



A QD ONE 
TO PAREN 
COUNT 



• NO 
• GL9 



• RIGHT PAREN • 2H 
• • 
• • 

YES 



I 



SUBT 6NE 
FROM PAREN 
COUNT 



20 



GOTO GL9 
OECOOA 



2R 



• • YES 

• RECORO MARK • GL12 
• NEXT • 

• • 2U 



• YES 

• DOLOOP 



• COMMA 

NO 



• • OECOOA 

• LEFT PAREN • 2R 



YES I 
I 
I 

TO 2U 



GL 12 2U 

UT F 
AROS 

■ — 

NC 



• • YES 

• INPUT FROM • ASCAN 
• CAROS • 

• • 22A 



_J.» 



T ION CAROS 
f CKCNTU I 



GOTO ASCAN 22A 

CKCNTU 2H 

REAc'dARO j 
INUE I 



m 

CONTI 
AREA 



• CONTINUA- 
• TION CARD 



• YES 

• ckI 



CONTINUE I 
COUNT TO I 
ZERO I 



• CONTINUE • CK2 
• COUNT • 

• EQUAL 4 • 3B 
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3G 



MOVE 
BEHINO 
PREVIOUS 
STATEMENT 



PLACE R/M 
AT ENO UF 
STATEMENT 



I 3C 



I 
I 
I 
I 

I 3U 



1 PRINT I 

I STATEMENT I 

I IF SW I CN I 

I I 

I I 



CKCNTU • 
2* • COMMENT 



36 



• ♦ YES 

• CONTINUED • CK3 
• FORMAT • 

• STATEMENT • 3G 



I STATEMENT 
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PACE 4 Of IB 



t • UN 



• • NO 

• CARO • Nl 
• INPUT • 

• • 40 



VE S I 
I 



IPS 



IS-- 
"to" 



• ■ • NO 



BLOCK 1 4N 



BLOCK 2 4P 



1 4C_ 

CKCNTU 



• 010 STUNT 
• NAVE 



4J 

VIS 
• • Nl 



BLOCKS 4Q 



hue 



Nl 1 40 



I SCAN 

iNITM 
three Char 



1 



• •NO 
t FIRST THREE • ERR01 
• CHARACTERS • 
• ON TABLE • 4M 



• DECLARATIVE • 41 



SCANS STPNT 



E««01 4N 
| ERROR 01 



BL0CK4 4R 

OUTSCICOPV) 

N&f 01 SK- 
I/0 



.OF 



BLOCK* 4T 
I SCI COPY I 



CICOPVI 



I IONS 
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I RETURN 

I AOORESS AT 

I CSORN-1 
I I 



5N 

FIX CONST | 
I 



1 



FACE 5 OF SB 

;u 



• RECORO 
• MARK 

• NEXT 



res 

A16 



SUBTRACT 2 
FROM NO OF 
CHARACTERS 

TO BE 
COLLECTED 



SHIFT CFF 
ZEROS 



• • NC 

• NO GREATER • CS1 
• THAN 9999 • 

• • 51 



SET VARSM 
TO I TO 



I FOR STMNT. 
I NUMBER 
I 



• • YES 

• FIRST • NUR 
• CHAR A • 

• DEC. FT. • AK 



• • VI , 

• FIRST • NUMB' 
• CHAR • 

• NUMERIC • 61 



• NUMBER 
• = ZERO 



VES 
A16 



COLLECT 
TWO 

CHARACTERS 
IN SVM 



RIGHT 
JUSTIFY 
NAME IN 



51 



• • NC 

• IN • CS2 

".IISmiEV .*5n 



VES 



V RJhi 



SU 



1460 



• • NO 

• IS VARIABLE • FLC. Hi 
• FIXEO • 

• » 51 



If 



iiH; c fvS T 

TO^ AA 
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RACE * OP 31 



FLCH3 



MOVE TWO 
CHAR TO 
SVN 



ADD 2 TO 

CHARACTER 

COUNT 



YES • 

FLCH3 • COUNT LESS 
• THAN 12 
6A • 



R I GHT 
JUSTIFY 
SYMBOL IN 
SYM AREA 



LOO 



VARSN 
2 C P ^ TC 



LCOR-y* 
VARIABLE 



SHIFT OFF 



• IN EQUIV 
• STNNT 



. -INT 
• NEXT 



I SET VARSM 

I TC 1 TO 

I LOCK-UP 

I CONSTANT 
I 



• • YES 

• HAVE F • FLCH9 
• DIGITS BEEN • 

• COLLECTED • 6T 



I 



1 6L 

"movFIn'a" 
(•ask tc sym 

28 M fVUf CI 



1»hS 

OF FLOA 
CONSTAN 

I 



V M j 



AOO ONE TO 1 
CHARACTER I- I 
STIC 1 



1 46 1 



« T tB° m 



• IS HUH CM- • ffcHT 

THAN • 

US • 6X 



• ATER THAN 
• K Gil!" 



I 

I 

t 




NO 




NO 




YES | 






i 


6C 




6J 




60 




6M 




• • NO 

• NEXT • FLCH4 
• ALPHAMERIC • 

• • 6F 

• • 


1 SHIFT CFF 
1 CCLLECTED 
I SYMBOLS 

i 


• • NO 

• NEXT CHAR • FXNUM6 
• NUMERIC • 

• • 6U 

• • 


ERROR 


17 




YES I 
I 




GCTO 


SMTLU 


BA YES 




GCTO 


BEGIN 


IB 


1 
1 


60 


NUMBER 


6K 




6R 


FLCH7 


6X 





RIGHT 
JUSTIFY 
NUMBER IN 
SVN 



6CTC 
FLNUNB 



SHIFT OFF 
INSIGNIFI- 



• NEXT 
• NUMERIC 



• NO 

• CHPAR 

• 7B 
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7A 




7G 


I con 

I NUH! 


.ECT 
JER 






HOVE I 
FLOATING I 
ZERO TC I 
SVH I 


GOTO 




FLCH8 


6Z 


GCTO SHTLU 


CMPAR 




7B 







• • NO 

• NEXT • FLCH9 
• CHAR AN E • 

• • 7D 



I 
I 

1 7C 



ADJUST 
CHARACTER I 
STIC BY 
EXPONENT 



• • YES 

• VALID • FLCHIO 
• NUMBER • 

• • 7F 



! 7E 



ERROR 18 

GOTO~~*~ BEGIN 

FLCHIO 7F 
•— — . 

• IS NUMBER 
• ZERO 

YES I 

TO 7G 



• NO 
• SMTLU 
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A2 



I INITIALIZE 
I TABLE 

! ADDRESSES 
I 



SMLOOP I BB 



I 
I 

I 
! 

i ec 



• TABLE ENTRY • Al 
• USEO 



• YES 

• Al 

• 8F 



NO I * 

I 
1 

I 8D 



• SYMBOL • AOVAR 
• TABLE FULL • 

• • 9X 



YES I 

I 
1 

1 BE 



NO I 
I 
I 

TC «G 



t- — - — — • 



• A 



ANT • 



NO 



MODIFY I NO • • 

NEXT ENTRY ! BB • • 



SJ 



fEIest -"has sym a 

uc function •* 



BL 



.' !MIBe.T 

YES 

AT 



• NO 
• A2 

« 8N 



Jlf ST • MAS ENTRY A • 
• SUBROUTINE • 
• NAT" 



II s 



•* ill] PAREN 



80 



NO • 

LUX IT • MAS VAR 

• OIMENSION 
9A • 



9A • • 



9A • • 



PACE B Of 18 
BU 



VfS • 
A6 • IN 



YES • • 

AA • IN COMMON • 

• STATEMENT • 
BY • • 



NO • • YES 

A 5 ^ MJJ ( «^A* 

8V *. mum. • si 



ERROR 32 I 

I I 



rijp 

I VARIABLE 

I 

..... 
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A9 96 



• IS SYMBOL 
• TO BE 

• OUTPUTTED 



• WAS 

• VARIABLE 

• 01 MENS ION 
• • 

• — — #— — 
VES I 
I 
I 



MOVE ADDR 
IN CSORN-l 
TO OUTSC-l 



GOTO 


OUTSC 


A8 


9E 


• • 

• MAS • 
• VARIABLE A • 

• FUNCT .NAME • 

• • 


YES 


9F 


I OUTPU 

1 Mil 

I 


ON 
OR 


GOTO *~ A7 



• MAS VARIABL • • 
• AN ARIIH • +2 

• FUNCTION 

YES I 



NC 



• FUNCT 

• oefin 

• 

NO 



SUTPUT 
RITH FUNCT 
OPERATOR 



GOTO 
LITERL 



AT 
9L 



SMLOOP • TABLE ENTRY • 
• A CONSTANT • 
8B • • 



™ItNO VL^gKJNCgFOR** 
-•- 

J 



HlIT • LOOKING FOR • 
• FIXED • 
9S • CONSTANT • 



YES • • 

SMLOOP • TABLE ENTRY • 

ON ST 



• CONSTANT 

n ......... 



88, 



ILOOP • TABLE ENTRY • 

• * SYM • 
BB • • 



mm 
fatal 



M~TO 



FOUNO 

~goto"~*"luxTt" 



SNLOOP • TABLE 
88 *• CONST 



ENTRY • 
ANT • 



NO • • YES 

SMLOOP^ TAB^E ENTRY •^lUXIT 
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LUSTNO 9U 



NC 
SM 

BB 



SMLOOP • TABLE ENTRY • 
• A STNNT NO • 



NO • • 

SMLOOP • TABLE ENTRY • 
• * SYM • 
BB • • 



9N 

ro'in" 



AOVAR 9X 



!|T INSM TO I 
CCCURRENCE I 



9Y 

SET FXORFL I 



I 
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PAGE OF IS 



NO 
All 



STORAGE A 00 
BY NUMBER 
OF CHARS IN 
SYMBOL 



ICS 



I WOVE I 

I SYMBOL INTO I 

I SYMBOL I 

I STORAGE I 

I I 



NO 
A12 



I 
I 
I 
I 

I ICC 

HOVE 
SYMBOL 
AOORESS ro 
SYMBOL 
TABLE 



• IN 

• DIMENSION 

• STATEMENT 




• IN FCT OR • 
• SUBRI STMNT • 



ICG 

I NEXT TABLE I 



NEXT TABLE 
ENTRY I 
I 



AU • IN COMMON • 

• STATEMENT • 
100 • • 



SET DlsiT 
IN FMfffe TO 
INOICATE 
SUBROUTINE 
NAME 



YES 



A12 



10H 



Ie?om • IN 

• DIMENSION 
12Q • STMNT 



10P 
ERROR 32 



LUX IT • IS SYMBOL 
• A FUNCTION 
9A • 



AU 



ICQ 



LUXIT • NEXT LEFT • 
• PARENTHESIS • 



SET FNTSH 
TO INOICATE 
FUNCTION 



SET FLAG AT 
FNTSH 



I 
I 


YES 






GCTO 


LUXIT 


9A 


1 

I ICO 




ICR 


ICR 


AOLIT 


10X 





NC • • 

A13 • IN • 

• EQUIVALENCE • 
ICM • STMNT • 



YES • • NO 

ASC21 • ON LEFT OF • LUXIT 
• EQUAL SIGN • 



FCTST ICS 
YES • 

"ion 



A15 • NEXT EQUAL • 
• SIG- 



10U • 



YES 
LUXI 

9A 



LUXIT • IN FCT. CR • 
• SUBRT STMNT • 



1 46Tl 



• SVM STMNT • AOsNn 
• NUMBER • 

• • 102 



I 10V 
PLACe'f IX 
CONSTANT 



ADSTN 102 

AC0~4*TC 
SYMBOL LCG 
AOORESS. SET 
STNCOM TO 
ZERO 
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MOVE STMNT. 
NUMBER TO 
SYMBOL 
STORAGE 



PLACE 
SYMBOL 
AOORESS 
IN TABLE 



• • YES 

IN COMMON • ERR 34 
STATEMENT • 

• UK 



• IN EQUIV. • ERR 34 
• STATE 



• YES 

• ERR 3 

• UK 



« » * 

NO I 
I 
I 
I 

I HE 



• • YES 

• IN CIMEN. • FRR34 
• STATEMENT • 

• • UK 



I 
I 

I I IF 



• IN I/O • ERR 34 

• STATE 



TEMENI 

N0~ I~ 

TO UC 



• YES 

• ERRS 

• *1U 



• LEFT PAREK 
• NEXT 



• NC 

• ERR 34 



I SET USED I 
I FUNCTION I 
I I NOtCATCR I 

r j 

GOTC LUXIT 

ERR34 1 IK 

. ] 

I 

ERROR 34 I 



MQOAFT 111 
IER 



HUH 1 
PARAMEI 



TABLE 

"goto glI" 



END UM 

•*IN SUBPRCG. 



> NC 



UN 



• • YES 

• CONTAIN • « 

• RETURN • *2 

• • HQ 





HQ 


TURN 1 
OVERFI 


... 

.OM I 
I 

I 


I 
I 

! MR 



« TYPE I 
• ERROR I 
• PROGRAM 



• NO 

.Ml 



sHIuge 

ALLOCATION 
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"ouTPufiSo" 

life: 



TO UU 
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PAGE 9 OF 11 



«A 



WRITE FRCM 
FORMAT TC 
I/O REC 
WIDTH 2 
DIGITS 



SWF » SWF ♦ 

WIDTH2 
M IDTH2 * -2 



I WI0TH2 FROM 

I FORMAT 

I INPLUS-LAST 

I IAST-WIDIH2 



• LAST TOO 
• LARGE 



NO I 
I 



TERM-LA ST-2 I 
SMCAOJ > 
WjR I TEA 



9F 



• • NO 

• READING • SML 
* • 

• • 2A 



YES 



I 



• • HC 

• FIXED • RCAFL 
• DATA • 

• FIELO • 9T 



CUTOFF" - K2 



ROJ 

I'^MAHO-fir 
REMCVE HIGH 
ORDER 
BLANKS 



if 

INPLUS 



INPLUJ 
■ INMI 



9M 

lUS-l 



t CUTOFF • 9S 

NO 



i OTCT 



CLEAR ALL 
HAGS 



XEA I 1R 

Prow 1 * 



ERF7A 9S 

c^rgam" 



m. 



I 



GOTO ERF7 UA 



aw I 

""goto"" "liiT" 

ROAFL 9T 
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9U 



I SUBTRACT 2 I 

I FROM DATA 1 

I LOC. AOR. I 

I I 



GCTO 



ADA 



MRITfA 9V 

MOVE *ROM I 



• FIXEC DATA 



• ves 

• WAFX 



WIDTH? » I 
MICTH2 - f I 



MAT A 



• NO 
• WiT 



• • 10* 



AOO H 
TO DA _ 
LOC. AOR 



tl 
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ICR 



Oft OCR 
BLANKS 



I MOVE FROM 
I OAT* LOC. 
I TO I/O REC. 



MI0TK2 • 
MI0TH2 -K 



MI0TH2 FROM 

FORMAT 

LAST-LAST* 

UI0TH2 



I INPLUS » 
I LAST 
! IIRCIG+6) 
I FAC 
I 

1 
I 



106 



• SMI 

• 2A 



SUC At 
AO 



10J 



I*EAO_ I 10K_ 

W I0TH2 ■ 
M10TN2 -2 



I lOi. 

• • YES 

« NI0TM2 • SML 

• NEGATIVE • 

• • 2A 



j ""vartsv 



• 69 • 10T 

NO I 



10R 
....« 

• INRLUS II) 



• «00 



• 10V 



100 



• INRLUSII) 
• • 20 • 



• • TIS 

• INRIUS(I) • m 



CRF7I I ICS 

5y 



FAC-K.2ER0S 
El* - 



SOTO SML 



IR0I6 10T^ 

NRLUSII) 



Hi 



10U 



• 10S 
"iRIAO 10K 



IRBLNR 10V 



GOTO IRE AO 10* 
I MINUS ION 



GOTO SML 
101 



2 A 



RE AO I 



.* mil 

YES 
RE AO IF 



OA? A *• ffeAT 
# If 



!2L. 

ATA 

■*C to 
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11G 



RAGE 11 0? 11 



• fl LESS 
• THAN 



• VES 

• ERC0M2 

• *G 



BSMF -1 10 



• 2ERC 



• UFA 

• 111 



WA»GAM*2 
WA2>FAC*1 
FAC-.LOCf I I 



I AFFIX 

t PROPER SIGN 



NO 
FIX 



I U J 

• • NO 

• MIDTH OK • ERF8I 



YFS I 
I 
I 
I 

MR ! 12 I I 10 



I 
I 
I 
I 

I 1 IE 



MOVE TO GAM 



UK 



NCVE DATA 
FROM GAM TC 

REMCVEREC 
MARK 



GCTC 



BSMF 



UFA 111 
RT 



GCTC 



I UF 



" lu 

til 

ZER 



I 

TO 11G 
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ML INI T 1A 

T read" In 

1 BLOCK 2. 

I INITIALIZE 

I MAINLINE 

I LOCAL TABLE 



1620*144) MONITOR I VERS1CN I 
1G 



YES 

• Tun 



• LONG FORM 
• CF SUBRCUT. • 

• REQUESTED • 10 



INITIAL WE 
AOORESS 
COUNTER TO 
C8C99 



10 



INITIALIZE 
ADDRESS 
COUNTER TO 
14599 



I IF 120 

I PRINTER 

I SUBTRACT 

I IOC FROM 
I AOCCO* 



IF 



INITIALIZE 
COUNTERS 
ANO COAS 
USED BY 
PROGRAM 



FORTRAN 1 1 -0 LOAOER BLOCKS 1 ANO 2 
IN 



• ANY LOCAL 
t CCNTRCL 

• CARCS 



• NO 
• XEQON 



YES 




• IS IT A 
• CCNTROL 
t RECCRO 



• YfS 
• CCLNAP 



TYPE fcUT 
FRRCR Lit 
THEN GC fC 
MONITOR 



IP 



• RE 



• YES 
RECCRC • SUBS 
NTINE • 
ECCRC • IS 



NAME IN 
RRECT 
RM 



• NO 

• ER2 

• 2F 



NO I 
I 






YES 




1 

I 1C 


RDAGN 


U 




10 



• • YES 

• IS NAME IN • ER3 
• TABLE 



26 



NO 


1R 


PUT n! 
MAINL 


tens i 

jGRAM 1 

1 


SUBS 


IS 



• cSlnam 
• *l 

• COLLECTED • IN 



• HAS LAST 
NAME BEEN 



YES 



I 



• ]S LAST • dJcCT 
• CHARACTER A • 

• COMMA • IV 



YES I 

1517 to 
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1U 



SUM. 




• • NO 

• LAST RECORD • RDAGN 
• BEEN READ • 



ARE * 



INE 
IN 



XEQON 


11 




Mr 




Iran 


I TABLE 




J 


2A 
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• ♦NO 

• IS MAINLINE • XE00N2 
• PROGRAM CN • 

• DISK • 20 




• OOES • TSTW 
• MAINLINE • 

• HAVE A NAME • 3H 



MOVE NAME 
INTO PRINT 
BUFFER 



SET CARD OR 
TAPE 

INDICATOR 



• HAS HEAOER • tlfvLQ 
f RECORD BEEN • 

• RE AC IN • )H 



EH 2 



ERRLm i<i 
THEN GO tO 
MONITOR 
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1620 FORTRAN I I-D LOADER HCCK 2 



PACE 3 OF 4 



FOR LINK 
PROCESSING 



i 




I SEARCH I 

i .hkww i 

I EQUAL ENTRY I 

I I 



EQUAL ENTRY • COORTP 
FOUNO • 

» «A 



GET 

CORRESPOND, 
HI* ENTRY 



I 
I 
I 

I 3F 



SET UP I 
PROGRAM DOA I 
USING OIP I 
TNIRY I 
I 

I 



CCRD 



OER « 

• 3V 



i NC 
• ER5 



SET UP CCA 
FOR CORE 



FQfttRAN 

CCPPUNIC. 

AREA 



UT UP TO 
1 SECTCRS 
t COPPCN 
N SCRATCH 



Pi 

'.CL 
IN . 
AREA 



.•*¥|V l ,5?8 c '•J** 

• CORE • 3Y 




• CARD OR • CO?PLO 
• TAPE INC. • 

• ON • IT 



pjSoEram 
fron oisk 



CALVIN 

SkS EXECUTE 
STARTING Al 



ioa4°p{oJ?. 



Oft U^*° 




ml! 

LOAO 



SM 

w 




lilt] 0UI 

OYERIAP.ANO 
ilANOCNEO 



branch'to 

PONIfCR 
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I 



1620 FORTRAN t 1-0 LOADER BLOCK 2 
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TYPE 


OUT 


LOAD 


NAHfc 



CARC 
TAPE RECqRO I 
1 



• • YES 

• IS IT A • CDORTP 
• DATA • 

• f. ARC • 4A 



• IS IT A 
• VALID 

• HEADER 



• 3H 

COORTP*! 4B 
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FACE 1 OF 3 



RNTBL 



1A 



• • NO 

• WERE ANY • LOOINC 
• LOCAL RECS. • 

• PRCCESSEC • 1J 



CALL IN 
MAINLINE 
I ABLE ANC 
SEARCH FOR 
LIKE NAME 



HAS EQUAL 
NAME BEEN 



NO 

LOOINC 



GET MAIN OR 
LINKS SUBP. 
f ABLE 



IE 



COMPARE 
SUBPROGRAM 
CALLS WITH 
FLIP SUBP. 
TABLE 



ANY EQ 
FNTRIE 

FOUNC 



FLIP SUBP. 
TABLE 




• IS IN CCRE 
• SUBP. TABLE 

• FULL 



• • YES 

• HAS LAST • PHASES 
• SUBP. CALL • 

• BEEN LCACEC • 10 



TO LAST 



LOACEC 

"serchY 



ENTER 



IP 



PLACE 



, NAME 
fNTRV 

aoSrS. in 

SUBP. TABLE 



GOTO 



PHASE B 

"""get IN 

" 'IBP . 
OM CISK 



1Q 



... CORE 



• END OF 
• TABLE l. 

• REACHED 



TABLE BEEN • *2 
1 -CHEC • IT 



• NO 

• ENOTST 

1* 
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it 

ENTRY 



ENOTST 



1R 



ARCfi 

UIVALENCE 
BLE FOR 
EOUAL ENTRY 



ill 



GET 

CC" 



CORRESPOND. 
CIM ENTRY 



I SEARCH 
{ TABLE FCR 
I LIKE ENTRY 

1 


\ 

I 
I 


• ANY PRCGS. • JhIsEC 
• NOT ON DISK • 

• • 11 
• • 


1 SET UP 
1 PROGRAM OCA 
I USING OIM 
| INFORMATION 


I 
1 




NO PHASED 20 






1 

I i. 




IT 


PHASEC 


11 


• LIKE ENTRY • 
• FOUNC • 

• • 
• • 


?NTER 
IP 


■ • NO 

• HAS ENTRY • • 

• IN TABLE • *2 

• BEEN LOACEC • IV 
• • 


I READ 
I HEAOE 
I RECORI 
I 


N 

1 

3 


YES 1 




YES I 






1 

TC IN 




1 

TO 1U 


,0 


2A 



I620il44) MCNITOR 



• RELOCATION • RLFRM 
• TYPE HEADER • 

• RECORC • 2K 



• • NO 

• CORE IMAGE • ERS 
• TYPE HEADER • 



SET UP OCA 
FOR CORE 
IMAGE LOAD 



TAYSIE I 20 



« MILL PROG 
• FIT INTO 



• NO 
• EROLAP 



YES™!*""* 
I 



I 



l\ itNGTH 

:i 



Io^sui?7 f ™I 

mm ! 



TO 2G 



VERSION 2 
2G 



• CARD OR 

t TAPE INC. 

• ON 



• EXTLD 

• 2J 



UN. 



EXTLO 



UoSram 
from card 

OR TAPE 



1* 



RLFRM 



CORE IMAGE I 



KM 



vis 



T 



FORTRAN II-C LOADER BLOCK 3 

2N 

v« • " . ves 

• IS SUBP. K • • 

• EOUAL TO • «2 

• MAINLINE K t 20 

• • 

NO I 

suboig i 2p 
""goto""*"trysie 20 

PHASEO 20 

IN CORE 
SUSP, TABLE 

l 2R 

• • NO 

• HAS SUBP. • 

• BEEN LOAOED • 

YES | 
_ I 2S 
ENTRY 

^ 2T^ 

• • tl 

Vf™"*j" 
TO 2U 

152* 
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2U 

• — 

• *ANV NAMES *• eSuD 
• BEEN TYPED • 



NO I 



RE CUTE 



i m 



"type "out" 

ERROR L9 



2X_ 

"iNCRfRiNT*" 
TO NEXT 
ENTRY 



I 



GOTO LOOINC*! IK 
IRS 2V 



MONITOR 



EROLAP 21 



AP 
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PA«f 3 OF 3 



PRINT OUT 
NARE •lInCT. 
ANO GVcRLAP 
MESSAGE 



GOTO 
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MSI 1 OF 2 



GET LIBRARY 
SUBROUTINE 
C IP 'ENTRIES 



I IB 



INITIALIZE 
P UNIER 10 
>:«N TABLE 

CALLED 
SUBROUTINES 



HAS 

SUBROUTINE 
BEEN CALLED 



LAST ENTRY 

BEEN 

CHECKED 



■RN.TRL 
IX 



DECREMENT 
POINTER TO 
NEXT ENTRY 



I COUNTER BY I 
I SUBROUTINE I 
I LENGTH I 



• • YES 

• rill sue*. • • 

• FIT INTC • *2 

• CCRE • IK 



1J 

...LA 
AfCR 



US.?*" 1 -" 



TYPE _ 
SU6R0U 
NUMBER 



N 



• OVERLAP • • 

• INDICATOR • *2 

• ON • IN 



TVPl 



ij IN 



TYPE 6UT 
LENGTH 



• OVERLAP 

• INDICATOR 

• ON 
• 

NO 



\ X" 

.* ii 



TYPE OUT 



LBSUll 
1R 



ENTRY *• iI|UlA 
REO •* 10 



LBSUR1 If 



IDORfSSES 



152V 



in°fcrtaan 
conn. area 



Sflhr 



MP 



LBSUBA*3 10 
IX 



• ANY CONTROL • 
• CARDS 



NC 
CALL* 



• YES 



IY ^ 
ANO 



1620*1449 MONITOR I VERSICN 2 FORTRAN I I-C LOADER BLOCK 4 



SEARCH 
TABLE FOR 
EQUAL NAME 



• EQUAL NAME 
• FOUND 



• NO 
• CALL6 



2C 



READ IN 

CORRESP. 

FLIPPED 

SUBPROGRAM 

TABLE 



20 



• • YES 

MILL FL I PER • • 
ROUTINE FIT • +2 
• 2f 



I SET 0I6IT 
I TO INDICATE 
I OVERLAP 



GOTO • +2 20 



INITIALIZE 
" BPROGRiN 



• END CF 

• SUBPROGRAM 

• TABLE 



YES 
CALL5 



P^T AOCRESS 

?ECCNDARV 
LINKAGE IN 
CALLING MO 



2K 



INCREMENT 
TO NEXT 
LINKAGE ANC 
SUBPROGRAM 
NAME 



GCTC 



• IS OVERLAP • • 
INDICATOR 



• ON 

• - 

NC 



• *2 
• 2N 



2N 



mm. 



TVP 

STAL. 
AOORE 



{ } U I 
ft TING 

mess 



~type~6ut~ 

LENGTH 



2S 



• YES 
• OVERLAP • • 

CATOR • *2 
• 2U 



• QVERLA 
*• ON 



PACE 2 OF 2 

2U 



IVPI 

m 



W 



i call In i 

MM"* 



CALL3A 2M 



K S ANO I 

UTE I 



• • NC 

• IS CONSCLE • CALL5A 
• SWITCH I ON • 

• • 2W 



TYPE OUT 
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PACE 1 OF 2 



PHASES 1A 

cet'flippeo 
subprogram 

TABLE 



• • YES 

• ENO OF • CALL6 
• TABLE FOUND • 

• • 2F 



• • NO 

• ENTRY t • 
• PREVIOUSLY 

• LOAOEO 



YES I 
I 



COMP I ID 

INCRiplNT 
TO NEKT 



GOTO 



YES I 
I 



"S 



1G 



IN TABLE | 
I 



• VALIO 

NO 



ATCA 



• *2 

• IL 



1L[?h l8 



• CORE • IP 



fOK 



OLAP 



1M 
OR 



PRINT NAME 
LENGTH AND 
OVERLAP 



GOTO COMP 



SI2EOK 



NAME, 

1*6 



PRINT Ni 

mm. 



INTO 

SCCONOAR 
LINKAGE 



is 
isS 



MTO SCHPRO 2A 
CDTPLO IT 



m 



m 



1926 



ble 



• PROGRAM • ??HRRO 

L ANY • 

Programs • 2A 



• PR06R 

ISbPr 



I I8JK! F0 " I 



FOR ALL 

1Jj«c? UT 
calleVSro. 



I 



• ANY 

• StfiyAis 



• NO 
• SCH 



12 



KOMI TOR I VERSION 2 FORTRAN 1 1-0 It'' £R SiOCR 



RAGI 2 Of 2 



/MtW- v*2 

• SCRATCH • 2C 



2B__ 

~TVPe""eR~L 1 l" 



SOTO 01 AR 
2C 

SUBPROGRAM 



'RCAo'li 

fin i 



E*CORO 



t RfCORO 



*. m 



SCO 



2 J 



AO 



26 



I W\fo 



RAM 

TCH 



PUT DISK 
AOORS. OF 

syfiRRO. IN 

SECONDARY 
I INKAGE 



NAMES 



I EXECUTE 
» 
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RACE t OR t 



ARITM U 



• FETCH. FIND • LOFIX 
• OR RECORD • 

• SUBS CALLED • IP 



MULTIPLY Nl 
BY W 



I 



IK 

60 OR LESS 



• • YES 



•*IS VALUE *• SlfsT 

\ dMwr .* « 



NO I 

L OF I X | 1R 

• I OR • ♦! 

• GREATER • 10 



♦ NO 
• Nl 



?5T 



• • YES 

• Nl BEEN • N1N20K 
• CRECIFIEU • 

• • IG 



TYPE OUT* " 
"ICE 



.PE _ 
F« CI 
MESSAG 



VALUES FOR 
HI ANO N2 
ARE TYPED 
IN 



• • YES 

N2 EQUAL TO • NIT ST 
ZERO • ♦! 



• • NC 

• IS VALUE • NITS 
• 200 OR LESS • ♦ ! 

• • 10 



i EG 



1K_ 

vrIccro" 

_ JNGTH 
EQUAL TC 2 



GOTO N2TST 
.£!!•„' — IL- 

T**"sIt"rIccro""" 

I ISuiuTC 1 



• IS SHORT • G?TFIX 
• ARITH TO BE • 

• LOAOEO • I S 



TRANSFER 
ARITH AND 

AREA 



CETFU^ I 1$^ 

c Alt" In ™ 



WW- 1 " 



IT 
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PACE 1 OF 3 



PUT NUMB 
WOS/RECORO 



I 
I 
I 
I 

I IB 



BB 

IF NOT AN 
ARRAY, OR 
ELSE BR TO 
CRAYl 



I INITIALIZE 
I TOBB TO 
I 6 CRAVl 



EVEN • BRANCH 
• IF EVEN 
IT • ARRAY 



IE 



SET UP AND 
RO IN THE 
SWD ROUTINE 
ANO ENTER 
AT AGAIN 



SET FIND 
INDICATOR 



N2CK 

• if 



1G 



GAL OISK 
AREA 



HECK FCR *• IS 02 

" * - - - - m 



FETCH IN 
OMAND 



ETCH INO 



YES 



1H 

%* 

AFTER ER 02 



TURN GVFLCW 
CFF ANO IB 



FINO-l 



GOTO SET1 10 



RECORO IP 

'pen 

OFF 1 



SET1 t 10 



CO SeIk ANO 1 

TURN OVFLOM 1 

INOICATCR I 

CFF - THEN I 

EXECUTE BB 1 



N2CK • (Q.(K 
1G 



• AREA RETURN • 




-i S — 
|ObV 

ANO* flECUTE 



4 "S !s f 



EVEN I IT 



TURN OVFLON 
INOICATCR 
CFF ANC BB 



POSITION OF 



( Al :cia?e 

IE*W?H u." 
AAA AY 




1 INCRE I BV I 

! THE NUNB OF I 

I RECORDS TO t 

1 BE READ Off I 

I WRITTEN I 



CK LEGAL 
Ff TCH-RECOR 
AREA RETURN 



IF N2 

CK 



It 



FETCHS • 
20 • 



BRANCH 
IF 

FETCH 



PUT GROUP 
MARK AFTER 
THE ARRAY 
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WRITE ARRAY 

N/0 ■ " 
BUT 
RC 



/O NLRC 
UT KITH 
C BACK CK 



I 2B 



RESTORE THE 
DIGIT OVER 
THE GROUP 
NARK 



SECTORS RO 
OR WRITTEN 



RENOvl GN 
USEO TC RO 
THIS BLOCK 
DONE ONLY 
1ST TINE 



OKAY" 



IS A Rl 
ANO BUI 

OT 



OR 

. ER 
ENPT 



SNO 

U 



GO TO 
SWO 









SWC1 




2P 



FETCH! 



2Q 
— • 

CH 



FETCH1 
2Y 
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?U 



rin r .&iir 



I 2V 

"increment' I ~ 

ANO THE 
CISK SECTOR 
AO OR ESS 



I 



• FETCH? • 



I 

TCHB I 2D_ 

"oTsablI'the" 
io St error 
action for 
mlrc-then 

00 WLRC RO 



~ck fon'oiff" 
length arav 

PRINT ER 03 



2F 



GOTO 



— I 2K 

"iNCRENENT I 

WHICH IS 
THE RfCCRO 
NUNBER 



ffi 

i! 



... 2 . 
t'up'ano " 

AO IN THE 
TO DIGENC 



AGAIN 

\"%Xz 



T 



°H?I8I" 



2S 



V 1 



2T 
TO 



1530 



TO 2U 



• GO TO t 
*• TOBB- 1 2 #* 



FETCH! I 2Y 



• IS THE • 



• NO 

.1.5-1!?* • FETCH2 
1A 



21 



LINKS • ||T_UP TQ_ • 

2U 



I 



1 DECREMENT I 


1 THE C( 




1 OF f Ml 




1 NUMBER OF I 


I MOS IN BUFF I 




IB 


PUT 


A 


WORC INTO 


F AC 
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OR AVI 36 



PA€f ] OF 3 



I 3C 

• ■ 

• IS taGRD IN *• 
• FIT PT AND • 

• AREA FOR FX • 




SKIP ImI"* 

hut 



FLOAT 
• •• 



IS WORO IN 
FIX PT ANO 
AREA FOR FL 



I 



.36 

HER 

IX 

OR FLOAT 



RETURN MERE I 
AFTER FIX I 



INTO CORE 
STORAGE 





3R 


I SET U 
I NEXT 
I IN TH 
I ARRAY 




L 



GO TC 
AGAIN 



153} 



1620-14*1 MONITOR I VERSION 2 FORTRAN ||.-p FLIP RT. FOR LOCAtS 



PACE I OF 1 




RE AO PRCG. 
INTC CCRE 



VE RETURN 
ORESS 



$U8PR 



MOVE SUBPRO 
ENTRY AODRS 
I NIC BRANCH 
INSTRUCTION 
IEMII 



BRANCH TC 
SUBPROGRAM 



SET SECTOR 
COUNT TO 
P9S 



PLACE 
STARTING 
CCRE AOORS. 
IN OCA 



■I ' 

I 

I 

,.„.„„ I... L 

I SET 

I INDICATOR 

1 TO SHOW 

I THAT PROG. 

I IS IN CORE 
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16 





IB 


/ READ 




1 CONTROL I 


| CARO 





CALL FOR 
OUP 



• NO 
• .OTHER 



1 READ IN I 

! OUP A NO I 

I TRANSFER TO I 

I OUP I 



/ RE AC IN 
I CONTROL 
I STATEME 



IE_ 
CUP* 
NT 



GOTO TVPECO 1J 



_ 1H_ 

"jgr$iucM* 



TVPECO I U 

•*|HAT TYPE *• 
• OUP CARO • 



COPY IN 



• NO 
• .11 



•RRQR 



10 



GOTO .HON IT 
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CHAL 
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• BRANCH 

• MCNCAt 



• BLANK NAME 
• CR NUMBER 



• ILLEG FORT 
• SUB NAME 



• NON-NUMERIC • 
• DIM NUMBER • IS 
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I 
I 
I 



YES • • 

LOADER • PROG. TO BE 
• CONVERTED T 
8N • CORE IMAGE 



NO 
NEXT 

1G 



PUT 99999 1 

IN MAP CORE 1 

STORAGE I 

ADDRESS I 



GOTO NEXT2 



PUT GIVEN 

aodrs.cn CO 

IN MAP CORE 



NEXT2 



PUT GIVEN 
AOORS.CN CO 
IN MAP 
ENTRY 
ADDRESS 



NCISK • IS INPUT 
• FRCP 
IP • DISK 



NO 
ERR 

7M • GIVEN 



ERR0R1 • ARE 01 Si 
AOORESSES 



• • 

« •— - — • 

NO I 
I 


• 

YES 


• 

i • 


! IE 




1L 


• • 

» IS PROGRAM • 

IN RELOCA T- • 
> ABLE FORMAT • 

• • 


NC • • 

ERRORS • ARE AOCRS. • 
• IN CISK • 
3T • *GRK AREA • 
• • 


YES I 
I 
I 


YES 


t 


I 

i IF 




[ 1M 



I COMPUTE 
I 10A0SC 
1 (SECTOR 



COUNT CF 
PROGRAM ) 



Tnitialiie 

SCAAfC 



SRS.NlTM 
RS.ON CO 



GOTO 



MAINB1 



NDISK _ 1P_ 

. GOTONCDISK 
SUBROUTINE 



GOTO MA I Nil 1U 
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PACE 1 0^ If 

MAINB1 1U 
NO • - # 

NEXT 3 • IS PROGRAM • 

• 10 If FILE • 
1M • PROTECTED • 

• • 

YES I 

L-i!— 

i put'gIoup 

I MARK IN 
I MAPRM 
I INAP ♦ 191 

Gctc" "next* ix 

NEXT3 IM 
j PAPRP J 

. 

I 

NEXT* | IX 

. 

YES • • 

IMMOV • IS A TO • 

• SECTOR ADDA • 
2F • SPECIFIED • 

NC 

1^ IV 

I clear'flag 

1 IN MAPRP 

I 12 

• 

NO • • 

NEXT5 • ARE CYLIN- • 

• CER LIMITS • 
26 • SPEC IF I EO • 

• • 

YES I 

TO 2A 



SET UP HIGH 
AND LOW 
LIMIT FROM 
CARO 



I SET UP 

I MAXIMUM 

I CYLINDER 

I LIMITS 



I 
I 
I 
I 

XT6 I 2C 

splist 
subroutine 
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PUT AOORS. 
IN LOADSA 
(SECT. AOCRS 
TO LOAC TOI 



IS THERE 
ROOM FCR 
PROGRAM 



TYPE ERROR 
MESSAGE ANO 
OPTION TO 
CONTINUE ON 
RECORO MARK 



MONCAL 

3S 



MAS RECORO 
MARK TVPEO 
AS AN S HER 



sia°.r sec 

AFTER NO. 

130 



PAGE 2 OP 11 

2U 



I«I 
1*1 
I«I 
1*1 



nUbl'MI 

mi* 



GCTO 



ERRORS 



•IS THERE 
ROOM FOR 
• PROGRAM 

YES I 
1 



cqmpuIe 

10A0SC FROM 
PRECEEOING 
DIM NUMB. IN 
SEQ.PR.1IST 

GOTO"~*"OKIOAO' 



PUT NAME IN 
PNAME 



FIN01 
20 



• IS 

> NUMI 

• SPE 



C1FI 



CIM 

ED 



2SROR9 •*FINC ONE 
3V • 



YES 
OKMAP 



SUBI 



S2, 

ROUTINE 



MOV 2F 

~sIt*flag~in" 

MAPRM 
(IMMOVABLE 
PROGRAM } 



8kmap Vis to 01M 

• NUMBER IN 



2T 
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COM! I 3A If SN |ft*QM JU 




MO I MO I SOTO MOMCAL SS 
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5A 



YES • • 

ERROR 7 • IS FROM CI* 
• PROG. 
6X • IMMOVABLE 



I 
I 
1 
I 

I 58 



PUT FROM 

SECTOR CN T. 
IN LOAOSC 



5C 



PUT F(S0M 
SECTOR AOOR 
IN PLACE OF 
SCRATCH 
ADDRESS 



I 
I 
I 
I 

I 50 

"put'from" 

CORE A00RS. 
IN MAPMA 



PUT FROM 
ENTRY ADOftS 
IN MAPEA 



UPDlM 



' WW- 

• LOAOSC 



YES 


5H 


OELETI 
OIP Fl 
SEQUEI 


E TC 
ICM 
III AL 
IM 


! sj 



PUT LOACSA 
INTC 
MCVESA 




GQTC 

MOVE PROG. 
SUBRCUT INE 



GO TO 
NOOISK 
SUBRCUT INE 



YES 
UPDIM 



MAS MOVE A 

SUCCESS 



UPCIM 



im 



NO 

SKIPS • 



"'Li "" *• 

■ PRCTECTEO t 



SOTO h 

nil 



5V 



1»I 



~goto"~""fp~" 



YES 

SKIP6 • 
6B 



• IS FROM OIM • 

. tm iB .* 



NC 


5X 


SET Fl 
OELET 


E «.N | 

1 


1 


1 


„ 


• fsttoifvu- • 

NoTUI'to 

OIM NAMES 


GOTO 


eoutv 


FINISH 




m 


I'Nk 
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CONTROL TO 
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6G RELD 

GOTO FP~ 
~'"BRO 



YES • • 

FINISH • IS FROM OIM # 

• ZERO • 

5| • • 



YES 
FIN1 

51 



WRITE FINAL 
MESSAGE FOR 
LOADED 
PROGRAM 



NE 



pJcTECTICN 



SKIPT 6H 

I oiLET^FROM" 
I OIM ENTRY. 

i irmuL 

I AND RC.MARK 



p1ogr1m h i 
work area 



*P 



MUXltn. 



lie 



"goto 



AO 
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ERRCR2 *U 

i w "oup«eSror*2"""i 

| HALT j 

I j 

GCTC MONCAL ~ 3S 
ERRCR3 6V 

i . ! 

GCTC MONCAL 3S 

_«*CR4_ *M 

I CUP»ilROR*A*"*I 
I HALT 

I 

GCTO MCNCAL ~ IS 

ERROR? 4X 

I"""oup»eIror"t 

I HALT 

L i 

GCTO MONCAL IS 



i mW 



NO • • 

SKIP? • IS FROM OIM 
• PROG. FILE 
6H • PROTECTED 
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PACE 7 0* 11 



ATMR ?A 

SUBROUTINE 



71 



COMPILATION I 



7C 



/is Jmbui • 



SliT 



S&ftOtl • IS FORMAT « 
_ • INDICATOR • 

m • Given • 



! !,C- N.RTST 



76 



* li MO f #TO * 
TJ *• PROTECTEE t* 



7H 



GOTO 
NEXT* 



MIT 10 

7 J 



IN hill 



NEXT10 1 TV 



to numeric 



I 7t _ 

"~return"tc 

IPH.'Kii 



ERROR 1 7P 
OUP«iRBCR~l" 



NOOISR 7N 
SUBROUTINE 



7U 



jMHiklll 

sma tm 



FROM COWH- 
UN] CATION 



HP 



INITRO 



7S 



Rf AO I 7T 
TAPE RECORD 



7Y • • 



YES 



7¥ 



IH,,i . / iwnr c, \ 



ERROR 2 



71 

ERROR' 25 1 I 
{uENCE I 

6CT0 *"REAe" TT 



Kfc»v'ii.riicia •. 



LOOP- 
LOOP- 1 



GOTO RCMCAt SS 
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YES • 
NEXTl 1 • LOOP 



REMAINING 
SECTORS • 



INCREMENT 
READ IN ARE 
AOORS. 



1 WRITE THREE 

I SECTORS ON 

1 WORK AREA 

I OF CISK 
I 



INCREMENT 
01SK AOORS, 
LOAGSC* 

LCADSC*! 



7T 



.... 



8K 



MRITt 
REMAINING 

AREA 



R|MA 



ENOSUB 



HE*" 



1no^e C IcJrs 



kRITE PAP 
IK DIP 
1 ABLE 



I IX 



BY 



StxT12 •*!$ THERE A 

\KSIi" 



HENCE 
TINE 
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NEXT 12 SA 

] READ" ALL OR* 
I MART Or 
I PROGRAM 

! wSSS S*|5 

I 

I 



WRITE PROG. 
ON DISK AT 
LOAOSA 



I 
I 
I 
I 

I 9C 



NEXT 12 • FINISHEC 
• LOADING 
9A • 



NEXT 1 3 • IS PROGRAM • 
• TO BE FILE • 
9F • PROTECTED • 



FP 

SUBROUTINE 
(SET OR 

prcJecticI) 



9M 



TURN th 
WRITE 

AOORESS REV 
MESSAGE 



READ ONE 
TRACK 



CLEAR (33) 
CR SET (32) 
FLAG 



VFS 


9E 






9L 


SET UP 3i 
OP CCDE. 
GO TC FP 
SU8R0UTINF 


VES 

OCNEFP 
9R 


• FINISHEC 

• PROTECTING 

• PROGRAM 
• 








NC 




NEXT 13 


9F 






9M 


RETURN TG 
NEXT BOX 
AFTFR CALL 


VES 

IPREAO 
9P 


• FINISHEC 

• PROTECTING 

• TRACK 
• 


GCTO 


. R TURN 




NC 

TC 


1 

1 

9N 



AOORS.U05I I 


GOTO 


FMSFCF 


UPREAO 


9M 


I WRITE I 
j TRACK ] 




90 


I INCREMENT j 
J INSTRUCTION j 


GOTO 


ROTRAK 


OONEFP 


9R 


I WRITE I 
J TRACK j 




9S 


TURN OFF | 
WRITE I 
ADQRS. KEV I 
MESSAGE 1 




9T 



TURN TO 
XT BOX 
TER CALL 



I 56M 
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EQUIVALENCE 
TABLE 

SUBROUTINE 



GET CIM 
ENTRY FOR 
EQUIVALENCE 
TABLE 



ICC 



I SEEK I 

I EQUIVALENCE I 

I TABLE I 

: : 



i 



VFS 

OIMTST 



• OPERATION 

• • — 

NO 



ICE 



EXIT 
I IX 



• IS DIM NO. 

• GIVEN 



SKNAME 



NITIAL 

EAO - 



SCAN1 10G 

j Scil'thcSl. 
I 



I EQUIVALENCE 
I TABLE 



NC • 
NODUPL • IS NAME 

• DUPLICATED 
1CP • IN TABLE 



NOOEL • IS THIS A 

• OELETE 
10M • OPERATION 



VES 


10L 


PUT 
IN HOI 
AREA 
(0IM1 


[m no. 

HUMI 


GOTO LIMITS 
NOOEL 10M 



EX?T • ARE DIM 
• NUMBERS 
11X • EQUAL 



NO 



TO ION 



OUP* I 
ERROR 21 i 
NAME I 



GOTO EXIT I IX 

NOCUPL 1CP 

VES • " • 

EN0TA6 • REACHED END • 
• OF TABLE 



NO I 



VES 
NEXT 

10S 



* 20 SECTORS • 



I ICR 



GOTO COMMAR 10J 
NEXT 14 ICS 



Id'acoIs, 



GOTO SCAN I 
ENDTA8 10T 



VES • 
EXIT • 



loMllON / 

I 



I57i' 



TO 10U 



PAGE 10 OF 11 

10U 



NO • 

N0L1M • IS DIM NO. 

• BETWEEN 10 
1 1 A • ANC 39 



FIKC * 
ENTRY 
to I fHIfc 
FIRST >0 
ENTRIES 



1CV 
9«S~ 



ERR24 

10Z 



I 

s 

i 
i 

i low 
•- — , — • 

• FINC CNE 



YES 


10X 


I PUT Hi 
I A NO 
I IN TA 


IME 
M NO. 

ILE 



1 

1 10V 


rilTE 




ISR 




tiCTO 


EXIT 


E R24 


101 



OUP« 
ERROR 



UiO~M*V HCNITCft I VflSION 2 OISK UTUITT MOCftAM SUMOU1INIS MM 11 0* 11 




GOTO HIT 1U NO 



N0L1K2 IIP 1 11T 



TO UK 
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October, 1964 

MEMORANDUM TO: Users of IBM 1620 Data Processing Systems 

SUBJECT: IBM 1620-1443 Monitor I, Version 2 

Program No. 1620-PR-033 (Card) 



We are forwarding the subject program to you with this memorandum and are 
providing the following abstract which summarizes its capabilities. 

ABSTRACT 
Purpose 

Monitor I, for Printer, a disk- oriented system, modified for use with 
the IBM 1443 Printer, allows the user to execute several programs without 
operator intervention; output listings which previously were produced 
by the typewriter or 407 (off-line) are now listed on-line on the 1443 
Printer. Jobs to be performed are stacked and separated by control. records 
that identify the jobs. Jobs may be processed in any order; i. e. , FORTRAN 
compiling jobs, user jobs, SPS assembly jobs, and Disk Utility Programs 
(DUP) may be entered as input. Input may be from cards, paper tape, 
or typewriter. This version modifies the FORTRAN compiler to allow the 
object program the use of 144 print position printer. 

Use of the Monitor I System reduces the amount of operator supervision 
time required of the programmer. Substantial savings in set-up time 
are achieved when jobs are performed using the Monitor I System. The 
IBM 1620 Monitor I System is comprised of the following programs: 

1. Supervisor 

2. SPS H-D 

3. FORTRAN E-D 

4. Disk Utility 



The Monitor I Supervisor Program consists of the following three routines: 
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a. The Monitor I Control Record Analyzer Routine determines the 
type of Monitor I Control Record entered into the system, tests 
for Monitor I control record validity, tests for the correct disk 
pack on each drive, and takes appropriate action to load and 
execute the job specified. 

b. The Input-Output Routine (IORT) provided in the Supervisor 
performs input-output functions and tests all ertpr indicators. 

It attempts to correct and re-execute the input or output function 
where possible. In the event of cylinder overflow, feasibility 
is tested and adjustments are made on disk address, sector 
count and core address. A seek is made and the file operation 
is executed for the adjusted disk control field. 

c. The System Output Format Loader Routine is used by the Supervisor 
as necessary to load SPS n-D assembled or FORTRAN n-D com- 
piled programs from card, paper tape, or disk to core storage. 

SPS n-D is designed to operate with the Monitor I System and cannot be 
operated independently. Card, typewriter, paper tape, and disk storage 
input-output routines, contained in the Supervisor program, are used by 
the SPS n-D macro-instructions to perform their assigned tasks. Program 
and Symbol Table listings are provided by the 1443 Printer. 

SPS Control Records are provided to control the assembly of SPS II- D 
programs. These records may be in card, paper tape, or typewriter form. 

FORTRAN n-D is an integral part of the Monitor I System and cannot be 
operated independently. Card, typewriter, paper tape, and disk storage 
input-output routines, contained in the Supervisor program, are used by 
the FORTRAN n-D statements. The PRINT statement is now used to output 
data to the 1443 Printer, and program listings are now generated by the 
Printer. 

In contrast to the basic FORTRAN n compiler, the disk-oriented compiler 
requires only 20, 000 positions of core storage. Another feature of FORTRAN 
n-D is its ability to accept source statements from the 1621 Paper Tape Unit. 

FORTRAN control records are provided to control the compilation of FORTRAN 
U-D programs. These records may be in card, paper tape, or typewriter form. 

The Disk Utility Program (DUP) is an essential part of the Monitor I System 
and cannot be operated independently. It consists of a group of routines 
designed to assist the User in the day-to-day operation of his installation. 
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By means of these routines, certain frequently required operations, such as 
loading or unloading disk storage (data or programs) from cards or paper 
tape, etc. , can be performed with minimum programming effort by the user. 

A DUP control record is required each time a Disk Utility routine is to 
be executed. 

The Disk- to -Output routine has been modified to allow system tables to 
be printed on the 1443 Printer. 



The complete Monitor I System resides in 1311 disk storage. The Supervisor 
(Monitor I Control Record Analyzer and IORT) is called into core storage 
and it requests the entry of a Monitor I control record from typewriter, card 
reader, or paper tape reader. The control record may set up the system for 
a new job. Following may be Monitor I control records that specify programs 
to be compiled or assembled by the use of FORTRAN II-D or SPS II-D, a 
Disk Utility Program or data records. 

When a Monitor control record specifying SPS n-D or FORTRAN II-D is 
encountered by the Supervisor, the appropriate program is brought into 
core storage from disk and given control. The system program assembles 
or compiles and stores the object program on disk. If execution of the 
currently assembled or compiled program is desired, it is loaded to core 
storage and given control. 

An object program may also be stored on disk or punched in paper tape 
or cards after assembly or compilation. It may then be loaded to core 
storage at a later time and executed. 

If DUP is specified by a Monitor I control record, the Supervisor brings 
DUP into core storage and executes it. The Disk Utility Program will 
take control and select the appropriate Disk Utility routine as identified 
by the next record in sequence which should be a Disk Utility Program 
control record. 

Minimum System Configurations 

1. IBM 1620 Model I System with a minimum of 20, 000 positions 
of core storage. 

2. IBM 1311 Disk Storage Drive, Model 3. 
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3. Indirect Addressing Feature. 

4. IBM 1622 Card Read- Punch. 

5. IBM 1443 Printer. 
Basic Program Material 



According to the Program Request Form you subinitts 
.forwarded includes: 



. -J 



the material beinrr 



1. IBM 1620 Monitor I System Reference Manual, C26-5739. 

2. IBM 1620 Monitor I System composed of: 

Label 

Monitor I System Loader, Deck #1 
System Tables, Deck #2 

Disk Utility Program, Deck #3 



SPS n-D Subroutine Supervisor, Deck #4 

SPS n-D Subroutines, Deck #5 

SPS II- D Processor, Deck #6 

Supervisor, Deck #7 

FORTRAN E-D Processor, Deck #8 

FORTRAN Loader, Deck #9 

FORTRAN Subroutines, Option A— Sets 1 and 2 
lor 120 print positions, Deck #10 



Number ea m 
Cols. 76-80 



00001- 
02000- 
03000- 
04000- 
10000- 
11000- 
12000- 
20000- 
22000- 
23000- 
40000- 
50000- 
51000- 
63000- 
64000- 
52000- 
53000- 
54000- 
55000- 
56000- 
57000- 
58000- 
59000- 
60000- 
61000- 
62000- 



00040 
02108 
03268 
04108 
10616 
11135 
12060 
20100 
22535 
23924 
40268 
50212 
51987 
63268 
64035 
52268 
53199 
54009 
55021 
56027 
570 1 5 
58052 
59023 
60029 
61016 
62008 
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Label 

FORTRAN Subroutines, Option A— Sets 3 and 4 
for 120 print positions and Automatic Floating 
Point Feature, Deck #11 



FORTRAN Subroutines, Option B~ Sets 1 and 2 
for 144 print positions, Deck #12 



FORTRAN Subroutines, Option B-- Sets 3 and 4 
for 144 print positions and Automatic Floating 
Point Feature, Deck #13 



System Table Editor, Deck #14 
SPS E-D Sample Program, Deck #15 
FORTRAN II-D Sample Program, Deck #16 



Numbered in 
Cols. 76-80 

65000-65268 
66000-66199 
67000-67009 
68000-68021 
69000-69027 
70000-70015 
71000-71052 
72000-72023 
73000-7X29 
74000-74016 
75000-75008 
77000-77268 
78000-78199 
79000-79009 
80000-80021 
81000-81027 
82000-82015 
83000-83052 
84000-84023 
85000-85029 
86000-86016 
87000-87008 
88000-88268 
89000-89199 
90000-90009 
91000-91021 
92000-92027 
93000-93015 
94000-94052 
95000-95023 
96000-96029 
97000-97016 
98000-98008 
99001-99082 
00001-00191 
00001-00092 
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Optional Material 

The following optional material is being forwarded, if requested: 

1. Listings: 



Label Pages 
Supervisor 

1620-1311 Supervisor and IORT-Printer 1-52 

1620-1311 Monitor Loader (System Output 1-13 
Format) 

SPS II-D 

SPS n-D, Phase A Printer 1-64 

SPS II- D, Phase B Printer 1-58 

SPS II-D, Subroutine Supervisor Printer 1-12 
SPSLIB - The SPS n-D Modification Program 

Printer 1-5 

SPS II-D Monitor I Subroutine Set 00 1-2 

SPS n-D Monitor I Subroutine Set 01 1-22 

SPS U-D Monitor I Subroutine Set 02 1-25 

SPS n-D Monitor I Subroutine Set 03 1-20 

FORTRAN n-D 

FORTRAN n-D, Phase 1- A 1-11 

FORTRAN n-D, Phase 1-B 1-65 

FORTRAN n-D, Phase 1-C 1-25 

FORTRAN n-D, Phase 2 1-94 

FORTRAN n-D Subroutines Set-1,_ Option A 1-50 

FORTRAN n-D Subroutines Set 2, Option A 1-27 

FORTRAN n-D Subroutines Set 3, Option A 1-49 

FORTRAN n-D Subroutines Set 4, Option A 1-25 

FORTRAN n-D Subroutines Set 1, Option B 1-50 

FORTRAN n-D Subroutines Set 2, Option B 1-28 

FORTRAN n-D Subroutines Set 3, Option B 1-49 

FORTRAN n-D Subroutines Set 4, Option B 1-26 
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Label Pages 

FORTRAN II-D Loader, Block 1 1-10 

FORTRAN E-D Loader, Block 2 1-10 

FORTRAN II-D Loader, Block 3 1-11 

FORTRAN E-D Loader, Block 4 1-8 

FORTRAN H-D Loader, Block 5 1-11 

FORTRAN II-D Loader, Block 6 1-6 
FORTRAN n-D Flip Routine for Load on Call 

Subroutines 1-1 
FORTRAN H-D Relocatable Library Subroutines 

with Automatic Divide 1-28 
FORTRAN H-D Relocatable Library Subroutines 

with Automatic Floating Point 1-28 

System Table Editor 1-10 

Disk Utility Program 

SELECTION ROUTINE 1-17 

DWRAD 1-8 

DALTR 1-9 

DLABL 1-7 

DFLIB 1-5 

DCOPY 1-10 

DLOAD-DREPL-DELET 1-59 

DDUMP 1-14 

DFINE 1-26 

Monitor System Loader 1-4 



Monitor I SPS n-D Printer — Sample Program 

(includes output) 1-4 

Monitor I FORTRAN n-D Sample Program . 

Printer ' 1-4 



Output from FORTRAN n-D Sample Program. 

Printer 



1-2 
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2. Flow Charts 



Label Paces 
Supervisor 

Monitor I Input Output Routine 1-8 

Monitor Relocating Loader 1-4 

Monitor Input Record Analyzer 1- 5 

SPS II-D 

SPS n-D, Phase A 1-27 

SPS n-D, Phase B 1-27 

SPS n-D, Phase C 1-4 

SPS n-D Subroutine Supervisor 1-8 

SPS n-D Modification Program 1-5 

FORTRAN n-D 

FORTRAN n-D, Phase 1A 1-3 

FORTRAN U-D, Phase IB 1-38 

FORTRAN U-D, Phase 1C 1-3 

FORTRAN n-D, Phase 2 1-9 

FORTRAN n-D I/O Subroutines 1-11 

FORTRAN U-D Loader, Blocks 1-2 1-4 

FORTRAN n-D Loader, Hock 3 1-3 

FORTRAN n-D Loader, Block 4 1-2 

FORTRAN U-D Loader, Hock 5 1-2 

FORTRAN n-D Loader, Hock 6 1-1 

FORTRAN n-D Disk I/O Subroutine 1-3 

FLIP Routine for LOCAL Subprograms 1-1 

Disk Utility Program 

General Diagram of DUP - Printer 1-3 

SELECTION ROUTINE 1-2 

DWRAD 1-1 

. DLAjJL 1-2 

DALTR 1-1 

DELET 1-1 

DCOPY 1-4 
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Disk Utility Program (Cont'd) 



Label 



Pages 



DFINE 

DFLIB 

DDUMP 

SEQSUB 

DLOAD 

DREPL 



Subroutines Shared by Load and Replace 



1 

1 
I 
1- 
4< 
7< 



1 
1 
6 
6 
3 
6 
11 



Notes: 1. ) The Monitor I System should be loaded in the sequence 
specified by Deck Numbers. 



2. ) Only one deck from Decks #10, #11, #12 or #13 should be 
loaded depending on the features desired. 

3. ) After the Monitor I System has been loaded, a Cold Start 
Procedure must be executed. See the IBM 1620 Monitor I System 
Reference Manual, C26-5739, for further explanation. 

System Table Editor (Deck #14) 



This deck is not to be loaded with the system but should be used as described: 

The Disk Identification Map (DIM) and the Sequential Program List (S. P. List) 
are changed whenever a user adds or deletes a program in his system. All 
installed systems will contain different entries in these tables. The maintenance 
of such system is not possible in every users installation by loading change cards 
over the original tables — instead correction procedures must consider the 
variability of the tables. The program described here was designed to correct 
and reconstruct these tables if they should be altered incorrectly for any reason. 



This maintenance program will examine the users DIM entries for correct format. 
After typing any incorrect entry along with the entry number and an error message, 
the incorrect entry is deleted. A new Sequential Program List is created using 
the DIM entries. If this new list is different from the former list, the user can 
print the old list before the new list is substituted. 



Purpose: 
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When the new list is created, it is possible that two different DIM entries specify 
the same area on disk. This error is handled by deleting any DIM entry that 
conflicts with any previously examined entry. The first of the entries encountered, 
under these condition, will be the one that is retained. 

After the new list has been constructed, a list of DIM entry numbers may be 
printed. This list will contain the entry numbers of any DIMs deleted because 
they specified disk sectors already specified by other DIM entries. Thus the user 
may wish to dump the DIMs using a *DDUMP control record before running this 
modification program. 

Operation: 

Place the program supplied in the input unit as a normal monitor job. Retain this 
program for use in the event that any new problems arise. 

Results: 

Sequential Program List Creation 

If the new Sequential Program List, which is built up from the DIM 
entries, compares equally with the one on the disk, the message, 
"S. P. LIST IS CORRECT" is typed. If the Lists do not compare 
equally, the message, "S. P. LIST IS INCORRECT" is typed and the 
program halts. Turning Console Switch One (1) on and pressing Start 
will dump the incorrect list (the one that was on the disk) onto the 
typewriter. In either case, the new list will be written on the disk 
when the Start Key is depressed. 

Any DIM numbers which are typed, after the S. P. List message 
has been typed, have been deleted from the DIM Table and 
replaced by eights (8's) in the Equivalence Table. 

Reference 

The following reference material will be useful in implementing 1620-1443 
Monitor I. 

IBM 1620 Monitor I System Reference Manual, C26-5739 
IBM 1443 On- Line Printer for 1620/1710 Systems, A26-5730 
IBM 1311 Disk Storage Drive, Model 3, A26-5650 
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This program will be maintained through the use of modification letter s t 
Whenever modifications are made to this program, a serially numbered 
letter, starting with number 1, will be mailed to all users. The initial 
availability of this program is considered to be at modification level 0, 
and each letter increases this level by one. When this program is requested 
and the modification level is other than 0, all letters will be supplied 
with the package, but only the latest deck will be forwarded since the 
program will always reflect the latest changes. Should the nature or quantity 
of changes make a reassembly necessary, a new version will be announced, 
and should be ordered through the IBM Branch Office. Modification letters 
to this new version will begin at 1. The coding for or replacement of changes 
when incorporated in a new version will not necessarily correspond to the 
changes as distributed in modification letters to the preceding version. 

Any discrepancies between the material you receive and the items listed in 
this memorandum (as well as any error in card reproduction) should be 
brought to the attention of the Manager of DP Program Information Department, 
IBM Corporation, 112 East Post Road, White Plains, New York. 

This program has been registered by type of system and is listed under the 
name and address shown on your order. Program modifications as and when 
made by IBM will be sent to this same address. Should there be a change 
in your type of system or in your address, or should you no longer require 
maintenance of this particular program, we would appreciate your notifying 
DPD Program Information Department through your IBM Branch Office. 

An Authorized Programming Analysis Report (APAR) should be submitted 
through your local IBM Systems Engineer to report any difficulties encountered 
in the use of this system. The APAR should be addressed to APAR Processing, 
Programming Systems Department, IBM Corporation, Monterey and Cottle 
Roads, San Jose, California 95114. 



PROGRAM INFORMATION DEPARTMENT 

Dii/urirvation: SE Managers, CE Managers 



International Business Machines Corporation 



40 Saw Mill River Road 
Hawthorne, New York 10532 
914/592-5790 



January 21, 1965 



MEMORANDUM TO: 



Users of IBM 1620 Data Processing Systems 



SUBJECT: 



IBM 1620-1443 Monitor I, Version 2 
Program No- 1620-PR-033 (Card) 
Modification No. 1 



This letter transmits Modification No. 1 of the subject program. The 
material enclosed with this modification consists of the following: 

Twelve (12) Correction Cards 

Any discrepancies between the material you receive and the items listed 
should be reported to the Manager of DP Program Information Department, 
IBM Corporation, 112 East Post Road, White Plains, New York. 

This program has been registered by type of system and is listed under the 
name and address shown on your order. Program modifications as and 
when made by IBM will be sent to this same address. Should there be a 
change in your type of system or in your address, or should you no longer 
require maintenance of this particular program, we would appreciate your 
notifying DPD Program Information Department through your IBM Branch 
Office. 

An Authorized Programming Analysis Report (APAR) should be submitted 
through your local IBM Systems Engineer to report any difficulties encountered 
in the use of this system. The APAR should be addressed to APAR. 
Processing, Programming Systems Department, IBM Corporation, Monterey 
and Cottle Roads, San Jose, California 95114. 



PROGRAM INFORMATION DEPARTMENT 
Distribution: SE Managers, CE Managers 
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Disk Utility Program, Deck #3 

1. Error The *DDUMP routine will not permit more than 999 sectors to 
be dumped to the printer. 

Correction The following change is necessary to correct the problem: 

Page 7 of the listing (1620-1443 Monitor I, Version 2 DUP DDUMP) 
should be changed 

From 03460 TFM COUNT, 0,9 05846 16 06572 00000 

To 03460 TFM COUNT, 0, , 05846 16 06572 00000 

One (1) replacement card numbered 10428 is provided. Please remove 
the correspondingly numbered card from Deck #3 and insert the card 
provided. 

SPS n-D Subroutines, Deck #5 

1. Error The Arctangent routine hangs up upon execution. 

Correction The following changes are necessary to correct the problem: 
Page 12 of the listing (Set 1) should be changed 

From 00030 FA TNI TFM PCK+5, *+20, 1 00000 16 02370 00020 

To 00030 FATN1TFM PCK+5, *+20, 17 00000 16 02370 00020 

One (1) replacement card numbered 22 40 9 is provided. Please remove 
the correspondingly card from Deck #5 and insert the card provided. 

SPS II-D Processor, Deck #6 

1. Error A DAC with a long comments field is sometimes treated as a DSAC. 
Correction The following changes are necessary to correct the problem: 
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Page 31 of the listing (1620-1443 Monitor I, Version 2 SPS II- D, 
Phase A) should be changed 



From 


15330 
15410 




TD 

BTM 


TNT"DTTT 1 9j_£ l 7X?on_i_9Q 
liNJr U JL^tO, ^iJZjJbAJ+^jc? 

EVALAD,*+12,4 


1 1 AR9 9R n^HAft H9^9Q 

11496 17 05M04 11508 


To 


15330 
15410 




TF 
BTM 


INPUT2+6, ZEPO+29 
EVALAD, DAC5, 4 


11452 26 03046 02329 
11496 17 05M04 15716 


Page 32 of the 


same listing 


should be changed 




From 


15770 


DACR 


TF 


INPUT2+6, ZEP0+29 


11860 2 6 0304 6 02329 


To 


15770 


DACR 


NOP 


INPUT2+6, ZEPO+29 


11860 41 0304 6 02329 


From 


15890 




BD 


*+24, ZEPO+28 


11980 43 12004 02328 


To 


15890 




BD 


*+24, INPUT2+5 


11980 43 12004 03045 


From 


19810 
19820 


FILE 


34 
38 


FDCF, 00701 
FDCF, 00702 


15716 34 15764 00701 
15728 38 15764 00702 


To 


19810 
19820 


DAC5 


TF 

B7 


INPUT2+6, ZEPO+29 
DAC+36 


15716 26 03046 02329 
15728 49 11508 



Five (5) replacement cards numbered 23283, 23284, 23289, 23290, and 
23340 are provided. Please remove the correspondingly cards from 
Deck #6 and insert the cards provided. 

Supervisor Deck #7 

1. Error Erroneous error message LD3 is typed when loading a relocatable 
program stored on the disk such that a three sector boundary coincides 
with a cylinder. 

Correction The following changes are necessary to correct the problem: 
Page 3 of the listing (Monitor Loader) should be changed 

From 01100 BI *+12, 1700 01006 46 01018 01700 



To 01100 BNI- PATCH, 1700 



01006 47 02264 01700 
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Page 10 of the same listing 



Add 04151 PATCH BNI 

04152 BD 

04153 B7 



ERR- 12, 3600 
ERR, CNTL+4 
DIS 



0^64 47 01018 03 1 *«> 
02276 43 01030 00y«'l 
02288 49 00934 



Two (2) replacement cards numbered 40007 and 4*0032 are provided. 
Please remove the correspondingly numbered cards from Deck #7 
and insert the cards provided. 

FORTRAN n-D Processor. Deck #8 

1. Error NEXT COMMON not correctly calculated when COMMON area 
extended by array equivalence. 

Correction The following changes are necessary to correct the problem: 
Page 9 of the listing (FORTRAN II- D, Phase 1C) should be changed 



From 04020 


BNF 


*+48, TELSW 


05704 


44 


05752 07340 


To 


04020 


BNF 


EXTCOM, TELSW 


05704 


44 


12292 07340 


Page 


23 of the same listing 










Add 


10921 EXTCOM TF 


*+35, TEMP3 


12292 


26 


12327 03602 




10922 


S 


*+23, WDLN 


12304 


22 


12327 02994 




10923 


CM 


COMADD, *-* 


12316 


14 


02262 00000 




10924 


BNH 


E89010+156 


12328 


47 


05752 01100 




10925 


TF 


COMADD,*- 13 


12340 


26 


02262 12327 




10926 


B7 


E89010+156 


12352 


49 


05752 



Three (3) replacement cards numbered 51444, 51532, and 51533 are 
provided. Please remove the correspondingly numbered cards from 
Deck #8 and insert the cards provided. 

After Decks #3, #5, #6, #7, and #8 have been corrected, only these 
decks should be loaded to the Monitor 1-1443 disk pack using Deck #1 
(System Loader). It should be noted that Deck #6 reinitializes the 
systems symbol and op code tables. Deck #7 reinitializes the system 
communication sector. Any user changes to these areas must be made 
again after loading these decks. 

PROGRAM INFORMATION DEPARTMENT 



International Business Machines Corporation 



40 Saw Mill River Road 
Hawthorne, New York 10532 
914/592-5790 



March 11, 1965 



MEMORANDUM TO: 



Users of IBM 1620 Data Processing Systems 



SUBJECT: 



IBM 1620-1443 Monitor I, Version 2 
Program No. 1620-PR-033 (Card) 
Modification No. 2 



This letter transmits Modification No. 2 of the Subject program. The 
material enclosed with this modification consists of the following: 

Fifty- One (51) Correction Cards 

Any discrepancies between the material you receive and the items listed 
should be reported to the Manager of DP Program Information Department, 
IBM Corporation, 112 East Post Road, White Plains, New York. 

This program has been registered by type of system and is listed under the 
name and address shown on your order. Program modifications as and 
when made by IBM will be sent to this same address. Should there be a 
change in your type of system or in your address, or should you no longer 
require maintenance of this particular program, we would appreciate your 
notifying DPD Program Information Department through your IBM Branch 
Office. 

An Authorized Programming Analysis Report (APAR) should be submitted 
through your local IBM Systems Engineer to report any difficulties encountered 
in the use of this system. The APAR should be addressed to APAR 
Processing, Programming Systems Department, IBM Corporation, Monterey 
and Cottle Roads, San Jose, California 95114. 



PROGRAM INFORMATION DEPARTMENT 



Distribution: SE Managers, CE Managers 
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Disk Utility Program (PUP). Pack #3 

1. Error When an SPS program which uses subroutines is stored 
Core Image, any constants which are to be stored above 22302 
are lost if the program exceeds 20, 000 core positions. 

Correction- The following changes are necessary to correct the problem: 

Page 8 of the listing (1620-1443 Monitor I, Version 2 DUP *SELECTION 
Routine) should be changed 



From 03360 SF WR2+13 

To 03360 SF WR2+14 

Page 9 of the same listing should be changed 
From 03580 B IOGT, DDA1, 7 

To 03580 B P736, DDA1, 7 

Page 16 of the same listing should be changed 
From Not used at this point in execution 



To 



05791 P736 
05792 
05793 
05794 



DORG 06468 

DS , READIN 

BNF *+24,WR2+14 

SF WR2+13 

B7 IOGT 



05016 32 02272 00000 
05016 32 02273 00000 

05130 49 00566 05908 
05130 49 06468 5908 



06468 

06468 44 06492 02273 
06480 32 02272 00000 
06492 49 00566 



Error The file protecting ability of the DCOPY routine did not function 
in some cases and the completion message did not indicate this. 

Correction The DCOPY routine has been modified to perform the 
file protecting function as specified. The changes are combined with 
those under error 3. 
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3. Error An erroneous error message printed, indicating that insufficient 
available storage for the copy was found by the DCOPY routine. 
This occurred in cases when the starting sector address for the copy 
was located after a program on a cylinder. 

Correction The DCOPY routine was modified to perform the check 
of available disk area in the specified manner. 



Change the DCOPY listing (DUP) as follows: 



Page 6 of the 


listing should be 


changed 




From 


02600 




■Q A XT Vtrrr A 

oAJtLf WrLA 


r\A<iA<~\ 1 n r\oo do 
U4r4U LI Uo<4bo Uo^^/ 


To 


02600 


B 


NXTDIM 


04740 49 6250 00000 


Page 7 of the 


listing should be 


changed 




From 


03130 


BD 


SETFPR, CHGP+7 


05276 43 603 6 5155 


To 


03130 


NOP 




05276 41 00000 00000 


Page 8 of the 


listing should be 


changed 




From 


03420 


BNF 


*+36, STCHG+1 


05488 44 05524 02861 




03430 


WNTY 


SAVRO+5 


05500 38 05743 00100 




03440 


B 


*+24 


05512 49 05536 00000 


To 


03420 


B 


*+36 


05488 49 05524 00000 




03430 


FILDEF DSC 


2,26 


05500 00002 




03432 


DSA 


RDDIM 


05506 0000 5 02700 




03435 


DC 


1,* 


05507 00001 




03438 


DSC 


4 ,0 


05508 00004 




03440 


NOP 




05512 41 00000 00000 


From 


03620 


TDM 


DEFIN+1, 6 


05762 1 5 05380 00006 




03630 


TDM 


DEFOUT+1, 6 


05774 15 05388 00006 




03640 


TDM 


CHGP+7, 1 


05786 1 5 5155 00001 




03650 


TF 


CFINS+11, DUM1+11 


05798 26 05347 05913 
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From (Cont'd) 



03660 




TF 


CFINS+18, DUM+6 


05810 26 05354 05900 


03670 




TR 


RDDIM, SAVWR 
RDDIM+20, SAVWR 


05822 31 02700 03756 


03680 




TR 


05834 31 02720 03756 


03690 




TFM 


RDDIM+8, 20, 9 


05846 16 02708 00020 


03700 




TFM 


RDDIM+28, 20, 9 


05858 16 02728 00020 


03710 




TF 


SAVRO+10, SAVRD+5 


05870 26 05748 04813 


03720 




TD 


SAVRO+5, SAVRD 


05882 25 05743 04808 


03730 


DUM 


B7 


RDWR, , 


05894 49 05252 


03740 


DUM1 


BD 


ENDMES, SETX+10, 


05902 43 05992 06210 


03750 


* 






03820 


* 








03830 


* SELECT AND FILE PROTECT THE SECTORS COPIED. 


03840 


SETFPR 


TFM 


SFFL+11,INEQU, 7 


0603 6 1 6 6083 10000 


03850 




AM 


SFFL+11, 4 


06048 11 06083 00004 


03860 


CFH 


TFM 


FLAG+1, 41, 10 


06060 16 6145 00041 


03870 


SFFL 


C 


SAVWR+5, INEQTJ, 7 


06072 24 03761 10000 


03880 




BH 


FLAG- 12 


06084 4 6 06132 01100 


03890 


PNT 


DS 


, SFFL+11 


06083 


03900 




C 


WKHICP, PNT, 11 


06096 24 06223 6083 


03910 




BL 


SETX 


06108 47 06200 01300 


03920 




TFM 


FLAG+1, 32, 10 


06120 16 06145 00032 


03930 




SM . 


PNT, 4 


06132 12 6083 00004 


03940 


FLAG 


SF 


PNT, , 6 
PNT, 105 


06144 32 06083 00000 


03950 




AM 


06156 11 06083 00105 


03960 




CM 


PNT, 105*20+INEQU 


06168 14 6083 12100 


03970 




BNH 


SETFPR+12 


06180 47 06048 01100 


03980 




B7 


WRDSKF 


06192 49 05288 


03990 


* 








04000 


SETX 


TDM 


SETX+10, 9 


06200 15 06210 00009 


04010 




B7 


WRDSKF 


06212 49 05288 



To 03635 TR 

03640 TFM 

03650 SH SF 

03 660 FPADR DS 

03670 TF 

03680 TFM 

03690 SF 
03700 BUTTON DS 



RDDIM, SAVWR 
RDDIM+8, 20, 9 
SAVCNT-4 
,SH+11 

CNTDWN, SAVCNT 
RDDIM+13, 10000 
BUTTON 
, 00455 



05762 31 02700 03756 
05774 16 02TO8 00020 
05786 32 04308 00000 

05797 00000 

05798 26 06103 04312 
05810 1602713 10000 
05822 32 00455 00000 
00455 00000 
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To (Cont'd) 



03840 CONUE 


AM 


FPADR. 105 


06036 


11 05797 


00105 


03845 


CM 


FPADR, 12000 


06048 


14 05797 


12000 


03850 


BH 


WRFPR 


06060 


46 06152 


01100 


03860 


B7 


SOMMOR 


06072 


49 05870 


00000 


03870 SFPFLG 


SM 


FPADR, 4, 10 


06080 


12 05797 


00004 


03880 


SF 


FPADR, , 6 


06092 


32 05797 


00000 


03890 


AM 


FPADR, 4, 10 


06104 


11 05797 


00004 


03900 


SM 


CNTDWN, 1 


06116 


12 06103 


00001 


03910 


BNZ 


CONUE 


06128 


47 06036 


01200 


03920 


TDM 


SFPFLG+7, 1 


06140 


15 060 87 


00001 


03930 WRFPR 


TFM 


IORT, *+23 


06152 


16 00565 


06175 


03940 


B 


IOPT, FILDEF, 7 


06164 


49 00532 


05500 


03950 


CF 


BUTTON 


06176 


33 00455 


00000 


03960 


BD 


ENDMES, SFPFLG+7 


06188 


43 05992 


06087 


03970 


AM 


RDDIM+5, 20, 10 


06200 


11 02705 


00020 


03980 


B7 


BREP 


06212 


49 05834 


00000 


03990 CNTDWN DS 


, SFPFLG+23 


06103 


00000 




04000 


DORG 


6250 


06250 




02500 


04005 NXTDIM 


TFM 


DDADIM+8 ,DCOPY-200 


06250 


16 03665 


04010 


TFM 


RMCK+11 ,DCOPY-200 


06262 


16 03419 


02500 


04015 


BTM 


BAK ,WKA 


06274 


17 03268 


06227 


04018 


B7 


DIMENT+24 


06286 


49 04752 


00000 



4. Error When deleting an entry from the Equivalence Table and 
the end of the table is between Sectors 05068 and 06079, eight(8) 
sectors following the area reserved for the Table are destroyed 
(05080-05087). 

Correction The following change is necessary to correct the problem: 

Page 36 of 1620-1443 Monitor I, Version 2 DUP Routine *DLOAD, *DREPL, 
*DELET 

From 17120 DONE TF HOLD5, CLOSW+5 09542 26 13139 13302 

To 17120 DONE TF HOLD5, CLOSR+5 09542 26 13139 13363 

Twenty- eight(28) replacement cards are provided. These cards 
are numbered 11109 thru 11132, 10199, 10589, 10590 and 10608. 
Please remove the correspondingly numbered cards from Deck #3 
and insert the cards provided. 
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From 17120 DONE TF HOLD5, CLOSW+5 0954a ?,6 13139 13W3 

To 17120 DONE TF HOLD 5, CLOSR+5 0954^ 26 13139 133e33 

Twenty-eight (28) replacement cards are provided. These cards 
are numbered Ill09 thru 11132, 10199, 10589, 10590 and 10608. 
Please remove the correspondingly numbered cards from Deck #3 
and insert the cards provided. 

SPS II-D Subroutines, Deck #5 

1. Error Subroutine Set 00 will sometimes (Fixed Product Area 
position dependent) calculate erroneous results for division 
that have at least 2 low order digits smaller than the corresponding 
number of high order digits of the dividend. 

Correction The following changes are necessary to correct .the problem: 
Page 1 of the listing (Set 00) should be changed 

From 00470 CF BFLG-37, , 6 00592 33 00495 00000 

To 00470 GF BFLG-25, , 6 00592 33 00507 00000 

One (1) replacement card numbered 22516 is provided. Please 
remove the corresponding card from Deck #5 and insert the card 
provided. 

Supervisor, Deck #7 

1. Error The correction to the Relocating Loader in Modification No. 1 
does not function properly when a cylinder overflow occurs on the 
first three sector group read into core. 

Correction The following changes are necessary to correct the problem: 
Page 3 of the listing (Monitor I Relocating Loader) should be changed 



From 01100 
OHIO 



BNI PATCH, 1700 
BI CIN,3800, 6 



01006 47 02264 01700 
01018 46 01083 03800 
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To 01100 BI CIN, 3800, 6 01006 46 01083 03800 

OHIO BNI PATCH, 1700 01018 47 02264 01700 

Page 10 of the same listing should be changed 

From 04151 PATCH BNI ERR- 12, 3600 02264 47 01018 03600 

To 04151 PATCH BNI ERR, 3600 02264 47 01030 03600 

Three (3) replacement cards numbered 40007, 40008, and 40032 are 
provided. Please remove the correspondingly numbered cards from 
Deck #7 and insert the cards provided. 

FORTRAN n-D Loader, Deck #9 

1. Error An object FORTRAN subprogram cannot be loaded from 
paper tape. 

Correction The following changes are necessary to correct the problem: 
Page 4 of the listing (FORTRAN II-D Loader, Block 3) should be changed 
From 01780 CM RMCHK+11, INRK+80 04674 14 04653 07480 

To 01780 CM RMCHK+11, INRK+75 04674 14 04653 07475 

Page 8 of the same listing should be changed 

From 03770 TF COMSEC+98, INRK+79 06522 26 07398 07479 

To 03770 TR COMSEC+94, INRK+75 06522 31 07394 07475 

Page 5 of the listing (FORTRAN n-D Loader, Block 5) should be changed 
From 02100 CM RMCHK+11, INRK+80 04950 14 04931 07480 

To 02100 CM RMCHK+11, INRK+75 04950 14 04931 07475 

Page 6 of the same listing should be changed 

From 02740 TF COMSEC+98, INRK+79 05588 26 07398 07479 
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To 02740 TR COMSEC+94, INRK+75 05588 31 07394 074 V!; 

2. Error FORTRAN load map not under the control of Sense Switch 1. 

Correction The following changes are necessary to correct the problem: 



Pacre 2 


of the 


listing (FORTRAN H-D Loader, Block 2) should be changed 




From 


00710 


B 


IOGT, COM, 7 


03558 49 00566 


05949 


To 


00710 


B 


PATCH, COM, 7 


03558 49 06752 


05949 


Page 5 


of the 


same listing should be changed 






1 1 V JULX 


02120 


K 


,951 


05058 3 4 00000 


00951 


To 


02120 


B 


PRINT 


05058 49 06784 


00000 


Page 8 


of the 


same listing 








Add 


03581 


PATCH BNC1 


IOGT 


06752 47 00566 


00100 




03582 


K 


,971 


06764 34 00000 


00971 




03583 


B7 


IOGT 


06776 49 00566 






03584 


PRINT BNC1 


RDPROG 


06784 4 7 05082 


00100 




03585 


K 


,951 


06796 34 00000 


00951 




03586 


B7 


RDPROG- 12 


06808 49 5070 




Page 7 


of the listing (FORTRAN 


n-D Loader, Block 3) should be changed 




From 


03550 


WA 


LDED+2, 900 


06322 39 07523 


00900 


To 


03550 


BC1 


PRINT 


06322 46 07182 


00100 



Page 10 of the same listing 

Add 04641 PRINT WA LDED+2, 900 07182 39 07523 00900 

04642 B7 RDPROG- 72 07194 49 06334 

Page 2 of the listing (FORTRAN n-D Loader, Block 4) should be changed 

From 00970 WA LDED1,900 04124 39 05805 00900 
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To 00970 


BTM 


PRINT, LDED1 


04124 17 05962 5805 


Page 4 of the 


same listing should be changed 






From 02090 


WA 


LDED+2, 900 




05348 39 07523 00900 


To 02090 


BTM 


PRINT, LDED+2 


05348 17 05962 07523 


Page 7 of the 


same listing 








Add 02811 
02812 
02813 
02814 


DS 

PRINT BNCl 
WA 
BB2 


5 

*+24 

PRINT- 1, 900, 6 


05961 5 

05962 47 5986 00100 
05974 39 05961 00900 
05986 42 


Page 5 of the 


listing (FORTRAN 


E-D Loader, 


Block 5) should be changed 


From 02590 


WA 


LDED+2, 900 




05460 39 07523 00900 


To 02590 


BC1 


PRINT 




05460 46 07122 00100 


Page 10 of the same listing 








Add 04571 
04572 


PRINT WA 
B7 


LDED+2, 900 
RDPROG 




07122 39 07523 00900 
07134 49 05472 


Page 2 of the 


listing (FORTRAN 


E-D Loader, 


Block 6) should be changed 


From 00690 


B 


IOGT, SVE, 7 




02670 49 00566 03910 


To 00690 


B 


PATCH, SVE, 


7 


02570 49 03962 53910 


Page 3 of the 


same listing should be changed 






From 01270 


K 


, 971 




03146 34 00000 00971 


To 01270 


NOP 






03146 41 00000 00000 


Page 5 of the 


same listing 








Add 02111 
02112 
02113 


PATCH BNCl 
K 
B7 


IOGT 

,971 

IOGT 




03962 47 00566 00100 
03974 34 00000 00971 
03986 49 00566 
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Nineteen (19) replacement cards are provided. These cards are numbered; 

63116 63179 63218 64008 

63138 63181 63239 64009 

B3139 63190 63241 64025 

63157 63210 63249 64033 

63178 63217 63260 



Please remove the correspondingly numbered cards from Deck #9 
and insert the cards provided. 

After Decks #3, #5, #7, and #9 have been corrected, only these 
decks should be loaded to the Monitor 1-1443 disk pack using Deck #1 
(System Loader). It should be noted that Deck #7 reinitializes 
the system communication sector. Any user changes to this area 
must be made again after loading these decks. 



PROGRAM INFORMATION DEPARTMENT 



International Business Machines Corporation 



40 Saw Mill River Road 
Hawthorne, New York 10532 
914/592-5790 



October, 1966 



MEMORANDUM TO: Users of IBM 1620-Data Processing Systems 

SUBJECT: IBM 1620-1443 Monitor 1, Version 2 

Program No. 1620-PR-033 (Card) 
Modification No. 3 



This letter transmits Modification No. 3 of the subject program. The 
conditions corrected and the changes incorporated in this modification 
level are: 

Correction Correction or Change Made 

Deck #3 1. The terminal ^ in the Sequential Program 

List is not detected properly when attempting 
to load a program when the monitor pack has 
insufficient room. 

2. The flagged zeros after the^ in the 
S. P. List sometimes interfere with finding 
the ^ • 

Deck #6 1. When an assembled program that includes 

subroutines is loaded and the total program 
exceeds memory, a MAR check stop occurs. 

2. When a program being assembled contains 
an * SYSTEM SYMBOL TABLE, a check stop 
may occur when listing this record. 

3. If a symbolic operand in a statement 
contains a flagged- zero (0), the program will 
loop in Phase B. 



1M489 
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Deck #7 1. FORTRAN subroutines assume the 

arithmetic overflow to be unchanged after 
return from an IORT call. 

Deck #8 1. When the last instruction generated falls 

at the very end of memory, a check stop 
occurs when trying to load the program. 

2. Left parenthesis following a statement 
number in a FORTRAN statement causes the 
compiler to loop on that statement. 

3. Must be able to classify a FORTRAN 
statement before reading the first continuation 
card. 

4. The correction in Modification No. 1 
concerning COMMON extended by array 
equivalence calculates an incorrect value for 
NEXT COMMON in some cases on non- COMMON 
array equivalence. 

Deck #9 1. An incorrect check is made for 7 character 

local names. 

2. If a local subprogram is called from a 
local subprogram and there are no in-core 
subprograms used, the error is indicated 
improperly. 

3. If local subprograms are to be loaded 
from both card or paper tape and the disk, 
they will not be loader properly. 

4. If FORTRAN links have different F and/or 
K, the error is indicated improperly. 
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Deck #10 



1. Subroutine overlays do not work properly 
if the function required are in the following 
order: FIX, FLOAT, I/O. 



Deck #12 



1. Subroutine overlays do not work properly 
if the function required are in the following 
order: FIX, FLOAT, I/O. 



A list of materials distributed with this letter follows: 



Item No. 



Description 



1 
2 
3 



47 Change Cards 

Attachment 1 - Listing of Change Cards 
Attachment 2 - Listing of Symbolic Changes 



Initial requests for this system which are filled after the date of this letter 
will not include the cards mentioned above, as these cards will be included 
in the object deck. 

Any discrepancies between the material you receive and the items listed 
should be reported to the Manager of DP Program Information Department, 
IBM Corporation, 40 Sawmill River Road, Hawthorne, New York 10532. 

This program has been registered by type of system and is listed under 
the name and address shown on your order. Program modifications as and 
when made by IBM will be sent to this same address. Should there be a 
change in your type of system or in your address, or should you no longer 
require maintenance of this particular program, we would appreciate your 
notifying DPD Program Information Department through your IBM Branch 
Office. 



PROGRAM INFORMATION DEPARTMENT 



Distribution: SE Managers, FE Managers 
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LISTING OF CHANGE CARDS (DECK 3) 

5T027603203 1 5TOOOO0 1 2027600000 1 2602765027603303 1 5 T50000 1402 77300055 1 60333 10T0222 

26374603308012001402773000011603331026604603308012001402773000021603331026810223 

346033080 1 200 1 60333 1027061 6005650333 1 49005320263749033880 1 1028080000 13 10280 T0224 

80348T260276003 15 14903604027061 6005650341 149005660272942 1 502856000044902884T0225 

28080348T490334003 1511 102760000032602765027953303 1 5TT988O 1 103 1 51000543303 1 5T0228 

4000562602773000941 6049055263725026460432 146048820 1200 14000940005T1 60490 552T0243 

66025026690432 1 46048820 1 200 140009400052 1 6049050268325026920432 146048820 1 200T0244 

160490552706250271504321 16005655490549005660000049044700260494903151 1 104949T0245 

000053304949500001 104949000513304949000004904470047002603 187045203204525000T0246 

00001 15029090000 11 602926549141 604284T44244903838024027650575346147880 1300 14T0546 

THE TEN (10) REPLACEMENT CARDS LISTED ABOVE ARE TO BE 
INSERTED INTO DECK 3 REPLACING THE CORRESPONDINGLY 
NUMBERED CARDS. 

LISTING OF CHANGE CARDS (DECK 6) 

00052330000000000 1 4 1 09365303847 1 09 1 80 1 300 1 402877000 T447 1 35440 1 2003 1 1 700002723 1 1 6 

7 1 23 1 00 1 30024029 1 1 1 542746 1 56600 1 200 1 4 1 1 20 1 0290 147 1 23 580 1 3002402899 1 545 146 1 323 1 34 

56 1 60441 56 1 602529250252903345 1 5 1 60220000549 1 56 1 60 1 5 1 60220000T49 1 561 60441 36723 1 50 

0042202502000003 10327802498220920 1 1 36392209 1 961 363949 1 39240000T49 1 56 1 622T3723 1 52 

0949034080 151371 90000T49 1 56 1 60070 1381 57200070236OOO0OOO5O04900O00OO0OOOT86023 1 79 

00040343108881 168622024960252825025290042146108880130025120550249225120570223351 

493251 205902494251 2061024952512063024961 600565T08874900532T1 727340000000 10223352 

00000000000000000000000000000000000000000000000000 1 4028 1 300050460 70460 1 2004236 1 9 

906942O0OOOOOOO0OOO0O0OO0O0O0OO0OO00OOOO0O0OO0O0O00O0OOO00OO00OO00O0O0OOOOO2362O 

000704715500013002602439028133302438000001 106851000513 10242202424140242200023836 

THE TEN (10) REPLACEMENT CARDS LISTED ABOVE ARE TO BE 
INSERTED INTO DECK 6 REPLACING THE CORRESPONDINGLY 
NUMBERED CARDS. 
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LISTING OF CHANGE CARDS (DECK 7) 

10064300002 1 1OO65OOO0O244O06320O65T2501024O044O44O07360O4 5549008660340 1024050200 

OOOOOOOOOOOOOOOOOOOOOOOOOO05o5OOO5o5o5555*OOOOOOO34O0OOOOO 1023800046001003 150206 

00046001 20380003200 702485000000000005006*0000000000000000000000000000*0000050207 

THE THREE (3) REPLACEMENT CARDS LISTED ABOVE ARE TO BE 
INSERTED INTO DECK 7 REPLACING THE CORRESPONDINGLY 
NUMBERED CARDS. 

LISTING OF CHANGE CARDS (DECK 8) 

080999826100130999743027180242415159830000*31 1513815838490290203400000*010250004 

9000244704018O12004310440O242444101221O0134910440000000001023909160423404655OO23 

833 1 5 1 400000033 1 5 1 420000024 1 5 1 430993946094740 1 20043042280242444 10066 100 1 32450024 

1055220000125000001 513931 151 381 51404505560 1514149100460141 5139000694605504050042 

41 50641 900002 150758 10000 11 5100030000 14910014000004305728100081 60601 5T5 139 1550044 

OOOOOOOOOl4151390005447069540120049036220l6l513900057490558403210013000003250102 

1 5 1 400000032 1 5 1 4200000 1 7048420005049037940 1 7048420005049 1 04402004955484942450 103 

3549000T049039680451 23600354949039680441 238003545430440403549440597603539335 1424 

7230354502994320OO95O0OOO22O00990299421O36O70OO994312292041912403586O36O74651444 

0575201 1002602262123274905752015041910000149041920150419100000490608039000251533 

13656000001 602359092461 702324T04 1009567095871 705592T04600956702399 14095870051 861 

05646004356545749534 1 634956550* 1 20840400055 1 2083990000549 1 1 976452054096 1 7055 1 904 

THE TWELVE (12) REPLACEMENT CARDS LISTED ABOVE ARE TO BE 
INSERTED INTO DECK 8 REPLACING THE CORRESPONDINGLY 
NUMBERED CARDS. 
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LISTING OF CHANGE CARDS (DECK 9) 

1 304003 1 0242602428 1 4024390000047089360 1 20043089 1 2024624 9086520 1 602439000T3 1 530 1 9 

506*2202490*00000000000004559595659005300000*5441495500000*001010440865202453074 

2 6490864000 702 3 60000000 500490000000000 1 T60000 600 7 5OO0O000OOO0O0OOOOOOOOOOOO53O 7 5 

05650356949068160594916051550002526059390737126024410749526073350244116005653096 

7 149005660470508200 10034000000095 1490507003 10762005390 1 50772 10000*49067520053 1 39 

T34907 1420340000000 10239070 1 700 100390243 100 100 1 70674403864320363900000 1 103853 1 95 

22000014106784000301706708039121502521000004903796026069210245526074480246653196 

899260603 1067891 10603100001 160605 1025334506040000O049O6256O45O608400OOO1 70753224 

1 20603 1000T149060200 1 10603 100005 1 10605 1000052 10603T0247226062230605T26062 153226 

06*0T44441 63410*390752300900490547201 1O6784000304903628OO000O0O00O0O0OOO00053239 

THE TEN (10) REPLACEMENT CARDS LISTED ABOVE ARE TO BE 
INSERTED INTO DECK 9 REPLACING THE CORRESPONDINGLY 
NUMBERED CARDS. 

LISTING OF CHANGE CARDS (DECK 10) 



50 1 1474907454000 1 6074650 1 1 6949074540001 60746502 19 1 490745400000 1 6074650 1 2 1 54^2099 

THE ONE (1) REPLACEMENT CARD LISTED ABOVE IS TO BE 
INSERTED INTO DECK 10 REPLACING THE CORRESPONDINGLY 
NUMBERED CARDS. 

LISTING OF CHANGE CARDS (DECK 12) 



50 1 1474907754000 1 6077650 1 1 694907754000 1 60776502 1 9 1 490775400000 1 6077650 1 2 1 5477 103 

THE ONE (1) REPLACEMENT CARD LISTED ABOVE I S TO BE 
INSERTED INTO DECK 12 REPLACING THE CORRESPONDINGLY 
NUMBERED CARD. 
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LISTING OF SYMBOLIC 


CHANGES (DECK 


3 ) 








01690 




TFM 


WRTSP0+23» PKODDA 


03200 


16 


03331 


-2637 


CHANGE 


01700 




BE 


WRTSPO 


0321 2 


46 


03308 


01200 


CHANGE 


01710 




CM 


PACK, 01 ,1011 


03224 


14 


02773 


000-J 


CHANGE 


01720 




TFM 


WRTSP0+23,PK1DDA 


03236 


16 


03331 


-2660 


CHANGE 


01730 




bE 


WRTSPO 


03248 


46 


03308 


01200 


CHANGE 


01740 




CM 


PACK, 02, 1011 


03260 


14 


02773 


000-K 


CHANGE 


01750 




TFM 


WRTSP0+23,PK2DDA 


03272 


16 


03331 


-2683 


CHANGE 


01760 




BE 


WRTSPO 


03284 


46 


03308 


01200 


CHANGE 


01770 




TFM 


WRTSP0+23,PK3DDA 


03296 


16 


03331 


-2706 


CHANGE 


01780 


WRTSPO 


TFM 


IORT,*+23 


03308 


16 


00565 


-3331 


CHANGE 


01790 




B 


IOPT, * 


03320 


49 


00532 


-2637 


CHANGE 


01800 




B7 


WHYNOT 


03332 


49 


03388 





CHANGE 


01810 


PATXX 


AM 


C0NST2, 1,10 


03340 


11 


02808 


000-1 


CHANGE 


01820 




TR 


C0NST2,TIPSY+11,611 


03352 


31 


0280Q 


0348J 


CHANGE 


01830 




TF 


CA LC2 , S PLC OR 


03364 


26 


02 760 


03151 


CHANGE 


01840 




B7 


NERR+24 


03376 


49 


03604 




CHANGE 


02180 




B 


PATXX 


03592 


49 


03 340 




CHANGE 


03380 




TFM 


REDSP0+23, PKODDA 


0472 6 


16 


04905 


-2637 


CHANGE 


03390 




TD 


SPLPKO+1, CLEVER 


04738 


25 


02 646 


04321 


CHANGE 


03400 




BE 


REDSPO 


04750 


46 


04882 


01200 


CHANGE 


03410 




CM 


94, 1, 1011 


04762 


14 


00094 


000-J 


CHANGE 


03420 




TFM 


REDSP0+23,PK1DDA 


04774 


16 


04905 


-2660 


CHANGE 


03430 




TD 


SPLPK1+1, CLEVER 


04786 


25 


02 669 


04321 


CHANGE 


03440 




BE 


REDSPO 


04798 


46 


04882 


01200 


CHANGE 


03450 




CM 


94,2,1011 


04810 


14 


00094 


000-K 


CHANGE 


03460 




TFM 


REDSP0+23,PK2DDA 


04822 


16 


04905 


-2683 


CHANGE 


03470 




TD 


SPLPK2+1, CLEVER 


04834 


25 


02692 


04321 


CHANGE 


03480 




BE 


REDSPO 


04846 


46 


04882 


01200 


CHANGE 


03490 




TFM 


REDSP0+23,PK3DDA 


04858 


16 


64905 


-2706 


CHANGE 


03500 




TD 


SPLPK3+1 , CLEVER 


04870 


25 


02715 


04321 


CHANGE 


03510 


REDSPO 


TFM 


IORTt *+23 


04882 


16 


00565 


-4905 


CHANGE 


03520 




B 


IOGT ,*-* 


04894 


49 


00566 


00000 


CHANGE 


03530 




B7 


SPLINI 


04906 


49 


04470 





CHANGE 


03540 


REM 


TF 


CLFLG, SPLCOR 


04914 


26 


04949 


03151 


CHANGE 


03550 




AM 


CLFLG, 05, 10 


04926 


11 


04949 


000-5 


CHANGE 


03560 




CF 


CLFLG, ,6 


0493 8 


33 


0494 R 


00000 


CHANGE 


03570 


CLFLG 


DC 


5,0,* 


04949 




-0000 




CHANGE 


03580 




AM 


CLFLG,01,10 


04950 


11 


04949 


000-1 


CHANGE 


03590 




CF 


CLFLG, ,6 


04962 


33 


0494R 


00000 


CHANGE 


03600 




B7 


SPLINI 


04974 


49 


04470 





CHANGE 


25850 




TFM 


CLIPPP+42,REM 


143 92 


16 


02926 


-4914 


CHANGE 
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LISTING OF SYMBOLIC CHANGES (DECK 6) 



05940 




BL 


PATCH 


06 818 


47 


15500 


01300 


CHANGE 


10270 




BNE 


C20P 


10978 


47 


13 544 


01200 


CHANGE 


11410 




BE 


PTCH 


12298 


46 


15660 


01200 


CHANGE 


12530 


C20P 


BNFPBEE »SSTSW 


13544 


44 


13676 


13719 


CHANGE 


12640 


BEE 


B 


CALLA2 


13676 


49 


13924 


00000 


CHANGE 


14140 


PTCH 


TDM 


SSTSW,1,11 


1 5660 


1 5 


13 7 19 


0000 J 


CHANGE 


14141 




B7 


PHASE 


15672 


49 


15616 




CHANGE 


14515 


PATCH 


CM 


INPUT+20, 50, 10 


155 00 


14 


02813 


OOONO 


ADD 


14516 




BE 


DOLL AR-20 


15512 


46 


07046 


01200 


ADD 


14517 




B7 


SPEC 


15524 


49 


06 942 




ADD 


25810 




TD 


0VER+62 t 0BJCRE-4 


10804 


25 


12055 


02492 


CHANGE 


25820 




TD 


0VER+64,0BJCRE-3 


10816 


25 


12057 


02493 


CHANGE 


25830 




TD 


0VER+66,0BJCRE-2 


10828 


25 


12059 


02494 


CHANGE 


25840 




TD 


0VER+68,0BJCRE-1 


10840 


25 


12061 


02495 


CHANGE 


25850 




TD 


0VER+7Q,0BJCRE 


10852 


25 


12063 


02496 


CHANGE 


2 5860 




TFM 


I0RT,*+23 


10864 


16 


00565 


J0887 


CHANGE 


25870 




B 


I0PT,DEF5-4,7 


10876 


49 


00532 


J1727 


CHANGE 








LISTING OF SYMBOLIC 


CHANGES ( DECK 


7) 








03100 




BNF 


TEST,TEST+18,11 


00680 


44 


00632 


0065J 


CHANGE 


03690 




DC 


1,0 


01146 




1 




CHANGE 


03691 




DC 


2,0' 


01148 




2 




ADD 


03830 




DC 


1,0 


01220 




1 




CHANGE 


03831 




DC 


2,0' 


01222 




2 




ADD 
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01100 




TF 


SUBSW+l,ZER13+2 


02662 


26 


10013 


09997 


CHANGE 


02450 


E87420 


BNR 


COMSET, MODAD, 1 1 


04172 


45 


12360 


0354R 


CHANGE 


02451 


COMSW 


DS 


,*-l 


04191 









ADD 


02480 




BNF 


NONCOM, MODAD, 11 


04192 


44 


12380 


0354R 


CHANGE 


02600 




BNF 


DOCCTU, SUBSW+1 


04110 


44 


10 122 


10013 


CHANGE 


02700 




BNF 


EQONNC, SUBSW+ 1 


04216 


44 


10066 


10013 


CHANGE 


04020 




BD 


EXTCOM, COMSW 


05704 


43 


12292 


04191 


CHANGE 


04260 




B 


CSTN03 


05552 


49 


10046 


00000 


CHANGE 


04430 




B 


CSTN02 


05692 


49 


10014 


00000 


CHANGE 


09541 


CSTN02 


CM 


CHI ,24, 10 


10014 


14 


15139 


000K4 


ADD 


U9542 




bNE 


SMTLU 


10026 


47 


06954 


01200 


ADD 


09543 




b7 


CSPVA-12 


10038 


49 


03622 




ADD 


09544 


CSTN03 


TFM 


CHI, 37, 10 


10046 


16 


15139 


000L7 


ADD 


09545 




B7 


CSTMO 1+68 


10058 


49 


05584 




ADD 


09546 


EQONCC 


SF 


SHRSW+1 


10066 


32 


10013 


00000 


ADD 


09547 




SF 


CHI + 1 


10078 


32 


15140 


00000 


ADD 


09548 




SF 


CHI + 3 


10090 


32 


15142 


00000 


ADD 


09549 




BTM 


CKCNTU,0,10 


10102 


17 


04842 


000-0 


ADD 


0954A 




B7 


DECODE 


10114 


49 


03 794 




ADD 


0954B 


DOCCTU 


BTM 


CKCNTU,0,10 


10122 


17 


04842 


000-0 


ADD 


0954C 




B7 


ASCAN 


10134 


49 


10440 




ADD 


10927 


COMSET 


TDM 


COMSW, 1 


12360 


15 


04191 


00001 


ADD 


10928 




B7 


E87420+20 


12372 


49 


04192 




ADD 


10929 


NONCOM 


TDM 


COMSW ,0 


12380 


15 


04191 


00000 


ADD 


1092 A 




B7 


E 898 20 


12392 


49 


06080 




ADD 


27100 




B 


EOPAT 


10398 


49 


13656 


00000 


CHANGE 


30091 


EOPAT 


SM 


NEXT, 5, 10 


13656 


12 


08404 


000-5 


ADD 


30092 




SM 


LNGAD,5,610 


13668 


12 


0839R 


000-5 


ADD 


30093 




B7 


EOJP 


13680 


49 


11976 




ADD 
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LIFTING OF ^YMROI TC THANGF^ 


( OFf K 


9 ) 








00710 




B 


PATCH1«C0M«7 


03 558 


49 


068 16 


-5949 


CHANGE 


00960 




B 


PATCH1 


03808 


49 


07 142 


00000 

w V/ V/ V w 


CHANGE 


01060 




NOP 


LNKPTR, 30, 10 


03 888 


41 


06784 


OOOLO 


CHANGE 


01660 




B 


END1 


08848 


49 


13040 


00000 


CHANGE 


03170 


COMPRE 


BNR 


COMPAR 


0602 


45 


06040 


00000 


CHANGE 


03200 


COMPAR 


BNR 


SERCH 


06040 


45 


06084 


00000 


CHANGE 


03300 




B 


COMPRE 


06144 


49 


06020 


00000 


CHANGE 


03587 


PATCH 1 


TR 


E PR I NT , ERRT 


06816 


31 


07620 


05390 


ADD 


03588 




TDM 


EPRINT+101 


06 82 8 


15 


07721 


00000 


ADD 


03589 




DC 


It S * 


06839 




1 




ADD 


0358A 




B7 


PATCH 


06 840 


49 


06752 




ADD 


03920 


END 1 


BNF 


RCMKCK+12,NUMBUF-15 


13040 


44 


08652 


02426 


CHANGE 


03930 




B7 


RCMKCK 


13052 


49 


08640 





CHANGE 


04573 


PATCH1 


AM 


LNKPTR, 30, 10 


07142 


11 


06 784 


OOOLO 


ADD 


04574 




B7 


ENDTST 


07154 


49 


03628 




ADD 








LISTING OF SYMBOLIC CHANGES 


(DECK 


10) 








12570 




DC 


2,2,*-3 


04050 




2 




CHANGE 








LISTING OF SYMBOLIC CHANGES 


( DECK 


12) 








12840 




DC 


2,2,*-3 


04050 




2 




CHANGE 



t 



C6t J T R0i.-STAT[UitJiJ ' TtlVALID , RE ENJE ft . 

EQU TA B LUATJEIT F ROM 1 f 5 TO" TO" if 5079 
D IMF OR LOADED FROM 1 $1+800 TO 1 11+999 



^sfq~ 

DUP 



A 



TOADETT 
LOADED 



FROM 
FROM 



0T9801 TO 0T*J880" 
1T8139 TO 1T8599 
1T9300 TO 1T9399 



"DTJF 
DUP 



~B~~ 
C 

SUBSUP 

ALLSUB 

SUPERI 



' LOADED 
LOADED 



FROM" 
FROM 



LOADED" 

LOADED 

LOADED 



FROM 
FROM 
FROM 



1T7084 TO 

inywr 
0T61+00 

0T8b00 



117127 

TU 0T7074 
TO 0T6799 
TCr~0T929r 



PH 1-A 
PH 1+2 

LOAD 1 
LOAD 2 



SET 



2 

DIM FS LOADED FROM 0$480Z T O0Bl+ ~807 

FLN FS LOADED FROM 0T6200 TO 0T6214 

FEXPFS LOADED FROM 0T6ZT5"TO -0T&Z3? 

SUB FS LOADED FROM 0T6234 TO 0T6243 

DKIOFS LOADED FROM 0T 6^1+ ^TO "$16231 

S-i-C FS LOADED FROM 0T6282 TO 0T6297 



LOADED FROM 1T9600 TO 1L9799 

LOADED FROM 0T7200 IO 0T75F7" 

LOADED FROM 0T7400 TO 0T8l 38 

LOADED FROM 0T600TTTTr0T6T95 

LOADED FROM 0T6949 TO 0T6973 
"-FROlFl5TW0"TO-f T95SS 

LOADED FROM 0T6800 TO 0T691+7 



4G323 



FATNFS LOADED FROM 
SQRTFS LOADED FROM 
ABS FS LOADED FROM" 



016298 T O 0163 F8" 
0T6319 TO 0T6329 



44JGB 



^ YS TE M~ TA &LE FD1TOR 



**XhQ 

§ EXE CUT I ON 



0240203801+5" 



S.P. LIST IS 



CORRE CT 



END OF JOB 



+4JOB 
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+4SPSX 



• 


END OF ASSEMBLY. 






EXE CUT 1 ON 




§ ■ 


END OF JOB 




i 


+4JOB 
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+4FORX51 




) 


EXECUTION 





TRP ERR 

END OF JOB 



